diff options
| author | vyzo <vyzo@hackzen.org> | 2024-03-02 17:55:38 +0200 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2024-03-02 10:55:38 -0500 |
| commit | e993d8fa3ec7027d13592824b19c8f595deb23e5 (patch) | |
| tree | bbfcc19e3f01b724636e056e6a4606d7babf5d57 | |
| parent | b7d6220dcd6f3ed84a27a681f345e4c6ffd9feef (diff) | |
Fix a couple of compiler bugz (#1140)
A couple of issues discovered following ssxi errors during incremental
compilation:
- The ssxi declaration for lambdas that had a hand-written inline rule
were broken
- When loading an ssxi, bind a method should be idempotent, ie binding
to the same symbol should be allowed.
As it was it would cause errors during incremental compilation
59 files changed, 41517 insertions, 41487 deletions
diff --git a/src/bootstrap/gerbil/compiler/base__0.scm b/src/bootstrap/gerbil/compiler/base__0.scm index ee4c2475..04df233f 100644 --- a/src/bootstrap/gerbil/compiler/base__0.scm +++ b/src/bootstrap/gerbil/compiler/base__0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/base::timestamp 1709229970) + (define gerbil/compiler/base::timestamp 1709375798) (begin (define gxc#current-compile-symbol-table (make-parameter '#f)) (define gxc#current-compile-runtime-sections (make-parameter '#f)) diff --git a/src/bootstrap/gerbil/compiler/compile.ssi b/src/bootstrap/gerbil/compiler/compile.ssi index ae867005..7a03adf7 100644 --- a/src/bootstrap/gerbil/compiler/compile.ssi +++ b/src/bootstrap/gerbil/compiler/compile.ssi @@ -10,15 +10,15 @@ namespace: gxc (spec: (:gerbil/gambit) (0 s32vector? 0 s32vector?) - (0 s16vector? 0 s16vector?) (0 u8vector? 0 u8vector?) - (0 f64vector? 0 f64vector?) - (0 f32vector? 0 f32vector?) - (0 s8vector? 0 s8vector?) (0 s64vector? 0 s64vector?) + (0 s8vector? 0 s8vector?) (0 u16vector? 0 u16vector?) (0 u32vector? 0 u32vector?) - (0 u64vector? 0 u64vector?))) + (0 u64vector? 0 u64vector?) + (0 f32vector? 0 f32vector?) + (0 f64vector? 0 f64vector?) + (0 s16vector? 0 s16vector?))) (%#export #t) (%#define-runtime gambit-annotations gxc#gambit-annotations) (%#define-runtime current-compile-methods gxc#current-compile-methods) diff --git a/src/bootstrap/gerbil/compiler/compile__0.scm b/src/bootstrap/gerbil/compiler/compile__0.scm index 8c44ec15..0ce984f7 100644 --- a/src/bootstrap/gerbil/compiler/compile__0.scm +++ b/src/bootstrap/gerbil/compiler/compile__0.scm @@ -1,10 +1,10 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/compile::timestamp 1709229970) + (define gerbil/compiler/compile::timestamp 1709375798) (begin (define gxc#_g111305_ (gx#core-deserialize-mark - '(0 (else . _else109595_) (hd . _hd109618_)) + '(0 (hd . _hd109618_) (else . _else109595_)) (gx#current-expander-context))) (define gxc#_g111306_ (##structure @@ -15,7 +15,7 @@ (list gxc#_g111305_))) (define gxc#_g111311_ (gx#core-deserialize-mark - '(0 (else . _else109656_) (hd . _hd109679_)) + '(0 (hd . _hd109679_) (else . _else109656_)) (gx#current-expander-context))) (define gxc#_g111312_ (##structure @@ -26,7 +26,7 @@ (list gxc#_g111311_))) (define gxc#_g111317_ (gx#core-deserialize-mark - '(0 (else . _else109718_) (hd . _hd109741_)) + '(0 (hd . _hd109741_) (else . _else109718_)) (gx#current-expander-context))) (define gxc#_g111318_ (##structure @@ -37,7 +37,7 @@ (list gxc#_g111317_))) (define gxc#_g111323_ (gx#core-deserialize-mark - '(0 (else . _else109781_) (hd . _hd109804_)) + '(0 (hd . _hd109804_) (else . _else109781_)) (gx#current-expander-context))) (define gxc#_g111324_ (##structure diff --git a/src/bootstrap/gerbil/compiler/driver__0.scm b/src/bootstrap/gerbil/compiler/driver__0.scm index 679762a1..f2ddaea5 100644 --- a/src/bootstrap/gerbil/compiler/driver__0.scm +++ b/src/bootstrap/gerbil/compiler/driver__0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/driver::timestamp 1709229975) + (define gerbil/compiler/driver::timestamp 1709375803) (begin (define gxc#default-gerbil-gsc (path-expand '"gsc" (path-expand '"bin" (path-expand '"~~")))) @@ -14,15 +14,15 @@ (define gxc#scheme-file-settings '(permissions: 420 char-encoding: UTF-8 eol-encoding: lf)) (define gxc#with-output-to-scheme-file - (lambda (_path158012_ _fun158013_) + (lambda (_path158017_ _fun158018_) (with-output-to-file - (let ((__tmp158106 + (let ((__tmp158111 (let () (declare (not safe)) - (cons _path158012_ gxc#scheme-file-settings)))) + (cons _path158017_ gxc#scheme-file-settings)))) (declare (not safe)) - (cons 'path: __tmp158106)) - _fun158013_))) + (cons 'path: __tmp158111)) + _fun158018_))) (define gxc#+gerbil-gsc+ '#f) (define gxc#gerbil-gsc (lambda () @@ -47,8 +47,8 @@ (set! gxc#+gerbil-ar+ (getenv '"GERBIL_AR" gxc#default-gerbil-ar))) gxc#+gerbil-ar+)) (define gxc#gerbil-rpath - (lambda (_gerbil-libdir158007_) - (string-append '"-Wl,-rpath=" _gerbil-libdir158007_))) + (lambda (_gerbil-libdir158012_) + (string-append '"-Wl,-rpath=" _gerbil-libdir158012_))) (define gxc#gerbil-runtime-modules '("gerbil/runtime/gambit" "gerbil/runtime/util" @@ -68,500 +68,500 @@ "gerbil/runtime/init" "gerbil/runtime")) (define gxc#delete-directory* - (lambda (_dir158005_) (delete-file-or-directory _dir158005_ '#t))) + (lambda (_dir158010_) (delete-file-or-directory _dir158010_ '#t))) (define gxc#compile-module__% - (lambda (_srcpath157979_ _opts157980_) - (if (let () (declare (not safe)) (string? _srcpath157979_)) + (lambda (_srcpath157984_ _opts157985_) + (if (let () (declare (not safe)) (string? _srcpath157984_)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Invalid module source path" - _srcpath157979_))) - (let ((_outdir157982_ + _srcpath157984_))) + (let ((_outdir157987_ (let () (declare (not safe)) - (pgetq__0 'output-dir: _opts157980_))) - (_invoke-gsc?157983_ + (pgetq__0 'output-dir: _opts157985_))) + (_invoke-gsc?157988_ (let () (declare (not safe)) - (pgetq__0 'invoke-gsc: _opts157980_))) - (_gsc-options157984_ + (pgetq__0 'invoke-gsc: _opts157985_))) + (_gsc-options157989_ (let () (declare (not safe)) - (pgetq__0 'gsc-options: _opts157980_))) - (_keep-scm?157985_ + (pgetq__0 'gsc-options: _opts157985_))) + (_keep-scm?157990_ (let () (declare (not safe)) - (pgetq__0 'keep-scm: _opts157980_))) - (_verbosity157986_ - (let () (declare (not safe)) (pgetq__0 'verbose: _opts157980_))) - (_optimize157987_ + (pgetq__0 'keep-scm: _opts157985_))) + (_verbosity157991_ + (let () (declare (not safe)) (pgetq__0 'verbose: _opts157985_))) + (_optimize157992_ (let () (declare (not safe)) - (pgetq__0 'optimize: _opts157980_))) - (_debug157988_ - (let () (declare (not safe)) (pgetq__0 'debug: _opts157980_))) - (_gen-ssxi157989_ + (pgetq__0 'optimize: _opts157985_))) + (_debug157993_ + (let () (declare (not safe)) (pgetq__0 'debug: _opts157985_))) + (_gen-ssxi157994_ (let () (declare (not safe)) - (pgetq__0 'generate-ssxi: _opts157980_)))) - (if _outdir157982_ - (let ((__tmp158107 + (pgetq__0 'generate-ssxi: _opts157985_)))) + (if _outdir157987_ + (let ((__tmp158112 (lambda () (let () (declare (not safe)) - (create-directory*__0 _outdir157982_))))) + (create-directory*__0 _outdir157987_))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp158107)) + (with-lock gxc#+driver-mutex+ __tmp158112)) '#!void) - (if _optimize157987_ - (let ((__tmp158108 + (if _optimize157992_ + (let ((__tmp158113 (lambda () (let () (declare (not safe)) (gxc#optimizer-info-init!))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp158108)) + (with-lock gxc#+driver-mutex+ __tmp158113)) '#!void) - (let ((__tmp158112 + (let ((__tmp158117 (lambda () (let () (declare (not safe)) - (gxc#verbose '"compile " _srcpath157979_)) - (let ((__tmp158113 - (let ((__tmp158114 + (gxc#verbose '"compile " _srcpath157984_)) + (let ((__tmp158118 + (let ((__tmp158119 (lambda () (let () (declare (not safe)) - (gx#import-module__0 _srcpath157979_))))) + (gx#import-module__0 _srcpath157984_))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp158114)))) + (with-lock gxc#+driver-mutex+ __tmp158119)))) (declare (not safe)) - (gxc#compile-top-module __tmp158113)))) - (__tmp158111 + (gxc#compile-top-module __tmp158118)))) + (__tmp158116 (let () (declare (not safe)) (gxc#compile-timestamp))) - (__tmp158109 - (let ((__tmp158110 + (__tmp158114 + (let ((__tmp158115 (let () (declare (not safe)) - (cons _srcpath157979_ '())))) + (cons _srcpath157984_ '())))) (declare (not safe)) - (cons 'compile-module __tmp158110)))) + (cons 'compile-module __tmp158115)))) (declare (not safe)) (call-with-parameters - __tmp158112 + __tmp158117 gxc#current-compile-output-dir - _outdir157982_ + _outdir157987_ gxc#current-compile-invoke-gsc - _invoke-gsc?157983_ + _invoke-gsc?157988_ gxc#current-compile-gsc-options - _gsc-options157984_ + _gsc-options157989_ gxc#current-compile-keep-scm - _keep-scm?157985_ + _keep-scm?157990_ gxc#current-compile-verbose - _verbosity157986_ + _verbosity157991_ gxc#current-compile-optimize - _optimize157987_ + _optimize157992_ gxc#current-compile-debug - _debug157988_ + _debug157993_ gxc#current-compile-generate-ssxi - _gen-ssxi157989_ + _gen-ssxi157994_ gxc#current-compile-timestamp - __tmp158111 + __tmp158116 gxc#current-compile-context - __tmp158109 + __tmp158114 gx#current-expander-compiling? '#t))))) (define gxc#compile-module__0 - (lambda (_srcpath157998_) - (let ((_opts158000_ '())) + (lambda (_srcpath158003_) + (let ((_opts158005_ '())) (declare (not safe)) - (gxc#compile-module__% _srcpath157998_ _opts158000_)))) + (gxc#compile-module__% _srcpath158003_ _opts158005_)))) (define gxc#compile-module - (lambda _g158116_ - (let ((_g158115_ (let () (declare (not safe)) (##length _g158116_)))) - (cond ((let () (declare (not safe)) (##fx= _g158115_ 1)) - (apply (lambda (_srcpath157998_) + (lambda _g158121_ + (let ((_g158120_ (let () (declare (not safe)) (##length _g158121_)))) + (cond ((let () (declare (not safe)) (##fx= _g158120_ 1)) + (apply (lambda (_srcpath158003_) (let () (declare (not safe)) - (gxc#compile-module__0 _srcpath157998_))) - _g158116_)) - ((let () (declare (not safe)) (##fx= _g158115_ 2)) - (apply (lambda (_srcpath158002_ _opts158003_) + (gxc#compile-module__0 _srcpath158003_))) + _g158121_)) + ((let () (declare (not safe)) (##fx= _g158120_ 2)) + (apply (lambda (_srcpath158007_ _opts158008_) (let () (declare (not safe)) (gxc#compile-module__% - _srcpath158002_ - _opts158003_))) - _g158116_)) + _srcpath158007_ + _opts158008_))) + _g158121_)) (else (##raise-wrong-number-of-arguments-exception gxc#compile-module - _g158116_)))))) + _g158121_)))))) (define gxc#compile-exe__% - (lambda (_srcpath157955_ _opts157956_) - (if (let () (declare (not safe)) (string? _srcpath157955_)) + (lambda (_srcpath157960_ _opts157961_) + (if (let () (declare (not safe)) (string? _srcpath157960_)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Invalid module source path" - _srcpath157955_))) - (let ((_outdir157958_ + _srcpath157960_))) + (let ((_outdir157963_ (let () (declare (not safe)) - (pgetq__0 'output-dir: _opts157956_))) - (_invoke-gsc?157959_ + (pgetq__0 'output-dir: _opts157961_))) + (_invoke-gsc?157964_ (let () (declare (not safe)) - (pgetq__0 'invoke-gsc: _opts157956_))) - (_gsc-options157960_ + (pgetq__0 'invoke-gsc: _opts157961_))) + (_gsc-options157965_ (let () (declare (not safe)) - (pgetq__0 'gsc-options: _opts157956_))) - (_keep-scm?157961_ + (pgetq__0 'gsc-options: _opts157961_))) + (_keep-scm?157966_ (let () (declare (not safe)) - (pgetq__0 'keep-scm: _opts157956_))) - (_verbosity157962_ - (let () (declare (not safe)) (pgetq__0 'verbose: _opts157956_))) - (_debug157963_ - (let () (declare (not safe)) (pgetq__0 'debug: _opts157956_)))) - (if _outdir157958_ - (let ((__tmp158117 + (pgetq__0 'keep-scm: _opts157961_))) + (_verbosity157967_ + (let () (declare (not safe)) (pgetq__0 'verbose: _opts157961_))) + (_debug157968_ + (let () (declare (not safe)) (pgetq__0 'debug: _opts157961_)))) + (if _outdir157963_ + (let ((__tmp158122 (lambda () (let () (declare (not safe)) - (create-directory*__0 _outdir157958_))))) + (create-directory*__0 _outdir157963_))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp158117)) + (with-lock gxc#+driver-mutex+ __tmp158122)) '#!void) - (let ((__tmp158121 + (let ((__tmp158126 (lambda () (let () (declare (not safe)) - (gxc#verbose '"compile exe " _srcpath157955_)) - (let ((__tmp158122 - (let ((__tmp158123 + (gxc#verbose '"compile exe " _srcpath157960_)) + (let ((__tmp158127 + (let ((__tmp158128 (lambda () (let () (declare (not safe)) - (gx#import-module__0 _srcpath157955_))))) + (gx#import-module__0 _srcpath157960_))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp158123)))) + (with-lock gxc#+driver-mutex+ __tmp158128)))) (declare (not safe)) (gxc#compile-executable-module - __tmp158122 - _opts157956_)))) - (__tmp158120 + __tmp158127 + _opts157961_)))) + (__tmp158125 (let () (declare (not safe)) (gxc#compile-timestamp))) - (__tmp158118 - (let ((__tmp158119 + (__tmp158123 + (let ((__tmp158124 (let () (declare (not safe)) - (cons _srcpath157955_ '())))) + (cons _srcpath157960_ '())))) (declare (not safe)) - (cons 'compile-exe __tmp158119)))) + (cons 'compile-exe __tmp158124)))) (declare (not safe)) (call-with-parameters - __tmp158121 + __tmp158126 gxc#current-compile-output-dir - _outdir157958_ + _outdir157963_ gxc#current-compile-invoke-gsc - _invoke-gsc?157959_ + _invoke-gsc?157964_ gxc#current-compile-gsc-options - _gsc-options157960_ + _gsc-options157965_ gxc#current-compile-keep-scm - _keep-scm?157961_ + _keep-scm?157966_ gxc#current-compile-verbose - _verbosity157962_ + _verbosity157967_ gxc#current-compile-debug - _debug157963_ + _debug157968_ gxc#current-compile-timestamp - __tmp158120 + __tmp158125 gxc#current-compile-context - __tmp158118 + __tmp158123 gx#current-expander-compiling? '#t))))) (define gxc#compile-exe__0 - (lambda (_srcpath157971_) - (let ((_opts157973_ '())) + (lambda (_srcpath157976_) + (let ((_opts157978_ '())) (declare (not safe)) - (gxc#compile-exe__% _srcpath157971_ _opts157973_)))) + (gxc#compile-exe__% _srcpath157976_ _opts157978_)))) (define gxc#compile-exe - (lambda _g158125_ - (let ((_g158124_ (let () (declare (not safe)) (##length _g158125_)))) - (cond ((let () (declare (not safe)) (##fx= _g158124_ 1)) - (apply (lambda (_srcpath157971_) + (lambda _g158130_ + (let ((_g158129_ (let () (declare (not safe)) (##length _g158130_)))) + (cond ((let () (declare (not safe)) (##fx= _g158129_ 1)) + (apply (lambda (_srcpath157976_) (let () (declare (not safe)) - (gxc#compile-exe__0 _srcpath157971_))) - _g158125_)) - ((let () (declare (not safe)) (##fx= _g158124_ 2)) - (apply (lambda (_srcpath157975_ _opts157976_) + (gxc#compile-exe__0 _srcpath157976_))) + _g158130_)) + ((let () (declare (not safe)) (##fx= _g158129_ 2)) + (apply (lambda (_srcpath157980_ _opts157981_) (let () (declare (not safe)) - (gxc#compile-exe__% _srcpath157975_ _opts157976_))) - _g158125_)) + (gxc#compile-exe__% _srcpath157980_ _opts157981_))) + _g158130_)) (else (##raise-wrong-number-of-arguments-exception gxc#compile-exe - _g158125_)))))) + _g158130_)))))) (define gxc#compile-executable-module - (lambda (_ctx157951_ _opts157952_) + (lambda (_ctx157956_ _opts157957_) (if (let () (declare (not safe)) - (pgetq__0 'full-program-optimization: _opts157952_)) + (pgetq__0 'full-program-optimization: _opts157957_)) (let () (declare (not safe)) (gxc#compile-executable-module/full-program-optimization - _ctx157951_ - _opts157952_)) + _ctx157956_ + _opts157957_)) (let () (declare (not safe)) (gxc#compile-executable-module/separate - _ctx157951_ - _opts157952_))))) + _ctx157956_ + _opts157957_))))) (define gxc#compile-executable-module/separate - (lambda (_ctx157834_ _opts157835_) - (letrec ((_generate-stub157837_ - (lambda (_builtin-modules157947_) - (let ((_mod-main157949_ + (lambda (_ctx157839_ _opts157840_) + (letrec ((_generate-stub157842_ + (lambda (_builtin-modules157952_) + (let ((_mod-main157954_ (let () (declare (not safe)) - (gxc#find-runtime-symbol _ctx157834_ 'main)))) - (write (let ((__tmp158126 - (let ((__tmp158127 - (let ((__tmp158128 - (let ((__tmp158129 - (let ((__tmp158131 - (let ((__tmp158132 + (gxc#find-runtime-symbol _ctx157839_ 'main)))) + (write (let ((__tmp158131 + (let ((__tmp158132 + (let ((__tmp158133 + (let ((__tmp158134 + (let ((__tmp158136 + (let ((__tmp158137 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _builtin-modules157947_ '())))) + (cons _builtin-modules157952_ '())))) (declare (not safe)) - (cons 'quote __tmp158132))) - (__tmp158130 + (cons 'quote __tmp158137))) + (__tmp158135 (let () (declare (not safe)) (cons 'libgerbil-builtin-modules '())))) (declare (not safe)) - (cons __tmp158131 __tmp158130)))) + (cons __tmp158136 __tmp158135)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons 'append - __tmp158129)))) + __tmp158134)))) (declare (not safe)) - (cons __tmp158128 '())))) + (cons __tmp158133 '())))) (declare (not safe)) - (cons 'builtin-modules __tmp158127)))) + (cons 'builtin-modules __tmp158132)))) (declare (not safe)) - (cons 'define __tmp158126))) - (write (let ((__tmp158133 - (let ((__tmp158172 + (cons 'define __tmp158131))) + (write (let ((__tmp158138 + (let ((__tmp158177 (let () (declare (not safe)) (cons 'gerbil-main '()))) - (__tmp158134 - (let ((__tmp158135 - (let ((__tmp158136 - (let ((__tmp158160 - (let ((__tmp158161 + (__tmp158139 + (let ((__tmp158140 + (let ((__tmp158141 + (let ((__tmp158165 + (let ((__tmp158166 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp158162 - (let ((__tmp158170 - (let ((__tmp158171 + (let ((__tmp158167 + (let ((__tmp158175 + (let ((__tmp158176 (let () (declare (not safe)) (cons 'builtin-modules '())))) (declare (not safe)) (cons 'gerbil-runtime-init! - __tmp158171))) - (__tmp158163 - (let ((__tmp158164 - (let ((__tmp158165 - (let ((__tmp158166 + __tmp158176))) + (__tmp158168 + (let ((__tmp158169 + (let ((__tmp158170 + (let ((__tmp158171 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp158167 - (let ((__tmp158168 - (let ((__tmp158169 + (let ((__tmp158172 + (let ((__tmp158173 + (let ((__tmp158174 (let () (declare (not safe)) (cons 'command-line '())))) (declare (not safe)) - (cons __tmp158169 '())))) + (cons __tmp158174 '())))) (declare (not safe)) - (cons 'cdr __tmp158168)))) + (cons 'cdr __tmp158173)))) (declare (not safe)) - (cons __tmp158167 '())))) + (cons __tmp158172 '())))) (declare (not safe)) - (cons _mod-main157949_ __tmp158166)))) + (cons _mod-main157954_ __tmp158171)))) (declare (not safe)) - (cons 'apply __tmp158165)))) + (cons 'apply __tmp158170)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp158164 '())))) + (cons __tmp158169 '())))) (declare (not safe)) - (cons __tmp158170 __tmp158163)))) + (cons __tmp158175 __tmp158168)))) (declare (not safe)) - (cons '() __tmp158162)))) + (cons '() __tmp158167)))) (declare (not safe)) - (cons 'lambda __tmp158161))) - (__tmp158137 - (let ((__tmp158138 - (let ((__tmp158139 - (let ((__tmp158140 - (let ((__tmp158151 - (let ((__tmp158152 - (let ((__tmp158153 + (cons 'lambda __tmp158166))) + (__tmp158142 + (let ((__tmp158143 + (let ((__tmp158144 + (let ((__tmp158145 + (let ((__tmp158156 + (let ((__tmp158157 + (let ((__tmp158158 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp158154 - (let ((__tmp158155 - (let ((__tmp158156 - (let ((__tmp158157 - (let ((__tmp158158 - (let ((__tmp158159 + (let ((__tmp158159 + (let ((__tmp158160 + (let ((__tmp158161 + (let ((__tmp158162 + (let ((__tmp158163 + (let ((__tmp158164 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons 'current-output-port '())))) (declare (not safe)) - (cons __tmp158159 '())))) + (cons __tmp158164 '())))) (declare (not safe)) - (cons 'force-output __tmp158158)))) + (cons 'force-output __tmp158163)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp158157 '())))) + (cons __tmp158162 '())))) (declare (not safe)) - (cons '() __tmp158156)))) + (cons '() __tmp158161)))) (declare (not safe)) - (cons 'lambda __tmp158155)))) + (cons 'lambda __tmp158160)))) (declare (not safe)) - (cons __tmp158154 '())))) + (cons __tmp158159 '())))) (declare (not safe)) - (cons 'void __tmp158153)))) + (cons 'void __tmp158158)))) (declare (not safe)) - (cons 'with-catch __tmp158152))) + (cons 'with-catch __tmp158157))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp158141 - (let ((__tmp158142 - (let ((__tmp158143 + (__tmp158146 + (let ((__tmp158147 + (let ((__tmp158148 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp158144 - (let ((__tmp158145 - (let ((__tmp158146 - (let ((__tmp158147 - (let ((__tmp158148 - (let ((__tmp158149 + (let ((__tmp158149 + (let ((__tmp158150 + (let ((__tmp158151 + (let ((__tmp158152 + (let ((__tmp158153 + (let ((__tmp158154 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp158150 + (let ((__tmp158155 (let () (declare (not safe)) (cons 'current-error-port '())))) (declare (not safe)) - (cons __tmp158150 '())))) + (cons __tmp158155 '())))) (declare (not safe)) - (cons 'force-output __tmp158149)))) + (cons 'force-output __tmp158154)))) (declare (not safe)) - (cons __tmp158148 '())))) + (cons __tmp158153 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '() __tmp158147)))) + (cons '() __tmp158152)))) (declare (not safe)) - (cons 'lambda __tmp158146)))) + (cons 'lambda __tmp158151)))) (declare (not safe)) - (cons __tmp158145 '())))) + (cons __tmp158150 '())))) (declare (not safe)) - (cons 'void __tmp158144)))) + (cons 'void __tmp158149)))) (declare (not safe)) - (cons 'with-catch __tmp158143)))) + (cons 'with-catch __tmp158148)))) (declare (not safe)) - (cons __tmp158142 '())))) + (cons __tmp158147 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp158151 - __tmp158141)))) + (cons __tmp158156 + __tmp158146)))) (declare (not safe)) - (cons '() __tmp158140)))) + (cons '() __tmp158145)))) (declare (not safe)) - (cons 'lambda __tmp158139)))) + (cons 'lambda __tmp158144)))) (declare (not safe)) - (cons __tmp158138 '())))) + (cons __tmp158143 '())))) (declare (not safe)) - (cons __tmp158160 __tmp158137)))) + (cons __tmp158165 __tmp158142)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons 'with-unwind-protect - __tmp158136)))) + __tmp158141)))) (declare (not safe)) - (cons __tmp158135 '())))) + (cons __tmp158140 '())))) (declare (not safe)) - (cons __tmp158172 __tmp158134)))) + (cons __tmp158177 __tmp158139)))) (declare (not safe)) - (cons 'define __tmp158133))) + (cons 'define __tmp158138))) (write '(gerbil-main)) (newline)))) - (_get-libgerbil-ld-opts157838_ - (lambda (_libgerbil157945_) + (_get-libgerbil-ld-opts157843_ + (lambda (_libgerbil157950_) (call-with-input-file - (string-append _libgerbil157945_ '".ldd") + (string-append _libgerbil157950_ '".ldd") read))) - (_replace-extension157839_ - (lambda (_path157942_ _ext157943_) + (_replace-extension157844_ + (lambda (_path157947_ _ext157948_) (string-append - (path-strip-extension _path157942_) - _ext157943_))) - (_not-exclude-module?157840_ - (lambda (_ctx157938_) - (let ((_id-str157940_ + (path-strip-extension _path157947_) + _ext157948_))) + (_not-exclude-module?157845_ + (lambda (_ctx157943_) + (let ((_id-str157945_ (symbol->string (##structure-ref - _ctx157938_ + _ctx157943_ '1 gx#expander-context::t '#f)))) - (if (let ((__tmp158174 + (if (let ((__tmp158179 (let () (declare (not safe)) (string-prefix? '"gerbil/" - _id-str157940_)))) + _id-str157945_)))) (declare (not safe)) - (not __tmp158174)) - (let ((__tmp158173 + (not __tmp158179)) + (let ((__tmp158178 (let () (declare (not safe)) - (string-prefix? '"std/" _id-str157940_)))) + (string-prefix? '"std/" _id-str157945_)))) (declare (not safe)) - (not __tmp158173)) + (not __tmp158178)) '#f)))) - (_not-file-empty?157841_ - (lambda (_path157936_) - (let ((__tmp158175 + (_not-file-empty?157846_ + (lambda (_path157941_) + (let ((__tmp158180 (let () (declare (not safe)) - (gxc#file-empty? _path157936_)))) + (gxc#file-empty? _path157941_)))) (declare (not safe)) - (not __tmp158175)))) - (_compile-stub157842_ - (lambda (_output-scm157849_ _output-bin157850_) - (let* ((_gerbil-home157852_ + (not __tmp158180)))) + (_compile-stub157847_ + (lambda (_output-scm157854_ _output-bin157855_) + (let* ((_gerbil-home157857_ (getenv '"GERBIL_BUILD_PREFIX" (let () (declare (not safe)) (gerbil-home)))) - (_gerbil-libdir157854_ - (path-expand '"lib" _gerbil-home157852_)) - (_gerbil-staticdir157856_ - (path-expand '"static" _gerbil-libdir157854_)) - (_gxlink157858_ + (_gerbil-libdir157859_ + (path-expand '"lib" _gerbil-home157857_)) + (_gerbil-staticdir157861_ + (path-expand '"static" _gerbil-libdir157859_)) + (_gxlink157863_ (path-expand '"libgerbil-link" - _gerbil-libdir157854_)) - (_tmp157860_ + _gerbil-libdir157859_)) + (_tmp157865_ (path-expand (string-append '"gxc." @@ -570,334 +570,334 @@ (declare (not safe)) (gxc#compile-timestamp-nanos)))) '"/tmp")) - (_tmp-path157864_ - (lambda (_f157862_) + (_tmp-path157869_ + (lambda (_f157867_) (path-expand - (path-strip-directory _f157862_) - _tmp157860_))) - (_deps157866_ + (path-strip-directory _f157867_) + _tmp157865_))) + (_deps157871_ (let () (declare (not safe)) - (gxc#find-runtime-module-deps _ctx157834_))) - (_deps157868_ + (gxc#find-runtime-module-deps _ctx157839_))) + (_deps157873_ (let () (declare (not safe)) - (filter _not-exclude-module?157840_ - _deps157866_))) - (_src-deps-scm157870_ - (map gxc#find-static-module-file _deps157868_)) - (_src-deps-scm157872_ + (filter _not-exclude-module?157845_ + _deps157871_))) + (_src-deps-scm157875_ + (map gxc#find-static-module-file _deps157873_)) + (_src-deps-scm157877_ (let () (declare (not safe)) - (filter _not-file-empty?157841_ - _src-deps-scm157870_))) - (_src-deps-scm157874_ - (map path-expand _src-deps-scm157872_)) - (_deps-scm157876_ - (map _tmp-path157864_ _src-deps-scm157874_)) - (_deps-c157882_ - (map (lambda (_g157877157879_) + (filter _not-file-empty?157846_ + _src-deps-scm157875_))) + (_src-deps-scm157879_ + (map path-expand _src-deps-scm157877_)) + (_deps-scm157881_ + (map _tmp-path157869_ _src-deps-scm157879_)) + (_deps-c157887_ + (map (lambda (_g157882157884_) (let () (declare (not safe)) - (_replace-extension157839_ - _g157877157879_ + (_replace-extension157844_ + _g157882157884_ '".c"))) - _deps-scm157876_)) - (_deps-o157888_ - (map (lambda (_g157883157885_) + _deps-scm157881_)) + (_deps-o157893_ + (map (lambda (_g157888157890_) (let () (declare (not safe)) - (_replace-extension157839_ - _g157883157885_ + (_replace-extension157844_ + _g157888157890_ '".o"))) - _deps-scm157876_)) - (_src-bin-scm157890_ + _deps-scm157881_)) + (_src-bin-scm157895_ (let () (declare (not safe)) - (gxc#find-static-module-file _ctx157834_))) - (_src-bin-scm157892_ - (path-expand _src-bin-scm157890_)) - (_bin-scm157894_ + (gxc#find-static-module-file _ctx157839_))) + (_src-bin-scm157897_ + (path-expand _src-bin-scm157895_)) + (_bin-scm157899_ (let () (declare (not safe)) - (_tmp-path157864_ _src-bin-scm157892_))) - (_bin-c157896_ + (_tmp-path157869_ _src-bin-scm157897_))) + (_bin-c157901_ (let () (declare (not safe)) - (_replace-extension157839_ - _bin-scm157894_ + (_replace-extension157844_ + _bin-scm157899_ '".c"))) - (_bin-o157898_ + (_bin-o157903_ (let () (declare (not safe)) - (_replace-extension157839_ - _bin-scm157894_ + (_replace-extension157844_ + _bin-scm157899_ '".o"))) - (_output-bin157900_ - (path-expand _output-bin157850_)) - (_output-scm157902_ - (path-expand _output-scm157849_)) - (_output-c157904_ + (_output-bin157905_ + (path-expand _output-bin157855_)) + (_output-scm157907_ + (path-expand _output-scm157854_)) + (_output-c157909_ (let () (declare (not safe)) - (_replace-extension157839_ - _output-scm157902_ + (_replace-extension157844_ + _output-scm157907_ '".c"))) - (_output-o157906_ + (_output-o157911_ (let () (declare (not safe)) - (_replace-extension157839_ - _output-scm157902_ + (_replace-extension157844_ + _output-scm157907_ '".o"))) - (_output_-c157908_ + (_output_-c157913_ (let () (declare (not safe)) - (_replace-extension157839_ - _output-scm157902_ + (_replace-extension157844_ + _output-scm157907_ '"_.c"))) - (_output_-o157910_ + (_output_-o157915_ (let () (declare (not safe)) - (_replace-extension157839_ - _output-scm157902_ + (_replace-extension157844_ + _output-scm157907_ '"_.o"))) - (_gsc-link-opts157912_ + (_gsc-link-opts157917_ (let () (declare (not safe)) (gxc#gsc-link-options__0))) - (_gsc-cc-opts157914_ + (_gsc-cc-opts157919_ (let () (declare (not safe)) (gxc#gsc-cc-options__0))) - (_gsc-static-opts157916_ + (_gsc-static-opts157921_ (let () (declare (not safe)) (gxc#gsc-static-include-options - _gerbil-staticdir157856_))) - (_output-ld-opts157918_ + _gerbil-staticdir157861_))) + (_output-ld-opts157923_ (let () (declare (not safe)) (gxc#gcc-ld-options))) - (_libgerbil.a157920_ - (path-expand '"libgerbil.a" _gerbil-libdir157854_)) - (_libgerbil.so157922_ + (_libgerbil.a157925_ + (path-expand '"libgerbil.a" _gerbil-libdir157859_)) + (_libgerbil.so157927_ (path-expand '"libgerbil.so" - _gerbil-libdir157854_)) - (_libgerbil-ld-opts157924_ - (if (file-exists? _libgerbil.so157922_) + _gerbil-libdir157859_)) + (_libgerbil-ld-opts157929_ + (if (file-exists? _libgerbil.so157927_) (let () (declare (not safe)) - (_get-libgerbil-ld-opts157838_ - _libgerbil.so157922_)) - (if (file-exists? _libgerbil.a157920_) + (_get-libgerbil-ld-opts157843_ + _libgerbil.so157927_)) + (if (file-exists? _libgerbil.a157925_) (let () (declare (not safe)) - (_get-libgerbil-ld-opts157838_ - _libgerbil.a157920_)) + (_get-libgerbil-ld-opts157843_ + _libgerbil.a157925_)) (let () (declare (not safe)) (gxc#raise-compile-error '"libgerbil does not exist" - _libgerbil.a157920_ - _libgerbil.so157922_))))) - (_rpath157926_ + _libgerbil.a157925_ + _libgerbil.so157927_))))) + (_rpath157931_ (let () (declare (not safe)) - (gxc#gerbil-rpath _gerbil-libdir157854_))) - (_builtin-modules157930_ - (map (lambda (_mod157928_) + (gxc#gerbil-rpath _gerbil-libdir157859_))) + (_builtin-modules157935_ + (map (lambda (_mod157933_) (symbol->string (##structure-ref - _mod157928_ + _mod157933_ '1 gx#expander-context::t '#f))) (let () (declare (not safe)) - (cons _ctx157834_ _deps157868_))))) - (let ((__tmp158176 + (cons _ctx157839_ _deps157873_))))) + (let ((__tmp158181 (lambda () - (let ((__tmp158177 - (path-directory _output-bin157900_))) + (let ((__tmp158182 + (path-directory _output-bin157905_))) (declare (not safe)) - (create-directory*__0 __tmp158177))))) + (create-directory*__0 __tmp158182))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp158176)) - (let ((__tmp158178 + (with-lock gxc#+driver-mutex+ __tmp158181)) + (let ((__tmp158183 (lambda () (let () (declare (not safe)) - (_generate-stub157837_ - _builtin-modules157930_))))) + (_generate-stub157842_ + _builtin-modules157935_))))) (declare (not safe)) (gxc#with-output-to-scheme-file - _output-scm157902_ - __tmp158178)) + _output-scm157907_ + __tmp158183)) (if (gxc#current-compile-invoke-gsc) (begin - (let ((__tmp158179 - (lambda () (create-directory _tmp157860_)))) + (let ((__tmp158184 + (lambda () (create-directory _tmp157865_)))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp158179)) + (with-lock gxc#+driver-mutex+ __tmp158184)) (for-each copy-file - _src-deps-scm157874_ - _deps-scm157876_) - (copy-file _src-bin-scm157892_ _bin-scm157894_) - (let ((__tmp158187 + _src-deps-scm157879_ + _deps-scm157881_) + (copy-file _src-bin-scm157897_ _bin-scm157899_) + (let ((__tmp158192 (let () (declare (not safe)) (gxc#gerbil-gsc))) - (__tmp158180 - (let ((__tmp158181 - (let ((__tmp158182 - (let ((__tmp158183 - (let ((__tmp158184 - (let ((__tmp158185 + (__tmp158185 + (let ((__tmp158186 + (let ((__tmp158187 + (let ((__tmp158188 + (let ((__tmp158189 + (let ((__tmp158190 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp158186 + (let ((__tmp158191 (let () (declare (not safe)) - (cons _output-scm157902_ '())))) + (cons _output-scm157907_ '())))) (declare (not safe)) - (cons _bin-scm157894_ __tmp158186)))) + (cons _bin-scm157899_ __tmp158191)))) (declare (not safe)) - (foldr1 cons __tmp158185 _deps-scm157876_)))) + (foldr1 cons __tmp158190 _deps-scm157881_)))) (declare (not safe)) - (foldr1 cons __tmp158184 _gsc-link-opts157912_)))) + (foldr1 cons __tmp158189 _gsc-link-opts157917_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _gxlink157858_ - __tmp158183)))) + (cons _gxlink157863_ + __tmp158188)))) (declare (not safe)) - (cons '"-l" __tmp158182)))) + (cons '"-l" __tmp158187)))) (declare (not safe)) - (cons '"-link" __tmp158181)))) + (cons '"-link" __tmp158186)))) (declare (not safe)) - (gxc#invoke __tmp158187 __tmp158180)) - (let ((__tmp158195 + (gxc#invoke __tmp158192 __tmp158185)) + (let ((__tmp158200 (let () (declare (not safe)) (gxc#gerbil-gsc))) - (__tmp158188 - (let ((__tmp158189 - (let ((__tmp158190 - (let ((__tmp158191 - (let ((__tmp158192 - (let ((__tmp158193 + (__tmp158193 + (let ((__tmp158194 + (let ((__tmp158195 + (let ((__tmp158196 + (let ((__tmp158197 + (let ((__tmp158198 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp158194 + (let ((__tmp158199 (let () (declare (not safe)) - (cons _output_-c157908_ '())))) + (cons _output_-c157913_ '())))) (declare (not safe)) - (cons _output-c157904_ __tmp158194)))) + (cons _output-c157909_ __tmp158199)))) (declare (not safe)) - (cons _bin-c157896_ __tmp158193)))) + (cons _bin-c157901_ __tmp158198)))) (declare (not safe)) - (foldr1 cons __tmp158192 _deps-c157882_)))) + (foldr1 cons __tmp158197 _deps-c157887_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (foldr1 cons - __tmp158191 - _gsc-static-opts157916_)))) + __tmp158196 + _gsc-static-opts157921_)))) (declare (not safe)) (foldr1 cons - __tmp158190 - _gsc-cc-opts157914_)))) + __tmp158195 + _gsc-cc-opts157919_)))) (declare (not safe)) - (cons '"-obj" __tmp158189)))) + (cons '"-obj" __tmp158194)))) (declare (not safe)) - (gxc#invoke __tmp158195 __tmp158188)) - (let ((__tmp158208 + (gxc#invoke __tmp158200 __tmp158193)) + (let ((__tmp158213 (let () (declare (not safe)) (gxc#gerbil-gcc))) - (__tmp158196 - (let ((__tmp158197 - (let ((__tmp158198 - (let ((__tmp158199 - (let ((__tmp158200 - (let ((__tmp158201 + (__tmp158201 + (let ((__tmp158202 + (let ((__tmp158203 + (let ((__tmp158204 + (let ((__tmp158205 + (let ((__tmp158206 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp158202 - (let ((__tmp158203 - (let ((__tmp158204 - (let ((__tmp158205 - (let ((__tmp158206 + (let ((__tmp158207 + (let ((__tmp158208 + (let ((__tmp158209 + (let ((__tmp158210 + (let ((__tmp158211 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp158207 + (let ((__tmp158212 (let () (declare (not safe)) (cons '"-lgambit" - _libgerbil-ld-opts157924_)))) + _libgerbil-ld-opts157929_)))) (declare (not safe)) - (cons '"-lgerbil" __tmp158207)))) + (cons '"-lgerbil" __tmp158212)))) (declare (not safe)) - (cons _gerbil-libdir157854_ __tmp158206)))) + (cons _gerbil-libdir157859_ __tmp158211)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '"-L" - __tmp158205)))) + __tmp158210)))) (declare (not safe)) - (cons _rpath157926_ - __tmp158204)))) + (cons _rpath157931_ + __tmp158209)))) (declare (not safe)) (foldr1 cons - __tmp158203 - _output-ld-opts157918_)))) + __tmp158208 + _output-ld-opts157923_)))) (declare (not safe)) - (cons _output_-o157910_ __tmp158202)))) + (cons _output_-o157915_ __tmp158207)))) (declare (not safe)) - (cons _output-o157906_ __tmp158201)))) + (cons _output-o157911_ __tmp158206)))) (declare (not safe)) - (cons _bin-o157898_ __tmp158200)))) + (cons _bin-o157903_ __tmp158205)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (foldr1 cons - __tmp158199 - _deps-o157888_)))) + __tmp158204 + _deps-o157893_)))) (declare (not safe)) - (cons _output-bin157900_ - __tmp158198)))) + (cons _output-bin157905_ + __tmp158203)))) (declare (not safe)) - (cons '"-o" __tmp158197)))) + (cons '"-o" __tmp158202)))) (declare (not safe)) - (gxc#invoke __tmp158208 __tmp158196)) + (gxc#invoke __tmp158213 __tmp158201)) (for-each delete-file - (let ((__tmp158209 - (let ((__tmp158210 - (let ((__tmp158211 + (let ((__tmp158214 + (let ((__tmp158215 + (let ((__tmp158216 (let () (declare (not safe)) - (cons _output_-o157910_ + (cons _output_-o157915_ '())))) (declare (not safe)) - (cons _output-o157906_ - __tmp158211)))) + (cons _output-o157911_ + __tmp158216)))) (declare (not safe)) - (cons _output_-c157908_ __tmp158210)))) + (cons _output_-c157913_ __tmp158215)))) (declare (not safe)) - (cons _output-c157904_ __tmp158209))) + (cons _output-c157909_ __tmp158214))) (let () (declare (not safe)) - (gxc#delete-directory* _tmp157860_))) + (gxc#delete-directory* _tmp157865_))) '#!void))))) - (let* ((_output-bin157844_ + (let* ((_output-bin157849_ (let () (declare (not safe)) - (gxc#compile-exe-output-file _ctx157834_ _opts157835_))) - (_output-scm157846_ - (string-append _output-bin157844_ '"__exe.scm"))) + (gxc#compile-exe-output-file _ctx157839_ _opts157840_))) + (_output-scm157851_ + (string-append _output-bin157849_ '"__exe.scm"))) (let () (declare (not safe)) - (_compile-stub157842_ _output-scm157846_ _output-bin157844_)) + (_compile-stub157847_ _output-scm157851_ _output-bin157849_)) (if (gxc#current-compile-keep-scm) '#!void - (delete-file _output-scm157846_)))))) + (delete-file _output-scm157851_)))))) (define gxc#compile-executable-module/full-program-optimization - (lambda (_ctx157659_ _opts157660_) - (letrec ((_reset-declare157662_ + (lambda (_ctx157664_ _opts157665_) + (letrec ((_reset-declare157667_ (lambda () '(declare (gambit-scheme) @@ -919,646 +919,646 @@ (optimize-dead-definitions) (generic) (mostly-fixnum-flonum)))) - (_generate-stub157663_ - (lambda (_deps157825_) - (let ((_mod-main157827_ + (_generate-stub157668_ + (lambda (_deps157830_) + (let ((_mod-main157832_ (let () (declare (not safe)) - (gxc#find-runtime-symbol _ctx157659_ 'main))) - (_reset-decl157828_ + (gxc#find-runtime-symbol _ctx157664_ 'main))) + (_reset-decl157833_ (let () (declare (not safe)) - (_reset-declare157662_))) - (_user-decl157829_ + (_reset-declare157667_))) + (_user-decl157834_ (let () (declare (not safe)) - (_user-declare157664_)))) + (_user-declare157669_)))) (for-each - (lambda (_dep157831_) + (lambda (_dep157836_) (write '(##namespace (""))) (newline) - (write _reset-decl157828_) + (write _reset-decl157833_) (newline) - (if _user-decl157829_ - (begin (write _user-decl157829_) (newline)) + (if _user-decl157834_ + (begin (write _user-decl157834_) (newline)) '#!void) - (write (let ((__tmp158212 + (write (let ((__tmp158217 (let () (declare (not safe)) - (cons _dep157831_ '())))) + (cons _dep157836_ '())))) (declare (not safe)) - (cons 'include __tmp158212))) + (cons 'include __tmp158217))) (newline)) - _deps157825_) - (write (let ((__tmp158213 - (let ((__tmp158226 + _deps157830_) + (write (let ((__tmp158218 + (let ((__tmp158231 (let () (declare (not safe)) (cons 'gerbil-main '()))) - (__tmp158214 - (let ((__tmp158222 - (let ((__tmp158223 - (let ((__tmp158224 - (let ((__tmp158225 + (__tmp158219 + (let ((__tmp158227 + (let ((__tmp158228 + (let ((__tmp158229 + (let ((__tmp158230 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons '() '())))) (declare (not safe)) - (cons 'quote __tmp158225)))) + (cons 'quote __tmp158230)))) (declare (not safe)) - (cons __tmp158224 '())))) + (cons __tmp158229 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons 'gerbil-runtime-init! - __tmp158223))) - (__tmp158215 - (let ((__tmp158216 - (let ((__tmp158217 - (let ((__tmp158218 + __tmp158228))) + (__tmp158220 + (let ((__tmp158221 + (let ((__tmp158222 + (let ((__tmp158223 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp158219 - (let ((__tmp158220 - (let ((__tmp158221 + (let ((__tmp158224 + (let ((__tmp158225 + (let ((__tmp158226 (let () (declare (not safe)) (cons 'command-line '())))) (declare (not safe)) - (cons __tmp158221 '())))) + (cons __tmp158226 '())))) (declare (not safe)) - (cons 'cdr __tmp158220)))) + (cons 'cdr __tmp158225)))) (declare (not safe)) - (cons __tmp158219 '())))) + (cons __tmp158224 '())))) (declare (not safe)) - (cons _mod-main157827_ __tmp158218)))) + (cons _mod-main157832_ __tmp158223)))) (declare (not safe)) - (cons 'apply __tmp158217)))) + (cons 'apply __tmp158222)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp158216 '())))) + (cons __tmp158221 '())))) (declare (not safe)) - (cons __tmp158222 __tmp158215)))) + (cons __tmp158227 __tmp158220)))) (declare (not safe)) - (cons __tmp158226 __tmp158214)))) + (cons __tmp158231 __tmp158219)))) (declare (not safe)) - (cons 'define __tmp158213))) + (cons 'define __tmp158218))) (write '(gerbil-main)) (newline)))) - (_user-declare157664_ + (_user-declare157669_ (lambda () - (let* ((_gsc-opts157730_ + (let* ((_gsc-opts157735_ (let () (declare (not safe)) - (pgetq__0 'gsc-options: _opts157660_))) - (_gsc-prelude157732_ - (if _gsc-opts157730_ - (member '"-prelude" _gsc-opts157730_) + (pgetq__0 'gsc-options: _opts157665_))) + (_gsc-prelude157737_ + (if _gsc-opts157735_ + (member '"-prelude" _gsc-opts157735_) '#f)) - (_gsc-prelude157734_ - (if _gsc-prelude157732_ + (_gsc-prelude157739_ + (if _gsc-prelude157737_ (read (open-input-string - (cadr _gsc-prelude157732_))) + (cadr _gsc-prelude157737_))) '#f))) - (let _lp157737_ ((_rest157739_ + (let _lp157742_ ((_rest157744_ (let () (declare (not safe)) - (cons _gsc-prelude157734_ '()))) - (_user-decls157740_ '())) - (let* ((_rest157741157749_ _rest157739_) - (_else157743157757_ + (cons _gsc-prelude157739_ '()))) + (_user-decls157745_ '())) + (let* ((_rest157746157754_ _rest157744_) + (_else157748157762_ (lambda () (if (let () (declare (not safe)) - (null? _user-decls157740_)) + (null? _user-decls157745_)) '#f - (let ((__tmp158227 - (reverse _user-decls157740_))) + (let ((__tmp158232 + (reverse _user-decls157745_))) (declare (not safe)) - (cons 'declare __tmp158227))))) - (_K157745157813_ - (lambda (_rest157760_ _expr157761_) - (let* ((_expr157762157774_ _expr157761_) - (_else157765157782_ + (cons 'declare __tmp158232))))) + (_K157750157818_ + (lambda (_rest157765_ _expr157766_) + (let* ((_expr157767157779_ _expr157766_) + (_else157770157787_ (lambda () (let () (declare (not safe)) - (_lp157737_ - _rest157760_ - _user-decls157740_))))) - (let ((_K157770157803_ - (lambda (_decls157801_) - (let ((__tmp158228 + (_lp157742_ + _rest157765_ + _user-decls157745_))))) + (let ((_K157775157808_ + (lambda (_decls157806_) + (let ((__tmp158233 (let () (declare (not safe)) (foldl1 cons - _user-decls157740_ - _decls157801_)))) + _user-decls157745_ + _decls157806_)))) (declare (not safe)) - (_lp157737_ - _rest157760_ - __tmp158228)))) - (_K157767157788_ - (lambda (_exprs157786_) - (let ((__tmp158229 - (append _exprs157786_ - _rest157760_))) + (_lp157742_ + _rest157765_ + __tmp158233)))) + (_K157772157793_ + (lambda (_exprs157791_) + (let ((__tmp158234 + (append _exprs157791_ + _rest157765_))) (declare (not safe)) - (_lp157737_ - __tmp158229 - _user-decls157740_))))) + (_lp157742_ + __tmp158234 + _user-decls157745_))))) (if (let () (declare (not safe)) - (##pair? _expr157762157774_)) - (let ((_tl157772157808_ + (##pair? _expr157767157779_)) + (let ((_tl157777157813_ (let () (declare (not safe)) - (##cdr _expr157762157774_))) - (_hd157771157806_ + (##cdr _expr157767157779_))) + (_hd157776157811_ (let () (declare (not safe)) - (##car _expr157762157774_)))) + (##car _expr157767157779_)))) (if (let () (declare (not safe)) - (##eq? _hd157771157806_ + (##eq? _hd157776157811_ 'declare)) - (let ((_decls157811_ - _tl157772157808_)) + (let ((_decls157816_ + _tl157777157813_)) (declare (not safe)) - (_K157770157803_ - _decls157811_)) + (_K157775157808_ + _decls157816_)) (if (let () (declare (not safe)) - (##eq? _hd157771157806_ + (##eq? _hd157776157811_ 'begin)) - (let ((_exprs157796_ - _tl157772157808_)) + (let ((_exprs157801_ + _tl157777157813_)) (declare (not safe)) - (_K157767157788_ - _exprs157796_)) + (_K157772157793_ + _exprs157801_)) (let () (declare (not safe)) - (_else157765157782_))))) + (_else157770157787_))))) (let () (declare (not safe)) - (_else157765157782_)))))))) + (_else157770157787_)))))))) (if (let () (declare (not safe)) - (##pair? _rest157741157749_)) - (let ((_hd157746157816_ + (##pair? _rest157746157754_)) + (let ((_hd157751157821_ (let () (declare (not safe)) - (##car _rest157741157749_))) - (_tl157747157818_ + (##car _rest157746157754_))) + (_tl157752157823_ (let () (declare (not safe)) - (##cdr _rest157741157749_)))) - (let* ((_expr157821_ _hd157746157816_) - (_rest157823_ _tl157747157818_)) + (##cdr _rest157746157754_)))) + (let* ((_expr157826_ _hd157751157821_) + (_rest157828_ _tl157752157823_)) (declare (not safe)) - (_K157745157813_ _rest157823_ _expr157821_))) + (_K157750157818_ _rest157828_ _expr157826_))) (let () (declare (not safe)) - (_else157743157757_)))))))) - (_compile-stub157665_ - (lambda (_output-scm157672_ _output-bin157673_) - (let* ((_gerbil-home157675_ + (_else157748157762_)))))))) + (_compile-stub157670_ + (lambda (_output-scm157677_ _output-bin157678_) + (let* ((_gerbil-home157680_ (getenv '"GERBIL_BUILD_PREFIX" (let () (declare (not safe)) (gerbil-home)))) - (_gerbil-libdir157677_ - (path-expand '"lib" _gerbil-home157675_)) - (_runtime157679_ + (_gerbil-libdir157682_ + (path-expand '"lib" _gerbil-home157680_)) + (_runtime157684_ (map gxc#find-static-module-file gxc#gerbil-runtime-modules)) - (_gambit-sharp157681_ + (_gambit-sharp157686_ (path-expand '"lib/_gambit#.scm" - _gerbil-home157675_)) - (_include-gambit-sharp157683_ + _gerbil-home157680_)) + (_include-gambit-sharp157688_ (string-append '"(include \"" - _gambit-sharp157681_ + _gambit-sharp157686_ '"\")")) - (_bin-scm157685_ + (_bin-scm157690_ (let () (declare (not safe)) - (gxc#find-static-module-file _ctx157659_))) - (_deps157687_ + (gxc#find-static-module-file _ctx157664_))) + (_deps157692_ (let () (declare (not safe)) - (gxc#find-runtime-module-deps _ctx157659_))) - (_deps157689_ - (map gxc#find-static-module-file _deps157687_)) + (gxc#find-runtime-module-deps _ctx157664_))) (_deps157694_ - (let ((__tmp158230 - (lambda (_$obj157691_) - (let ((__tmp158231 + (map gxc#find-static-module-file _deps157692_)) + (_deps157699_ + (let ((__tmp158235 + (lambda (_$obj157696_) + (let ((__tmp158236 (let () (declare (not safe)) - (gxc#file-empty? _$obj157691_)))) + (gxc#file-empty? _$obj157696_)))) (declare (not safe)) - (not __tmp158231))))) - (declare (not safe)) - (filter __tmp158230 _deps157689_))) - (_deps157698_ - (let ((__tmp158232 - (lambda (_f157696_) - (let ((__tmp158233 - (member _f157696_ - _runtime157679_))) + (not __tmp158236))))) + (declare (not safe)) + (filter __tmp158235 _deps157694_))) + (_deps157703_ + (let ((__tmp158237 + (lambda (_f157701_) + (let ((__tmp158238 + (member _f157701_ + _runtime157684_))) (declare (not safe)) - (not __tmp158233))))) + (not __tmp158238))))) (declare (not safe)) - (filter __tmp158232 _deps157694_))) - (_output-base157700_ + (filter __tmp158237 _deps157699_))) + (_output-base157705_ (string-append - (path-strip-extension _output-scm157672_))) - (_output-c157702_ - (string-append _output-base157700_ '".c")) - (_output-o157704_ - (string-append _output-base157700_ '".o")) - (_output-c_157706_ - (string-append _output-base157700_ '"_.c")) - (_output-o_157708_ - (string-append _output-base157700_ '"_.o")) - (_gsc-link-opts157710_ + (path-strip-extension _output-scm157677_))) + (_output-c157707_ + (string-append _output-base157705_ '".c")) + (_output-o157709_ + (string-append _output-base157705_ '".o")) + (_output-c_157711_ + (string-append _output-base157705_ '"_.c")) + (_output-o_157713_ + (string-append _output-base157705_ '"_.o")) + (_gsc-link-opts157715_ (let () (declare (not safe)) (gxc#gsc-link-options__0))) - (_gsc-cc-opts157712_ + (_gsc-cc-opts157717_ (let () (declare (not safe)) (gxc#gsc-cc-options__0))) - (_gsc-static-opts157714_ - (let ((__tmp158234 + (_gsc-static-opts157719_ + (let ((__tmp158239 (path-expand '"static" - _gerbil-libdir157677_))) + _gerbil-libdir157682_))) (declare (not safe)) - (gxc#gsc-static-include-options __tmp158234))) - (_output-ld-opts157716_ + (gxc#gsc-static-include-options __tmp158239))) + (_output-ld-opts157721_ (let () (declare (not safe)) (gxc#gcc-ld-options))) - (_gsc-gx-macros157718_ + (_gsc-gx-macros157723_ (if (let () (declare (not safe)) (gerbil-runtime-smp?)) - (let ((__tmp158236 - (let ((__tmp158237 - (let ((__tmp158238 + (let ((__tmp158241 + (let ((__tmp158242 + (let ((__tmp158243 (let () (declare (not safe)) - (cons _include-gambit-sharp157683_ + (cons _include-gambit-sharp157688_ '())))) (declare (not safe)) - (cons '"-e" __tmp158238)))) + (cons '"-e" __tmp158243)))) (declare (not safe)) (cons '"(define-cond-expand-feature|enable-smp|)" - __tmp158237)))) + __tmp158242)))) (declare (not safe)) - (cons '"-e" __tmp158236)) - (let ((__tmp158235 + (cons '"-e" __tmp158241)) + (let ((__tmp158240 (let () (declare (not safe)) - (cons _include-gambit-sharp157683_ + (cons _include-gambit-sharp157688_ '())))) (declare (not safe)) - (cons '"-e" __tmp158235)))) - (_gsc-link-opts157720_ - (append _gsc-link-opts157710_ - _gsc-gx-macros157718_)) - (_rpath157722_ + (cons '"-e" __tmp158240)))) + (_gsc-link-opts157725_ + (append _gsc-link-opts157715_ + _gsc-gx-macros157723_)) + (_rpath157727_ (let () (declare (not safe)) - (gxc#gerbil-rpath _gerbil-libdir157677_))) - (_default-ld-options157724_ - (let ((__tmp158239 + (gxc#gerbil-rpath _gerbil-libdir157682_))) + (_default-ld-options157729_ + (let ((__tmp158244 (let () (declare (not safe)) (cons '"-lm" '())))) (declare (not safe)) - (cons '"-ldl" __tmp158239)))) - (let ((__tmp158240 + (cons '"-ldl" __tmp158244)))) + (let ((__tmp158245 (lambda () - (let ((__tmp158241 - (path-directory _output-bin157673_))) + (let ((__tmp158246 + (path-directory _output-bin157678_))) (declare (not safe)) - (create-directory*__0 __tmp158241))))) + (create-directory*__0 __tmp158246))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp158240)) - (let ((__tmp158242 + (with-lock gxc#+driver-mutex+ __tmp158245)) + (let ((__tmp158247 (lambda () - (let ((__tmp158243 - (let ((__tmp158244 - (let ((__tmp158245 + (let ((__tmp158248 + (let ((__tmp158249 + (let ((__tmp158250 (let () (declare (not safe)) - (cons _bin-scm157685_ + (cons _bin-scm157690_ '())))) (declare (not safe)) (foldr1 cons - __tmp158245 - _deps157698_)))) + __tmp158250 + _deps157703_)))) (declare (not safe)) (foldr1 cons - __tmp158244 - _runtime157679_)))) + __tmp158249 + _runtime157684_)))) (declare (not safe)) - (_generate-stub157663_ __tmp158243))))) + (_generate-stub157668_ __tmp158248))))) (declare (not safe)) (gxc#with-output-to-scheme-file - _output-scm157672_ - __tmp158242)) + _output-scm157677_ + __tmp158247)) (if (gxc#current-compile-invoke-gsc) (begin - (let ((__tmp158251 + (let ((__tmp158256 (let () (declare (not safe)) (gxc#gerbil-gsc))) - (__tmp158246 - (let ((__tmp158247 - (let ((__tmp158248 - (let ((__tmp158249 - (let ((__tmp158250 + (__tmp158251 + (let ((__tmp158252 + (let ((__tmp158253 + (let ((__tmp158254 + (let ((__tmp158255 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _output-scm157672_ '())))) + (cons _output-scm157677_ '())))) (declare (not safe)) - (foldr1 cons __tmp158250 _gsc-link-opts157720_)))) + (foldr1 cons __tmp158255 _gsc-link-opts157725_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _output-c_157706_ - __tmp158249)))) + (cons _output-c_157711_ + __tmp158254)))) (declare (not safe)) - (cons '"-o" __tmp158248)))) + (cons '"-o" __tmp158253)))) (declare (not safe)) - (cons '"-link" __tmp158247)))) + (cons '"-link" __tmp158252)))) (declare (not safe)) - (gxc#invoke __tmp158251 __tmp158246)) - (let ((__tmp158257 + (gxc#invoke __tmp158256 __tmp158251)) + (let ((__tmp158262 (let () (declare (not safe)) (gxc#gerbil-gsc))) - (__tmp158252 - (let ((__tmp158253 - (let ((__tmp158254 - (let ((__tmp158255 - (let ((__tmp158256 + (__tmp158257 + (let ((__tmp158258 + (let ((__tmp158259 + (let ((__tmp158260 + (let ((__tmp158261 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _output-c_157706_ '())))) + (cons _output-c_157711_ '())))) (declare (not safe)) - (cons _output-c157702_ __tmp158256)))) + (cons _output-c157707_ __tmp158261)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (foldr1 cons - __tmp158255 - _gsc-static-opts157714_)))) + __tmp158260 + _gsc-static-opts157719_)))) (declare (not safe)) (foldr1 cons - __tmp158254 - _gsc-cc-opts157712_)))) + __tmp158259 + _gsc-cc-opts157717_)))) (declare (not safe)) - (cons '"-obj" __tmp158253)))) + (cons '"-obj" __tmp158258)))) (declare (not safe)) - (gxc#invoke __tmp158257 __tmp158252)) - (let ((__tmp158267 + (gxc#invoke __tmp158262 __tmp158257)) + (let ((__tmp158272 (let () (declare (not safe)) (gxc#gerbil-gcc))) - (__tmp158258 - (let ((__tmp158259 - (let ((__tmp158260 - (let ((__tmp158261 - (let ((__tmp158262 - (let ((__tmp158263 + (__tmp158263 + (let ((__tmp158264 + (let ((__tmp158265 + (let ((__tmp158266 + (let ((__tmp158267 + (let ((__tmp158268 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp158264 - (let ((__tmp158265 - (let ((__tmp158266 + (let ((__tmp158269 + (let ((__tmp158270 + (let ((__tmp158271 (let () (declare (not safe)) (cons '"-lgambit" - _default-ld-options157724_)))) + _default-ld-options157729_)))) (declare (not safe)) - (cons _gerbil-libdir157677_ - __tmp158266)))) + (cons _gerbil-libdir157682_ + __tmp158271)))) (declare (not safe)) - (cons '"-L" __tmp158265)))) + (cons '"-L" __tmp158270)))) (declare (not safe)) - (cons _rpath157722_ __tmp158264)))) + (cons _rpath157727_ __tmp158269)))) (declare (not safe)) - (foldr1 cons __tmp158263 _output-ld-opts157716_)))) + (foldr1 cons __tmp158268 _output-ld-opts157721_)))) (declare (not safe)) - (cons _output-o_157708_ __tmp158262)))) + (cons _output-o_157713_ __tmp158267)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _output-o157704_ - __tmp158261)))) + (cons _output-o157709_ + __tmp158266)))) (declare (not safe)) - (cons _output-bin157673_ - __tmp158260)))) + (cons _output-bin157678_ + __tmp158265)))) (declare (not safe)) - (cons '"-o" __tmp158259)))) + (cons '"-o" __tmp158264)))) (declare (not safe)) - (gxc#invoke __tmp158267 __tmp158258))) + (gxc#invoke __tmp158272 __tmp158263))) '#!void))))) - (let* ((_output-bin157667_ + (let* ((_output-bin157672_ (let () (declare (not safe)) - (gxc#compile-exe-output-file _ctx157659_ _opts157660_))) - (_output-scm157669_ - (string-append _output-bin157667_ '"__exe.scm"))) + (gxc#compile-exe-output-file _ctx157664_ _opts157665_))) + (_output-scm157674_ + (string-append _output-bin157672_ '"__exe.scm"))) (let () (declare (not safe)) - (_compile-stub157665_ _output-scm157669_ _output-bin157667_)) + (_compile-stub157670_ _output-scm157674_ _output-bin157672_)) (if (gxc#current-compile-keep-scm) '#!void - (delete-file _output-scm157669_)))))) + (delete-file _output-scm157674_)))))) (define gxc#find-export-binding - (lambda (_ctx157609_ _id157610_) - (let ((_$e157656_ - (let ((__tmp158269 - (lambda (_e157611157613_) - (let* ((_g157615157625_ _e157611157613_) - (_else157617157633_ (lambda () '#f)) - (_K157619157637_ (lambda () '#t))) + (lambda (_ctx157614_ _id157615_) + (let ((_$e157661_ + (let ((__tmp158274 + (lambda (_e157616157618_) + (let* ((_g157620157630_ _e157616157618_) + (_else157622157638_ (lambda () '#f)) + (_K157624157642_ (lambda () '#t))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _g157615157625_ + _g157620157630_ 'gx#module-export::t)) - (let* ((_e157620157640_ + (let* ((_e157625157645_ (let () (declare (not safe)) (##unchecked-structure-ref - _g157615157625_ + _g157620157630_ '1 gx#module-export::t '#f))) - (_e157621157643_ + (_e157626157648_ (let () (declare (not safe)) (##unchecked-structure-ref - _g157615157625_ + _g157620157630_ '2 gx#module-export::t '#f))) - (_e157622157646_ + (_e157627157651_ (let () (declare (not safe)) (##unchecked-structure-ref - _g157615157625_ + _g157620157630_ '3 gx#module-export::t '#f)))) (if (let () (declare (not safe)) - (##eq? _e157622157646_ '0)) - (let ((_e157623157649_ + (##eq? _e157627157651_ '0)) + (let ((_e157628157654_ (let () (declare (not safe)) (##unchecked-structure-ref - _g157615157625_ + _g157620157630_ '4 gx#module-export::t '#f)))) - (if ((lambda (_g157651157653_) + (if ((lambda (_g157656157658_) (let () (declare (not safe)) - (eq? _g157651157653_ - _id157610_))) - _e157623157649_) + (eq? _g157656157658_ + _id157615_))) + _e157628157654_) (let () (declare (not safe)) - (_K157619157637_)) + (_K157624157642_)) (let () (declare (not safe)) - (_else157617157633_)))) + (_else157622157638_)))) (let () (declare (not safe)) - (_else157617157633_)))) + (_else157622157638_)))) (let () (declare (not safe)) - (_else157617157633_)))))) - (__tmp158268 + (_else157622157638_)))))) + (__tmp158273 (##structure-ref - _ctx157609_ + _ctx157614_ '9 gx#module-context::t '#f))) (declare (not safe)) - (find __tmp158269 __tmp158268)))) - (if _$e157656_ + (find __tmp158274 __tmp158273)))) + (if _$e157661_ (let () (declare (not safe)) - (gx#core-resolve-module-export _$e157656_)) + (gx#core-resolve-module-export _$e157661_)) '#f)))) (define gxc#find-runtime-symbol - (lambda (_ctx157601_ _id157602_) - (let ((_$e157604_ + (lambda (_ctx157606_ _id157607_) + (let ((_$e157609_ (let () (declare (not safe)) - (gxc#find-export-binding _ctx157601_ _id157602_)))) - (if _$e157604_ - ((lambda (_bind157607_) + (gxc#find-export-binding _ctx157606_ _id157607_)))) + (if _$e157609_ + ((lambda (_bind157612_) (if (let () (declare (not safe)) (##structure-instance-of? - _bind157607_ + _bind157612_ 'gx#runtime-binding::t)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"export is not a runtime binding" - _id157602_))) - (##structure-ref _bind157607_ '1 gx#binding::t '#f)) - _$e157604_) - (let ((__tmp158270 + _id157607_))) + (##structure-ref _bind157612_ '1 gx#binding::t '#f)) + _$e157609_) + (let ((__tmp158275 (##structure-ref - _ctx157601_ + _ctx157606_ '1 gx#expander-context::t '#f))) (declare (not safe)) (gxc#raise-compile-error '"module does not export symbol" - __tmp158270 - _id157602_)))))) + __tmp158275 + _id157607_)))))) (define gxc#find-runtime-module-deps - (lambda (_ctx157488_) - (letrec* ((_ht157490_ + (lambda (_ctx157493_) + (letrec* ((_ht157495_ (let () (declare (not safe)) (make-hash-table-eq))) - (_import-set-template157491_ - (lambda (_in157553_ _phi157554_) - (let ((_iphi157556_ - (fx+ _phi157554_ + (_import-set-template157496_ + (lambda (_in157558_ _phi157559_) + (let ((_iphi157561_ + (fx+ _phi157559_ (##direct-structure-ref - _in157553_ + _in157558_ '2 gx#import-set::t '#f))) - (_imports157557_ + (_imports157562_ (##structure-ref (##direct-structure-ref - _in157553_ + _in157558_ '1 gx#import-set::t '#f) '8 gx#module-context::t '#f))) - (let _lp157559_ ((_rest157561_ _imports157557_) - (_r157562_ '())) - (let* ((_rest157563157571_ _rest157561_) - (_else157565157579_ (lambda () _r157562_)) - (_K157567157589_ - (lambda (_rest157582_ _in157583_) + (let _lp157564_ ((_rest157566_ _imports157562_) + (_r157567_ '())) + (let* ((_rest157568157576_ _rest157566_) + (_else157570157584_ (lambda () _r157567_)) + (_K157572157594_ + (lambda (_rest157587_ _in157588_) (if (let () (declare (not safe)) (##structure-instance-of? - _in157583_ + _in157588_ 'gx#module-context::t)) (if (let () (declare (not safe)) - (fxzero? _iphi157556_)) - (let ((__tmp158277 + (fxzero? _iphi157561_)) + (let ((__tmp158282 (let () (declare (not safe)) - (cons _in157583_ - _r157562_)))) + (cons _in157588_ + _r157567_)))) (declare (not safe)) - (_lp157559_ - _rest157582_ - __tmp158277)) + (_lp157564_ + _rest157587_ + __tmp158282)) (let () (declare (not safe)) - (_lp157559_ - _rest157582_ - _r157562_))) + (_lp157564_ + _rest157587_ + _r157567_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in157583_ + _in157588_ 'gx#module-import::t)) - (let ((_iphi157585_ - (fx+ _phi157554_ + (let ((_iphi157590_ + (fx+ _phi157559_ (##direct-structure-ref - _in157583_ + _in157588_ '3 gx#module-import::t '#f)))) (if (let () (declare (not safe)) - (fxzero? _iphi157585_)) - (let ((__tmp158275 - (let ((__tmp158276 + (fxzero? _iphi157590_)) + (let ((__tmp158280 + (let ((__tmp158281 (##direct-structure-ref (##direct-structure-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _in157583_ + _in157588_ '1 gx#module-import::t '#f) @@ -1566,888 +1566,888 @@ gx#module-export::t '#f))) (declare (not safe)) - (cons __tmp158276 _r157562_)))) + (cons __tmp158281 _r157567_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp157559_ - _rest157582_ - __tmp158275)) + (_lp157564_ + _rest157587_ + __tmp158280)) (let () (declare (not safe)) - (_lp157559_ - _rest157582_ - _r157562_)))) + (_lp157564_ + _rest157587_ + _r157567_)))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in157583_ + _in157588_ 'gx#import-set::t)) - (let ((_xphi157587_ - (fx+ _iphi157556_ + (let ((_xphi157592_ + (fx+ _iphi157561_ (##direct-structure-ref - _in157583_ + _in157588_ '2 gx#import-set::t '#f)))) (if (let () (declare (not safe)) - (fxzero? _xphi157587_)) - (let ((__tmp158273 - (let ((__tmp158274 + (fxzero? _xphi157592_)) + (let ((__tmp158278 + (let ((__tmp158279 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##direct-structure-ref - _in157583_ + _in157588_ '1 gx#import-set::t '#f))) (declare (not safe)) - (cons __tmp158274 _r157562_)))) + (cons __tmp158279 _r157567_)))) (declare (not safe)) - (_lp157559_ _rest157582_ __tmp158273)) + (_lp157564_ _rest157587_ __tmp158278)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (fxpositive? - _xphi157587_) - (let ((__tmp158271 - (let ((__tmp158272 + _xphi157592_) + (let ((__tmp158276 + (let ((__tmp158277 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (_import-set-template157491_ - _in157583_ - _iphi157556_)))) + (_import-set-template157496_ + _in157588_ + _iphi157561_)))) (declare (not safe)) - (foldl1 cons _r157562_ __tmp158272)))) + (foldl1 cons _r157567_ __tmp158277)))) (declare (not safe)) - (_lp157559_ _rest157582_ __tmp158271)) + (_lp157564_ _rest157587_ __tmp158276)) (let () (declare (not safe)) - (_lp157559_ _rest157582_ _r157562_))))) + (_lp157564_ _rest157587_ _r157567_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_lp157559_ - _rest157582_ - _r157562_)))))))) + (_lp157564_ + _rest157587_ + _r157567_)))))))) (if (let () (declare (not safe)) - (##pair? _rest157563157571_)) - (let ((_hd157568157592_ + (##pair? _rest157568157576_)) + (let ((_hd157573157597_ (let () (declare (not safe)) - (##car _rest157563157571_))) - (_tl157569157594_ + (##car _rest157568157576_))) + (_tl157574157599_ (let () (declare (not safe)) - (##cdr _rest157563157571_)))) - (let* ((_in157597_ _hd157568157592_) - (_rest157599_ _tl157569157594_)) + (##cdr _rest157568157576_)))) + (let* ((_in157602_ _hd157573157597_) + (_rest157604_ _tl157574157599_)) (declare (not safe)) - (_K157567157589_ _rest157599_ _in157597_))) + (_K157572157594_ _rest157604_ _in157602_))) (let () (declare (not safe)) - (_else157565157579_)))))))) - (_find-deps157492_ - (lambda (_rest157499_ _deps157500_) - (let* ((_rest157501157509_ _rest157499_) - (_else157503157517_ (lambda () _deps157500_)) - (_K157505157541_ - (lambda (_rest157520_ _hd157521_) + (_else157570157584_)))))))) + (_find-deps157497_ + (lambda (_rest157504_ _deps157505_) + (let* ((_rest157506157514_ _rest157504_) + (_else157508157522_ (lambda () _deps157505_)) + (_K157510157546_ + (lambda (_rest157525_ _hd157526_) (if (let () (declare (not safe)) (##structure-instance-of? - _hd157521_ + _hd157526_ 'gx#module-context::t)) - (let ((_id157523_ + (let ((_id157528_ (##structure-ref - _hd157521_ + _hd157526_ '1 gx#expander-context::t '#f)) - (_imports157524_ + (_imports157529_ (##structure-ref - _hd157521_ + _hd157526_ '8 gx#module-context::t '#f))) (if (let () (declare (not safe)) - (hash-get _ht157490_ _id157523_)) + (hash-get _ht157495_ _id157528_)) (let () (declare (not safe)) - (_find-deps157492_ - _rest157520_ - _deps157500_)) - (let ((_$e157526_ + (_find-deps157497_ + _rest157525_ + _deps157505_)) + (let ((_$e157531_ (let () (declare (not safe)) (gx#core-context-prelude__% - _hd157521_)))) - (if _$e157526_ - ((lambda (_pre157529_) - (let ((_xdeps157531_ - (let ((__tmp158290 + _hd157526_)))) + (if _$e157531_ + ((lambda (_pre157534_) + (let ((_xdeps157536_ + (let ((__tmp158295 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _pre157529_ _imports157524_)))) + (cons _pre157534_ _imports157529_)))) (declare (not safe)) - (_find-deps157492_ __tmp158290 _deps157500_)))) + (_find-deps157497_ __tmp158295 _deps157505_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) (hash-put! - _ht157490_ - _id157523_ - _hd157521_)) - (let ((__tmp158291 + _ht157495_ + _id157528_ + _hd157526_)) + (let ((__tmp158296 (let () (declare (not safe)) - (cons _hd157521_ + (cons _hd157526_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _xdeps157531_)))) + _xdeps157536_)))) (declare (not safe)) - (_find-deps157492_ _rest157520_ __tmp158291)))) + (_find-deps157497_ _rest157525_ __tmp158296)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _$e157526_) - (let ((_xdeps157533_ + _$e157531_) + (let ((_xdeps157538_ (let () (declare (not safe)) - (_find-deps157492_ - _imports157524_ - _deps157500_)))) + (_find-deps157497_ + _imports157529_ + _deps157505_)))) (let () (declare (not safe)) (hash-put! - _ht157490_ - _id157523_ - _hd157521_)) - (let ((__tmp158289 + _ht157495_ + _id157528_ + _hd157526_)) + (let ((__tmp158294 (let () (declare (not safe)) - (cons _hd157521_ - _xdeps157533_)))) + (cons _hd157526_ + _xdeps157538_)))) (declare (not safe)) - (_find-deps157492_ - _rest157520_ - __tmp158289))))))) + (_find-deps157497_ + _rest157525_ + __tmp158294))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _hd157521_ + _hd157526_ 'gx#prelude-context::t)) - (let ((_id157535_ + (let ((_id157540_ (##structure-ref - _hd157521_ + _hd157526_ '1 gx#expander-context::t '#f))) (if (let () (declare (not safe)) (hash-get - _ht157490_ - _id157535_)) + _ht157495_ + _id157540_)) (let () (declare (not safe)) - (_find-deps157492_ - _rest157520_ - _deps157500_)) - (let ((_xdeps157537_ - (let ((__tmp158287 + (_find-deps157497_ + _rest157525_ + _deps157505_)) + (let ((_xdeps157542_ + (let ((__tmp158292 (##structure-ref - _hd157521_ + _hd157526_ '7 gx#prelude-context::t '#f))) (declare (not safe)) - (_find-deps157492_ - __tmp158287 - _deps157500_)))) + (_find-deps157497_ + __tmp158292 + _deps157505_)))) (if (let () (declare (not safe)) (hash-get - _ht157490_ - _id157535_)) + _ht157495_ + _id157540_)) (let () (declare (not safe)) - (_find-deps157492_ - _rest157520_ - _xdeps157537_)) + (_find-deps157497_ + _rest157525_ + _xdeps157542_)) (begin (let () (declare (not safe)) (hash-put! - _ht157490_ - _id157535_ - _hd157521_)) - (let ((__tmp158288 + _ht157495_ + _id157540_ + _hd157526_)) + (let ((__tmp158293 (let () (declare (not safe)) - (cons _hd157521_ + (cons _hd157526_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _xdeps157537_)))) + _xdeps157542_)))) (declare (not safe)) - (_find-deps157492_ _rest157520_ __tmp158288))))))) + (_find-deps157497_ _rest157525_ __tmp158293))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-direct-instance-of? - _hd157521_ + _hd157526_ 'gx#module-import::t)) - (if (let ((__tmp158286 + (if (let ((__tmp158291 (##direct-structure-ref - _hd157521_ + _hd157526_ '3 gx#module-import::t '#f))) (declare (not safe)) - (fxzero? __tmp158286)) - (let ((__tmp158284 - (let ((__tmp158285 + (fxzero? __tmp158291)) + (let ((__tmp158289 + (let ((__tmp158290 (##direct-structure-ref - _hd157521_ + _hd157526_ '1 gx#module-import::t '#f))) (declare (not safe)) - (cons __tmp158285 - _rest157520_)))) + (cons __tmp158290 + _rest157525_)))) (declare (not safe)) - (_find-deps157492_ - __tmp158284 - _deps157500_)) + (_find-deps157497_ + __tmp158289 + _deps157505_)) (let () (declare (not safe)) - (_find-deps157492_ - _rest157520_ - _deps157500_))) + (_find-deps157497_ + _rest157525_ + _deps157505_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _hd157521_ + _hd157526_ 'gx#module-export::t)) - (let ((__tmp158282 - (let ((__tmp158283 + (let ((__tmp158287 + (let ((__tmp158288 (##direct-structure-ref - _hd157521_ + _hd157526_ '1 gx#module-export::t '#f))) (declare (not safe)) - (cons __tmp158283 - _rest157520_)))) + (cons __tmp158288 + _rest157525_)))) (declare (not safe)) - (_find-deps157492_ - __tmp158282 - _deps157500_)) + (_find-deps157497_ + __tmp158287 + _deps157505_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _hd157521_ + _hd157526_ 'gx#import-set::t)) - (if (let ((__tmp158281 + (if (let ((__tmp158286 (##direct-structure-ref - _hd157521_ + _hd157526_ '2 gx#import-set::t '#f))) (declare (not safe)) - (fxzero? __tmp158281)) - (let ((__tmp158279 - (let ((__tmp158280 + (fxzero? __tmp158286)) + (let ((__tmp158284 + (let ((__tmp158285 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##direct-structure-ref - _hd157521_ + _hd157526_ '1 gx#import-set::t '#f))) (declare (not safe)) - (cons __tmp158280 _rest157520_)))) + (cons __tmp158285 _rest157525_)))) (declare (not safe)) - (_find-deps157492_ __tmp158279 _deps157500_)) + (_find-deps157497_ __tmp158284 _deps157505_)) (if (fxpositive? (##direct-structure-ref - _hd157521_ + _hd157526_ '2 gx#import-set::t '#f)) - (let* ((_xdeps157539_ + (let* ((_xdeps157544_ (let () (declare (not safe)) - (_import-set-template157491_ _hd157521_ '0))) - (__tmp158278 + (_import-set-template157496_ _hd157526_ '0))) + (__tmp158283 (let () (declare (not safe)) - (foldl1 cons _rest157520_ _xdeps157539_)))) + (foldl1 cons _rest157525_ _xdeps157544_)))) (declare (not safe)) - (_find-deps157492_ __tmp158278 _deps157500_)) + (_find-deps157497_ __tmp158283 _deps157505_)) (let () (declare (not safe)) - (_find-deps157492_ _rest157520_ _deps157500_)))) + (_find-deps157497_ _rest157525_ _deps157505_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) (error '"Unexpected module import" - _hd157521_)))))))))) + _hd157526_)))))))))) (if (let () (declare (not safe)) - (##pair? _rest157501157509_)) - (let ((_hd157506157544_ + (##pair? _rest157506157514_)) + (let ((_hd157511157549_ (let () (declare (not safe)) - (##car _rest157501157509_))) - (_tl157507157546_ + (##car _rest157506157514_))) + (_tl157512157551_ (let () (declare (not safe)) - (##cdr _rest157501157509_)))) - (let* ((_hd157549_ _hd157506157544_) - (_rest157551_ _tl157507157546_)) + (##cdr _rest157506157514_)))) + (let* ((_hd157554_ _hd157511157549_) + (_rest157556_ _tl157512157551_)) (declare (not safe)) - (_K157505157541_ _rest157551_ _hd157549_))) + (_K157510157546_ _rest157556_ _hd157554_))) (let () (declare (not safe)) - (_else157503157517_))))))) - (reverse (let ((__tmp158292 - (let ((__tmp158293 - (let ((_$e157494_ + (_else157508157522_))))))) + (reverse (let ((__tmp158297 + (let ((__tmp158298 + (let ((_$e157499_ (let () (declare (not safe)) (gx#core-context-prelude__% - _ctx157488_)))) - (if _$e157494_ - ((lambda (_pre157497_) - (let ((__tmp158294 + _ctx157493_)))) + (if _$e157499_ + ((lambda (_pre157502_) + (let ((__tmp158299 (##structure-ref - _ctx157488_ + _ctx157493_ '8 gx#module-context::t '#f))) (declare (not safe)) - (cons _pre157497_ __tmp158294))) - _$e157494_) + (cons _pre157502_ __tmp158299))) + _$e157499_) (##structure-ref - _ctx157488_ + _ctx157493_ '8 gx#module-context::t '#f))))) (declare (not safe)) - (_find-deps157492_ __tmp158293 '())))) + (_find-deps157497_ __tmp158298 '())))) (declare (not safe)) - (filter gx#expander-context-id __tmp158292)))))) + (filter gx#expander-context-id __tmp158297)))))) (define gxc#find-static-module-file - (lambda (_ctx157419_) - (let* ((_context-id157421_ + (lambda (_ctx157424_) + (let* ((_context-id157426_ (if (let () (declare (not safe)) (##structure-instance-of? - _ctx157419_ + _ctx157424_ 'gx#module-context::t)) - (##structure-ref _ctx157419_ '1 gx#expander-context::t '#f) - (string->symbol _ctx157419_))) - (_scm157423_ + (##structure-ref _ctx157424_ '1 gx#expander-context::t '#f) + (string->symbol _ctx157424_))) + (_scm157428_ (string-append (let () (declare (not safe)) - (gxc#static-module-name _context-id157421_)) + (gxc#static-module-name _context-id157426_)) '".scm")) - (_dirs157425_ (gx#current-expander-module-library-path)) - (_dirs157431_ - (let ((_user-libpath157427_ (getenv '"GERBIL_PATH" '#f))) - (if _user-libpath157427_ - (let ((_user-libpath157429_ - (path-expand '"lib" _user-libpath157427_))) - (if (member _user-libpath157429_ _dirs157425_) - _dirs157425_ + (_dirs157430_ (gx#current-expander-module-library-path)) + (_dirs157436_ + (let ((_user-libpath157432_ (getenv '"GERBIL_PATH" '#f))) + (if _user-libpath157432_ + (let ((_user-libpath157434_ + (path-expand '"lib" _user-libpath157432_))) + (if (member _user-libpath157434_ _dirs157430_) + _dirs157430_ (let () (declare (not safe)) - (cons _user-libpath157429_ _dirs157425_)))) - _dirs157425_))) - (_dirs157440_ - (let ((_$e157433_ (gxc#current-compile-output-dir))) - (if _$e157433_ - ((lambda (_g157435157437_) + (cons _user-libpath157434_ _dirs157430_)))) + _dirs157430_))) + (_dirs157445_ + (let ((_$e157438_ (gxc#current-compile-output-dir))) + (if _$e157438_ + ((lambda (_g157440157442_) (let () (declare (not safe)) - (cons _g157435157437_ _dirs157431_))) - _$e157433_) - _dirs157431_))) - (_dirs157446_ - (map (lambda (_g157441157443_) - (path-expand '"static" _g157441157443_)) - _dirs157440_))) - (let _lp157449_ ((_rest157451_ _dirs157446_)) - (let* ((_rest157452157460_ _rest157451_) - (_else157454157468_ + (cons _g157440157442_ _dirs157436_))) + _$e157438_) + _dirs157436_))) + (_dirs157451_ + (map (lambda (_g157446157448_) + (path-expand '"static" _g157446157448_)) + _dirs157445_))) + (let _lp157454_ ((_rest157456_ _dirs157451_)) + (let* ((_rest157457157465_ _rest157456_) + (_else157459157473_ (lambda () - (let ((__tmp158295 + (let ((__tmp158300 (##structure-ref - _ctx157419_ + _ctx157424_ '1 gx#expander-context::t '#f))) (declare (not safe)) (gxc#raise-compile-error '"cannot find static module" - __tmp158295 - _scm157423_)))) - (_K157456157476_ - (lambda (_rest157471_ _dir157472_) - (let ((_path157474_ - (path-expand _scm157423_ _dir157472_))) - (if (file-exists? _path157474_) - _path157474_ + __tmp158300 + _scm157428_)))) + (_K157461157481_ + (lambda (_rest157476_ _dir157477_) + (let ((_path157479_ + (path-expand _scm157428_ _dir157477_))) + (if (file-exists? _path157479_) + _path157479_ (let () (declare (not safe)) - (_lp157449_ _rest157471_))))))) - (if (let () (declare (not safe)) (##pair? _rest157452157460_)) - (let ((_hd157457157479_ + (_lp157454_ _rest157476_))))))) + (if (let () (declare (not safe)) (##pair? _rest157457157465_)) + (let ((_hd157462157484_ (let () (declare (not safe)) - (##car _rest157452157460_))) - (_tl157458157481_ + (##car _rest157457157465_))) + (_tl157463157486_ (let () (declare (not safe)) - (##cdr _rest157452157460_)))) - (let* ((_dir157484_ _hd157457157479_) - (_rest157486_ _tl157458157481_)) + (##cdr _rest157457157465_)))) + (let* ((_dir157489_ _hd157462157484_) + (_rest157491_ _tl157463157486_)) (declare (not safe)) - (_K157456157476_ _rest157486_ _dir157484_))) - (let () (declare (not safe)) (_else157454157468_)))))))) + (_K157461157481_ _rest157491_ _dir157489_))) + (let () (declare (not safe)) (_else157459157473_)))))))) (define gxc#file-empty? - (lambda (_path157417_) - (let ((__tmp158296 (file-info-size (file-info _path157417_ '#t)))) + (lambda (_path157422_) + (let ((__tmp158301 (file-info-size (file-info _path157422_ '#t)))) (declare (not safe)) - (zero? __tmp158296)))) + (zero? __tmp158301)))) (define gxc#compile-top-module - (lambda (_ctx157406_) - (let ((__tmp158300 + (lambda (_ctx157411_) + (let ((__tmp158305 (lambda () - (let ((__tmp158301 + (let ((__tmp158306 (##structure-ref - _ctx157406_ + _ctx157411_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (gxc#verbose '"compile " __tmp158301)) + (gxc#verbose '"compile " __tmp158306)) (if (gxc#current-compile-optimize) - (let ((__tmp158302 + (let ((__tmp158307 (lambda () (let () (declare (not safe)) - (gxc#optimize! _ctx157406_))))) + (gxc#optimize! _ctx157411_))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp158302)) + (with-lock gxc#+driver-mutex+ __tmp158307)) '#!void) (let () (declare (not safe)) - (gxc#collect-bindings _ctx157406_)) - (if (let ((__tmp158305 + (gxc#collect-bindings _ctx157411_)) + (if (let ((__tmp158310 (let () (declare (not safe)) - (gxc#lift-nested-modules _ctx157406_)))) + (gxc#lift-nested-modules _ctx157411_)))) (declare (not safe)) - (null? __tmp158305)) - (let* ((_thr1157411_ - (let ((__tmp158303 + (null? __tmp158310)) + (let* ((_thr1157416_ + (let ((__tmp158308 (lambda () (let () (declare (not safe)) (gxc#compile-runtime-code - _ctx157406_))))) + _ctx157411_))))) (declare (not safe)) - (spawn __tmp158303))) - (_thr2157414_ - (let ((__tmp158304 + (spawn __tmp158308))) + (_thr2157419_ + (let ((__tmp158309 (lambda () (let () (declare (not safe)) - (gxc#compile-meta-code _ctx157406_))))) + (gxc#compile-meta-code _ctx157411_))))) (declare (not safe)) - (spawn __tmp158304)))) - (let () (declare (not safe)) (gxc#join! _thr1157411_)) - (let () (declare (not safe)) (gxc#join! _thr2157414_))) + (spawn __tmp158309)))) + (let () (declare (not safe)) (gxc#join! _thr1157416_)) + (let () (declare (not safe)) (gxc#join! _thr2157419_))) (begin (let () (declare (not safe)) - (gxc#compile-runtime-code _ctx157406_)) + (gxc#compile-runtime-code _ctx157411_)) (let () (declare (not safe)) - (gxc#compile-meta-code _ctx157406_)))) + (gxc#compile-meta-code _ctx157411_)))) (if (and (gxc#current-compile-optimize) (gxc#current-compile-generate-ssxi)) (let () (declare (not safe)) - (gxc#compile-ssxi-code _ctx157406_)) + (gxc#compile-ssxi-code _ctx157411_)) '#!void))) - (__tmp158299 - (let ((__obj158104 + (__tmp158304 + (let ((__obj158109 (let () (declare (not safe)) (##structure gxc#symbol-table::t '#f '#f)))) - (gxc#symbol-table:::init! __obj158104) - __obj158104)) - (__tmp158298 (let () (declare (not safe)) (make-hash-table-eq))) - (__tmp158297 (let () (declare (not safe)) (make-hash-table)))) + (gxc#symbol-table:::init! __obj158109) + __obj158109)) + (__tmp158303 (let () (declare (not safe)) (make-hash-table-eq))) + (__tmp158302 (let () (declare (not safe)) (make-hash-table)))) (declare (not safe)) (call-with-parameters - __tmp158300 + __tmp158305 gx#current-expander-context - _ctx157406_ + _ctx157411_ gx#current-expander-phi '0 gx#current-expander-marks '() gxc#current-compile-symbol-table - __tmp158299 + __tmp158304 gxc#current-compile-runtime-sections - __tmp158298 + __tmp158303 gxc#current-compile-runtime-names - __tmp158297)))) + __tmp158302)))) (define gxc#collect-bindings - (lambda (_ctx157404_) - (let ((__tmp158306 - (##structure-ref _ctx157404_ '11 gx#module-context::t '#f))) + (lambda (_ctx157409_) + (let ((__tmp158311 + (##structure-ref _ctx157409_ '11 gx#module-context::t '#f))) (declare (not safe)) - (gxc#apply-collect-bindings __tmp158306)))) + (gxc#apply-collect-bindings __tmp158311)))) (define gxc#compile-runtime-code - (lambda (_ctx157350_) - (letrec ((_compile1157352_ - (lambda (_ctx157393_) - (let* ((_code157395_ + (lambda (_ctx157355_) + (letrec ((_compile1157357_ + (lambda (_ctx157398_) + (let* ((_code157400_ (##structure-ref - _ctx157393_ + _ctx157398_ '11 gx#module-context::t '#f)) - (_rt157399_ + (_rt157404_ (if (let () (declare (not safe)) - (gxc#apply-find-runtime-code _code157395_)) - (let ((_idstr157397_ - (let ((__tmp158307 + (gxc#apply-find-runtime-code _code157400_)) + (let ((_idstr157402_ + (let ((__tmp158312 (##structure-ref - _ctx157393_ + _ctx157398_ '1 gx#expander-context::t '#f))) (declare (not safe)) (gxc#module-id->path-string - __tmp158307)))) - (string-append _idstr157397_ '"__0")) + __tmp158312)))) + (string-append _idstr157402_ '"__0")) '#f))) - (if _rt157399_ + (if _rt157404_ (begin - (let ((__tmp158308 + (let ((__tmp158313 (gxc#current-compile-runtime-sections))) (declare (not safe)) - (hash-put! __tmp158308 _ctx157393_ _rt157399_)) + (hash-put! __tmp158313 _ctx157398_ _rt157404_)) (let () (declare (not safe)) - (_generate-runtime-code157354_ - _ctx157393_ - _code157395_))) - (let ((_path157402_ + (_generate-runtime-code157359_ + _ctx157398_ + _code157400_))) + (let ((_path157407_ (let () (declare (not safe)) (gxc#compile-static-output-file - _ctx157393_)))) + _ctx157398_)))) (declare (not safe)) (gxc#with-output-to-scheme-file - _path157402_ + _path157407_ void))) (let () (declare (not safe)) - (_generate-loader-code157355_ - _ctx157393_ - _code157395_ - _rt157399_))))) - (_context-timestamp157353_ - (lambda (_ctx157391_) + (_generate-loader-code157360_ + _ctx157398_ + _code157400_ + _rt157404_))))) + (_context-timestamp157358_ + (lambda (_ctx157396_) (string->symbol (string-append (symbol->string (##structure-ref - _ctx157391_ + _ctx157396_ '1 gx#expander-context::t '#f)) '"::timestamp")))) - (_generate-runtime-code157354_ - (lambda (_ctx157373_ _code157374_) - (let* ((_lifts157376_ + (_generate-runtime-code157359_ + (lambda (_ctx157378_ _code157379_) + (let* ((_lifts157381_ (let () (declare (not safe)) (box '()))) - (_runtime-code157379_ - (let ((__tmp158311 + (_runtime-code157384_ + (let ((__tmp158316 (lambda () (let () (declare (not safe)) (gxc#apply-generate-runtime - _code157374_)))) - (__tmp158310 + _code157379_)))) + (__tmp158315 (let () (declare (not safe)) (make-hash-table-eq))) - (__tmp158309 + (__tmp158314 (let () (declare (not safe)) (gxc#make-bound-identifier-table)))) (declare (not safe)) (call-with-parameters - __tmp158311 + __tmp158316 gx#current-expander-context - _ctx157373_ + _ctx157378_ gx#current-expander-phi '0 gxc#current-compile-lift - _lifts157376_ + _lifts157381_ gxc#current-compile-marks - __tmp158310 + __tmp158315 gxc#current-compile-identifiers - __tmp158309))) - (_runtime-code157381_ - (if (let ((__tmp158315 (unbox _lifts157376_))) + __tmp158314))) + (_runtime-code157386_ + (if (let ((__tmp158320 (unbox _lifts157381_))) (declare (not safe)) - (null? __tmp158315)) - _runtime-code157379_ - (let ((__tmp158312 - (let ((__tmp158314 + (null? __tmp158320)) + _runtime-code157384_ + (let ((__tmp158317 + (let ((__tmp158319 (let () (declare (not safe)) - (cons _runtime-code157379_ + (cons _runtime-code157384_ '()))) - (__tmp158313 - (reverse (unbox _lifts157376_)))) + (__tmp158318 + (reverse (unbox _lifts157381_)))) (declare (not safe)) (foldr1 cons - __tmp158314 - __tmp158313)))) + __tmp158319 + __tmp158318)))) (declare (not safe)) - (cons 'begin __tmp158312)))) - (_runtime-code157383_ - (let ((__tmp158316 - (let ((__tmp158318 - (let ((__tmp158319 - (let ((__tmp158322 + (cons 'begin __tmp158317)))) + (_runtime-code157388_ + (let ((__tmp158321 + (let ((__tmp158323 + (let ((__tmp158324 + (let ((__tmp158327 (let () (declare (not safe)) - (_context-timestamp157353_ - _ctx157373_))) - (__tmp158320 - (let ((__tmp158321 + (_context-timestamp157358_ + _ctx157378_))) + (__tmp158325 + (let ((__tmp158326 (gxc#current-compile-timestamp))) (declare (not safe)) - (cons __tmp158321 + (cons __tmp158326 '())))) (declare (not safe)) - (cons __tmp158322 - __tmp158320)))) + (cons __tmp158327 + __tmp158325)))) (declare (not safe)) - (cons 'define __tmp158319))) - (__tmp158317 + (cons 'define __tmp158324))) + (__tmp158322 (let () (declare (not safe)) - (cons _runtime-code157381_ '())))) + (cons _runtime-code157386_ '())))) (declare (not safe)) - (cons __tmp158318 __tmp158317)))) + (cons __tmp158323 __tmp158322)))) (declare (not safe)) - (cons 'begin __tmp158316))) - (_scm0157385_ + (cons 'begin __tmp158321))) + (_scm0157390_ (let () (declare (not safe)) (gxc#compile-output-file - _ctx157373_ + _ctx157378_ '0 '".scm")))) - (let ((_scms157388_ + (let ((_scms157393_ (let () (declare (not safe)) - (gxc#compile-static-output-file _ctx157373_)))) - (let ((__tmp158323 + (gxc#compile-static-output-file _ctx157378_)))) + (let ((__tmp158328 (lambda () (let () (declare (not safe)) (gxc#compile-scm-file__0 - _scm0157385_ - _runtime-code157383_))))) + _scm0157390_ + _runtime-code157388_))))) (declare (not safe)) (call-with-parameters - __tmp158323 + __tmp158328 gxc#current-compile-keep-scm '#t)) - (if (file-exists? _scms157388_) - (delete-file _scms157388_) + (if (file-exists? _scms157393_) + (delete-file _scms157393_) '#!void) (let () (declare (not safe)) (gxc#verbose '"copy static module " - _scm0157385_ + _scm0157390_ '" => " - _scms157388_)) - (copy-file _scm0157385_ _scms157388_) + _scms157393_)) + (copy-file _scm0157390_ _scms157393_) (if (gxc#current-compile-keep-scm) '#!void - (delete-file _scm0157385_)))))) - (_generate-loader-code157355_ - (lambda (_ctx157362_ _code157363_ _rt157364_) - (let* ((_loader-code157367_ - (let ((__tmp158324 + (delete-file _scm0157390_)))))) + (_generate-loader-code157360_ + (lambda (_ctx157367_ _code157368_ _rt157369_) + (let* ((_loader-code157372_ + (let ((__tmp158329 (lambda () (let () (declare (not safe)) (gxc#apply-generate-loader - _code157363_))))) + _code157368_))))) (declare (not safe)) (call-with-parameters - __tmp158324 + __tmp158329 gx#current-expander-context - _ctx157362_))) - (_loader-code157369_ - (if _rt157364_ - (let ((__tmp158325 - (let ((__tmp158326 - (let ((__tmp158327 - (let ((__tmp158328 + _ctx157367_))) + (_loader-code157374_ + (if _rt157369_ + (let ((__tmp158330 + (let ((__tmp158331 + (let ((__tmp158332 + (let ((__tmp158333 (let () (declare (not safe)) - (cons _rt157364_ + (cons _rt157369_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons 'load-module __tmp158328)))) + (cons 'load-module __tmp158333)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp158327 '())))) + (cons __tmp158332 '())))) (declare (not safe)) - (cons _loader-code157367_ - __tmp158326)))) + (cons _loader-code157372_ + __tmp158331)))) (declare (not safe)) - (cons 'begin __tmp158325)) - _loader-code157367_))) - (let ((__tmp158329 + (cons 'begin __tmp158330)) + _loader-code157372_))) + (let ((__tmp158334 (lambda () - (let ((__tmp158330 + (let ((__tmp158335 (let () (declare (not safe)) (gxc#compile-output-file - _ctx157362_ + _ctx157367_ 'rt '".scm")))) (declare (not safe)) (gxc#compile-scm-file__0 - __tmp158330 - _loader-code157369_))))) + __tmp158335 + _loader-code157374_))))) (declare (not safe)) (call-with-parameters - __tmp158329 + __tmp158334 gxc#current-compile-gsc-options '#f)))))) - (let ((_all-modules157357_ - (let ((__tmp158331 + (let ((_all-modules157362_ + (let ((__tmp158336 (let () (declare (not safe)) - (gxc#lift-nested-modules _ctx157350_)))) + (gxc#lift-nested-modules _ctx157355_)))) (declare (not safe)) - (cons _ctx157350_ __tmp158331)))) + (cons _ctx157355_ __tmp158336)))) (for-each - (lambda (_ctx157359_) - (let ((__tmp158332 + (lambda (_ctx157364_) + (let ((__tmp158337 (lambda () (let () (declare (not safe)) - (_compile1157352_ _ctx157359_))))) + (_compile1157357_ _ctx157364_))))) (declare (not safe)) (call-with-parameters - __tmp158332 + __tmp158337 gxc#current-compile-decls '()))) - _all-modules157357_))))) + _all-modules157362_))))) (define gxc#compile-meta-code - (lambda (_ctx157247_) - (letrec ((_compile-ssi157249_ - (lambda (_code157320_) - (let* ((_path157322_ + (lambda (_ctx157252_) + (letrec ((_compile-ssi157254_ + (lambda (_code157325_) + (let* ((_path157327_ (let () (declare (not safe)) (gxc#compile-output-file - _ctx157247_ + _ctx157252_ '#f '".ssi"))) - (_prelude157333_ - (let* ((_super157324_ + (_prelude157338_ + (let* ((_super157329_ (##structure-ref - _ctx157247_ + _ctx157252_ '3 gx#phi-context::t '#f)) - (_$e157326_ + (_$e157331_ (##structure-ref - _super157324_ + _super157329_ '1 gx#expander-context::t '#f))) - (if _$e157326_ - ((lambda (_g157328157330_) + (if _$e157331_ + ((lambda (_g157333157335_) (let () (declare (not safe)) - (make-symbol__1 '":" _g157328157330_))) - _$e157326_) + (make-symbol__1 '":" _g157333157335_))) + _$e157331_) ':<root>))) - (_ns157335_ + (_ns157340_ (##structure-ref - _ctx157247_ + _ctx157252_ '6 gx#module-context::t '#f)) - (_idstr157337_ + (_idstr157342_ (symbol->string (##structure-ref - _ctx157247_ + _ctx157252_ '1 gx#expander-context::t '#f))) - (_pkg157344_ - (let ((_$e157339_ + (_pkg157349_ + (let ((_$e157344_ (let () (declare (not safe)) - (string-rindex__0 _idstr157337_ '#\/)))) - (if _$e157339_ - ((lambda (_x157342_) + (string-rindex__0 _idstr157342_ '#\/)))) + (if _$e157344_ + ((lambda (_x157347_) (string->symbol - (substring _idstr157337_ '0 _x157342_))) - _$e157339_) + (substring _idstr157342_ '0 _x157347_))) + _$e157344_) '#f))) - (_rt157346_ - (let ((__tmp158333 + (_rt157351_ + (let ((__tmp158338 (gxc#current-compile-runtime-sections))) (declare (not safe)) - (hash-get __tmp158333 _ctx157247_)))) + (hash-get __tmp158338 _ctx157252_)))) (let () (declare (not safe)) - (gxc#verbose '"compile " _path157322_)) - (let ((__tmp158334 + (gxc#verbose '"compile " _path157327_)) + (let ((__tmp158339 (lambda () (let () (declare (not safe)) - (displayln '"prelude:" '" " _prelude157333_)) - (if _pkg157344_ + (displayln '"prelude:" '" " _prelude157338_)) + (if _pkg157349_ (let () (declare (not safe)) - (displayln '"package:" '" " _pkg157344_)) + (displayln '"package:" '" " _pkg157349_)) '#!void) (let () (declare (not safe)) - (displayln '"namespace:" '" " _ns157335_)) + (displayln '"namespace:" '" " _ns157340_)) (newline) - (pretty-print _code157320_) - (if _rt157346_ + (pretty-print _code157325_) + (if _rt157351_ (pretty-print - (let ((__tmp158335 - (let ((__tmp158339 - (let ((__tmp158340 + (let ((__tmp158340 + (let ((__tmp158344 + (let ((__tmp158345 (let () (declare (not safe)) (cons 'load-module @@ -2455,1098 +2455,1098 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#ref __tmp158340))) - (__tmp158336 - (let ((__tmp158337 - (let ((__tmp158338 + (cons '%#ref __tmp158345))) + (__tmp158341 + (let ((__tmp158342 + (let ((__tmp158343 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _rt157346_ '())))) + (cons _rt157351_ '())))) (declare (not safe)) - (cons '%#quote __tmp158338)))) + (cons '%#quote __tmp158343)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp158337 '())))) + (cons __tmp158342 '())))) (declare (not safe)) - (cons __tmp158339 __tmp158336)))) + (cons __tmp158344 __tmp158341)))) (declare (not safe)) - (cons '%#call __tmp158335))) + (cons '%#call __tmp158340))) '#!void)))) (declare (not safe)) (gxc#with-output-to-scheme-file - _path157322_ - __tmp158334))))) - (_compile-phi157250_ - (lambda (_part157260_) - (let* ((_part157261157274_ _part157260_) - (_E157263157278_ + _path157327_ + __tmp158339))))) + (_compile-phi157255_ + (lambda (_part157265_) + (let* ((_part157266157279_ _part157265_) + (_E157268157283_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _part157261157274_)))) - (_K157264157289_ - (lambda (_code157281_ - _n157282_ - _phi157283_ - _phi-ctx157284_) - (let* ((_code157287_ - (let ((__tmp158341 + _part157266157279_)))) + (_K157269157294_ + (lambda (_code157286_ + _n157287_ + _phi157288_ + _phi-ctx157289_) + (let* ((_code157292_ + (let ((__tmp158346 (lambda () (let () (declare (not safe)) (gxc#generate-runtime-phi - _code157281_))))) + _code157286_))))) (declare (not safe)) (call-with-parameters - __tmp158341 + __tmp158346 gx#current-expander-context - _phi-ctx157284_ + _phi-ctx157289_ gx#current-expander-phi - _phi157283_))) - (__tmp158342 + _phi157288_))) + (__tmp158347 (let () (declare (not safe)) (gxc#compile-output-file - _ctx157247_ - _n157282_ + _ctx157252_ + _n157287_ '".scm")))) (declare (not safe)) (gxc#compile-scm-file__% - __tmp158342 - _code157287_ + __tmp158347 + _code157292_ '#t))))) (if (let () (declare (not safe)) - (##pair? _part157261157274_)) - (let ((_hd157265157292_ + (##pair? _part157266157279_)) + (let ((_hd157270157297_ (let () (declare (not safe)) - (##car _part157261157274_))) - (_tl157266157294_ + (##car _part157266157279_))) + (_tl157271157299_ (let () (declare (not safe)) - (##cdr _part157261157274_)))) - (let ((_phi-ctx157297_ _hd157265157292_)) + (##cdr _part157266157279_)))) + (let ((_phi-ctx157302_ _hd157270157297_)) (if (let () (declare (not safe)) - (##pair? _tl157266157294_)) - (let ((_hd157267157299_ + (##pair? _tl157271157299_)) + (let ((_hd157272157304_ (let () (declare (not safe)) - (##car _tl157266157294_))) - (_tl157268157301_ + (##car _tl157271157299_))) + (_tl157273157306_ (let () (declare (not safe)) - (##cdr _tl157266157294_)))) - (let ((_phi157304_ _hd157267157299_)) + (##cdr _tl157271157299_)))) + (let ((_phi157309_ _hd157272157304_)) (if (let () (declare (not safe)) - (##pair? _tl157268157301_)) - (let ((_hd157269157306_ + (##pair? _tl157273157306_)) + (let ((_hd157274157311_ (let () (declare (not safe)) - (##car _tl157268157301_))) - (_tl157270157308_ + (##car _tl157273157306_))) + (_tl157275157313_ (let () (declare (not safe)) - (##cdr _tl157268157301_)))) - (let ((_n157311_ _hd157269157306_)) + (##cdr _tl157273157306_)))) + (let ((_n157316_ _hd157274157311_)) (if (let () (declare (not safe)) - (##pair? _tl157270157308_)) - (let ((_hd157271157313_ + (##pair? _tl157275157313_)) + (let ((_hd157276157318_ (let () (declare (not safe)) - (##car _tl157270157308_))) - (_tl157272157315_ + (##car _tl157275157313_))) + (_tl157277157320_ (let () (declare (not safe)) - (##cdr _tl157270157308_)))) - (let ((_code157318_ - _hd157271157313_)) + (##cdr _tl157275157313_)))) + (let ((_code157323_ + _hd157276157318_)) (if (let () (declare (not safe)) - (##null? _tl157272157315_)) + (##null? _tl157277157320_)) (let () (declare (not safe)) - (_K157264157289_ - _code157318_ - _n157311_ - _phi157304_ - _phi-ctx157297_)) + (_K157269157294_ + _code157323_ + _n157316_ + _phi157309_ + _phi-ctx157302_)) (let () (declare (not safe)) - (_E157263157278_))))) + (_E157268157283_))))) (let () (declare (not safe)) - (_E157263157278_))))) + (_E157268157283_))))) (let () (declare (not safe)) - (_E157263157278_))))) + (_E157268157283_))))) (let () (declare (not safe)) - (_E157263157278_))))) - (let () (declare (not safe)) (_E157263157278_))))))) - (let ((_g158343_ + (_E157268157283_))))) + (let () (declare (not safe)) (_E157268157283_))))))) + (let ((_g158348_ (let () (declare (not safe)) - (gxc#generate-meta-code _ctx157247_)))) + (gxc#generate-meta-code _ctx157252_)))) (begin - (let ((_g158344_ + (let ((_g158349_ (let () (declare (not safe)) - (if (##values? _g158343_) - (##vector-length _g158343_) + (if (##values? _g158348_) + (##vector-length _g158348_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g158344_ 2))) - (error "Context expects 2 values" _g158344_))) - (let ((_ssi-code157252_ - (let () (declare (not safe)) (##vector-ref _g158343_ 0))) - (_phi-code157253_ - (let () (declare (not safe)) (##vector-ref _g158343_ 1)))) + (if (not (let () (declare (not safe)) (##fx= _g158349_ 2))) + (error "Context expects 2 values" _g158349_))) + (let ((_ssi-code157257_ + (let () (declare (not safe)) (##vector-ref _g158348_ 0))) + (_phi-code157258_ + (let () (declare (not safe)) (##vector-ref _g158348_ 1)))) (begin (let () (declare (not safe)) - (_compile-ssi157249_ _ssi-code157252_)) - (let ((_threads157258_ - (map (lambda (_code157255_) - (let ((__tmp158345 + (_compile-ssi157254_ _ssi-code157257_)) + (let ((_threads157263_ + (map (lambda (_code157260_) + (let ((__tmp158350 (lambda () (let () (declare (not safe)) - (_compile-phi157250_ - _code157255_))))) + (_compile-phi157255_ + _code157260_))))) (declare (not safe)) - (spawn __tmp158345))) - _phi-code157253_))) - (for-each gxc#join! _threads157258_))))))))) + (spawn __tmp158350))) + _phi-code157258_))) + (for-each gxc#join! _threads157263_))))))))) (define gxc#compile-ssxi-code - (lambda (_ctx157230_) - (let* ((_path157232_ + (lambda (_ctx157235_) + (let* ((_path157237_ (let () (declare (not safe)) - (gxc#compile-output-file _ctx157230_ '#f '".ssxi.ss"))) - (_code157234_ - (let ((__tmp158346 + (gxc#compile-output-file _ctx157235_ '#f '".ssxi.ss"))) + (_code157239_ + (let ((__tmp158351 (##structure-ref - _ctx157230_ + _ctx157235_ '11 gx#module-context::t '#f))) (declare (not safe)) - (gxc#apply-generate-ssxi __tmp158346))) - (_idstr157236_ + (gxc#apply-generate-ssxi __tmp158351))) + (_idstr157241_ (symbol->string - (##structure-ref _ctx157230_ '1 gx#expander-context::t '#f))) - (_pkg157243_ - (let ((_$e157238_ + (##structure-ref _ctx157235_ '1 gx#expander-context::t '#f))) + (_pkg157248_ + (let ((_$e157243_ (let () (declare (not safe)) - (string-rindex__0 _idstr157236_ '#\/)))) - (if _$e157238_ - ((lambda (_x157241_) + (string-rindex__0 _idstr157241_ '#\/)))) + (if _$e157243_ + ((lambda (_x157246_) (string->symbol - (substring _idstr157236_ '0 _x157241_))) - _$e157238_) + (substring _idstr157241_ '0 _x157246_))) + _$e157243_) '#f)))) - (let () (declare (not safe)) (gxc#verbose '"compile " _path157232_)) - (let ((__tmp158347 + (let () (declare (not safe)) (gxc#verbose '"compile " _path157237_)) + (let ((__tmp158352 (lambda () (let () (declare (not safe)) (displayln '"prelude: :gerbil/compiler/ssxi")) - (if _pkg157243_ + (if _pkg157248_ (let () (declare (not safe)) - (displayln '"package: " _pkg157243_)) + (displayln '"package: " _pkg157248_)) '#!void) (newline) - (pretty-print _code157234_)))) + (pretty-print _code157239_)))) (declare (not safe)) - (gxc#with-output-to-scheme-file _path157232_ __tmp158347))))) + (gxc#with-output-to-scheme-file _path157237_ __tmp158352))))) (define gxc#generate-meta-code - (lambda (_ctx157223_) - (let* ((_state157225_ - (let ((__obj158105 + (lambda (_ctx157228_) + (let* ((_state157230_ + (let ((__obj158110 (let () (declare (not safe)) (##structure gxc#meta-state::t '#f '#f '#f '#f)))) - (gxc#meta-state:::init! __obj158105 _ctx157223_) - __obj158105)) - (_ssi-code157227_ - (let ((__tmp158348 + (gxc#meta-state:::init! __obj158110 _ctx157228_) + __obj158110)) + (_ssi-code157232_ + (let ((__tmp158353 (##structure-ref - _ctx157223_ + _ctx157228_ '11 gx#module-context::t '#f))) (declare (not safe)) - (gxc#apply-generate-meta __tmp158348 _state157225_)))) - (values _ssi-code157227_ + (gxc#apply-generate-meta __tmp158353 _state157230_)))) + (values _ssi-code157232_ (let () (declare (not safe)) - (gxc#meta-state-end! _state157225_)))))) + (gxc#meta-state-end! _state157230_)))))) (define gxc#generate-runtime-phi - (lambda (_stx157216_) - (let ((_lifts157218_ (let () (declare (not safe)) (box '())))) - (let ((__tmp158351 + (lambda (_stx157221_) + (let ((_lifts157223_ (let () (declare (not safe)) (box '())))) + (let ((__tmp158356 (lambda () - (let ((_code157221_ + (let ((_code157226_ (let () (declare (not safe)) - (gxc#apply-generate-runtime-phi _stx157216_)))) - (if (let ((__tmp158355 (unbox _lifts157218_))) + (gxc#apply-generate-runtime-phi _stx157221_)))) + (if (let ((__tmp158360 (unbox _lifts157223_))) (declare (not safe)) - (null? __tmp158355)) - _code157221_ - (let ((__tmp158352 - (let ((__tmp158354 + (null? __tmp158360)) + _code157226_ + (let ((__tmp158357 + (let ((__tmp158359 (let () (declare (not safe)) - (cons _code157221_ '()))) - (__tmp158353 - (reverse (unbox _lifts157218_)))) + (cons _code157226_ '()))) + (__tmp158358 + (reverse (unbox _lifts157223_)))) (declare (not safe)) - (foldr1 cons __tmp158354 __tmp158353)))) + (foldr1 cons __tmp158359 __tmp158358)))) (declare (not safe)) - (cons 'begin __tmp158352)))))) - (__tmp158350 + (cons 'begin __tmp158357)))))) + (__tmp158355 (let () (declare (not safe)) (make-hash-table-eq))) - (__tmp158349 + (__tmp158354 (let () (declare (not safe)) (gxc#make-bound-identifier-table)))) (declare (not safe)) (call-with-parameters - __tmp158351 + __tmp158356 gxc#current-compile-lift - _lifts157218_ + _lifts157223_ gxc#current-compile-marks - __tmp158350 + __tmp158355 gxc#current-compile-identifiers - __tmp158349))))) + __tmp158354))))) (define gxc#lift-nested-modules - (lambda (_ctx157212_) - (let ((_modules157214_ (let () (declare (not safe)) (box '())))) - (let ((__tmp158356 - (##structure-ref _ctx157212_ '11 gx#module-context::t '#f))) + (lambda (_ctx157217_) + (let ((_modules157219_ (let () (declare (not safe)) (box '())))) + (let ((__tmp158361 + (##structure-ref _ctx157217_ '11 gx#module-context::t '#f))) (declare (not safe)) - (gxc#apply-lift-modules __tmp158356 _modules157214_)) - (reverse (unbox _modules157214_))))) + (gxc#apply-lift-modules __tmp158361 _modules157219_)) + (reverse (unbox _modules157219_))))) (define gxc#compile-scm-file__% - (lambda (_path157195_ _code157196_ _phi?157197_) - (let () (declare (not safe)) (gxc#verbose '"compile " _path157195_)) - (let ((__tmp158357 + (lambda (_path157200_ _code157201_ _phi?157202_) + (let () (declare (not safe)) (gxc#verbose '"compile " _path157200_)) + (let ((__tmp158362 (lambda () (pretty-print - (let ((__tmp158358 - (let ((__tmp158365 + (let ((__tmp158363 + (let ((__tmp158370 (let () (declare (not safe)) (cons 'block '()))) - (__tmp158359 - (let ((__tmp158364 + (__tmp158364 + (let ((__tmp158369 (let () (declare (not safe)) (cons 'standard-bindings '()))) - (__tmp158360 - (let ((__tmp158363 + (__tmp158365 + (let ((__tmp158368 (let () (declare (not safe)) (cons 'extended-bindings '()))) - (__tmp158361 - (let ((__tmp158362 - (if _phi?157197_ + (__tmp158366 + (let ((__tmp158367 + (if _phi?157202_ '((inlining-limit 200)) '()))) (declare (not safe)) (foldr1 cons '() - __tmp158362)))) + __tmp158367)))) (declare (not safe)) - (cons __tmp158363 __tmp158361)))) + (cons __tmp158368 __tmp158366)))) (declare (not safe)) - (cons __tmp158364 __tmp158360)))) + (cons __tmp158369 __tmp158365)))) (declare (not safe)) - (cons __tmp158365 __tmp158359)))) + (cons __tmp158370 __tmp158364)))) (declare (not safe)) - (cons 'declare __tmp158358))) - (pretty-print _code157196_)))) + (cons 'declare __tmp158363))) + (pretty-print _code157201_)))) (declare (not safe)) - (gxc#with-output-to-scheme-file _path157195_ __tmp158357)) + (gxc#with-output-to-scheme-file _path157200_ __tmp158362)) (if (gxc#current-compile-invoke-gsc) (let () (declare (not safe)) - (gxc#gsc-compile-file _path157195_ _phi?157197_)) + (gxc#gsc-compile-file _path157200_ _phi?157202_)) '#!void) (if (gxc#current-compile-keep-scm) '#!void - (delete-file _path157195_)))) + (delete-file _path157200_)))) (define gxc#compile-scm-file__0 - (lambda (_path157203_ _code157204_) - (let ((_phi?157206_ '#f)) + (lambda (_path157208_ _code157209_) + (let ((_phi?157211_ '#f)) (declare (not safe)) - (gxc#compile-scm-file__% _path157203_ _code157204_ _phi?157206_)))) + (gxc#compile-scm-file__% _path157208_ _code157209_ _phi?157211_)))) (define gxc#compile-scm-file - (lambda _g158367_ - (let ((_g158366_ (let () (declare (not safe)) (##length _g158367_)))) - (cond ((let () (declare (not safe)) (##fx= _g158366_ 2)) - (apply (lambda (_path157203_ _code157204_) + (lambda _g158372_ + (let ((_g158371_ (let () (declare (not safe)) (##length _g158372_)))) + (cond ((let () (declare (not safe)) (##fx= _g158371_ 2)) + (apply (lambda (_path157208_ _code157209_) (let () (declare (not safe)) (gxc#compile-scm-file__0 - _path157203_ - _code157204_))) - _g158367_)) - ((let () (declare (not safe)) (##fx= _g158366_ 3)) - (apply (lambda (_path157208_ _code157209_ _phi?157210_) + _path157208_ + _code157209_))) + _g158372_)) + ((let () (declare (not safe)) (##fx= _g158371_ 3)) + (apply (lambda (_path157213_ _code157214_ _phi?157215_) (let () (declare (not safe)) (gxc#compile-scm-file__% - _path157208_ - _code157209_ - _phi?157210_))) - _g158367_)) + _path157213_ + _code157214_ + _phi?157215_))) + _g158372_)) (else (##raise-wrong-number-of-arguments-exception gxc#compile-scm-file - _g158367_)))))) + _g158372_)))))) (define gxc#gsc-link-options__% - (lambda (_phi?157096_) - (let _lp157098_ ((_rest157100_ (gxc#current-compile-gsc-options)) - (_opts157101_ '())) - (let* ((_rest157102157122_ _rest157100_) - (_else157106157130_ + (lambda (_phi?157101_) + (let _lp157103_ ((_rest157105_ (gxc#current-compile-gsc-options)) + (_opts157106_ '())) + (let* ((_rest157107157127_ _rest157105_) + (_else157111157135_ (lambda () - (if (and (let () (declare (not safe)) (not _phi?157096_)) + (if (and (let () (declare (not safe)) (not _phi?157101_)) (gxc#current-compile-debug)) - (let ((__tmp158368 - (let ((__tmp158369 (reverse _opts157101_))) + (let ((__tmp158373 + (let ((__tmp158374 (reverse _opts157106_))) (declare (not safe)) - (cons '"-track-scheme" __tmp158369)))) + (cons '"-track-scheme" __tmp158374)))) (declare (not safe)) - (cons '"-debug-source" __tmp158368)) - (reverse _opts157101_))))) - (let ((_K157116157173_ - (lambda (_rest157171_) + (cons '"-debug-source" __tmp158373)) + (reverse _opts157106_))))) + (let ((_K157121157178_ + (lambda (_rest157176_) (let () (declare (not safe)) - (_lp157098_ _rest157171_ _opts157101_)))) - (_K157111157155_ - (lambda (_rest157153_) + (_lp157103_ _rest157176_ _opts157106_)))) + (_K157116157160_ + (lambda (_rest157158_) (let () (declare (not safe)) - (_lp157098_ _rest157153_ _opts157101_)))) - (_K157108157137_ - (lambda (_rest157134_ _opt157135_) - (let ((__tmp158370 + (_lp157103_ _rest157158_ _opts157106_)))) + (_K157113157142_ + (lambda (_rest157139_ _opt157140_) + (let ((__tmp158375 (let () (declare (not safe)) - (cons _opt157135_ _opts157101_)))) + (cons _opt157140_ _opts157106_)))) (declare (not safe)) - (_lp157098_ _rest157134_ __tmp158370))))) - (if (let () (declare (not safe)) (##pair? _rest157102157122_)) - (let ((_tl157118157178_ + (_lp157103_ _rest157139_ __tmp158375))))) + (if (let () (declare (not safe)) (##pair? _rest157107157127_)) + (let ((_tl157123157183_ (let () (declare (not safe)) - (##cdr _rest157102157122_))) - (_hd157117157176_ + (##cdr _rest157107157127_))) + (_hd157122157181_ (let () (declare (not safe)) - (##car _rest157102157122_)))) + (##car _rest157107157127_)))) (if (let () (declare (not safe)) - (equal? _hd157117157176_ '"-cc-options")) + (equal? _hd157122157181_ '"-cc-options")) (if (let () (declare (not safe)) - (##pair? _tl157118157178_)) - (let* ((_tl157120157181_ + (##pair? _tl157123157183_)) + (let* ((_tl157125157186_ (let () (declare (not safe)) - (##cdr _tl157118157178_))) - (_rest157184_ _tl157120157181_)) + (##cdr _tl157123157183_))) + (_rest157189_ _tl157125157186_)) (declare (not safe)) - (_K157116157173_ _rest157184_)) - (let ((_opt157145_ _hd157117157176_) - (_rest157147_ _tl157118157178_)) + (_K157121157178_ _rest157189_)) + (let ((_opt157150_ _hd157122157181_) + (_rest157152_ _tl157123157183_)) (let () (declare (not safe)) - (_K157108157137_ _rest157147_ _opt157145_)))) + (_K157113157142_ _rest157152_ _opt157150_)))) (if (let () (declare (not safe)) - (equal? _hd157117157176_ '"-ld-options")) + (equal? _hd157122157181_ '"-ld-options")) (if (let () (declare (not safe)) - (##pair? _tl157118157178_)) - (let* ((_tl157115157163_ + (##pair? _tl157123157183_)) + (let* ((_tl157120157168_ (let () (declare (not safe)) - (##cdr _tl157118157178_))) - (_rest157166_ _tl157115157163_)) + (##cdr _tl157123157183_))) + (_rest157171_ _tl157120157168_)) (declare (not safe)) - (_K157111157155_ _rest157166_)) - (let ((_opt157145_ _hd157117157176_) - (_rest157147_ _tl157118157178_)) + (_K157116157160_ _rest157171_)) + (let ((_opt157150_ _hd157122157181_) + (_rest157152_ _tl157123157183_)) (let () (declare (not safe)) - (_K157108157137_ - _rest157147_ - _opt157145_)))) - (let ((_opt157145_ _hd157117157176_) - (_rest157147_ _tl157118157178_)) + (_K157113157142_ + _rest157152_ + _opt157150_)))) + (let ((_opt157150_ _hd157122157181_) + (_rest157152_ _tl157123157183_)) (let () (declare (not safe)) - (_K157108157137_ _rest157147_ _opt157145_)))))) - (let () (declare (not safe)) (_else157106157130_)))))))) + (_K157113157142_ _rest157152_ _opt157150_)))))) + (let () (declare (not safe)) (_else157111157135_)))))))) (define gxc#gsc-link-options__0 (lambda () - (let ((_phi?157190_ '#f)) + (let ((_phi?157195_ '#f)) (declare (not safe)) - (gxc#gsc-link-options__% _phi?157190_)))) + (gxc#gsc-link-options__% _phi?157195_)))) (define gxc#gsc-link-options - (lambda _g158372_ - (let ((_g158371_ (let () (declare (not safe)) (##length _g158372_)))) - (cond ((let () (declare (not safe)) (##fx= _g158371_ 0)) + (lambda _g158377_ + (let ((_g158376_ (let () (declare (not safe)) (##length _g158377_)))) + (cond ((let () (declare (not safe)) (##fx= _g158376_ 0)) (apply (lambda () (let () (declare (not safe)) (gxc#gsc-link-options__0))) - _g158372_)) - ((let () (declare (not safe)) (##fx= _g158371_ 1)) - (apply (lambda (_phi?157192_) + _g158377_)) + ((let () (declare (not safe)) (##fx= _g158376_ 1)) + (apply (lambda (_phi?157197_) (let () (declare (not safe)) - (gxc#gsc-link-options__% _phi?157192_))) - _g158372_)) + (gxc#gsc-link-options__% _phi?157197_))) + _g158377_)) (else (##raise-wrong-number-of-arguments-exception gxc#gsc-link-options - _g158372_)))))) + _g158377_)))))) (define gxc#gsc-cc-options__% - (lambda (_phi?156997_) - (let _lp156999_ ((_rest157001_ (gxc#current-compile-gsc-options)) - (_opts157002_ '())) - (let* ((_rest157003157023_ _rest157001_) - (_else157007157031_ + (lambda (_phi?157002_) + (let _lp157004_ ((_rest157006_ (gxc#current-compile-gsc-options)) + (_opts157007_ '())) + (let* ((_rest157008157028_ _rest157006_) + (_else157012157036_ (lambda () - (if (and (let () (declare (not safe)) (not _phi?156997_)) + (if (and (let () (declare (not safe)) (not _phi?157002_)) (gxc#current-compile-debug)) - (let ((__tmp158373 - (let ((__tmp158374 (reverse _opts157002_))) + (let ((__tmp158378 + (let ((__tmp158379 (reverse _opts157007_))) (declare (not safe)) - (cons '"-g" __tmp158374)))) + (cons '"-g" __tmp158379)))) (declare (not safe)) - (cons '"-cc-options" __tmp158373)) - (reverse _opts157002_))))) - (let ((_K157017157070_ - (lambda (_rest157067_ _opt157068_) - (let ((__tmp158375 - (let ((__tmp158376 + (cons '"-cc-options" __tmp158378)) + (reverse _opts157007_))))) + (let ((_K157022157075_ + (lambda (_rest157072_ _opt157073_) + (let ((__tmp158380 + (let ((__tmp158381 (let () (declare (not safe)) - (cons '"-cc-options" _opts157002_)))) + (cons '"-cc-options" _opts157007_)))) (declare (not safe)) - (cons _opt157068_ __tmp158376)))) + (cons _opt157073_ __tmp158381)))) (declare (not safe)) - (_lp156999_ _rest157067_ __tmp158375)))) - (_K157012157051_ - (lambda (_rest157049_) + (_lp157004_ _rest157072_ __tmp158380)))) + (_K157017157056_ + (lambda (_rest157054_) (let () (declare (not safe)) - (_lp156999_ _rest157049_ _opts157002_)))) - (_K157009157037_ - (lambda (_rest157035_) + (_lp157004_ _rest157054_ _opts157007_)))) + (_K157014157042_ + (lambda (_rest157040_) (let () (declare (not safe)) - (_lp156999_ _rest157035_ _opts157002_))))) - (if (let () (declare (not safe)) (##pair? _rest157003157023_)) - (let ((_tl157019157075_ + (_lp157004_ _rest157040_ _opts157007_))))) + (if (let () (declare (not safe)) (##pair? _rest157008157028_)) + (let ((_tl157024157080_ (let () (declare (not safe)) - (##cdr _rest157003157023_))) - (_hd157018157073_ + (##cdr _rest157008157028_))) + (_hd157023157078_ (let () (declare (not safe)) - (##car _rest157003157023_)))) + (##car _rest157008157028_)))) (if (let () (declare (not safe)) - (equal? _hd157018157073_ '"-cc-options")) + (equal? _hd157023157078_ '"-cc-options")) (if (let () (declare (not safe)) - (##pair? _tl157019157075_)) - (let ((_tl157021157080_ + (##pair? _tl157024157080_)) + (let ((_tl157026157085_ (let () (declare (not safe)) - (##cdr _tl157019157075_))) - (_hd157020157078_ + (##cdr _tl157024157080_))) + (_hd157025157083_ (let () (declare (not safe)) - (##car _tl157019157075_)))) - (let ((_opt157083_ _hd157020157078_) - (_rest157085_ _tl157021157080_)) + (##car _tl157024157080_)))) + (let ((_opt157088_ _hd157025157083_) + (_rest157090_ _tl157026157085_)) (let () (declare (not safe)) - (_K157017157070_ _rest157085_ _opt157083_)))) - (let ((_rest157043_ _tl157019157075_)) + (_K157022157075_ _rest157090_ _opt157088_)))) + (let ((_rest157048_ _tl157024157080_)) (declare (not safe)) - (_K157009157037_ _rest157043_))) + (_K157014157042_ _rest157048_))) (if (let () (declare (not safe)) - (equal? _hd157018157073_ '"-ld-options")) + (equal? _hd157023157078_ '"-ld-options")) (if (let () (declare (not safe)) - (##pair? _tl157019157075_)) - (let* ((_tl157016157059_ + (##pair? _tl157024157080_)) + (let* ((_tl157021157064_ (let () (declare (not safe)) - (##cdr _tl157019157075_))) - (_rest157062_ _tl157016157059_)) + (##cdr _tl157024157080_))) + (_rest157067_ _tl157021157064_)) (declare (not safe)) - (_K157012157051_ _rest157062_)) - (let ((_rest157043_ _tl157019157075_)) + (_K157017157056_ _rest157067_)) + (let ((_rest157048_ _tl157024157080_)) (declare (not safe)) - (_K157009157037_ _rest157043_))) - (let ((_rest157043_ _tl157019157075_)) + (_K157014157042_ _rest157048_))) + (let ((_rest157048_ _tl157024157080_)) (declare (not safe)) - (_K157009157037_ _rest157043_))))) - (let () (declare (not safe)) (_else157007157031_)))))))) + (_K157014157042_ _rest157048_))))) + (let () (declare (not safe)) (_else157012157036_)))))))) (define gxc#gsc-cc-options__0 (lambda () - (let ((_phi?157091_ '#f)) + (let ((_phi?157096_ '#f)) (declare (not safe)) - (gxc#gsc-cc-options__% _phi?157091_)))) + (gxc#gsc-cc-options__% _phi?157096_)))) (define gxc#gsc-cc-options - (lambda _g158378_ - (let ((_g158377_ (let () (declare (not safe)) (##length _g158378_)))) - (cond ((let () (declare (not safe)) (##fx= _g158377_ 0)) + (lambda _g158383_ + (let ((_g158382_ (let () (declare (not safe)) (##length _g158383_)))) + (cond ((let () (declare (not safe)) (##fx= _g158382_ 0)) (apply (lambda () (let () (declare (not safe)) (gxc#gsc-cc-options__0))) - _g158378_)) - ((let () (declare (not safe)) (##fx= _g158377_ 1)) - (apply (lambda (_phi?157093_) + _g158383_)) + ((let () (declare (not safe)) (##fx= _g158382_ 1)) + (apply (lambda (_phi?157098_) (let () (declare (not safe)) - (gxc#gsc-cc-options__% _phi?157093_))) - _g158378_)) + (gxc#gsc-cc-options__% _phi?157098_))) + _g158383_)) (else (##raise-wrong-number-of-arguments-exception gxc#gsc-cc-options - _g158378_)))))) + _g158383_)))))) (define gxc#gsc-static-include-options - (lambda (_staticdir156992_) - (let* ((_user-staticdir156994_ + (lambda (_staticdir156997_) + (let* ((_user-staticdir156999_ (path-expand (path-expand '"lib/static" (let () (declare (not safe)) (gerbil-path))))) - (__tmp158379 - (let ((__tmp158380 + (__tmp158384 + (let ((__tmp158385 (string-append '"-I " - _staticdir156992_ + _staticdir156997_ '" -I " - _user-staticdir156994_))) + _user-staticdir156999_))) (declare (not safe)) - (cons __tmp158380 '())))) + (cons __tmp158385 '())))) (declare (not safe)) - (cons '"-cc-options" __tmp158379)))) + (cons '"-cc-options" __tmp158384)))) (define gxc#gcc-ld-options (lambda () - (let _lp156904_ ((_rest156906_ (gxc#current-compile-gsc-options)) - (_opts156907_ '())) - (let* ((_rest156908156928_ _rest156906_) - (_else156912156936_ (lambda () _opts156907_))) - (let ((_K156922156979_ - (lambda (_rest156977_) + (let _lp156909_ ((_rest156911_ (gxc#current-compile-gsc-options)) + (_opts156912_ '())) + (let* ((_rest156913156933_ _rest156911_) + (_else156917156941_ (lambda () _opts156912_))) + (let ((_K156927156984_ + (lambda (_rest156982_) (let () (declare (not safe)) - (_lp156904_ _rest156977_ _opts156907_)))) - (_K156917156957_ - (lambda (_rest156954_ _opt156955_) - (let ((__tmp158381 - (append _opts156907_ - (let ((__tmp158382 + (_lp156909_ _rest156982_ _opts156912_)))) + (_K156922156962_ + (lambda (_rest156959_ _opt156960_) + (let ((__tmp158386 + (append _opts156912_ + (let ((__tmp158387 (let () (declare (not safe)) (string-split - _opt156955_ + _opt156960_ '#\space)))) (declare (not safe)) (filter gxc#not-string-empty? - __tmp158382))))) + __tmp158387))))) (declare (not safe)) - (_lp156904_ _rest156954_ __tmp158381)))) - (_K156914156942_ - (lambda (_rest156940_) + (_lp156909_ _rest156959_ __tmp158386)))) + (_K156919156947_ + (lambda (_rest156945_) (let () (declare (not safe)) - (_lp156904_ _rest156940_ _opts156907_))))) - (if (let () (declare (not safe)) (##pair? _rest156908156928_)) - (let ((_tl156924156984_ + (_lp156909_ _rest156945_ _opts156912_))))) + (if (let () (declare (not safe)) (##pair? _rest156913156933_)) + (let ((_tl156929156989_ (let () (declare (not safe)) - (##cdr _rest156908156928_))) - (_hd156923156982_ + (##cdr _rest156913156933_))) + (_hd156928156987_ (let () (declare (not safe)) - (##car _rest156908156928_)))) + (##car _rest156913156933_)))) (if (let () (declare (not safe)) - (equal? _hd156923156982_ '"-cc-options")) + (equal? _hd156928156987_ '"-cc-options")) (if (let () (declare (not safe)) - (##pair? _tl156924156984_)) - (let* ((_tl156926156987_ + (##pair? _tl156929156989_)) + (let* ((_tl156931156992_ (let () (declare (not safe)) - (##cdr _tl156924156984_))) - (_rest156990_ _tl156926156987_)) + (##cdr _tl156929156989_))) + (_rest156995_ _tl156931156992_)) (declare (not safe)) - (_K156922156979_ _rest156990_)) - (let ((_rest156948_ _tl156924156984_)) + (_K156927156984_ _rest156995_)) + (let ((_rest156953_ _tl156929156989_)) (declare (not safe)) - (_K156914156942_ _rest156948_))) + (_K156919156947_ _rest156953_))) (if (let () (declare (not safe)) - (equal? _hd156923156982_ '"-ld-options")) + (equal? _hd156928156987_ '"-ld-options")) (if (let () (declare (not safe)) - (##pair? _tl156924156984_)) - (let ((_tl156921156967_ + (##pair? _tl156929156989_)) + (let ((_tl156926156972_ (let () (declare (not safe)) - (##cdr _tl156924156984_))) - (_hd156920156965_ + (##cdr _tl156929156989_))) + (_hd156925156970_ (let () (declare (not safe)) - (##car _tl156924156984_)))) - (let ((_opt156970_ _hd156920156965_) - (_rest156972_ _tl156921156967_)) + (##car _tl156929156989_)))) + (let ((_opt156975_ _hd156925156970_) + (_rest156977_ _tl156926156972_)) (let () (declare (not safe)) - (_K156917156957_ - _rest156972_ - _opt156970_)))) - (let ((_rest156948_ _tl156924156984_)) + (_K156922156962_ + _rest156977_ + _opt156975_)))) + (let ((_rest156953_ _tl156929156989_)) (declare (not safe)) - (_K156914156942_ _rest156948_))) - (let ((_rest156948_ _tl156924156984_)) + (_K156919156947_ _rest156953_))) + (let ((_rest156953_ _tl156929156989_)) (declare (not safe)) - (_K156914156942_ _rest156948_))))) - (let () (declare (not safe)) (_else156912156936_)))))))) + (_K156919156947_ _rest156953_))))) + (let () (declare (not safe)) (_else156917156941_)))))))) (define gxc#not-string-empty? - (lambda (_str156901_) - (let ((__tmp158383 - (let () (declare (not safe)) (string-empty? _str156901_)))) + (lambda (_str156906_) + (let ((__tmp158388 + (let () (declare (not safe)) (string-empty? _str156906_)))) (declare (not safe)) - (not __tmp158383)))) + (not __tmp158388)))) (define gxc#gsc-compile-file - (lambda (_path156869_ _phi?156870_) - (letrec ((_gsc-link-path156872_ - (lambda (_base-path156893_) - (let _lp156895_ ((_n156897_ '1)) - (let ((_path156899_ + (lambda (_path156874_ _phi?156875_) + (letrec ((_gsc-link-path156877_ + (lambda (_base-path156898_) + (let _lp156900_ ((_n156902_ '1)) + (let ((_path156904_ (string-append - _base-path156893_ + _base-path156898_ '".o" - (number->string _n156897_)))) - (if (file-exists? _path156899_) - (let ((__tmp158384 + (number->string _n156902_)))) + (if (file-exists? _path156904_) + (let ((__tmp158389 (let () (declare (not safe)) - (+ _n156897_ '1)))) - (declare (not safe)) - (_lp156895_ __tmp158384)) - _path156899_)))))) - (let* ((_base-path156874_ (path-strip-extension _path156869_)) - (_path-c156876_ (string-append _base-path156874_ '".c")) - (_path-o156878_ (string-append _base-path156874_ '".o")) - (_link-path156880_ + (+ _n156902_ '1)))) + (declare (not safe)) + (_lp156900_ __tmp158389)) + _path156904_)))))) + (let* ((_base-path156879_ (path-strip-extension _path156874_)) + (_path-c156881_ (string-append _base-path156879_ '".c")) + (_path-o156883_ (string-append _base-path156879_ '".o")) + (_link-path156885_ (let () (declare (not safe)) - (_gsc-link-path156872_ _base-path156874_))) - (_link-path-c156882_ (string-append _link-path156880_ '".c")) - (_link-path-o156884_ (string-append _link-path156880_ '".o")) - (_gsc-link-opts156886_ + (_gsc-link-path156877_ _base-path156879_))) + (_link-path-c156887_ (string-append _link-path156885_ '".c")) + (_link-path-o156889_ (string-append _link-path156885_ '".o")) + (_gsc-link-opts156891_ (let () (declare (not safe)) - (gxc#gsc-link-options__% _phi?156870_))) - (_gsc-cc-opts156888_ + (gxc#gsc-link-options__% _phi?156875_))) + (_gsc-cc-opts156893_ (let () (declare (not safe)) - (gxc#gsc-cc-options__% _phi?156870_))) - (_gcc-ld-opts156890_ + (gxc#gsc-cc-options__% _phi?156875_))) + (_gcc-ld-opts156895_ (let () (declare (not safe)) (gxc#gcc-ld-options)))) - (let ((__tmp158391 (let () (declare (not safe)) (gxc#gerbil-gsc))) - (__tmp158385 - (let ((__tmp158386 - (let ((__tmp158387 - (let ((__tmp158388 - (let ((__tmp158389 - (let ((__tmp158390 + (let ((__tmp158396 (let () (declare (not safe)) (gxc#gerbil-gsc))) + (__tmp158390 + (let ((__tmp158391 + (let ((__tmp158392 + (let ((__tmp158393 + (let ((__tmp158394 + (let ((__tmp158395 (let () (declare (not safe)) - (cons _path156869_ + (cons _path156874_ '())))) (declare (not safe)) (foldr1 cons - __tmp158390 - _gsc-link-opts156886_)))) + __tmp158395 + _gsc-link-opts156891_)))) (declare (not safe)) - (cons _link-path-c156882_ - __tmp158389)))) + (cons _link-path-c156887_ + __tmp158394)))) (declare (not safe)) - (cons '"-o" __tmp158388)))) + (cons '"-o" __tmp158393)))) (declare (not safe)) - (cons '"-flat" __tmp158387)))) + (cons '"-flat" __tmp158392)))) (declare (not safe)) - (cons '"-link" __tmp158386)))) + (cons '"-link" __tmp158391)))) (declare (not safe)) - (gxc#invoke __tmp158391 __tmp158385 'stdout-redirection: '#t)) - (let ((__tmp158398 (let () (declare (not safe)) (gxc#gerbil-gsc))) - (__tmp158392 - (let ((__tmp158393 - (let ((__tmp158394 - (let ((__tmp158395 - (let ((__tmp158396 - (let ((__tmp158397 + (gxc#invoke __tmp158396 __tmp158390 'stdout-redirection: '#t)) + (let ((__tmp158403 (let () (declare (not safe)) (gxc#gerbil-gsc))) + (__tmp158397 + (let ((__tmp158398 + (let ((__tmp158399 + (let ((__tmp158400 + (let ((__tmp158401 + (let ((__tmp158402 (let () (declare (not safe)) - (cons _link-path-c156882_ + (cons _link-path-c156887_ '())))) (declare (not safe)) - (cons _path-c156876_ - __tmp158397)))) + (cons _path-c156881_ + __tmp158402)))) (declare (not safe)) (foldr1 cons - __tmp158396 - _gsc-cc-opts156888_)))) + __tmp158401 + _gsc-cc-opts156893_)))) (declare (not safe)) - (cons '"-D___DYNAMIC" __tmp158395)))) + (cons '"-D___DYNAMIC" __tmp158400)))) (declare (not safe)) - (cons '"-cc-options" __tmp158394)))) + (cons '"-cc-options" __tmp158399)))) (declare (not safe)) - (cons '"-obj" __tmp158393)))) + (cons '"-obj" __tmp158398)))) (declare (not safe)) - (gxc#invoke __tmp158398 __tmp158392 'stdout-redirection: '#t)) - (let ((__tmp158404 (let () (declare (not safe)) (gxc#gerbil-gcc))) - (__tmp158399 - (let ((__tmp158400 - (let ((__tmp158401 - (let ((__tmp158402 - (let ((__tmp158403 + (gxc#invoke __tmp158403 __tmp158397 'stdout-redirection: '#t)) + (let ((__tmp158409 (let () (declare (not safe)) (gxc#gerbil-gcc))) + (__tmp158404 + (let ((__tmp158405 + (let ((__tmp158406 + (let ((__tmp158407 + (let ((__tmp158408 (let () (declare (not safe)) - (cons _link-path-o156884_ - _gcc-ld-opts156890_)))) + (cons _link-path-o156889_ + _gcc-ld-opts156895_)))) (declare (not safe)) - (cons _path-o156878_ __tmp158403)))) + (cons _path-o156883_ __tmp158408)))) (declare (not safe)) - (cons _link-path156880_ __tmp158402)))) + (cons _link-path156885_ __tmp158407)))) (declare (not safe)) - (cons '"-o" __tmp158401)))) + (cons '"-o" __tmp158406)))) (declare (not safe)) - (cons '"-shared" __tmp158400)))) + (cons '"-shared" __tmp158405)))) (declare (not safe)) - (gxc#invoke __tmp158404 __tmp158399)) + (gxc#invoke __tmp158409 __tmp158404)) (for-each delete-file - (let ((__tmp158405 - (let ((__tmp158406 - (let ((__tmp158407 + (let ((__tmp158410 + (let ((__tmp158411 + (let ((__tmp158412 (let () (declare (not safe)) - (cons _link-path-o156884_ '())))) + (cons _link-path-o156889_ '())))) (declare (not safe)) - (cons _link-path-c156882_ __tmp158407)))) + (cons _link-path-c156887_ __tmp158412)))) (declare (not safe)) - (cons _path-o156878_ __tmp158406)))) + (cons _path-o156883_ __tmp158411)))) (declare (not safe)) - (cons _path-c156876_ __tmp158405))))))) + (cons _path-c156881_ __tmp158410))))))) (define gxc#compile-output-file - (lambda (_ctx156840_ _n156841_ _ext156842_) - (letrec ((_module-relative-path156844_ - (lambda (_ctx156867_) + (lambda (_ctx156845_ _n156846_ _ext156847_) + (letrec ((_module-relative-path156849_ + (lambda (_ctx156872_) (path-strip-directory - (let ((__tmp158408 + (let ((__tmp158413 (##structure-ref - _ctx156867_ + _ctx156872_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (gxc#module-id->path-string __tmp158408))))) - (_module-source-directory156845_ - (lambda (_ctx156863_) + (gxc#module-id->path-string __tmp158413))))) + (_module-source-directory156850_ + (lambda (_ctx156868_) (path-directory - (let ((_mpath156865_ + (let ((_mpath156870_ (##structure-ref - _ctx156863_ + _ctx156868_ '7 gx#module-context::t '#f))) (if (let () (declare (not safe)) - (string? _mpath156865_)) - _mpath156865_ + (string? _mpath156870_)) + _mpath156870_ (let () (declare (not safe)) - (last _mpath156865_))))))) - (_section-string156846_ - (lambda (_n156861_) - (if (let () (declare (not safe)) (number? _n156861_)) - (number->string _n156861_) - (if (let () (declare (not safe)) (symbol? _n156861_)) - (symbol->string _n156861_) + (last _mpath156870_))))))) + (_section-string156851_ + (lambda (_n156866_) + (if (let () (declare (not safe)) (number? _n156866_)) + (number->string _n156866_) + (if (let () (declare (not safe)) (symbol? _n156866_)) + (symbol->string _n156866_) (if (let () (declare (not safe)) - (string? _n156861_)) - _n156861_ + (string? _n156866_)) + _n156866_ (let () (declare (not safe)) (gxc#raise-compile-error '"Unexpected section" - _n156861_))))))) - (_file-name156847_ - (lambda (_path156859_) - (if _n156841_ + _n156866_))))))) + (_file-name156852_ + (lambda (_path156864_) + (if _n156846_ (string-append - _path156859_ + _path156864_ '"__" (let () (declare (not safe)) - (_section-string156846_ _n156841_)) - _ext156842_) - (string-append _path156859_ _ext156842_)))) - (_file-path156848_ + (_section-string156851_ _n156846_)) + _ext156847_) + (string-append _path156864_ _ext156847_)))) + (_file-path156853_ (lambda () - (let ((_$e156854_ (gxc#current-compile-output-dir))) - (if _$e156854_ - ((lambda (_outdir156857_) + (let ((_$e156859_ (gxc#current-compile-output-dir))) + (if _$e156859_ + ((lambda (_outdir156862_) (path-expand - (let ((__tmp158410 - (let ((__tmp158411 + (let ((__tmp158415 + (let ((__tmp158416 (##structure-ref - _ctx156840_ + _ctx156845_ '1 gx#expander-context::t '#f))) (declare (not safe)) (gxc#module-id->path-string - __tmp158411)))) + __tmp158416)))) (declare (not safe)) - (_file-name156847_ __tmp158410)) - _outdir156857_)) - _$e156854_) + (_file-name156852_ __tmp158415)) + _outdir156862_)) + _$e156859_) (path-expand - (let ((__tmp158409 + (let ((__tmp158414 (let () (declare (not safe)) - (_module-relative-path156844_ - _ctx156840_)))) + (_module-relative-path156849_ + _ctx156845_)))) (declare (not safe)) - (_file-name156847_ __tmp158409)) + (_file-name156852_ __tmp158414)) (let () (declare (not safe)) - (_module-source-directory156845_ - _ctx156840_)))))))) - (let ((_path156850_ - (let () (declare (not safe)) (_file-path156848_)))) - (let ((__tmp158412 + (_module-source-directory156850_ + _ctx156845_)))))))) + (let ((_path156855_ + (let () (declare (not safe)) (_file-path156853_)))) + (let ((__tmp158417 (lambda () - (let ((__tmp158413 (path-directory _path156850_))) + (let ((__tmp158418 (path-directory _path156855_))) (declare (not safe)) - (create-directory*__0 __tmp158413))))) + (create-directory*__0 __tmp158418))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp158412)) - _path156850_)))) + (with-lock gxc#+driver-mutex+ __tmp158417)) + _path156855_)))) (define gxc#compile-static-output-file - (lambda (_ctx156822_) - (letrec ((_file-name156824_ - (lambda (_id156838_) + (lambda (_ctx156827_) + (letrec ((_file-name156829_ + (lambda (_id156843_) (string-append (let () (declare (not safe)) - (gxc#static-module-name _id156838_)) + (gxc#static-module-name _id156843_)) '".scm"))) - (_file-path156825_ + (_file-path156830_ (lambda () - (let* ((_file156831_ - (let ((__tmp158414 + (let* ((_file156836_ + (let ((__tmp158419 (##structure-ref - _ctx156822_ + _ctx156827_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (_file-name156824_ __tmp158414))) - (_$e156833_ (gxc#current-compile-output-dir))) - (if _$e156833_ - ((lambda (_outdir156836_) + (_file-name156829_ __tmp158419))) + (_$e156838_ (gxc#current-compile-output-dir))) + (if _$e156838_ + ((lambda (_outdir156841_) (path-expand - _file156831_ - (path-expand '"static" _outdir156836_))) - _$e156833_) - (path-expand _file156831_ '"static")))))) - (let ((_path156827_ - (let () (declare (not safe)) (_file-path156825_)))) - (let ((__tmp158415 + _file156836_ + (path-expand '"static" _outdir156841_))) + _$e156838_) + (path-expand _file156836_ '"static")))))) + (let ((_path156832_ + (let () (declare (not safe)) (_file-path156830_)))) + (let ((__tmp158420 (lambda () - (let ((__tmp158416 (path-directory _path156827_))) + (let ((__tmp158421 (path-directory _path156832_))) (declare (not safe)) - (create-directory*__0 __tmp158416))))) + (create-directory*__0 __tmp158421))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp158415)) - _path156827_)))) + (with-lock gxc#+driver-mutex+ __tmp158420)) + _path156832_)))) (define gxc#compile-exe-output-file - (lambda (_ctx156816_ _opts156817_) - (let ((_$e156819_ + (lambda (_ctx156821_ _opts156822_) + (let ((_$e156824_ (let () (declare (not safe)) - (pgetq__0 'output-file: _opts156817_)))) - (if _$e156819_ - (values _$e156819_) + (pgetq__0 'output-file: _opts156822_)))) + (if _$e156824_ + (values _$e156824_) (path-strip-directory (symbol->string (##structure-ref - _ctx156816_ + _ctx156821_ '1 gx#expander-context::t '#f))))))) (define gxc#static-module-name - (lambda (_idstr156809_) - (if (let () (declare (not safe)) (string? _idstr156809_)) - (let* ((_str156811_ + (lambda (_idstr156814_) + (if (let () (declare (not safe)) (string? _idstr156814_)) + (let* ((_str156816_ (let () (declare (not safe)) - (gxc#module-id->path-string _idstr156809_))) - (_strs156813_ + (gxc#module-id->path-string _idstr156814_))) + (_strs156818_ (let () (declare (not safe)) - (string-split _str156811_ '#\/)))) - (let () (declare (not safe)) (string-join _strs156813_ '"__"))) - (if (let () (declare (not safe)) (symbol? _idstr156809_)) - (let ((__tmp158417 (symbol->string _idstr156809_))) + (string-split _str156816_ '#\/)))) + (let () (declare (not safe)) (string-join _strs156818_ '"__"))) + (if (let () (declare (not safe)) (symbol? _idstr156814_)) + (let ((__tmp158422 (symbol->string _idstr156814_))) (declare (not safe)) - (gxc#static-module-name __tmp158417)) + (gxc#static-module-name __tmp158422)) (let () (declare (not safe)) - (error '"Bad module id" _idstr156809_)))))) + (error '"Bad module id" _idstr156814_)))))) (define gxc#invoke__% - (lambda (_g158418_ - _stdout-redirection156770156774_ - _stderr-redirection156771156776_ - _program156778_ - _args156779_) - (let* ((_stdout-redirection156781_ + (lambda (_g158423_ + _stdout-redirection156775156779_ + _stderr-redirection156776156781_ + _program156783_ + _args156784_) + (let* ((_stdout-redirection156786_ (if (let () (declare (not safe)) - (eq? _stdout-redirection156770156774_ absent-value)) + (eq? _stdout-redirection156775156779_ absent-value)) '#f - _stdout-redirection156770156774_)) - (_stderr-redirection156783_ + _stdout-redirection156775156779_)) + (_stderr-redirection156788_ (if (let () (declare (not safe)) - (eq? _stderr-redirection156771156776_ absent-value)) + (eq? _stderr-redirection156776156781_ absent-value)) '#f - _stderr-redirection156771156776_))) - (let ((__tmp158419 + _stderr-redirection156776156781_))) + (let ((__tmp158424 (let () (declare (not safe)) - (cons _program156778_ _args156779_)))) + (cons _program156783_ _args156784_)))) (declare (not safe)) - (gxc#verbose '"invoke " __tmp158419)) - (let* ((_proc156785_ + (gxc#verbose '"invoke " __tmp158424)) + (let* ((_proc156790_ (open-process - (let ((__tmp158420 - (let ((__tmp158421 - (let ((__tmp158422 - (let ((__tmp158423 - (let ((__tmp158424 - (let ((__tmp158425 - (let ((__tmp158426 + (let ((__tmp158425 + (let ((__tmp158426 + (let ((__tmp158427 + (let ((__tmp158428 + (let ((__tmp158429 + (let ((__tmp158430 + (let ((__tmp158431 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _stderr-redirection156783_ '())))) + (cons _stderr-redirection156788_ '())))) (declare (not safe)) - (cons 'stderr-redirection: __tmp158426)))) + (cons 'stderr-redirection: __tmp158431)))) (declare (not safe)) - (cons _stdout-redirection156781_ __tmp158425)))) + (cons _stdout-redirection156786_ __tmp158430)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons 'stdout-redirection: - __tmp158424)))) + __tmp158429)))) (declare (not safe)) - (cons _args156779_ __tmp158423)))) + (cons _args156784_ __tmp158428)))) (declare (not safe)) - (cons 'arguments: __tmp158422)))) + (cons 'arguments: __tmp158427)))) (declare (not safe)) - (cons _program156778_ __tmp158421)))) + (cons _program156783_ __tmp158426)))) (declare (not safe)) - (cons 'path: __tmp158420)))) - (_output156790_ - (if (or _stdout-redirection156781_ - _stderr-redirection156783_) - (read-line _proc156785_ '#f) + (cons 'path: __tmp158425)))) + (_output156795_ + (if (or _stdout-redirection156786_ + _stderr-redirection156788_) + (read-line _proc156790_ '#f) '#f))) - (let ((_status156793_ (process-status _proc156785_))) - (close-port _proc156785_) - (if (let () (declare (not safe)) (zero? _status156793_)) + (let ((_status156798_ (process-status _proc156790_))) + (close-port _proc156790_) + (if (let () (declare (not safe)) (zero? _status156798_)) '#!void (begin - (display _output156790_) - (let ((__tmp158427 + (display _output156795_) + (let ((__tmp158432 (let () (declare (not safe)) - (cons _program156778_ _args156779_)))) + (cons _program156783_ _args156784_)))) (declare (not safe)) (gxc#raise-compile-error '"Compilation error; process exit with nonzero status" - __tmp158427 - _status156793_))))))))) + __tmp158432 + _status156798_))))))))) (define gxc#invoke__@ - (lambda (_keys156769156798_ . _args156800_) + (lambda (_keys156774156803_ . _args156805_) (apply gxc#invoke__% - _keys156769156798_ + _keys156774156803_ (let () (declare (not safe)) (symbolic-table-ref - _keys156769156798_ + _keys156774156803_ 'stdout-redirection: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _keys156769156798_ + _keys156774156803_ 'stderr-redirection: absent-value)) - _args156800_))) + _args156805_))) (define gxc#invoke - (lambda _args156772156806_ + (lambda _args156777156811_ (apply keyword-dispatch '#(stderr-redirection: stdout-redirection:) gxc#invoke__@ - _args156772156806_))) + _args156777156811_))) (define gxc#join! - (lambda (_thread156763_) - (let ((__tmp158429 - (lambda (_exn156765_) + (lambda (_thread156768_) + (let ((__tmp158434 + (lambda (_exn156770_) (if (let () (declare (not safe)) - (uncaught-exception? _exn156765_)) + (uncaught-exception? _exn156770_)) (raise (let () (declare (not safe)) - (uncaught-exception-reason _exn156765_))) - (raise _exn156765_)))) - (__tmp158428 (lambda () (thread-join! _thread156763_)))) + (uncaught-exception-reason _exn156770_))) + (raise _exn156770_)))) + (__tmp158433 (lambda () (thread-join! _thread156768_)))) (declare (not safe)) - (with-catch __tmp158429 __tmp158428)))))) + (with-catch __tmp158434 __tmp158433)))))) diff --git a/src/bootstrap/gerbil/compiler/driver__1.scm b/src/bootstrap/gerbil/compiler/driver__1.scm index fb10febf..41bbc69c 100644 --- a/src/bootstrap/gerbil/compiler/driver__1.scm +++ b/src/bootstrap/gerbil/compiler/driver__1.scm @@ -1,169 +1,169 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin (define |gxc[:0:]#with-driver-mutex| - (lambda (_$stx156636_) - (let* ((_g156640156654_ - (lambda (_g156641156650_) + (lambda (_$stx156641_) + (let* ((_g156645156659_ + (lambda (_g156646156655_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g156641156650_)))) - (_g156639156696_ - (lambda (_g156641156658_) + _g156646156655_)))) + (_g156644156701_ + (lambda (_g156646156663_) (if (let () (declare (not safe)) - (gx#stx-pair? _g156641156658_)) - (let ((_e156645156661_ + (gx#stx-pair? _g156646156663_)) + (let ((_e156650156666_ (let () (declare (not safe)) - (gx#syntax-e _g156641156658_)))) - (let ((_hd156644156665_ + (gx#syntax-e _g156646156663_)))) + (let ((_hd156649156670_ (let () (declare (not safe)) - (##car _e156645156661_))) - (_tl156643156668_ + (##car _e156650156666_))) + (_tl156648156673_ (let () (declare (not safe)) - (##cdr _e156645156661_)))) + (##cdr _e156650156666_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl156643156668_)) - (let ((_e156648156671_ + (gx#stx-pair? _tl156648156673_)) + (let ((_e156653156676_ (let () (declare (not safe)) - (gx#syntax-e _tl156643156668_)))) - (let ((_hd156647156675_ + (gx#syntax-e _tl156648156673_)))) + (let ((_hd156652156680_ (let () (declare (not safe)) - (##car _e156648156671_))) - (_tl156646156678_ + (##car _e156653156676_))) + (_tl156651156683_ (let () (declare (not safe)) - (##cdr _e156648156671_)))) + (##cdr _e156653156676_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl156646156678_)) - ((lambda (_L156681_) - (let ((__tmp158437 + (gx#stx-null? _tl156651156683_)) + ((lambda (_L156686_) + (let ((__tmp158442 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'with-lock))) - (__tmp158430 - (let ((__tmp158436 + (__tmp158435 + (let ((__tmp158441 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '+driver-mutex+))) - (__tmp158431 - (let ((__tmp158432 - (let ((__tmp158435 + (__tmp158436 + (let ((__tmp158437 + (let ((__tmp158440 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lambda))) - (__tmp158433 - (let ((__tmp158434 + (__tmp158438 + (let ((__tmp158439 (let () (declare (not safe)) - (cons _L156681_ '())))) + (cons _L156686_ '())))) (declare (not safe)) - (cons '() __tmp158434)))) + (cons '() __tmp158439)))) (declare (not safe)) - (cons __tmp158435 __tmp158433)))) + (cons __tmp158440 __tmp158438)))) (declare (not safe)) - (cons __tmp158432 '())))) + (cons __tmp158437 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp158436 - __tmp158431)))) + (cons __tmp158441 + __tmp158436)))) (declare (not safe)) - (cons __tmp158437 __tmp158430))) - _hd156647156675_) - (_g156640156654_ _g156641156658_)))) - (_g156640156654_ _g156641156658_)))) - (_g156640156654_ _g156641156658_))))) - (_g156639156696_ _$stx156636_)))) + (cons __tmp158442 __tmp158435))) + _hd156652156680_) + (_g156645156659_ _g156646156663_)))) + (_g156645156659_ _g156646156663_)))) + (_g156645156659_ _g156646156663_))))) + (_g156644156701_ _$stx156641_)))) (define |gxc[:0:]#go!| - (lambda (_$stx156700_) - (let* ((_g156704156718_ - (lambda (_g156705156714_) + (lambda (_$stx156705_) + (let* ((_g156709156723_ + (lambda (_g156710156719_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g156705156714_)))) - (_g156703156759_ - (lambda (_g156705156722_) + _g156710156719_)))) + (_g156708156764_ + (lambda (_g156710156727_) (if (let () (declare (not safe)) - (gx#stx-pair? _g156705156722_)) - (let ((_e156709156725_ + (gx#stx-pair? _g156710156727_)) + (let ((_e156714156730_ (let () (declare (not safe)) - (gx#syntax-e _g156705156722_)))) - (let ((_hd156708156729_ + (gx#syntax-e _g156710156727_)))) + (let ((_hd156713156734_ (let () (declare (not safe)) - (##car _e156709156725_))) - (_tl156707156732_ + (##car _e156714156730_))) + (_tl156712156737_ (let () (declare (not safe)) - (##cdr _e156709156725_)))) + (##cdr _e156714156730_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl156707156732_)) - (let ((_e156712156735_ + (gx#stx-pair? _tl156712156737_)) + (let ((_e156717156740_ (let () (declare (not safe)) - (gx#syntax-e _tl156707156732_)))) - (let ((_hd156711156739_ + (gx#syntax-e _tl156712156737_)))) + (let ((_hd156716156744_ (let () (declare (not safe)) - (##car _e156712156735_))) - (_tl156710156742_ + (##car _e156717156740_))) + (_tl156715156747_ (let () (declare (not safe)) - (##cdr _e156712156735_)))) + (##cdr _e156717156740_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl156710156742_)) - ((lambda (_L156745_) - (let ((__tmp158443 + (gx#stx-null? _tl156715156747_)) + ((lambda (_L156750_) + (let ((__tmp158448 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'spawn))) - (__tmp158438 - (let ((__tmp158439 - (let ((__tmp158442 + (__tmp158443 + (let ((__tmp158444 + (let ((__tmp158447 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lambda))) - (__tmp158440 - (let ((__tmp158441 + (__tmp158445 + (let ((__tmp158446 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _L156745_ '())))) + (let () (declare (not safe)) (cons _L156750_ '())))) (declare (not safe)) - (cons '() __tmp158441)))) + (cons '() __tmp158446)))) (declare (not safe)) - (cons __tmp158442 __tmp158440)))) + (cons __tmp158447 __tmp158445)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp158439 '())))) + (cons __tmp158444 '())))) (declare (not safe)) - (cons __tmp158443 __tmp158438))) - _hd156711156739_) - (_g156704156718_ _g156705156722_)))) - (_g156704156718_ _g156705156722_)))) - (_g156704156718_ _g156705156722_))))) - (_g156703156759_ _$stx156700_))))) + (cons __tmp158448 __tmp158443))) + _hd156716156744_) + (_g156709156723_ _g156710156727_)))) + (_g156709156723_ _g156710156727_)))) + (_g156709156723_ _g156710156727_))))) + (_g156708156764_ _$stx156705_))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-ann__0.scm b/src/bootstrap/gerbil/compiler/optimize-ann__0.scm index 62619e83..b0b39afc 100644 --- a/src/bootstrap/gerbil/compiler/optimize-ann__0.scm +++ b/src/bootstrap/gerbil/compiler/optimize-ann__0.scm @@ -1,168 +1,168 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize-ann::timestamp 1709229973) + (define gerbil/compiler/optimize-ann::timestamp 1709375801) (begin (declare (inlining-limit 200)) (define gxc#&optmize-annotated (make-promise (lambda () - (let ((_tbl146865_ + (let ((_tbl146870_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp149987 (force gxc#&basic-xform))) + (let ((__tmp149992 (force gxc#&basic-xform))) (declare (not safe)) - (hash-merge! _tbl146865_ __tmp149987)) + (hash-merge! _tbl146870_ __tmp149992)) (let () (declare (not safe)) (hash-put! - _tbl146865_ + _tbl146870_ '%#begin-annotation gxc#optimize-annotation%)) - _tbl146865_)))) + _tbl146870_)))) (define gxc#apply-optimize-annotated - (lambda (_stx146848_ . _args146850_) - (let ((__tmp149989 + (lambda (_stx146853_ . _args146855_) + (let ((__tmp149994 (lambda () (declare (not safe)) - (if (null? _args146850_) - (gxc#compile-e__0 _stx146848_) - (let ((_arg1146855_ (car _args146850_)) - (_rest146857_ (cdr _args146850_))) - (if (null? _rest146857_) - (gxc#compile-e__1 _stx146848_ _arg1146855_) - (let ((_arg2146860_ (car _rest146857_)) - (_rest146862_ (cdr _rest146857_))) - (if (null? _rest146862_) + (if (null? _args146855_) + (gxc#compile-e__0 _stx146853_) + (let ((_arg1146860_ (car _args146855_)) + (_rest146862_ (cdr _args146855_))) + (if (null? _rest146862_) + (gxc#compile-e__1 _stx146853_ _arg1146860_) + (let ((_arg2146865_ (car _rest146862_)) + (_rest146867_ (cdr _rest146862_))) + (if (null? _rest146867_) (gxc#compile-e__2 - _stx146848_ - _arg1146855_ - _arg2146860_) + _stx146853_ + _arg1146860_ + _arg2146865_) (apply gxc#compile-e - _stx146848_ - _arg1146855_ - _arg2146860_ - _rest146862_)))))))) - (__tmp149988 (force gxc#&optmize-annotated))) + _stx146853_ + _arg1146860_ + _arg2146865_ + _rest146867_)))))))) + (__tmp149993 (force gxc#&optmize-annotated))) (declare (not safe)) (call-with-parameters - __tmp149989 + __tmp149994 gxc#current-compile-methods - __tmp149988)))) + __tmp149993)))) (define gxc#&generate-runtime-repr (make-promise (lambda () - (let ((_tbl146845_ + (let ((_tbl146850_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp149990 (force gxc#&generate-runtime))) + (let ((__tmp149995 (force gxc#&generate-runtime))) (declare (not safe)) - (hash-merge! _tbl146845_ __tmp149990)) + (hash-merge! _tbl146850_ __tmp149995)) (let () (declare (not safe)) - (hash-put! _tbl146845_ '%#quote-syntax identity)) - _tbl146845_)))) + (hash-put! _tbl146850_ '%#quote-syntax identity)) + _tbl146850_)))) (define gxc#apply-generate-runtime-repr - (lambda (_stx146828_ . _args146830_) - (let ((__tmp149992 + (lambda (_stx146833_ . _args146835_) + (let ((__tmp149997 (lambda () (declare (not safe)) - (if (null? _args146830_) - (gxc#compile-e__0 _stx146828_) - (let ((_arg1146835_ (car _args146830_)) - (_rest146837_ (cdr _args146830_))) - (if (null? _rest146837_) - (gxc#compile-e__1 _stx146828_ _arg1146835_) - (let ((_arg2146840_ (car _rest146837_)) - (_rest146842_ (cdr _rest146837_))) - (if (null? _rest146842_) + (if (null? _args146835_) + (gxc#compile-e__0 _stx146833_) + (let ((_arg1146840_ (car _args146835_)) + (_rest146842_ (cdr _args146835_))) + (if (null? _rest146842_) + (gxc#compile-e__1 _stx146833_ _arg1146840_) + (let ((_arg2146845_ (car _rest146842_)) + (_rest146847_ (cdr _rest146842_))) + (if (null? _rest146847_) (gxc#compile-e__2 - _stx146828_ - _arg1146835_ - _arg2146840_) + _stx146833_ + _arg1146840_ + _arg2146845_) (apply gxc#compile-e - _stx146828_ - _arg1146835_ - _arg2146840_ - _rest146842_)))))))) - (__tmp149991 (force gxc#&generate-runtime-repr))) + _stx146833_ + _arg1146840_ + _arg2146845_ + _rest146847_)))))))) + (__tmp149996 (force gxc#&generate-runtime-repr))) (declare (not safe)) (call-with-parameters - __tmp149992 + __tmp149997 gxc#current-compile-methods - __tmp149991)))) + __tmp149996)))) (define gxc#&push-match-vars (make-promise (lambda () - (let ((_tbl146825_ + (let ((_tbl146830_ (let () (declare (not safe)) (make-hash-table-eq)))) (let () (declare (not safe)) - (hash-put! _tbl146825_ '%#lambda gxc#xform-lambda%)) + (hash-put! _tbl146830_ '%#lambda gxc#xform-lambda%)) (let () (declare (not safe)) (hash-put! - _tbl146825_ + _tbl146830_ '%#let-values gxc#push-match-vars-let-values%)) (let () (declare (not safe)) - (hash-put! _tbl146825_ '%#letrec-values gxc#push-match-vars-stop)) + (hash-put! _tbl146830_ '%#letrec-values gxc#push-match-vars-stop)) (let () (declare (not safe)) - (hash-put! _tbl146825_ '%#if gxc#push-match-vars-if%)) + (hash-put! _tbl146830_ '%#if gxc#push-match-vars-if%)) (let () (declare (not safe)) - (hash-put! _tbl146825_ '%#call gxc#push-match-vars-call%)) - _tbl146825_)))) + (hash-put! _tbl146830_ '%#call gxc#push-match-vars-call%)) + _tbl146830_)))) (define gxc#apply-push-match-vars - (lambda (_stx146808_ . _args146810_) - (let ((__tmp149994 + (lambda (_stx146813_ . _args146815_) + (let ((__tmp149999 (lambda () (declare (not safe)) - (if (null? _args146810_) - (gxc#compile-e__0 _stx146808_) - (let ((_arg1146815_ (car _args146810_)) - (_rest146817_ (cdr _args146810_))) - (if (null? _rest146817_) - (gxc#compile-e__1 _stx146808_ _arg1146815_) - (let ((_arg2146820_ (car _rest146817_)) - (_rest146822_ (cdr _rest146817_))) - (if (null? _rest146822_) + (if (null? _args146815_) + (gxc#compile-e__0 _stx146813_) + (let ((_arg1146820_ (car _args146815_)) + (_rest146822_ (cdr _args146815_))) + (if (null? _rest146822_) + (gxc#compile-e__1 _stx146813_ _arg1146820_) + (let ((_arg2146825_ (car _rest146822_)) + (_rest146827_ (cdr _rest146822_))) + (if (null? _rest146827_) (gxc#compile-e__2 - _stx146808_ - _arg1146815_ - _arg2146820_) + _stx146813_ + _arg1146820_ + _arg2146825_) (apply gxc#compile-e - _stx146808_ - _arg1146815_ - _arg2146820_ - _rest146822_)))))))) - (__tmp149993 (force gxc#&push-match-vars))) + _stx146813_ + _arg1146820_ + _arg2146825_ + _rest146827_)))))))) + (__tmp149998 (force gxc#&push-match-vars))) (declare (not safe)) (call-with-parameters - __tmp149994 + __tmp149999 gxc#current-compile-methods - __tmp149993)))) + __tmp149998)))) (define gxc#current-annotation-optimizer (make-parameter '())) (define gxc#optimize-annotation% - (lambda (_stx146617_) - (let* ((___stx146881146882_ _stx146617_) - (_g146621146662_ + (lambda (_stx146622_) + (let* ((___stx146886146887_ _stx146622_) + (_g146626146667_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx146881146882_))))) - (let ((___kont146883146884_ - (lambda (_L146784_ _L146785_) - (let ((_ann146799_ - (let () (declare (not safe)) (gx#stx-e _L146785_)))) - (let ((__tmp149997 + ___stx146886146887_))))) + (let ((___kont146888146889_ + (lambda (_L146789_ _L146790_) + (let ((_ann146804_ + (let () (declare (not safe)) (gx#stx-e _L146790_)))) + (let ((__tmp150002 (lambda () - (let ((_$e146802_ _ann146799_)) + (let ((_$e146807_ _ann146804_)) (if (let () (declare (not safe)) - (eq? '@match _$e146802_)) + (eq? '@match _$e146807_)) (begin (let () (declare (not safe)) @@ -170,10 +170,10 @@ '"Optimizing match expansion")) (let () (declare (not safe)) - (gxc#optimize-match _L146784_))) + (gxc#optimize-match _L146789_))) (if (let () (declare (not safe)) - (eq? '@syntax-case _$e146802_)) + (eq? '@syntax-case _$e146807_)) (begin (let () (declare (not safe)) @@ -182,2009 +182,2009 @@ (let () (declare (not safe)) (gxc#optimize-syntax-case - _L146784_))) + _L146789_))) (let () (declare (not safe)) - (gxc#compile-e__0 _L146784_))))))) - (__tmp149995 - (let ((__tmp149996 + (gxc#compile-e__0 _L146789_))))))) + (__tmp150000 + (let ((__tmp150001 (gxc#current-annotation-optimizer))) (declare (not safe)) - (cons _ann146799_ __tmp149996)))) + (cons _ann146804_ __tmp150001)))) (declare (not safe)) (call-with-parameters - __tmp149997 + __tmp150002 gxc#current-annotation-optimizer - __tmp149995))))) - (___kont146885146886_ - (lambda (_L146730_ _L146731_ _L146732_) - (let () (declare (not safe)) (gxc#compile-e__0 _L146730_)))) - (___kont146889146890_ + __tmp150000))))) + (___kont146890146891_ + (lambda (_L146735_ _L146736_ _L146737_) + (let () (declare (not safe)) (gxc#compile-e__0 _L146735_)))) + (___kont146894146895_ (lambda () (let () (declare (not safe)) - (gxc#xform-begin-annotation% _stx146617_))))) - (let* ((___match146936146937_ - (lambda (_e146639146674_ - _hd146638146677_ - _tl146637146679_ - _e146642146682_ - _hd146641146685_ - _tl146640146687_ - _e146645146690_ - _hd146644146693_ - _tl146643146695_ - ___splice146887146888_ - _target146646146698_ - _tl146648146700_) - (letrec ((_loop146649146703_ - (lambda (_hd146647146706_ _param146653146708_) + (gxc#xform-begin-annotation% _stx146622_))))) + (let* ((___match146941146942_ + (lambda (_e146644146679_ + _hd146643146682_ + _tl146642146684_ + _e146647146687_ + _hd146646146690_ + _tl146645146692_ + _e146650146695_ + _hd146649146698_ + _tl146648146700_ + ___splice146892146893_ + _target146651146703_ + _tl146653146705_) + (letrec ((_loop146654146708_ + (lambda (_hd146652146711_ _param146658146713_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd146647146706_)) - (let ((_e146650146711_ + (gx#stx-pair? _hd146652146711_)) + (let ((_e146655146716_ (let () (declare (not safe)) - (gx#stx-e _hd146647146706_)))) - (let ((_lp-tl146652146716_ + (gx#stx-e _hd146652146711_)))) + (let ((_lp-tl146657146721_ (let () (declare (not safe)) - (##cdr _e146650146711_))) - (_lp-hd146651146714_ + (##cdr _e146655146716_))) + (_lp-hd146656146719_ (let () (declare (not safe)) - (##car _e146650146711_)))) - (let ((__tmp149999 + (##car _e146655146716_)))) + (let ((__tmp150004 (let () (declare (not safe)) - (cons _lp-hd146651146714_ - _param146653146708_)))) + (cons _lp-hd146656146719_ + _param146658146713_)))) (declare (not safe)) - (_loop146649146703_ - _lp-tl146652146716_ - __tmp149999)))) - (let ((_param146654146719_ - (reverse _param146653146708_))) + (_loop146654146708_ + _lp-tl146657146721_ + __tmp150004)))) + (let ((_param146659146724_ + (reverse _param146658146713_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl146640146687_)) - (let ((_e146657146722_ + (gx#stx-pair? _tl146645146692_)) + (let ((_e146662146727_ (let () (declare (not safe)) (gx#stx-e - _tl146640146687_)))) - (let ((_tl146655146727_ + _tl146645146692_)))) + (let ((_tl146660146732_ (let () (declare (not safe)) - (##cdr _e146657146722_))) - (_hd146656146725_ + (##cdr _e146662146727_))) + (_hd146661146730_ (let () (declare (not safe)) - (##car _e146657146722_)))) + (##car _e146662146727_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl146655146727_)) - (let ((_L146730_ - _hd146656146725_) - (_L146731_ - _param146654146719_) - (_L146732_ - _hd146644146693_)) + _tl146660146732_)) + (let ((_L146735_ + _hd146661146730_) + (_L146736_ + _param146659146724_) + (_L146737_ + _hd146649146698_)) (if (and (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#identifier? _L146732_)) - (let ((__tmp149998 + (gx#identifier? _L146737_)) + (let ((__tmp150003 (memq (let () (declare (not safe)) - (gx#stx-e _L146732_)) + (gx#stx-e _L146737_)) gxc#gambit-annotations))) (declare (not safe)) - (not __tmp149998))) - (___kont146885146886_ _L146730_ _L146731_ _L146732_) - (___kont146889146890_))) + (not __tmp150003))) + (___kont146890146891_ _L146735_ _L146736_ _L146737_) + (___kont146894146895_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont146889146890_)))) - (___kont146889146890_))))))) + (___kont146894146895_)))) + (___kont146894146895_))))))) (let () (declare (not safe)) - (_loop146649146703_ _target146646146698_ '()))))) - (___match146910146911_ - (lambda (_e146627146760_ - _hd146626146763_ - _tl146625146765_ - _e146630146768_ - _hd146629146771_ - _tl146628146773_ - _e146633146776_ - _hd146632146779_ - _tl146631146781_) - (let ((_L146784_ _hd146632146779_) - (_L146785_ _hd146629146771_)) + (_loop146654146708_ _target146651146703_ '()))))) + (___match146915146916_ + (lambda (_e146632146765_ + _hd146631146768_ + _tl146630146770_ + _e146635146773_ + _hd146634146776_ + _tl146633146778_ + _e146638146781_ + _hd146637146784_ + _tl146636146786_) + (let ((_L146789_ _hd146637146784_) + (_L146790_ _hd146634146776_)) (if (let () (declare (not safe)) - (gx#identifier? _L146785_)) - (___kont146883146884_ _L146784_ _L146785_) + (gx#identifier? _L146790_)) + (___kont146888146889_ _L146789_ _L146790_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd146629146771_)) - (let ((_e146645146690_ + (gx#stx-pair? _hd146634146776_)) + (let ((_e146650146695_ (let () (declare (not safe)) - (gx#stx-e _hd146629146771_)))) - (let ((_tl146643146695_ + (gx#stx-e _hd146634146776_)))) + (let ((_tl146648146700_ (let () (declare (not safe)) - (##cdr _e146645146690_))) - (_hd146644146693_ + (##cdr _e146650146695_))) + (_hd146649146698_ (let () (declare (not safe)) - (##car _e146645146690_)))) + (##car _e146650146695_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl146643146695_)) - (let ((___splice146887146888_ + (gx#stx-pair/null? _tl146648146700_)) + (let ((___splice146892146893_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl146643146695_ + _tl146648146700_ '0)))) - (let ((_tl146648146700_ + (let ((_tl146653146705_ (let () (declare (not safe)) (##vector-ref - ___splice146887146888_ + ___splice146892146893_ '1))) - (_target146646146698_ + (_target146651146703_ (let () (declare (not safe)) (##vector-ref - ___splice146887146888_ + ___splice146892146893_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl146648146700_)) - (___match146936146937_ - _e146627146760_ - _hd146626146763_ - _tl146625146765_ - _e146630146768_ - _hd146629146771_ - _tl146628146773_ - _e146645146690_ - _hd146644146693_ - _tl146643146695_ - ___splice146887146888_ - _target146646146698_ - _tl146648146700_) - (___kont146889146890_)))) - (___kont146889146890_)))) - (___kont146889146890_))))))) + _tl146653146705_)) + (___match146941146942_ + _e146632146765_ + _hd146631146768_ + _tl146630146770_ + _e146635146773_ + _hd146634146776_ + _tl146633146778_ + _e146650146695_ + _hd146649146698_ + _tl146648146700_ + ___splice146892146893_ + _target146651146703_ + _tl146653146705_) + (___kont146894146895_)))) + (___kont146894146895_)))) + (___kont146894146895_))))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx146881146882_)) - (let ((_e146627146760_ + (gx#stx-pair? ___stx146886146887_)) + (let ((_e146632146765_ (let () (declare (not safe)) - (gx#stx-e ___stx146881146882_)))) - (let ((_tl146625146765_ + (gx#stx-e ___stx146886146887_)))) + (let ((_tl146630146770_ (let () (declare (not safe)) - (##cdr _e146627146760_))) - (_hd146626146763_ + (##cdr _e146632146765_))) + (_hd146631146768_ (let () (declare (not safe)) - (##car _e146627146760_)))) + (##car _e146632146765_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl146625146765_)) - (let ((_e146630146768_ + (gx#stx-pair? _tl146630146770_)) + (let ((_e146635146773_ (let () (declare (not safe)) - (gx#stx-e _tl146625146765_)))) - (let ((_tl146628146773_ + (gx#stx-e _tl146630146770_)))) + (let ((_tl146633146778_ (let () (declare (not safe)) - (##cdr _e146630146768_))) - (_hd146629146771_ + (##cdr _e146635146773_))) + (_hd146634146776_ (let () (declare (not safe)) - (##car _e146630146768_)))) + (##car _e146635146773_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl146628146773_)) - (let ((_e146633146776_ + (gx#stx-pair? _tl146633146778_)) + (let ((_e146638146781_ (let () (declare (not safe)) - (gx#stx-e _tl146628146773_)))) - (let ((_tl146631146781_ + (gx#stx-e _tl146633146778_)))) + (let ((_tl146636146786_ (let () (declare (not safe)) - (##cdr _e146633146776_))) - (_hd146632146779_ + (##cdr _e146638146781_))) + (_hd146637146784_ (let () (declare (not safe)) - (##car _e146633146776_)))) + (##car _e146638146781_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl146631146781_)) - (___match146910146911_ - _e146627146760_ - _hd146626146763_ - _tl146625146765_ - _e146630146768_ - _hd146629146771_ - _tl146628146773_ - _e146633146776_ - _hd146632146779_ - _tl146631146781_) + (gx#stx-null? _tl146636146786_)) + (___match146915146916_ + _e146632146765_ + _hd146631146768_ + _tl146630146770_ + _e146635146773_ + _hd146634146776_ + _tl146633146778_ + _e146638146781_ + _hd146637146784_ + _tl146636146786_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd146629146771_)) - (let ((_e146645146690_ + _hd146634146776_)) + (let ((_e146650146695_ (let () (declare (not safe)) (gx#stx-e - _hd146629146771_)))) - (let ((_tl146643146695_ + _hd146634146776_)))) + (let ((_tl146648146700_ (let () (declare (not safe)) - (##cdr _e146645146690_))) - (_hd146644146693_ + (##cdr _e146650146695_))) + (_hd146649146698_ (let () (declare (not safe)) - (##car _e146645146690_)))) + (##car _e146650146695_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl146643146695_)) - (let ((___splice146887146888_ + _tl146648146700_)) + (let ((___splice146892146893_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _tl146643146695_ '0)))) - (let ((_tl146648146700_ + (gx#syntax-split-splice _tl146648146700_ '0)))) + (let ((_tl146653146705_ (let () (declare (not safe)) - (##vector-ref ___splice146887146888_ '1))) - (_target146646146698_ + (##vector-ref ___splice146892146893_ '1))) + (_target146651146703_ (let () (declare (not safe)) - (##vector-ref ___splice146887146888_ '0)))) + (##vector-ref ___splice146892146893_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl146648146700_)) - (___match146936146937_ - _e146627146760_ - _hd146626146763_ - _tl146625146765_ - _e146630146768_ - _hd146629146771_ - _tl146628146773_ - _e146645146690_ - _hd146644146693_ - _tl146643146695_ - ___splice146887146888_ - _target146646146698_ - _tl146648146700_) - (___kont146889146890_)))) - (___kont146889146890_)))) + (gx#stx-null? _tl146653146705_)) + (___match146941146942_ + _e146632146765_ + _hd146631146768_ + _tl146630146770_ + _e146635146773_ + _hd146634146776_ + _tl146633146778_ + _e146650146695_ + _hd146649146698_ + _tl146648146700_ + ___splice146892146893_ + _target146651146703_ + _tl146653146705_) + (___kont146894146895_)))) + (___kont146894146895_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont146889146890_))))) + (___kont146894146895_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd146629146771_)) - (let ((_e146645146690_ + (gx#stx-pair? _hd146634146776_)) + (let ((_e146650146695_ (let () (declare (not safe)) - (gx#stx-e _hd146629146771_)))) - (let ((_tl146643146695_ + (gx#stx-e _hd146634146776_)))) + (let ((_tl146648146700_ (let () (declare (not safe)) - (##cdr _e146645146690_))) - (_hd146644146693_ + (##cdr _e146650146695_))) + (_hd146649146698_ (let () (declare (not safe)) - (##car _e146645146690_)))) + (##car _e146650146695_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl146643146695_)) - (let ((___splice146887146888_ + _tl146648146700_)) + (let ((___splice146892146893_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl146643146695_ + _tl146648146700_ '0)))) - (let ((_tl146648146700_ + (let ((_tl146653146705_ (let () (declare (not safe)) (##vector-ref - ___splice146887146888_ + ___splice146892146893_ '1))) - (_target146646146698_ + (_target146651146703_ (let () (declare (not safe)) (##vector-ref - ___splice146887146888_ + ___splice146892146893_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl146648146700_)) - (___match146936146937_ - _e146627146760_ - _hd146626146763_ - _tl146625146765_ - _e146630146768_ - _hd146629146771_ - _tl146628146773_ - _e146645146690_ - _hd146644146693_ - _tl146643146695_ - ___splice146887146888_ - _target146646146698_ - _tl146648146700_) - (___kont146889146890_)))) - (___kont146889146890_)))) - (___kont146889146890_))))) - (___kont146889146890_)))) - (___kont146889146890_))))))) + _tl146653146705_)) + (___match146941146942_ + _e146632146765_ + _hd146631146768_ + _tl146630146770_ + _e146635146773_ + _hd146634146776_ + _tl146633146778_ + _e146650146695_ + _hd146649146698_ + _tl146648146700_ + ___splice146892146893_ + _target146651146703_ + _tl146653146705_) + (___kont146894146895_)))) + (___kont146894146895_)))) + (___kont146894146895_))))) + (___kont146894146895_)))) + (___kont146894146895_))))))) (define gxc#optimize-match - (lambda (_stx145916_) - (let* ((_g145918145948_ - (lambda (_g145919145945_) + (lambda (_stx145921_) + (let* ((_g145923145953_ + (lambda (_g145924145950_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g145919145945_)))) - (_g145917146614_ - (lambda (_g145919145951_) + _g145924145950_)))) + (_g145922146619_ + (lambda (_g145924145956_) (if (let () (declare (not safe)) - (gx#stx-pair? _g145919145951_)) - (let ((_e145925145953_ + (gx#stx-pair? _g145924145956_)) + (let ((_e145930145958_ (let () (declare (not safe)) - (gx#stx-e _g145919145951_)))) - (let ((_hd145924145956_ + (gx#stx-e _g145924145956_)))) + (let ((_hd145929145961_ (let () (declare (not safe)) - (##car _e145925145953_))) - (_tl145923145958_ + (##car _e145930145958_))) + (_tl145928145963_ (let () (declare (not safe)) - (##cdr _e145925145953_)))) + (##cdr _e145930145958_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd145924145956_)) + (gx#identifier? _hd145929145961_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd145924145956_)) + _hd145929145961_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl145923145958_)) - (let ((_e145928145961_ + (gx#stx-pair? _tl145928145963_)) + (let ((_e145933145966_ (let () (declare (not safe)) - (gx#stx-e _tl145923145958_)))) - (let ((_hd145927145964_ + (gx#stx-e _tl145928145963_)))) + (let ((_hd145932145969_ (let () (declare (not safe)) - (##car _e145928145961_))) - (_tl145926145966_ + (##car _e145933145966_))) + (_tl145931145971_ (let () (declare (not safe)) - (##cdr _e145928145961_)))) + (##cdr _e145933145966_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd145927145964_)) - (let ((_e145931145969_ + _hd145932145969_)) + (let ((_e145936145974_ (let () (declare (not safe)) (gx#stx-e - _hd145927145964_)))) - (let ((_hd145930145972_ + _hd145932145969_)))) + (let ((_hd145935145977_ (let () (declare (not safe)) - (##car _e145931145969_))) - (_tl145929145974_ + (##car _e145936145974_))) + (_tl145934145979_ (let () (declare (not safe)) - (##cdr _e145931145969_)))) + (##cdr _e145936145974_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd145930145972_)) - (let ((_e145934145977_ + _hd145935145977_)) + (let ((_e145939145982_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd145930145972_)))) - (let ((_hd145933145980_ - (let () (declare (not safe)) (##car _e145934145977_))) - (_tl145932145982_ - (let () (declare (not safe)) (##cdr _e145934145977_)))) + (gx#stx-e _hd145935145977_)))) + (let ((_hd145938145985_ + (let () (declare (not safe)) (##car _e145939145982_))) + (_tl145937145987_ + (let () (declare (not safe)) (##cdr _e145939145982_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd145933145980_)) - (let ((_e145937145985_ + (gx#stx-pair? _hd145938145985_)) + (let ((_e145942145990_ (let () (declare (not safe)) - (gx#stx-e _hd145933145980_)))) - (let ((_hd145936145988_ + (gx#stx-e _hd145938145985_)))) + (let ((_hd145941145993_ (let () (declare (not safe)) - (##car _e145937145985_))) - (_tl145935145990_ + (##car _e145942145990_))) + (_tl145940145995_ (let () (declare (not safe)) - (##cdr _e145937145985_)))) + (##cdr _e145942145990_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl145935145990_)) + (gx#stx-null? _tl145940145995_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl145932145982_)) - (let ((_e145940145993_ + (gx#stx-pair? _tl145937145987_)) + (let ((_e145945145998_ (let () (declare (not safe)) - (gx#stx-e _tl145932145982_)))) - (let ((_hd145939145996_ + (gx#stx-e _tl145937145987_)))) + (let ((_hd145944146001_ (let () (declare (not safe)) - (##car _e145940145993_))) - (_tl145938145998_ + (##car _e145945145998_))) + (_tl145943146003_ (let () (declare (not safe)) - (##cdr _e145940145993_)))) + (##cdr _e145945145998_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl145938145998_)) + (gx#stx-null? _tl145943146003_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl145929145974_)) + _tl145934145979_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl145926145966_)) - (let ((_e145943146001_ + _tl145931145971_)) + (let ((_e145948146006_ (let () (declare (not safe)) (gx#stx-e - _tl145926145966_)))) - (let ((_hd145942146004_ + _tl145931145971_)))) + (let ((_hd145947146009_ (let () (declare (not safe)) - (##car _e145943146001_))) - (_tl145941146006_ + (##car _e145948146006_))) + (_tl145946146011_ (let () (declare (not safe)) - (##cdr _e145943146001_)))) + (##cdr _e145948146006_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl145941146006_)) - ((lambda (_L146009_ + _tl145946146011_)) + ((lambda (_L146014_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L146010_ - _L146011_) - (let _lp146035_ ((_body146037_ _L146009_) - (_negation146038_ + _L146015_ + _L146016_) + (let _lp146040_ ((_body146042_ _L146014_) + (_negation146043_ (let () (declare (not safe)) - (cons _L146011_ _L146010_))) - (_clauses146039_ '()) - (_konts146040_ '())) - (let* ((___stx147119147120_ _body146037_) - (_g146043146083_ + (cons _L146016_ _L146015_))) + (_clauses146044_ '()) + (_konts146045_ '())) + (let* ((___stx147124147125_ _body146042_) + (_g146048146088_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx147119147120_))))) - (let ((___kont147121147122_ - (lambda (_L146413_) - (let* ((___stx147055147056_ _L146413_) - (_g146427146457_ + ___stx147124147125_))))) + (let ((___kont147126147127_ + (lambda (_L146418_) + (let* ((___stx147060147061_ _L146418_) + (_g146432146462_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx147055147056_))))) - (let ((___kont147057147058_ - (lambda (_L146553_ - _L146554_ - _L146555_) + ___stx147060147061_))))) + (let ((___kont147062147063_ + (lambda (_L146558_ + _L146559_ + _L146560_) (if (let () (declare (not safe)) - (null? _clauses146039_)) - (let* ((_negation146579146586_ - _negation146038_) - (_E146581146590_ + (null? _clauses146044_)) + (let* ((_negation146584146591_ + _negation146043_) + (_E146586146595_ (lambda () (let () (declare (not safe)) (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _negation146579146586_)))) - (_K146582146596_ - (lambda (_negate146593_ _E146594_) - (let ((__tmp150009 - (let ((__tmp150010 - (let ((__tmp150020 - (let ((__tmp150021 - (let ((__tmp150023 + _negation146584146591_)))) + (_K146587146601_ + (lambda (_negate146598_ _E146599_) + (let ((__tmp150014 + (let ((__tmp150015 + (let ((__tmp150025 + (let ((__tmp150026 + (let ((__tmp150028 (let () (declare (not safe)) - (cons _E146594_ '()))) - (__tmp150022 + (cons _E146599_ '()))) + (__tmp150027 (let () (declare (not safe)) - (cons _negate146593_ + (cons _negate146598_ '())))) (declare (not safe)) - (cons __tmp150023 - __tmp150022)))) + (cons __tmp150028 + __tmp150027)))) (declare (not safe)) - (cons __tmp150021 '()))) - (__tmp150011 - (let ((__tmp150012 - (let ((__tmp150013 - (let ((__tmp150015 - (let ((__tmp150016 + (cons __tmp150026 '()))) + (__tmp150016 + (let ((__tmp150017 + (let ((__tmp150018 + (let ((__tmp150020 + (let ((__tmp150021 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp150019 + (let ((__tmp150024 (let () (declare (not safe)) - (cons _L146555_ '()))) - (__tmp150017 - (let ((__tmp150018 + (cons _L146560_ '()))) + (__tmp150022 + (let ((__tmp150023 (let () (declare (not safe)) - (gxc#compile-e__0 _L146554_)))) + (gxc#compile-e__0 _L146559_)))) (declare (not safe)) - (cons __tmp150018 '())))) + (cons __tmp150023 '())))) (declare (not safe)) - (cons __tmp150019 __tmp150017)))) + (cons __tmp150024 __tmp150022)))) (declare (not safe)) - (cons __tmp150016 '()))) - (__tmp150014 - (let () (declare (not safe)) (cons _L146553_ '())))) + (cons __tmp150021 '()))) + (__tmp150019 + (let () (declare (not safe)) (cons _L146558_ '())))) (declare (not safe)) - (cons __tmp150015 __tmp150014)))) + (cons __tmp150020 __tmp150019)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#let-values - __tmp150013)))) + __tmp150018)))) (declare (not safe)) - (cons __tmp150012 '())))) + (cons __tmp150017 '())))) (declare (not safe)) - (cons __tmp150020 __tmp150011)))) + (cons __tmp150025 __tmp150016)))) (declare (not safe)) - (cons '%#let-values __tmp150010)))) + (cons '%#let-values __tmp150015)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp150009 _stx145916_))))) + (gxc#xform-wrap-source __tmp150014 _stx145921_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _negation146579146586_)) - (let ((_hd146583146599_ + (##pair? _negation146584146591_)) + (let ((_hd146588146604_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _negation146579146586_))) - (_tl146584146601_ + (##car _negation146584146591_))) + (_tl146589146606_ (let () (declare (not safe)) - (##cdr _negation146579146586_)))) - (let* ((_E146604_ _hd146583146599_) - (_negate146606_ _tl146584146601_)) + (##cdr _negation146584146591_)))) + (let* ((_E146609_ _hd146588146604_) + (_negate146611_ _tl146589146606_)) (declare (not safe)) - (_K146582146596_ _negate146606_ _E146604_))) - (let () (declare (not safe)) (_E146581146590_)))) + (_K146587146601_ _negate146611_ _E146609_))) + (let () (declare (not safe)) (_E146586146595_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp150003 - (let ((__tmp150004 - (let ((__tmp150005 + (let ((__tmp150008 + (let ((__tmp150009 + (let ((__tmp150010 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp150008 + (let ((__tmp150013 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda))) - (__tmp150006 - (let ((__tmp150007 + (__tmp150011 + (let ((__tmp150012 (let () (declare (not safe)) - (cons _L146553_ '())))) + (cons _L146558_ '())))) (declare (not safe)) - (cons '() __tmp150007)))) + (cons '() __tmp150012)))) (declare (not safe)) - (cons __tmp150008 __tmp150006)))) + (cons __tmp150013 __tmp150011)))) (declare (not safe)) - (cons '#f __tmp150005)))) + (cons '#f __tmp150010)))) (declare (not safe)) - (cons __tmp150004 _clauses146039_))) - (__tmp150000 - (let ((__tmp150001 - (let ((__tmp150002 + (cons __tmp150009 _clauses146044_))) + (__tmp150005 + (let ((__tmp150006 + (let ((__tmp150007 (let () (declare (not safe)) - (gxc#compile-e__0 _L146554_)))) + (gxc#compile-e__0 _L146559_)))) (declare (not safe)) - (cons _L146555_ __tmp150002)))) + (cons _L146560_ __tmp150007)))) (declare (not safe)) - (cons __tmp150001 _konts146040_)))) + (cons __tmp150006 _konts146045_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#optimize-match-body - _stx145916_ - _negation146038_ - __tmp150003 - __tmp150000))))) - (___kont147059147060_ + _stx145921_ + _negation146043_ + __tmp150008 + __tmp150005))))) + (___kont147064147065_ (lambda () - (let* ((_negation146463146470_ - _negation146038_) - (_E146465146474_ + (let* ((_negation146468146475_ + _negation146043_) + (_E146470146479_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _negation146463146470_)))) - (_K146466146480_ - (lambda (_negate146477_ - _E146478_) - (let ((__tmp150024 - (let ((__tmp150025 + _negation146468146475_)))) + (_K146471146485_ + (lambda (_negate146482_ + _E146483_) + (let ((__tmp150029 + (let ((__tmp150030 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp150027 - (let ((__tmp150028 - (let ((__tmp150030 + (let ((__tmp150032 + (let ((__tmp150033 + (let ((__tmp150035 (let () (declare (not safe)) - (cons _E146478_ '()))) - (__tmp150029 + (cons _E146483_ '()))) + (__tmp150034 (let () (declare (not safe)) - (cons _negate146477_ + (cons _negate146482_ '())))) (declare (not safe)) - (cons __tmp150030 __tmp150029)))) + (cons __tmp150035 __tmp150034)))) (declare (not safe)) - (cons __tmp150028 '()))) - (__tmp150026 + (cons __tmp150033 '()))) + (__tmp150031 (let () (declare (not safe)) - (cons _L146413_ '())))) + (cons _L146418_ '())))) (declare (not safe)) - (cons __tmp150027 __tmp150026)))) + (cons __tmp150032 __tmp150031)))) (declare (not safe)) - (cons '%#let-values __tmp150025)))) + (cons '%#let-values __tmp150030)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp150024 _stx145916_))))) + (gxc#xform-wrap-source __tmp150029 _stx145921_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _negation146463146470_)) - (let ((_hd146467146483_ + (##pair? _negation146468146475_)) + (let ((_hd146472146488_ (let () (declare (not safe)) - (##car _negation146463146470_))) - (_tl146468146485_ + (##car _negation146468146475_))) + (_tl146473146490_ (let () (declare (not safe)) - (##cdr _negation146463146470_)))) - (let* ((_E146488_ - _hd146467146483_) - (_negate146490_ - _tl146468146485_)) + (##cdr _negation146468146475_)))) + (let* ((_E146493_ + _hd146472146488_) + (_negate146495_ + _tl146473146490_)) (declare (not safe)) - (_K146466146480_ - _negate146490_ - _E146488_))) + (_K146471146485_ + _negate146495_ + _E146493_))) (let () (declare (not safe)) - (_E146465146474_))))))) - (let ((_g146426146492_ + (_E146470146479_))))))) + (let ((_g146431146497_ (lambda () (if (let () (declare (not safe)) - (null? _clauses146039_)) - (___kont147059147060_) + (null? _clauses146044_)) + (___kont147064147065_) (let () (declare (not safe)) - (_g146427146457_)))))) + (_g146432146462_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx147055147056_)) - (let ((_e146434146497_ + ___stx147060147061_)) + (let ((_e146439146502_ (let () (declare (not safe)) (gx#stx-e - ___stx147055147056_)))) - (let ((_tl146432146502_ + ___stx147060147061_)))) + (let ((_tl146437146507_ (let () (declare (not safe)) - (##cdr _e146434146497_))) - (_hd146433146500_ + (##cdr _e146439146502_))) + (_hd146438146505_ (let () (declare (not safe)) - (##car _e146434146497_)))) + (##car _e146439146502_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd146433146500_)) + _hd146438146505_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd146433146500_)) + _hd146438146505_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl146432146502_)) - (let ((_e146437146505_ + _tl146437146507_)) + (let ((_e146442146510_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl146432146502_)))) - (let ((_tl146435146510_ + (gx#stx-e _tl146437146507_)))) + (let ((_tl146440146515_ (let () (declare (not safe)) - (##cdr _e146437146505_))) - (_hd146436146508_ + (##cdr _e146442146510_))) + (_hd146441146513_ (let () (declare (not safe)) - (##car _e146437146505_)))) + (##car _e146442146510_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd146436146508_)) - (let ((_e146440146513_ + (gx#stx-pair? _hd146441146513_)) + (let ((_e146445146518_ (let () (declare (not safe)) - (gx#stx-e _hd146436146508_)))) - (let ((_tl146438146518_ + (gx#stx-e _hd146441146513_)))) + (let ((_tl146443146523_ (let () (declare (not safe)) - (##cdr _e146440146513_))) - (_hd146439146516_ + (##cdr _e146445146518_))) + (_hd146444146521_ (let () (declare (not safe)) - (##car _e146440146513_)))) + (##car _e146445146518_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd146439146516_)) - (let ((_e146443146521_ + (gx#stx-pair? _hd146444146521_)) + (let ((_e146448146526_ (let () (declare (not safe)) - (gx#stx-e _hd146439146516_)))) - (let ((_tl146441146526_ + (gx#stx-e _hd146444146521_)))) + (let ((_tl146446146531_ (let () (declare (not safe)) - (##cdr _e146443146521_))) - (_hd146442146524_ + (##cdr _e146448146526_))) + (_hd146447146529_ (let () (declare (not safe)) - (##car _e146443146521_)))) + (##car _e146448146526_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd146442146524_)) - (let ((_e146446146529_ + (gx#stx-pair? _hd146447146529_)) + (let ((_e146451146534_ (let () (declare (not safe)) (gx#stx-e - _hd146442146524_)))) - (let ((_tl146444146534_ + _hd146447146529_)))) + (let ((_tl146449146539_ (let () (declare (not safe)) - (##cdr _e146446146529_))) - (_hd146445146532_ + (##cdr _e146451146534_))) + (_hd146450146537_ (let () (declare (not safe)) - (##car _e146446146529_)))) + (##car _e146451146534_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl146444146534_)) + _tl146449146539_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl146441146526_)) - (let ((_e146449146537_ + _tl146446146531_)) + (let ((_e146454146542_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl146441146526_)))) - (let ((_tl146447146542_ - (let () (declare (not safe)) (##cdr _e146449146537_))) - (_hd146448146540_ + (gx#stx-e _tl146446146531_)))) + (let ((_tl146452146547_ + (let () (declare (not safe)) (##cdr _e146454146542_))) + (_hd146453146545_ (let () (declare (not safe)) - (##car _e146449146537_)))) + (##car _e146454146542_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl146447146542_)) + (gx#stx-null? _tl146452146547_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl146438146518_)) + (gx#stx-null? _tl146443146523_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl146435146510_)) - (let ((_e146452146545_ + (gx#stx-pair? _tl146440146515_)) + (let ((_e146457146550_ (let () (declare (not safe)) - (gx#stx-e _tl146435146510_)))) - (let ((_tl146450146550_ + (gx#stx-e _tl146440146515_)))) + (let ((_tl146455146555_ (let () (declare (not safe)) - (##cdr _e146452146545_))) - (_hd146451146548_ + (##cdr _e146457146550_))) + (_hd146456146553_ (let () (declare (not safe)) - (##car _e146452146545_)))) + (##car _e146457146550_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl146450146550_)) - (___kont147057147058_ - _hd146451146548_ - _hd146448146540_ - _hd146445146532_) + (gx#stx-null? _tl146455146555_)) + (___kont147062147063_ + _hd146456146553_ + _hd146453146545_ + _hd146450146537_) (let () (declare (not safe)) - (_g146426146492_))))) + (_g146431146497_))))) (let () (declare (not safe)) - (_g146426146492_))) - (let () (declare (not safe)) (_g146426146492_))) - (let () (declare (not safe)) (_g146426146492_))))) - (let () (declare (not safe)) (_g146426146492_))) + (_g146431146497_))) + (let () (declare (not safe)) (_g146431146497_))) + (let () (declare (not safe)) (_g146431146497_))))) + (let () (declare (not safe)) (_g146431146497_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g146426146492_))))) + (_g146431146497_))))) (let () (declare (not safe)) - (_g146426146492_))))) + (_g146431146497_))))) (let () (declare (not safe)) - (_g146426146492_))))) - (let () (declare (not safe)) (_g146426146492_))))) - (let () (declare (not safe)) (_g146426146492_))) - (let () (declare (not safe)) (_g146426146492_))) + (_g146431146497_))))) + (let () (declare (not safe)) (_g146431146497_))))) + (let () (declare (not safe)) (_g146431146497_))) + (let () (declare (not safe)) (_g146431146497_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g146426146492_))))) + (_g146431146497_))))) (let () (declare (not safe)) - (_g146426146492_)))))))) - (___kont147123147124_ - (lambda (_L146144_ _L146145_ _L146146_) - (let* ((___stx146939146940_ _L146145_) - (_g146173146222_ + (_g146431146497_)))))))) + (___kont147128147129_ + (lambda (_L146149_ _L146150_ _L146151_) + (let* ((___stx146944146945_ _L146150_) + (_g146178146227_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx146939146940_))))) - (let ((___kont146941146942_ - (lambda (_L146350_ - _L146351_ - _L146352_) - (let ((__tmp150034 - (let ((__tmp150035 - (let ((__tmp150036 + ___stx146944146945_))))) + (let ((___kont146946146947_ + (lambda (_L146355_ + _L146356_ + _L146357_) + (let ((__tmp150039 + (let ((__tmp150040 + (let ((__tmp150041 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp150039 + (let ((__tmp150044 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda))) - (__tmp150037 - (let ((__tmp150038 + (__tmp150042 + (let ((__tmp150043 (let () (declare (not safe)) - (cons _L146350_ '())))) + (cons _L146355_ '())))) (declare (not safe)) - (cons '() __tmp150038)))) + (cons '() __tmp150043)))) (declare (not safe)) - (cons __tmp150039 __tmp150037)))) + (cons __tmp150044 __tmp150042)))) (declare (not safe)) - (cons _L146146_ __tmp150036)))) + (cons _L146151_ __tmp150041)))) (declare (not safe)) - (cons __tmp150035 _clauses146039_))) + (cons __tmp150040 _clauses146044_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp150031 - (let ((__tmp150032 - (let ((__tmp150033 + (__tmp150036 + (let ((__tmp150037 + (let ((__tmp150038 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#compile-e__0 _L146351_)))) + (gxc#compile-e__0 _L146356_)))) (declare (not safe)) - (cons _L146352_ __tmp150033)))) + (cons _L146357_ __tmp150038)))) (declare (not safe)) - (cons __tmp150032 _konts146040_)))) + (cons __tmp150037 _konts146045_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp146035_ - _L146144_ - _negation146038_ - __tmp150034 - __tmp150031)))) - (___kont146943146944_ - (lambda (_L146251_) - (let ((__tmp150040 - (let ((__tmp150041 + (_lp146040_ + _L146149_ + _negation146043_ + __tmp150039 + __tmp150036)))) + (___kont146948146949_ + (lambda (_L146256_) + (let ((__tmp150045 + (let ((__tmp150046 (let () (declare (not safe)) (gxc#compile-e__0 - _L146251_)))) + _L146256_)))) (declare (not safe)) - (cons _L146146_ - __tmp150041)))) + (cons _L146151_ + __tmp150046)))) (declare (not safe)) - (_lp146035_ - _L146144_ - __tmp150040 - _clauses146039_ - _konts146040_))))) + (_lp146040_ + _L146149_ + __tmp150045 + _clauses146044_ + _konts146045_))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx146939146940_)) - (let ((_e146180146270_ + (gx#stx-pair? ___stx146944146945_)) + (let ((_e146185146275_ (let () (declare (not safe)) (gx#stx-e - ___stx146939146940_)))) - (let ((_tl146178146275_ + ___stx146944146945_)))) + (let ((_tl146183146280_ (let () (declare (not safe)) - (##cdr _e146180146270_))) - (_hd146179146273_ + (##cdr _e146185146275_))) + (_hd146184146278_ (let () (declare (not safe)) - (##car _e146180146270_)))) + (##car _e146185146275_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd146179146273_)) + _hd146184146278_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd146179146273_)) + _hd146184146278_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl146178146275_)) - (let ((_e146183146278_ + _tl146183146280_)) + (let ((_e146188146283_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl146178146275_)))) - (let ((_tl146181146283_ + (gx#stx-e _tl146183146280_)))) + (let ((_tl146186146288_ (let () (declare (not safe)) - (##cdr _e146183146278_))) - (_hd146182146281_ + (##cdr _e146188146283_))) + (_hd146187146286_ (let () (declare (not safe)) - (##car _e146183146278_)))) + (##car _e146188146283_)))) (if (let () (declare (not safe)) - (gx#stx-null? _hd146182146281_)) + (gx#stx-null? _hd146187146286_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl146181146283_)) - (let ((_e146186146286_ + (gx#stx-pair? _tl146186146288_)) + (let ((_e146191146291_ (let () (declare (not safe)) - (gx#stx-e _tl146181146283_)))) - (let ((_tl146184146291_ + (gx#stx-e _tl146186146288_)))) + (let ((_tl146189146296_ (let () (declare (not safe)) - (##cdr _e146186146286_))) - (_hd146185146289_ + (##cdr _e146191146291_))) + (_hd146190146294_ (let () (declare (not safe)) - (##car _e146186146286_)))) + (##car _e146191146291_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd146185146289_)) - (let ((_e146189146294_ + (gx#stx-pair? _hd146190146294_)) + (let ((_e146194146299_ (let () (declare (not safe)) - (gx#stx-e _hd146185146289_)))) - (let ((_tl146187146299_ + (gx#stx-e _hd146190146294_)))) + (let ((_tl146192146304_ (let () (declare (not safe)) - (##cdr _e146189146294_))) - (_hd146188146297_ + (##cdr _e146194146299_))) + (_hd146193146302_ (let () (declare (not safe)) - (##car _e146189146294_)))) + (##car _e146194146299_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd146188146297_)) + _hd146193146302_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd146188146297_)) + _hd146193146302_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl146187146299_)) - (let ((_e146192146302_ + _tl146192146304_)) + (let ((_e146197146307_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl146187146299_)))) - (let ((_tl146190146307_ - (let () (declare (not safe)) (##cdr _e146192146302_))) - (_hd146191146305_ - (let () (declare (not safe)) (##car _e146192146302_)))) + (gx#stx-e _tl146192146304_)))) + (let ((_tl146195146312_ + (let () (declare (not safe)) (##cdr _e146197146307_))) + (_hd146196146310_ + (let () (declare (not safe)) (##car _e146197146307_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd146191146305_)) - (let ((_e146195146310_ + (gx#stx-pair? _hd146196146310_)) + (let ((_e146200146315_ (let () (declare (not safe)) - (gx#stx-e _hd146191146305_)))) - (let ((_tl146193146315_ + (gx#stx-e _hd146196146310_)))) + (let ((_tl146198146320_ (let () (declare (not safe)) - (##cdr _e146195146310_))) - (_hd146194146313_ + (##cdr _e146200146315_))) + (_hd146199146318_ (let () (declare (not safe)) - (##car _e146195146310_)))) + (##car _e146200146315_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd146194146313_)) - (let ((_e146198146318_ + (gx#stx-pair? _hd146199146318_)) + (let ((_e146203146323_ (let () (declare (not safe)) - (gx#stx-e _hd146194146313_)))) - (let ((_tl146196146323_ + (gx#stx-e _hd146199146318_)))) + (let ((_tl146201146328_ (let () (declare (not safe)) - (##cdr _e146198146318_))) - (_hd146197146321_ + (##cdr _e146203146323_))) + (_hd146202146326_ (let () (declare (not safe)) - (##car _e146198146318_)))) + (##car _e146203146323_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd146197146321_)) - (let ((_e146201146326_ + (gx#stx-pair? _hd146202146326_)) + (let ((_e146206146331_ (let () (declare (not safe)) - (gx#stx-e _hd146197146321_)))) - (let ((_tl146199146331_ + (gx#stx-e _hd146202146326_)))) + (let ((_tl146204146336_ (let () (declare (not safe)) - (##cdr _e146201146326_))) - (_hd146200146329_ + (##cdr _e146206146331_))) + (_hd146205146334_ (let () (declare (not safe)) - (##car _e146201146326_)))) + (##car _e146206146331_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl146199146331_)) + _tl146204146336_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl146196146323_)) - (let ((_e146204146334_ + _tl146201146328_)) + (let ((_e146209146339_ (let () (declare (not safe)) (gx#stx-e - _tl146196146323_)))) - (let ((_tl146202146339_ + _tl146201146328_)))) + (let ((_tl146207146344_ (let () (declare (not safe)) - (##cdr _e146204146334_))) - (_hd146203146337_ + (##cdr _e146209146339_))) + (_hd146208146342_ (let () (declare (not safe)) - (##car _e146204146334_)))) + (##car _e146209146339_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl146202146339_)) + _tl146207146344_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl146193146315_)) + (gx#stx-null? _tl146198146320_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl146190146307_)) - (let ((_e146207146342_ + (gx#stx-pair? _tl146195146312_)) + (let ((_e146212146347_ (let () (declare (not safe)) - (gx#stx-e _tl146190146307_)))) - (let ((_tl146205146347_ + (gx#stx-e _tl146195146312_)))) + (let ((_tl146210146352_ (let () (declare (not safe)) - (##cdr _e146207146342_))) - (_hd146206146345_ + (##cdr _e146212146347_))) + (_hd146211146350_ (let () (declare (not safe)) - (##car _e146207146342_)))) + (##car _e146212146347_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl146205146347_)) + (gx#stx-null? _tl146210146352_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl146184146291_)) - (___kont146941146942_ - _hd146206146345_ - _hd146203146337_ - _hd146200146329_) + (gx#stx-null? _tl146189146296_)) + (___kont146946146947_ + _hd146211146350_ + _hd146208146342_ + _hd146205146334_) (let () (declare (not safe)) - (_g146173146222_))) + (_g146178146227_))) (let () (declare (not safe)) - (_g146173146222_))))) - (let () (declare (not safe)) (_g146173146222_))) - (let () (declare (not safe)) (_g146173146222_))) - (let () (declare (not safe)) (_g146173146222_))))) + (_g146178146227_))))) + (let () (declare (not safe)) (_g146178146227_))) + (let () (declare (not safe)) (_g146178146227_))) + (let () (declare (not safe)) (_g146178146227_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g146173146222_))) + (_g146178146227_))) (let () (declare (not safe)) - (_g146173146222_))))) + (_g146178146227_))))) (let () (declare (not safe)) - (_g146173146222_))))) + (_g146178146227_))))) (let () (declare (not safe)) - (_g146173146222_))))) - (let () (declare (not safe)) (_g146173146222_))))) - (let () (declare (not safe)) (_g146173146222_))) + (_g146178146227_))))) + (let () (declare (not safe)) (_g146178146227_))))) + (let () (declare (not safe)) (_g146178146227_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g146173146222_))) + (_g146178146227_))) (let () (declare (not safe)) - (_g146173146222_))))) + (_g146178146227_))))) (let () (declare (not safe)) - (_g146173146222_))))) - (let () (declare (not safe)) (_g146173146222_))) - (let () (declare (not safe)) (_g146173146222_))))) - (let () (declare (not safe)) (_g146173146222_))) + (_g146178146227_))))) + (let () (declare (not safe)) (_g146178146227_))) + (let () (declare (not safe)) (_g146178146227_))))) + (let () (declare (not safe)) (_g146178146227_))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#begin-annotation _hd146179146273_)) + (gx#stx-eq? '%#begin-annotation _hd146184146278_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl146178146275_)) - (let ((_e146214146235_ + (gx#stx-pair? _tl146183146280_)) + (let ((_e146219146240_ (let () (declare (not safe)) - (gx#stx-e _tl146178146275_)))) - (let ((_tl146212146240_ + (gx#stx-e _tl146183146280_)))) + (let ((_tl146217146245_ (let () (declare (not safe)) - (##cdr _e146214146235_))) - (_hd146213146238_ + (##cdr _e146219146240_))) + (_hd146218146243_ (let () (declare (not safe)) - (##car _e146214146235_)))) + (##car _e146219146240_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd146213146238_)) + (gx#identifier? _hd146218146243_)) (if (let () (declare (not safe)) - (gx#stx-eq? '@match-else _hd146213146238_)) + (gx#stx-eq? '@match-else _hd146218146243_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl146212146240_)) - (let ((_e146217146243_ + (gx#stx-pair? _tl146217146245_)) + (let ((_e146222146248_ (let () (declare (not safe)) - (gx#stx-e _tl146212146240_)))) - (let ((_tl146215146248_ + (gx#stx-e _tl146217146245_)))) + (let ((_tl146220146253_ (let () (declare (not safe)) - (##cdr _e146217146243_))) - (_hd146216146246_ + (##cdr _e146222146248_))) + (_hd146221146251_ (let () (declare (not safe)) - (##car _e146217146243_)))) + (##car _e146222146248_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl146215146248_)) - (___kont146943146944_ - _hd146216146246_) + _tl146220146253_)) + (___kont146948146949_ + _hd146221146251_) (let () (declare (not safe)) - (_g146173146222_))))) + (_g146178146227_))))) (let () (declare (not safe)) - (_g146173146222_))) + (_g146178146227_))) (let () (declare (not safe)) - (_g146173146222_))) + (_g146178146227_))) (let () (declare (not safe)) - (_g146173146222_))))) - (let () (declare (not safe)) (_g146173146222_))) - (let () (declare (not safe)) (_g146173146222_)))) + (_g146178146227_))))) + (let () (declare (not safe)) (_g146178146227_))) + (let () (declare (not safe)) (_g146178146227_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g146173146222_))))) + (_g146178146227_))))) (let () (declare (not safe)) - (_g146173146222_)))))))) + (_g146178146227_)))))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx147119147120_)) - (let ((_e146048146389_ + (gx#stx-pair? ___stx147124147125_)) + (let ((_e146053146394_ (let () (declare (not safe)) - (gx#stx-e ___stx147119147120_)))) - (let ((_tl146046146394_ + (gx#stx-e ___stx147124147125_)))) + (let ((_tl146051146399_ (let () (declare (not safe)) - (##cdr _e146048146389_))) - (_hd146047146392_ + (##cdr _e146053146394_))) + (_hd146052146397_ (let () (declare (not safe)) - (##car _e146048146389_)))) + (##car _e146053146394_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd146047146392_)) + (gx#identifier? _hd146052146397_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#begin-annotation - _hd146047146392_)) + _hd146052146397_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl146046146394_)) - (let ((_e146051146397_ + _tl146051146399_)) + (let ((_e146056146402_ (let () (declare (not safe)) (gx#stx-e - _tl146046146394_)))) - (let ((_tl146049146402_ + _tl146051146399_)))) + (let ((_tl146054146407_ (let () (declare (not safe)) - (##cdr _e146051146397_))) - (_hd146050146400_ + (##cdr _e146056146402_))) + (_hd146055146405_ (let () (declare (not safe)) - (##car _e146051146397_)))) + (##car _e146056146402_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd146050146400_)) + _hd146055146405_)) (if (let () (declare (not safe)) (gx#stx-eq? '@match-body - _hd146050146400_)) + _hd146055146405_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl146049146402_)) - (let ((_e146054146405_ + (gx#stx-pair? _tl146054146407_)) + (let ((_e146059146410_ (let () (declare (not safe)) - (gx#stx-e _tl146049146402_)))) - (let ((_tl146052146410_ + (gx#stx-e _tl146054146407_)))) + (let ((_tl146057146415_ (let () (declare (not safe)) - (##cdr _e146054146405_))) - (_hd146053146408_ + (##cdr _e146059146410_))) + (_hd146058146413_ (let () (declare (not safe)) - (##car _e146054146405_)))) + (##car _e146059146410_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl146052146410_)) - (___kont147121147122_ _hd146053146408_) + (gx#stx-null? _tl146057146415_)) + (___kont147126147127_ _hd146058146413_) (let () (declare (not safe)) - (_g146043146083_))))) - (let () (declare (not safe)) (_g146043146083_))) - (let () (declare (not safe)) (_g146043146083_))) - (let () (declare (not safe)) (_g146043146083_))))) + (_g146048146088_))))) + (let () (declare (not safe)) (_g146048146088_))) + (let () (declare (not safe)) (_g146048146088_))) + (let () (declare (not safe)) (_g146048146088_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g146043146083_))) + (_g146048146088_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd146047146392_)) + _hd146052146397_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl146046146394_)) - (let ((_e146063146096_ + _tl146051146399_)) + (let ((_e146068146101_ (let () (declare (not safe)) (gx#stx-e - _tl146046146394_)))) - (let ((_tl146061146101_ + _tl146051146399_)))) + (let ((_tl146066146106_ (let () (declare (not safe)) - (##cdr _e146063146096_))) - (_hd146062146099_ + (##cdr _e146068146101_))) + (_hd146067146104_ (let () (declare (not safe)) - (##car _e146063146096_)))) + (##car _e146068146101_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd146062146099_)) - (let ((_e146066146104_ + _hd146067146104_)) + (let ((_e146071146109_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd146062146099_)))) - (let ((_tl146064146109_ + (gx#stx-e _hd146067146104_)))) + (let ((_tl146069146114_ (let () (declare (not safe)) - (##cdr _e146066146104_))) - (_hd146065146107_ + (##cdr _e146071146109_))) + (_hd146070146112_ (let () (declare (not safe)) - (##car _e146066146104_)))) + (##car _e146071146109_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd146065146107_)) - (let ((_e146069146112_ + (gx#stx-pair? _hd146070146112_)) + (let ((_e146074146117_ (let () (declare (not safe)) - (gx#stx-e _hd146065146107_)))) - (let ((_tl146067146117_ + (gx#stx-e _hd146070146112_)))) + (let ((_tl146072146122_ (let () (declare (not safe)) - (##cdr _e146069146112_))) - (_hd146068146115_ + (##cdr _e146074146117_))) + (_hd146073146120_ (let () (declare (not safe)) - (##car _e146069146112_)))) + (##car _e146074146117_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd146068146115_)) - (let ((_e146072146120_ + (gx#stx-pair? _hd146073146120_)) + (let ((_e146077146125_ (let () (declare (not safe)) - (gx#stx-e _hd146068146115_)))) - (let ((_tl146070146125_ + (gx#stx-e _hd146073146120_)))) + (let ((_tl146075146130_ (let () (declare (not safe)) - (##cdr _e146072146120_))) - (_hd146071146123_ + (##cdr _e146077146125_))) + (_hd146076146128_ (let () (declare (not safe)) - (##car _e146072146120_)))) + (##car _e146077146125_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl146070146125_)) + (gx#stx-null? _tl146075146130_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl146067146117_)) - (let ((_e146075146128_ + _tl146072146122_)) + (let ((_e146080146133_ (let () (declare (not safe)) (gx#stx-e - _tl146067146117_)))) - (let ((_tl146073146133_ + _tl146072146122_)))) + (let ((_tl146078146138_ (let () (declare (not safe)) - (##cdr _e146075146128_))) - (_hd146074146131_ + (##cdr _e146080146133_))) + (_hd146079146136_ (let () (declare (not safe)) - (##car _e146075146128_)))) + (##car _e146080146133_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl146073146133_)) + _tl146078146138_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl146064146109_)) + _tl146069146114_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl146061146101_)) - (let ((_e146078146136_ + (gx#stx-pair? _tl146066146106_)) + (let ((_e146083146141_ (let () (declare (not safe)) - (gx#stx-e _tl146061146101_)))) - (let ((_tl146076146141_ + (gx#stx-e _tl146066146106_)))) + (let ((_tl146081146146_ (let () (declare (not safe)) - (##cdr _e146078146136_))) - (_hd146077146139_ + (##cdr _e146083146141_))) + (_hd146082146144_ (let () (declare (not safe)) - (##car _e146078146136_)))) + (##car _e146083146141_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl146076146141_)) - (___kont147123147124_ - _hd146077146139_ - _hd146074146131_ - _hd146071146123_) + (gx#stx-null? _tl146081146146_)) + (___kont147128147129_ + _hd146082146144_ + _hd146079146136_ + _hd146076146128_) (let () (declare (not safe)) - (_g146043146083_))))) - (let () (declare (not safe)) (_g146043146083_))) - (let () (declare (not safe)) (_g146043146083_))) - (let () (declare (not safe)) (_g146043146083_))))) + (_g146048146088_))))) + (let () (declare (not safe)) (_g146048146088_))) + (let () (declare (not safe)) (_g146048146088_))) + (let () (declare (not safe)) (_g146048146088_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g146043146083_))) + (_g146048146088_))) (let () (declare (not safe)) - (_g146043146083_))))) + (_g146048146088_))))) (let () (declare (not safe)) - (_g146043146083_))))) - (let () (declare (not safe)) (_g146043146083_))))) - (let () (declare (not safe)) (_g146043146083_))))) + (_g146048146088_))))) + (let () (declare (not safe)) (_g146048146088_))))) + (let () (declare (not safe)) (_g146048146088_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g146043146083_))) + (_g146048146088_))) (let () (declare (not safe)) - (_g146043146083_)))) + (_g146048146088_)))) (let () (declare (not safe)) - (_g146043146083_))))) + (_g146048146088_))))) (let () (declare (not safe)) - (_g146043146083_))))))) - _hd145942146004_ - _hd145939145996_ - _hd145936145988_) + (_g146048146088_))))))) + _hd145947146009_ + _hd145944146001_ + _hd145941145993_) (let () (declare (not safe)) - (_g145918145948_ _g145919145951_))))) + (_g145923145953_ _g145924145956_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g145918145948_ - _g145919145951_))) + (_g145923145953_ + _g145924145956_))) (let () (declare (not safe)) - (_g145918145948_ - _g145919145951_))) + (_g145923145953_ + _g145924145956_))) (let () (declare (not safe)) - (_g145918145948_ - _g145919145951_))))) + (_g145923145953_ + _g145924145956_))))) (let () (declare (not safe)) - (_g145918145948_ _g145919145951_))) + (_g145923145953_ _g145924145956_))) (let () (declare (not safe)) - (_g145918145948_ _g145919145951_))))) + (_g145923145953_ _g145924145956_))))) (let () (declare (not safe)) - (_g145918145948_ _g145919145951_))))) + (_g145923145953_ _g145924145956_))))) (let () (declare (not safe)) - (_g145918145948_ _g145919145951_))))) + (_g145923145953_ _g145924145956_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g145918145948_ - _g145919145951_))))) + (_g145923145953_ + _g145924145956_))))) (let () (declare (not safe)) - (_g145918145948_ _g145919145951_))) + (_g145923145953_ _g145924145956_))) (let () (declare (not safe)) - (_g145918145948_ _g145919145951_))) + (_g145923145953_ _g145924145956_))) (let () (declare (not safe)) - (_g145918145948_ _g145919145951_))))) + (_g145923145953_ _g145924145956_))))) (let () (declare (not safe)) - (_g145918145948_ _g145919145951_)))))) + (_g145923145953_ _g145924145956_)))))) (declare (not safe)) - (_g145917146614_ _stx145916_)))) + (_g145922146619_ _stx145921_)))) (define gxc#optimize-match-body - (lambda (_stx145622_ _negation145623_ _clauses145624_ _konts145625_) - (letrec ((_push-variables145627_ - (lambda (_clause145874_ _kont145875_) - (let ((_clause145876145886_ _clause145874_) - (_kont145877145888_ _kont145875_)) - (let* ((_E145879145892_ + (lambda (_stx145627_ _negation145628_ _clauses145629_ _konts145630_) + (letrec ((_push-variables145632_ + (lambda (_clause145879_ _kont145880_) + (let ((_clause145881145891_ _clause145879_) + (_kont145882145893_ _kont145880_)) + (let* ((_E145884145897_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _clause145876145886_ - _kont145877145888_)))) - (_K145880145899_ - (lambda (_clause-lambda145895_ - _clause-name145896_ - _K145897_) - (let ((__tmp150042 + _clause145881145891_ + _kont145882145893_)))) + (_K145885145904_ + (lambda (_clause-lambda145900_ + _clause-name145901_ + _K145902_) + (let ((__tmp150047 (let () (declare (not safe)) (gxc#apply-push-match-vars - _clause-lambda145895_ + _clause-lambda145900_ '() - _K145897_)))) + _K145902_)))) (declare (not safe)) - (cons _clause-name145896_ __tmp150042))))) + (cons _clause-name145901_ __tmp150047))))) (if (let () (declare (not safe)) - (##pair? _clause145876145886_)) - (let ((_hd145883145902_ + (##pair? _clause145881145891_)) + (let ((_hd145888145907_ (let () (declare (not safe)) - (##car _clause145876145886_))) - (_tl145884145904_ + (##car _clause145881145891_))) + (_tl145889145909_ (let () (declare (not safe)) - (##cdr _clause145876145886_)))) - (let* ((_clause-name145907_ _hd145883145902_) - (_clause-lambda145909_ _tl145884145904_)) + (##cdr _clause145881145891_)))) + (let* ((_clause-name145912_ _hd145888145907_) + (_clause-lambda145914_ _tl145889145909_)) (if (let () (declare (not safe)) - (##pair? _kont145877145888_)) - (let* ((_hd145881145911_ + (##pair? _kont145882145893_)) + (let* ((_hd145886145916_ (let () (declare (not safe)) - (##car _kont145877145888_))) - (_K145914_ _hd145881145911_)) + (##car _kont145882145893_))) + (_K145919_ _hd145886145916_)) (declare (not safe)) - (_K145880145899_ - _clause-lambda145909_ - _clause-name145907_ - _K145914_)) + (_K145885145904_ + _clause-lambda145914_ + _clause-name145912_ + _K145919_)) (let () (declare (not safe)) - (_E145879145892_))))) + (_E145884145897_))))) (let () (declare (not safe)) - (_E145879145892_))))))) - (_start-match145628_ - (lambda (_kont145808_) - (let* ((_g145810145826_ - (lambda (_g145811145823_) + (_E145884145897_))))))) + (_start-match145633_ + (lambda (_kont145813_) + (let* ((_g145815145831_ + (lambda (_g145816145828_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g145811145823_)))) - (_g145809145871_ - (lambda (_g145811145829_) + _g145816145828_)))) + (_g145814145876_ + (lambda (_g145816145834_) (if (let () (declare (not safe)) - (gx#stx-pair? _g145811145829_)) - (let ((_e145815145831_ + (gx#stx-pair? _g145816145834_)) + (let ((_e145820145836_ (let () (declare (not safe)) - (gx#stx-e _g145811145829_)))) - (let ((_hd145814145834_ + (gx#stx-e _g145816145834_)))) + (let ((_hd145819145839_ (let () (declare (not safe)) - (##car _e145815145831_))) - (_tl145813145836_ + (##car _e145820145836_))) + (_tl145818145841_ (let () (declare (not safe)) - (##cdr _e145815145831_)))) + (##cdr _e145820145836_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd145814145834_)) + (gx#identifier? _hd145819145839_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd145814145834_)) + _hd145819145839_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl145813145836_)) - (let ((_e145818145839_ + _tl145818145841_)) + (let ((_e145823145844_ (let () (declare (not safe)) (gx#stx-e - _tl145813145836_)))) - (let ((_hd145817145842_ + _tl145818145841_)))) + (let ((_hd145822145847_ (let () (declare (not safe)) - (##car _e145818145839_))) - (_tl145816145844_ + (##car _e145823145844_))) + (_tl145821145849_ (let () (declare (not safe)) - (##cdr _e145818145839_)))) + (##cdr _e145823145844_)))) (if (let () (declare (not safe)) (gx#stx-null? - _hd145817145842_)) + _hd145822145847_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl145816145844_)) - (let ((_e145821145847_ + (gx#stx-pair? _tl145821145849_)) + (let ((_e145826145852_ (let () (declare (not safe)) - (gx#stx-e _tl145816145844_)))) - (let ((_hd145820145850_ + (gx#stx-e _tl145821145849_)))) + (let ((_hd145825145855_ (let () (declare (not safe)) - (##car _e145821145847_))) - (_tl145819145852_ + (##car _e145826145852_))) + (_tl145824145857_ (let () (declare (not safe)) - (##cdr _e145821145847_)))) + (##cdr _e145826145852_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl145819145852_)) - ((lambda (_L145855_) _L145855_) _hd145820145850_) + (gx#stx-null? _tl145824145857_)) + ((lambda (_L145860_) _L145860_) _hd145825145855_) (let () (declare (not safe)) - (_g145810145826_ _g145811145829_))))) + (_g145815145831_ _g145816145834_))))) (let () (declare (not safe)) - (_g145810145826_ _g145811145829_))) + (_g145815145831_ _g145816145834_))) (let () (declare (not safe)) - (_g145810145826_ _g145811145829_))))) + (_g145815145831_ _g145816145834_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g145810145826_ - _g145811145829_))) + (_g145815145831_ + _g145816145834_))) (let () (declare (not safe)) - (_g145810145826_ - _g145811145829_))) + (_g145815145831_ + _g145816145834_))) (let () (declare (not safe)) - (_g145810145826_ - _g145811145829_))))) + (_g145815145831_ + _g145816145834_))))) (let () (declare (not safe)) - (_g145810145826_ _g145811145829_)))))) + (_g145815145831_ _g145816145834_)))))) (declare (not safe)) - (_g145809145871_ _kont145808_)))) - (_match-body145629_ - (lambda (_blocks145705_) - (let* ((_blocks145706145715_ _blocks145705_) - (_E145708145719_ + (_g145814145876_ _kont145813_)))) + (_match-body145634_ + (lambda (_blocks145710_) + (let* ((_blocks145711145720_ _blocks145710_) + (_E145713145724_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _blocks145706145715_)))) - (_K145709145791_ - (lambda (_rest145722_ _start145723_) - (let _lp145725_ ((_rest145727_ _rest145722_) - (_body145728_ + _blocks145711145720_)))) + (_K145714145796_ + (lambda (_rest145727_ _start145728_) + (let _lp145730_ ((_rest145732_ _rest145727_) + (_body145733_ (let () (declare (not safe)) - (_start-match145628_ - _start145723_)))) - (let* ((_rest145729145737_ _rest145727_) - (_else145731145745_ - (lambda () _body145728_)) - (_K145733145779_ - (lambda (_rest145748_ _block145749_) - (let* ((_block145750145757_ - _block145749_) - (_E145752145761_ + (_start-match145633_ + _start145728_)))) + (let* ((_rest145734145742_ _rest145732_) + (_else145736145750_ + (lambda () _body145733_)) + (_K145738145784_ + (lambda (_rest145753_ _block145754_) + (let* ((_block145755145762_ + _block145754_) + (_E145757145766_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _block145750145757_)))) - (_K145753145767_ - (lambda (_kont145764_ - _K145765_) - (let ((__tmp150043 - (let ((__tmp150044 + _block145755145762_)))) + (_K145758145772_ + (lambda (_kont145769_ + _K145770_) + (let ((__tmp150048 + (let ((__tmp150049 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp150046 - (let ((__tmp150047 - (let ((__tmp150049 + (let ((__tmp150051 + (let ((__tmp150052 + (let ((__tmp150054 (let () (declare (not safe)) - (cons _K145765_ '()))) - (__tmp150048 + (cons _K145770_ '()))) + (__tmp150053 (let () (declare (not safe)) - (cons _kont145764_ '())))) + (cons _kont145769_ '())))) (declare (not safe)) - (cons __tmp150049 __tmp150048)))) + (cons __tmp150054 __tmp150053)))) (declare (not safe)) - (cons __tmp150047 '()))) - (__tmp150045 + (cons __tmp150052 '()))) + (__tmp150050 (let () (declare (not safe)) - (cons _body145728_ '())))) + (cons _body145733_ '())))) (declare (not safe)) - (cons __tmp150046 __tmp150045)))) + (cons __tmp150051 __tmp150050)))) (declare (not safe)) - (cons '%#let-values __tmp150044)))) + (cons '%#let-values __tmp150049)))) (declare (not safe)) - (_lp145725_ _rest145748_ __tmp150043))))) + (_lp145730_ _rest145753_ __tmp150048))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _block145750145757_)) - (let ((_hd145754145770_ + (##pair? _block145755145762_)) + (let ((_hd145759145775_ (let () (declare (not safe)) - (##car _block145750145757_))) - (_tl145755145772_ + (##car _block145755145762_))) + (_tl145760145777_ (let () (declare (not safe)) - (##cdr _block145750145757_)))) - (let* ((_K145775_ - _hd145754145770_) - (_kont145777_ - _tl145755145772_)) + (##cdr _block145755145762_)))) + (let* ((_K145780_ + _hd145759145775_) + (_kont145782_ + _tl145760145777_)) (declare (not safe)) - (_K145753145767_ - _kont145777_ - _K145775_))) + (_K145758145772_ + _kont145782_ + _K145780_))) (let () (declare (not safe)) - (_E145752145761_))))))) + (_E145757145766_))))))) (if (let () (declare (not safe)) - (##pair? _rest145729145737_)) - (let ((_hd145734145782_ + (##pair? _rest145734145742_)) + (let ((_hd145739145787_ (let () (declare (not safe)) - (##car _rest145729145737_))) - (_tl145735145784_ + (##car _rest145734145742_))) + (_tl145740145789_ (let () (declare (not safe)) - (##cdr _rest145729145737_)))) - (let* ((_block145787_ _hd145734145782_) - (_rest145789_ _tl145735145784_)) + (##cdr _rest145734145742_)))) + (let* ((_block145792_ _hd145739145787_) + (_rest145794_ _tl145740145789_)) (declare (not safe)) - (_K145733145779_ - _rest145789_ - _block145787_))) + (_K145738145784_ + _rest145794_ + _block145792_))) (let () (declare (not safe)) - (_else145731145745_)))))))) + (_else145736145750_)))))))) (if (let () (declare (not safe)) - (##pair? _blocks145706145715_)) - (let ((_hd145710145794_ + (##pair? _blocks145711145720_)) + (let ((_hd145715145799_ (let () (declare (not safe)) - (##car _blocks145706145715_))) - (_tl145711145796_ + (##car _blocks145711145720_))) + (_tl145716145801_ (let () (declare (not safe)) - (##cdr _blocks145706145715_)))) + (##cdr _blocks145711145720_)))) (if (let () (declare (not safe)) - (##pair? _hd145710145794_)) - (let ((_hd145712145799_ + (##pair? _hd145715145799_)) + (let ((_hd145717145804_ (let () (declare (not safe)) - (##car _hd145710145794_))) - (_tl145713145801_ + (##car _hd145715145799_))) + (_tl145718145806_ (let () (declare (not safe)) - (##cdr _hd145710145794_)))) + (##cdr _hd145715145799_)))) (if (let () (declare (not safe)) - (##eq? _hd145712145799_ '#f)) - (let* ((_start145804_ _tl145713145801_) - (_rest145806_ _tl145711145796_)) + (##eq? _hd145717145804_ '#f)) + (let* ((_start145809_ _tl145718145806_) + (_rest145811_ _tl145716145801_)) (declare (not safe)) - (_K145709145791_ - _rest145806_ - _start145804_)) + (_K145714145796_ + _rest145811_ + _start145809_)) (let () (declare (not safe)) - (_E145708145719_)))) + (_E145713145724_)))) (let () (declare (not safe)) - (_E145708145719_)))) - (let () (declare (not safe)) (_E145708145719_))))))) - (let ((__tmp150051 + (_E145713145724_)))) + (let () (declare (not safe)) (_E145713145724_))))))) + (let ((__tmp150056 (lambda () - (let* ((_clauses145632_ - (map _push-variables145627_ - _clauses145624_ - _konts145625_)) - (_blocks145634_ + (let* ((_clauses145637_ + (map _push-variables145632_ + _clauses145629_ + _konts145630_)) + (_blocks145639_ (let () (declare (not safe)) (gxc#optimize-match-basic-blocks - _clauses145632_))) - (_blocks145636_ + _clauses145637_))) + (_blocks145641_ (let () (declare (not safe)) (gxc#optimize-match-fold-basic-blocks - _blocks145634_))) - (_body145638_ + _blocks145639_))) + (_body145643_ (let () (declare (not safe)) - (_match-body145629_ _blocks145636_))) - (_bind145672_ - (map (lambda (_e145639145641_) - (let* ((_g145643145650_ _e145639145641_) - (_E145645145654_ + (_match-body145634_ _blocks145641_))) + (_bind145677_ + (map (lambda (_e145644145646_) + (let* ((_g145648145655_ _e145644145646_) + (_E145650145659_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _g145643145650_)))) - (_K145646145660_ - (lambda (_kont145657_ _K145658_) - (let ((__tmp150053 + _g145648145655_)))) + (_K145651145665_ + (lambda (_kont145662_ _K145663_) + (let ((__tmp150058 (let () (declare (not safe)) - (cons _K145658_ '()))) - (__tmp150052 + (cons _K145663_ '()))) + (__tmp150057 (let () (declare (not safe)) - (cons _kont145657_ '())))) + (cons _kont145662_ '())))) (declare (not safe)) - (cons __tmp150053 - __tmp150052))))) + (cons __tmp150058 + __tmp150057))))) (if (let () (declare (not safe)) - (##pair? _g145643145650_)) - (let ((_hd145647145663_ + (##pair? _g145648145655_)) + (let ((_hd145652145668_ (let () (declare (not safe)) - (##car _g145643145650_))) - (_tl145648145665_ + (##car _g145648145655_))) + (_tl145653145670_ (let () (declare (not safe)) - (##cdr _g145643145650_)))) - (let* ((_K145668_ _hd145647145663_) - (_kont145670_ - _tl145648145665_)) + (##cdr _g145648145655_)))) + (let* ((_K145673_ _hd145652145668_) + (_kont145675_ + _tl145653145670_)) (declare (not safe)) - (_K145646145660_ - _kont145670_ - _K145668_))) + (_K145651145665_ + _kont145675_ + _K145673_))) (let () (declare (not safe)) - (_E145645145654_))))) - _konts145625_)) - (_negate145702_ - (let* ((_negation145673145680_ _negation145623_) - (_E145675145684_ + (_E145650145659_))))) + _konts145630_)) + (_negate145707_ + (let* ((_negation145678145685_ _negation145628_) + (_E145680145689_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _negation145673145680_)))) - (_K145676145690_ - (lambda (_kont145687_ _K145688_) - (let ((__tmp150055 + _negation145678145685_)))) + (_K145681145695_ + (lambda (_kont145692_ _K145693_) + (let ((__tmp150060 (let () (declare (not safe)) - (cons _K145688_ '()))) - (__tmp150054 + (cons _K145693_ '()))) + (__tmp150059 (let () (declare (not safe)) - (cons _kont145687_ '())))) + (cons _kont145692_ '())))) (declare (not safe)) - (cons __tmp150055 __tmp150054))))) + (cons __tmp150060 __tmp150059))))) (if (let () (declare (not safe)) - (##pair? _negation145673145680_)) - (let ((_hd145677145693_ + (##pair? _negation145678145685_)) + (let ((_hd145682145698_ (let () (declare (not safe)) - (##car _negation145673145680_))) - (_tl145678145695_ + (##car _negation145678145685_))) + (_tl145683145700_ (let () (declare (not safe)) - (##cdr _negation145673145680_)))) - (let* ((_K145698_ _hd145677145693_) - (_kont145700_ _tl145678145695_)) + (##cdr _negation145678145685_)))) + (let* ((_K145703_ _hd145682145698_) + (_kont145705_ _tl145683145700_)) (declare (not safe)) - (_K145676145690_ _kont145700_ _K145698_))) + (_K145681145695_ _kont145705_ _K145703_))) (let () (declare (not safe)) - (_E145675145684_)))))) - (let ((__tmp150056 - (let ((__tmp150057 - (let ((__tmp150062 + (_E145680145689_)))))) + (let ((__tmp150061 + (let ((__tmp150062 + (let ((__tmp150067 (let () (declare (not safe)) - (cons _negate145702_ '()))) - (__tmp150058 - (let ((__tmp150059 - (let ((__tmp150060 - (let ((__tmp150061 + (cons _negate145707_ '()))) + (__tmp150063 + (let ((__tmp150064 + (let ((__tmp150065 + (let ((__tmp150066 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _body145638_ '())))) + (cons _body145643_ '())))) (declare (not safe)) - (cons _bind145672_ __tmp150061)))) + (cons _bind145677_ __tmp150066)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#let-values - __tmp150060)))) + __tmp150065)))) (declare (not safe)) - (cons __tmp150059 '())))) + (cons __tmp150064 '())))) (declare (not safe)) - (cons __tmp150062 __tmp150058)))) + (cons __tmp150067 __tmp150063)))) (declare (not safe)) - (cons '%#let-values __tmp150057)))) + (cons '%#let-values __tmp150062)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp150056 _stx145622_))))) - (__tmp150050 - (let ((__obj149984 + (gxc#xform-wrap-source __tmp150061 _stx145627_))))) + (__tmp150055 + (let ((__obj149989 (let () (declare (not safe)) (##structure @@ -2194,2112 +2194,2112 @@ '#f '#f '#f)))) - (gx#local-context:::init! __obj149984) - __obj149984))) + (gx#local-context:::init! __obj149989) + __obj149989))) (declare (not safe)) (call-with-parameters - __tmp150051 + __tmp150056 gx#current-expander-context - __tmp150050))))) + __tmp150055))))) (define gxc#optimize-match-basic-blocks - (lambda (_clauses145582_) - (let _lp145584_ ((_rest145586_ _clauses145582_) (_blocks145587_ '())) - (let* ((_rest145588145596_ _rest145586_) - (_else145590145604_ (lambda () (reverse _blocks145587_))) - (_K145592145610_ - (lambda (_rest145607_ _clause145608_) - (let ((__tmp150063 + (lambda (_clauses145587_) + (let _lp145589_ ((_rest145591_ _clauses145587_) (_blocks145592_ '())) + (let* ((_rest145593145601_ _rest145591_) + (_else145595145609_ (lambda () (reverse _blocks145592_))) + (_K145597145615_ + (lambda (_rest145612_ _clause145613_) + (let ((__tmp150068 (let () (declare (not safe)) (gxc#optimize-match-lift-basic-blocks - _clause145608_ - _blocks145587_)))) + _clause145613_ + _blocks145592_)))) (declare (not safe)) - (_lp145584_ _rest145607_ __tmp150063))))) - (if (let () (declare (not safe)) (##pair? _rest145588145596_)) - (let ((_hd145593145613_ + (_lp145589_ _rest145612_ __tmp150068))))) + (if (let () (declare (not safe)) (##pair? _rest145593145601_)) + (let ((_hd145598145618_ (let () (declare (not safe)) - (##car _rest145588145596_))) - (_tl145594145615_ + (##car _rest145593145601_))) + (_tl145599145620_ (let () (declare (not safe)) - (##cdr _rest145588145596_)))) - (let* ((_clause145618_ _hd145593145613_) - (_rest145620_ _tl145594145615_)) + (##cdr _rest145593145601_)))) + (let* ((_clause145623_ _hd145598145618_) + (_rest145625_ _tl145599145620_)) (declare (not safe)) - (_K145592145610_ _rest145620_ _clause145618_))) - (let () (declare (not safe)) (_else145590145604_))))))) + (_K145597145615_ _rest145625_ _clause145623_))) + (let () (declare (not safe)) (_else145595145609_))))))) (define gxc#optimize-match-lift-basic-blocks - (lambda (_clause144926_ _blocks144927_) - (letrec ((_bind->args144929_ - (lambda (_bind145577_) - (let ((__tmp150064 - (lambda (_b145579_ _r145580_) - (let ((__tmp150065 - (let ((__tmp150066 - (let ((__tmp150067 (car _b145579_))) + (lambda (_clause144931_ _blocks144932_) + (letrec ((_bind->args144934_ + (lambda (_bind145582_) + (let ((__tmp150069 + (lambda (_b145584_ _r145585_) + (let ((__tmp150070 + (let ((__tmp150071 + (let ((__tmp150072 (car _b145584_))) (declare (not safe)) - (cons __tmp150067 '())))) + (cons __tmp150072 '())))) (declare (not safe)) - (cons '%#ref __tmp150066)))) + (cons '%#ref __tmp150071)))) (declare (not safe)) - (cons __tmp150065 _r145580_))))) + (cons __tmp150070 _r145585_))))) (declare (not safe)) - (foldl1 __tmp150064 '() _bind145577_)))) - (_create-block144930_ - (lambda (_body145526_ - _let-bind145527_ - _bind145528_ - _assert145529_) - (let* ((_id145531_ - (let ((__tmp150068 (gensym '__match))) + (foldl1 __tmp150069 '() _bind145582_)))) + (_create-block144935_ + (lambda (_body145531_ + _let-bind145532_ + _bind145533_ + _assert145534_) + (let* ((_id145536_ + (let ((__tmp150073 (gensym '__match))) (declare (not safe)) - (make-symbol__0 __tmp150068))) - (_id145533_ + (make-symbol__0 __tmp150073))) + (_id145538_ (let () (declare (not safe)) - (gx#core-quote-syntax__0 _id145531_))) - (_g150069_ + (gx#core-quote-syntax__0 _id145536_))) + (_g150074_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _id145533_))) - (_block145536_ - (let ((__tmp150070 - (let ((__tmp150071 - (let ((__tmp150072 + (gx#core-bind-runtime!__0 _id145538_))) + (_block145541_ + (let ((__tmp150075 + (let ((__tmp150076 + (let ((__tmp150077 (let () (declare (not safe)) - (cons _assert145529_ '())))) + (cons _assert145534_ '())))) (declare (not safe)) - (cons _bind145528_ __tmp150072)))) + (cons _bind145533_ __tmp150077)))) (declare (not safe)) - (cons _body145526_ __tmp150071)))) + (cons _body145531_ __tmp150076)))) (declare (not safe)) - (cons _id145533_ __tmp150070))) - (_continue145538_ - (let ((__tmp150073 - (let ((__tmp150075 - (let ((__tmp150076 + (cons _id145538_ __tmp150075))) + (_continue145543_ + (let ((__tmp150078 + (let ((__tmp150080 + (let ((__tmp150081 (let () (declare (not safe)) - (cons _id145533_ '())))) + (cons _id145538_ '())))) (declare (not safe)) - (cons '%#ref __tmp150076))) - (__tmp150074 + (cons '%#ref __tmp150081))) + (__tmp150079 (let () (declare (not safe)) - (_bind->args144929_ - _bind145528_)))) + (_bind->args144934_ + _bind145533_)))) (declare (not safe)) - (cons __tmp150075 __tmp150074)))) + (cons __tmp150080 __tmp150079)))) (declare (not safe)) - (cons '%#call __tmp150073))) - (_continue145574_ + (cons '%#call __tmp150078))) + (_continue145579_ (if (let () (declare (not safe)) - (null? _let-bind145527_)) - _continue145538_ - (let* ((_locals145572_ - (map (lambda (_e145539145541_) - (let* ((_g145543145550_ - _e145539145541_) - (_E145545145554_ + (null? _let-bind145532_)) + _continue145543_ + (let* ((_locals145577_ + (map (lambda (_e145544145546_) + (let* ((_g145548145555_ + _e145544145546_) + (_E145550145559_ (lambda () (let () (declare (not safe)) (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g145543145550_)))) - (_K145546145560_ - (lambda (_expr145557_ _id145558_) - (let ((__tmp150078 - (let () (declare (not safe)) (cons _id145558_ '()))) - (__tmp150077 - (let () (declare (not safe)) (cons _expr145557_ '())))) + _g145548145555_)))) + (_K145551145565_ + (lambda (_expr145562_ _id145563_) + (let ((__tmp150083 + (let () (declare (not safe)) (cons _id145563_ '()))) + (__tmp150082 + (let () (declare (not safe)) (cons _expr145562_ '())))) (declare (not safe)) - (cons __tmp150078 __tmp150077))))) + (cons __tmp150083 __tmp150082))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _g145543145550_)) - (let ((_hd145547145563_ + (##pair? _g145548145555_)) + (let ((_hd145552145568_ (let () (declare (not safe)) - (##car _g145543145550_))) - (_tl145548145565_ + (##car _g145548145555_))) + (_tl145553145570_ (let () (declare (not safe)) - (##cdr _g145543145550_)))) - (let* ((_id145568_ - _hd145547145563_) - (_expr145570_ - _tl145548145565_)) + (##cdr _g145548145555_)))) + (let* ((_id145573_ + _hd145552145568_) + (_expr145575_ + _tl145553145570_)) (declare (not safe)) - (_K145546145560_ - _expr145570_ - _id145568_))) + (_K145551145565_ + _expr145575_ + _id145573_))) (let () (declare (not safe)) - (_E145545145554_))))) - _let-bind145527_)) - (__tmp150079 - (let ((__tmp150080 + (_E145550145559_))))) + _let-bind145532_)) + (__tmp150084 + (let ((__tmp150085 (let () (declare (not safe)) - (cons _continue145538_ '())))) + (cons _continue145543_ '())))) (declare (not safe)) - (cons _locals145572_ __tmp150080)))) + (cons _locals145577_ __tmp150085)))) (declare (not safe)) - (cons '%#let-values __tmp150079))))) - (values _continue145574_ _block145536_)))) - (_basic-block144931_ - (lambda (_body145112_ _bind145113_ _assert145114_) - (let* ((___stx147227147228_ _body145112_) - (_g145119145203_ + (cons '%#let-values __tmp150084))))) + (values _continue145579_ _block145541_)))) + (_basic-block144936_ + (lambda (_body145117_ _bind145118_ _assert145119_) + (let* ((___stx147232147233_ _body145117_) + (_g145124145208_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx147227147228_))))) - (let ((___kont147229147230_ - (lambda (_L145462_ _L145463_ _L145464_) - (let ((_g150081_ - (let ((__tmp150083 - (let ((__tmp150084 + ___stx147232147233_))))) + (let ((___kont147234147235_ + (lambda (_L145467_ _L145468_ _L145469_) + (let ((_g150086_ + (let ((__tmp150088 + (let ((__tmp150089 (let () (declare (not safe)) - (cons _L145464_ '#t)))) + (cons _L145469_ '#t)))) (declare (not safe)) - (cons __tmp150084 - _assert145114_)))) + (cons __tmp150089 + _assert145119_)))) (declare (not safe)) - (_create-block144930_ - _L145463_ + (_create-block144935_ + _L145468_ '() - _bind145113_ - __tmp150083)))) + _bind145118_ + __tmp150088)))) (begin - (let ((_g150082_ + (let ((_g150087_ (let () (declare (not safe)) - (if (##values? _g150081_) - (##vector-length _g150081_) + (if (##values? _g150086_) + (##vector-length _g150086_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g150082_ 2))) + (##fx= _g150087_ 2))) (error "Context expects 2 values" - _g150082_))) - (let ((_k-continue145482_ + _g150087_))) + (let ((_k-continue145487_ (let () (declare (not safe)) - (##vector-ref _g150081_ 0))) - (_k-block145483_ + (##vector-ref _g150086_ 0))) + (_k-block145488_ (let () (declare (not safe)) - (##vector-ref _g150081_ 1)))) - (let* ((___stx147209147210_ _L145462_) - (_g145486145495_ + (##vector-ref _g150086_ 1)))) + (let* ((___stx147214147215_ _L145467_) + (_g145491145500_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx147209147210_))))) - (let ((___kont147211147212_ + ___stx147214147215_))))) + (let ((___kont147216147217_ (lambda () - (values (let ((__tmp150085 - (let ((__tmp150086 + (values (let ((__tmp150090 + (let ((__tmp150091 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp150087 + (let ((__tmp150092 (let () (declare (not safe)) - (cons _L145462_ '())))) + (cons _L145467_ '())))) (declare (not safe)) - (cons _k-continue145482_ __tmp150087)))) + (cons _k-continue145487_ __tmp150092)))) (declare (not safe)) - (cons _L145464_ __tmp150086)))) + (cons _L145469_ __tmp150091)))) (declare (not safe)) - (cons '%#if __tmp150085)) - (let () (declare (not safe)) (cons _k-block145483_ '()))))) + (cons '%#if __tmp150090)) + (let () (declare (not safe)) (cons _k-block145488_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont147213147214_ + (___kont147218147219_ (lambda () - (let ((_g150088_ - (let ((__tmp150090 - (let ((__tmp150091 + (let ((_g150093_ + (let ((__tmp150095 + (let ((__tmp150096 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _L145464_ '#f)))) + (cons _L145469_ '#f)))) (declare (not safe)) - (cons __tmp150091 _assert145114_)))) + (cons __tmp150096 _assert145119_)))) (declare (not safe)) - (_create-block144930_ - _L145462_ + (_create-block144935_ + _L145467_ '() - _bind145113_ - __tmp150090)))) + _bind145118_ + __tmp150095)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (begin - (let ((_g150089_ + (let ((_g150094_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g150088_) - (##vector-length _g150088_) + _g150093_) + (##vector-length _g150093_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g150089_ 2))) - (error "Context expects 2 values" _g150089_))) + (if (not (let () (declare (not safe)) (##fx= _g150094_ 2))) + (error "Context expects 2 values" _g150094_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_e-continue145502_ + (let ((_e-continue145507_ (let () (declare (not safe)) (##vector-ref - _g150088_ + _g150093_ 0))) - (_e-block145503_ + (_e-block145508_ (let () (declare (not safe)) (##vector-ref - _g150088_ + _g150093_ 1)))) - (values (let ((__tmp150092 + (values (let ((__tmp150097 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp150093 - (let ((__tmp150094 + (let ((__tmp150098 + (let ((__tmp150099 (let () (declare (not safe)) - (cons _e-continue145502_ '())))) + (cons _e-continue145507_ '())))) (declare (not safe)) - (cons _k-continue145482_ __tmp150094)))) + (cons _k-continue145487_ __tmp150099)))) (declare (not safe)) - (cons _L145464_ __tmp150093)))) + (cons _L145469_ __tmp150098)))) (declare (not safe)) - (cons '%#if __tmp150092)) - (let ((__tmp150095 + (cons '%#if __tmp150097)) + (let ((__tmp150100 (let () (declare (not safe)) - (cons _e-block145503_ '())))) + (cons _e-block145508_ '())))) (declare (not safe)) - (cons _k-block145483_ __tmp150095))))))))) + (cons _k-block145488_ __tmp150100))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - ___stx147209147210_)) - (let ((_e145490145510_ + ___stx147214147215_)) + (let ((_e145495145515_ (let () (declare (not safe)) (gx#stx-e - ___stx147209147210_)))) - (let ((_tl145488145515_ + ___stx147214147215_)))) + (let ((_tl145493145520_ (let () (declare (not safe)) - (##cdr _e145490145510_))) - (_hd145489145513_ + (##cdr _e145495145515_))) + (_hd145494145518_ (let () (declare (not safe)) - (##car _e145490145510_)))) + (##car _e145495145515_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd145489145513_)) + _hd145494145518_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd145489145513_)) - (___kont147211147212_) - (___kont147213147214_)) - (___kont147213147214_)))) - (___kont147213147214_))))))))) - (___kont147231147232_ - (lambda () (values _body145112_ '()))) - (___kont147235147236_ - (lambda (_L145291_ _L145292_ _L145293_) - (let* ((_let-bind145328_ + _hd145494145518_)) + (___kont147216147217_) + (___kont147218147219_)) + (___kont147218147219_)))) + (___kont147218147219_))))))))) + (___kont147236147237_ + (lambda () (values _body145117_ '()))) + (___kont147240147241_ + (lambda (_L145296_ _L145297_ _L145298_) + (let* ((_let-bind145333_ (map cons - (let ((__tmp150096 - (lambda (_g145313145316_ - _g145314145318_) + (let ((__tmp150101 + (lambda (_g145318145321_ + _g145319145323_) (let () (declare (not safe)) - (cons _g145313145316_ - _g145314145318_))))) + (cons _g145318145321_ + _g145319145323_))))) (declare (not safe)) - (foldr1 __tmp150096 + (foldr1 __tmp150101 '() - _L145293_)) - (let ((__tmp150097 - (lambda (_g145320145323_ - _g145321145325_) + _L145298_)) + (let ((__tmp150102 + (lambda (_g145325145328_ + _g145326145330_) (let () (declare (not safe)) - (cons _g145320145323_ - _g145321145325_))))) + (cons _g145325145328_ + _g145326145330_))))) (declare (not safe)) - (foldr1 __tmp150097 + (foldr1 __tmp150102 '() - _L145292_)))) - (_g150098_ - (let ((__tmp150100 + _L145297_)))) + (_g150103_ + (let ((__tmp150105 (let () (declare (not safe)) (foldl1 cons - _bind145113_ - _let-bind145328_)))) + _bind145118_ + _let-bind145333_)))) (declare (not safe)) - (_create-block144930_ - _L145291_ - _let-bind145328_ - __tmp150100 - _assert145114_)))) + (_create-block144935_ + _L145296_ + _let-bind145333_ + __tmp150105 + _assert145119_)))) (begin - (let ((_g150099_ + (let ((_g150104_ (let () (declare (not safe)) - (if (##values? _g150098_) - (##vector-length _g150098_) + (if (##values? _g150103_) + (##vector-length _g150103_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g150099_ 2))) + (##fx= _g150104_ 2))) (error "Context expects 2 values" - _g150099_))) - (let ((_continue145330_ + _g150104_))) + (let ((_continue145335_ (let () (declare (not safe)) - (##vector-ref _g150098_ 0))) - (_block145331_ + (##vector-ref _g150103_ 0))) + (_block145336_ (let () (declare (not safe)) - (##vector-ref _g150098_ 1)))) + (##vector-ref _g150103_ 1)))) (let () - (values _continue145330_ + (values _continue145335_ (let () (declare (not safe)) - (cons _block145331_ + (cons _block145336_ '()))))))))) - (___kont147239147240_ - (lambda () (values _body145112_ '())))) - (let* ((___match147318147319_ - (lambda (_e145172145215_ - _hd145171145218_ - _tl145170145220_ - _e145175145223_ - _hd145174145226_ - _tl145173145228_ - ___splice147237147238_ - _target145176145231_ - _tl145178145233_) - (letrec ((_loop145179145236_ - (lambda (_hd145177145239_ - _expr145183145241_ - _id145184145243_) + (___kont147244147245_ + (lambda () (values _body145117_ '())))) + (let* ((___match147323147324_ + (lambda (_e145177145220_ + _hd145176145223_ + _tl145175145225_ + _e145180145228_ + _hd145179145231_ + _tl145178145233_ + ___splice147242147243_ + _target145181145236_ + _tl145183145238_) + (letrec ((_loop145184145241_ + (lambda (_hd145182145244_ + _expr145188145246_ + _id145189145248_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd145177145239_)) - (let ((_e145180145246_ + _hd145182145244_)) + (let ((_e145185145251_ (let () (declare (not safe)) (gx#stx-e - _hd145177145239_)))) - (let ((_lp-tl145182145251_ + _hd145182145244_)))) + (let ((_lp-tl145187145256_ (let () (declare (not safe)) - (##cdr _e145180145246_))) - (_lp-hd145181145249_ + (##cdr _e145185145251_))) + (_lp-hd145186145254_ (let () (declare (not safe)) - (##car _e145180145246_)))) + (##car _e145185145251_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd145181145249_)) - (let ((_e145189145254_ + _lp-hd145186145254_)) + (let ((_e145194145259_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _lp-hd145181145249_)))) - (let ((_tl145187145259_ + (gx#stx-e _lp-hd145186145254_)))) + (let ((_tl145192145264_ (let () (declare (not safe)) - (##cdr _e145189145254_))) - (_hd145188145257_ + (##cdr _e145194145259_))) + (_hd145193145262_ (let () (declare (not safe)) - (##car _e145189145254_)))) + (##car _e145194145259_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd145188145257_)) - (let ((_e145192145262_ + (gx#stx-pair? _hd145193145262_)) + (let ((_e145197145267_ (let () (declare (not safe)) - (gx#stx-e _hd145188145257_)))) - (let ((_tl145190145267_ + (gx#stx-e _hd145193145262_)))) + (let ((_tl145195145272_ (let () (declare (not safe)) - (##cdr _e145192145262_))) - (_hd145191145265_ + (##cdr _e145197145267_))) + (_hd145196145270_ (let () (declare (not safe)) - (##car _e145192145262_)))) + (##car _e145197145267_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl145190145267_)) + (gx#stx-null? _tl145195145272_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl145187145259_)) - (let ((_e145195145270_ + (gx#stx-pair? _tl145192145264_)) + (let ((_e145200145275_ (let () (declare (not safe)) - (gx#stx-e _tl145187145259_)))) - (let ((_tl145193145275_ + (gx#stx-e _tl145192145264_)))) + (let ((_tl145198145280_ (let () (declare (not safe)) - (##cdr _e145195145270_))) - (_hd145194145273_ + (##cdr _e145200145275_))) + (_hd145199145278_ (let () (declare (not safe)) - (##car _e145195145270_)))) + (##car _e145200145275_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl145193145275_)) - (let ((__tmp150102 + _tl145198145280_)) + (let ((__tmp150107 (let () (declare (not safe)) - (cons _hd145194145273_ - _expr145183145241_))) - (__tmp150101 + (cons _hd145199145278_ + _expr145188145246_))) + (__tmp150106 (let () (declare (not safe)) - (cons _hd145191145265_ - _id145184145243_)))) + (cons _hd145196145270_ + _id145189145248_)))) (declare (not safe)) - (_loop145179145236_ - _lp-tl145182145251_ - __tmp150102 - __tmp150101)) - (___kont147239147240_)))) - (___kont147239147240_)) - (___kont147239147240_)))) - (___kont147239147240_)))) - (___kont147239147240_)))) + (_loop145184145241_ + _lp-tl145187145256_ + __tmp150107 + __tmp150106)) + (___kont147244147245_)))) + (___kont147244147245_)) + (___kont147244147245_)))) + (___kont147244147245_)))) + (___kont147244147245_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_id145186145280_ - (reverse _id145184145243_)) - (_expr145185145278_ - (reverse _expr145183145241_))) + (let ((_id145191145285_ + (reverse _id145189145248_)) + (_expr145190145283_ + (reverse _expr145188145246_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl145173145228_)) - (let ((_e145198145283_ + _tl145178145233_)) + (let ((_e145203145288_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl145173145228_)))) - (let ((_tl145196145288_ - (let () (declare (not safe)) (##cdr _e145198145283_))) - (_hd145197145286_ + (gx#stx-e _tl145178145233_)))) + (let ((_tl145201145293_ + (let () (declare (not safe)) (##cdr _e145203145288_))) + (_hd145202145291_ (let () (declare (not safe)) - (##car _e145198145283_)))) + (##car _e145203145288_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl145196145288_)) - (___kont147235147236_ - _hd145197145286_ - _expr145185145278_ - _id145186145280_) - (___kont147239147240_)))) - (___kont147239147240_))))))) + (gx#stx-null? _tl145201145293_)) + (___kont147240147241_ + _hd145202145291_ + _expr145190145283_ + _id145191145285_) + (___kont147244147245_)))) + (___kont147244147245_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop145179145236_ - _target145176145231_ + (_loop145184145241_ + _target145181145236_ '() '()))))) - (___match147294147295_ - (lambda (_e145138145339_ - _hd145137145342_ - _tl145136145344_ - _e145141145347_ - _hd145140145350_ - _tl145139145352_ - ___splice147233147234_ - _target145142145355_ - _tl145144145357_) - (letrec ((_loop145145145360_ - (lambda (_hd145143145363_) + (___match147299147300_ + (lambda (_e145143145344_ + _hd145142145347_ + _tl145141145349_ + _e145146145352_ + _hd145145145355_ + _tl145144145357_ + ___splice147238147239_ + _target145147145360_ + _tl145149145362_) + (letrec ((_loop145150145365_ + (lambda (_hd145148145368_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd145143145363_)) - (let ((_e145146145366_ + _hd145148145368_)) + (let ((_e145151145371_ (let () (declare (not safe)) (gx#stx-e - _hd145143145363_)))) - (let ((_lp-tl145148145371_ + _hd145148145368_)))) + (let ((_lp-tl145153145376_ (let () (declare (not safe)) - (##cdr _e145146145366_))) - (_lp-hd145147145369_ + (##cdr _e145151145371_))) + (_lp-hd145152145374_ (let () (declare (not safe)) - (##car _e145146145366_)))) + (##car _e145151145371_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd145147145369_)) - (let ((_e145151145374_ + _lp-hd145152145374_)) + (let ((_e145156145379_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _lp-hd145147145369_)))) - (let ((_tl145149145379_ + (gx#stx-e _lp-hd145152145374_)))) + (let ((_tl145154145384_ (let () (declare (not safe)) - (##cdr _e145151145374_))) - (_hd145150145377_ + (##cdr _e145156145379_))) + (_hd145155145382_ (let () (declare (not safe)) - (##car _e145151145374_)))) + (##car _e145156145379_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd145150145377_)) - (let ((_e145154145382_ + (gx#stx-pair? _hd145155145382_)) + (let ((_e145159145387_ (let () (declare (not safe)) - (gx#stx-e _hd145150145377_)))) - (let ((_tl145152145387_ + (gx#stx-e _hd145155145382_)))) + (let ((_tl145157145392_ (let () (declare (not safe)) - (##cdr _e145154145382_))) - (_hd145153145385_ + (##cdr _e145159145387_))) + (_hd145158145390_ (let () (declare (not safe)) - (##car _e145154145382_)))) + (##car _e145159145387_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl145152145387_)) + (gx#stx-null? _tl145157145392_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl145149145379_)) - (let ((_e145157145390_ + (gx#stx-pair? _tl145154145384_)) + (let ((_e145162145395_ (let () (declare (not safe)) - (gx#stx-e _tl145149145379_)))) - (let ((_tl145155145395_ + (gx#stx-e _tl145154145384_)))) + (let ((_tl145160145400_ (let () (declare (not safe)) - (##cdr _e145157145390_))) - (_hd145156145393_ + (##cdr _e145162145395_))) + (_hd145161145398_ (let () (declare (not safe)) - (##car _e145157145390_)))) + (##car _e145162145395_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd145156145393_)) - (let ((_e145160145398_ + _hd145161145398_)) + (let ((_e145165145403_ (let () (declare (not safe)) (gx#stx-e - _hd145156145393_)))) - (let ((_tl145158145403_ + _hd145161145398_)))) + (let ((_tl145163145408_ (let () (declare (not safe)) - (##cdr _e145160145398_))) - (_hd145159145401_ + (##cdr _e145165145403_))) + (_hd145164145406_ (let () (declare (not safe)) - (##car _e145160145398_)))) + (##car _e145165145403_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd145159145401_)) + _hd145164145406_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd145159145401_)) + _hd145164145406_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl145158145403_)) - (let ((_e145163145406_ + (gx#stx-pair? _tl145163145408_)) + (let ((_e145168145411_ (let () (declare (not safe)) - (gx#stx-e _tl145158145403_)))) - (let ((_tl145161145411_ + (gx#stx-e _tl145163145408_)))) + (let ((_tl145166145416_ (let () (declare (not safe)) - (##cdr _e145163145406_))) - (_hd145162145409_ + (##cdr _e145168145411_))) + (_hd145167145414_ (let () (declare (not safe)) - (##car _e145163145406_)))) + (##car _e145168145411_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl145161145411_)) + (gx#stx-null? _tl145166145416_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl145155145395_)) + (gx#stx-null? _tl145160145400_)) (let () (declare (not safe)) - (_loop145145145360_ _lp-tl145148145371_)) - (___match147318147319_ - _e145138145339_ - _hd145137145342_ - _tl145136145344_ - _e145141145347_ - _hd145140145350_ - _tl145139145352_ - ___splice147233147234_ - _target145142145355_ - _tl145144145357_)) - (___match147318147319_ - _e145138145339_ - _hd145137145342_ - _tl145136145344_ - _e145141145347_ - _hd145140145350_ - _tl145139145352_ - ___splice147233147234_ - _target145142145355_ - _tl145144145357_)))) - (___match147318147319_ - _e145138145339_ - _hd145137145342_ - _tl145136145344_ - _e145141145347_ - _hd145140145350_ - _tl145139145352_ - ___splice147233147234_ - _target145142145355_ - _tl145144145357_)) - (___match147318147319_ - _e145138145339_ - _hd145137145342_ - _tl145136145344_ - _e145141145347_ - _hd145140145350_ - _tl145139145352_ - ___splice147233147234_ - _target145142145355_ - _tl145144145357_)) - (___match147318147319_ - _e145138145339_ - _hd145137145342_ - _tl145136145344_ - _e145141145347_ - _hd145140145350_ - _tl145139145352_ - ___splice147233147234_ - _target145142145355_ - _tl145144145357_)))) + (_loop145150145365_ _lp-tl145153145376_)) + (___match147323147324_ + _e145143145344_ + _hd145142145347_ + _tl145141145349_ + _e145146145352_ + _hd145145145355_ + _tl145144145357_ + ___splice147238147239_ + _target145147145360_ + _tl145149145362_)) + (___match147323147324_ + _e145143145344_ + _hd145142145347_ + _tl145141145349_ + _e145146145352_ + _hd145145145355_ + _tl145144145357_ + ___splice147238147239_ + _target145147145360_ + _tl145149145362_)))) + (___match147323147324_ + _e145143145344_ + _hd145142145347_ + _tl145141145349_ + _e145146145352_ + _hd145145145355_ + _tl145144145357_ + ___splice147238147239_ + _target145147145360_ + _tl145149145362_)) + (___match147323147324_ + _e145143145344_ + _hd145142145347_ + _tl145141145349_ + _e145146145352_ + _hd145145145355_ + _tl145144145357_ + ___splice147238147239_ + _target145147145360_ + _tl145149145362_)) + (___match147323147324_ + _e145143145344_ + _hd145142145347_ + _tl145141145349_ + _e145146145352_ + _hd145145145355_ + _tl145144145357_ + ___splice147238147239_ + _target145147145360_ + _tl145149145362_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match147318147319_ - _e145138145339_ - _hd145137145342_ - _tl145136145344_ - _e145141145347_ - _hd145140145350_ - _tl145139145352_ - ___splice147233147234_ - _target145142145355_ - _tl145144145357_)))) - (___match147318147319_ - _e145138145339_ - _hd145137145342_ - _tl145136145344_ - _e145141145347_ - _hd145140145350_ - _tl145139145352_ - ___splice147233147234_ - _target145142145355_ - _tl145144145357_)) - (___match147318147319_ - _e145138145339_ - _hd145137145342_ - _tl145136145344_ - _e145141145347_ - _hd145140145350_ - _tl145139145352_ - ___splice147233147234_ - _target145142145355_ - _tl145144145357_)))) - (___match147318147319_ - _e145138145339_ - _hd145137145342_ - _tl145136145344_ - _e145141145347_ - _hd145140145350_ - _tl145139145352_ - ___splice147233147234_ - _target145142145355_ - _tl145144145357_)))) - (___match147318147319_ - _e145138145339_ - _hd145137145342_ - _tl145136145344_ - _e145141145347_ - _hd145140145350_ - _tl145139145352_ - ___splice147233147234_ - _target145142145355_ - _tl145144145357_)))) + (___match147323147324_ + _e145143145344_ + _hd145142145347_ + _tl145141145349_ + _e145146145352_ + _hd145145145355_ + _tl145144145357_ + ___splice147238147239_ + _target145147145360_ + _tl145149145362_)))) + (___match147323147324_ + _e145143145344_ + _hd145142145347_ + _tl145141145349_ + _e145146145352_ + _hd145145145355_ + _tl145144145357_ + ___splice147238147239_ + _target145147145360_ + _tl145149145362_)) + (___match147323147324_ + _e145143145344_ + _hd145142145347_ + _tl145141145349_ + _e145146145352_ + _hd145145145355_ + _tl145144145357_ + ___splice147238147239_ + _target145147145360_ + _tl145149145362_)))) + (___match147323147324_ + _e145143145344_ + _hd145142145347_ + _tl145141145349_ + _e145146145352_ + _hd145145145355_ + _tl145144145357_ + ___splice147238147239_ + _target145147145360_ + _tl145149145362_)))) + (___match147323147324_ + _e145143145344_ + _hd145142145347_ + _tl145141145349_ + _e145146145352_ + _hd145145145355_ + _tl145144145357_ + ___splice147238147239_ + _target145147145360_ + _tl145149145362_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (if (let () (declare (not safe)) (gx#stx-pair? - _tl145139145352_)) - (let ((_e145166145415_ + _tl145144145357_)) + (let ((_e145171145420_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl145139145352_)))) - (let ((_tl145164145420_ - (let () (declare (not safe)) (##cdr _e145166145415_))) - (_hd145165145418_ + (gx#stx-e _tl145144145357_)))) + (let ((_tl145169145425_ + (let () (declare (not safe)) (##cdr _e145171145420_))) + (_hd145170145423_ (let () (declare (not safe)) - (##car _e145166145415_)))) + (##car _e145171145420_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl145164145420_)) - (___kont147231147232_) - (___match147318147319_ - _e145138145339_ - _hd145137145342_ - _tl145136145344_ - _e145141145347_ - _hd145140145350_ - _tl145139145352_ - ___splice147233147234_ - _target145142145355_ - _tl145144145357_)))) - (___match147318147319_ - _e145138145339_ - _hd145137145342_ - _tl145136145344_ - _e145141145347_ - _hd145140145350_ - _tl145139145352_ - ___splice147233147234_ - _target145142145355_ - _tl145144145357_))))))) + (gx#stx-null? _tl145169145425_)) + (___kont147236147237_) + (___match147323147324_ + _e145143145344_ + _hd145142145347_ + _tl145141145349_ + _e145146145352_ + _hd145145145355_ + _tl145144145357_ + ___splice147238147239_ + _target145147145360_ + _tl145149145362_)))) + (___match147323147324_ + _e145143145344_ + _hd145142145347_ + _tl145141145349_ + _e145146145352_ + _hd145145145355_ + _tl145144145357_ + ___splice147238147239_ + _target145147145360_ + _tl145149145362_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop145145145360_ - _target145142145355_)))))) + (_loop145150145365_ + _target145147145360_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx147227147228_)) - (let ((_e145126145430_ + (gx#stx-pair? ___stx147232147233_)) + (let ((_e145131145435_ (let () (declare (not safe)) - (gx#stx-e ___stx147227147228_)))) - (let ((_tl145124145435_ + (gx#stx-e ___stx147232147233_)))) + (let ((_tl145129145440_ (let () (declare (not safe)) - (##cdr _e145126145430_))) - (_hd145125145433_ + (##cdr _e145131145435_))) + (_hd145130145438_ (let () (declare (not safe)) - (##car _e145126145430_)))) + (##car _e145131145435_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd145125145433_)) + (gx#identifier? _hd145130145438_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _hd145125145433_)) + _hd145130145438_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl145124145435_)) - (let ((_e145129145438_ + _tl145129145440_)) + (let ((_e145134145443_ (let () (declare (not safe)) (gx#stx-e - _tl145124145435_)))) - (let ((_tl145127145443_ + _tl145129145440_)))) + (let ((_tl145132145448_ (let () (declare (not safe)) - (##cdr _e145129145438_))) - (_hd145128145441_ + (##cdr _e145134145443_))) + (_hd145133145446_ (let () (declare (not safe)) - (##car _e145129145438_)))) + (##car _e145134145443_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl145127145443_)) - (let ((_e145132145446_ + _tl145132145448_)) + (let ((_e145137145451_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl145127145443_)))) - (let ((_tl145130145451_ - (let () (declare (not safe)) (##cdr _e145132145446_))) - (_hd145131145449_ - (let () (declare (not safe)) (##car _e145132145446_)))) + (gx#stx-e _tl145132145448_)))) + (let ((_tl145135145456_ + (let () (declare (not safe)) (##cdr _e145137145451_))) + (_hd145136145454_ + (let () (declare (not safe)) (##car _e145137145451_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl145130145451_)) - (let ((_e145135145454_ + (gx#stx-pair? _tl145135145456_)) + (let ((_e145140145459_ (let () (declare (not safe)) - (gx#stx-e _tl145130145451_)))) - (let ((_tl145133145459_ + (gx#stx-e _tl145135145456_)))) + (let ((_tl145138145464_ (let () (declare (not safe)) - (##cdr _e145135145454_))) - (_hd145134145457_ + (##cdr _e145140145459_))) + (_hd145139145462_ (let () (declare (not safe)) - (##car _e145135145454_)))) + (##car _e145140145459_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl145133145459_)) - (___kont147229147230_ - _hd145134145457_ - _hd145131145449_ - _hd145128145441_) - (___kont147239147240_)))) - (___kont147239147240_)))) - (___kont147239147240_)))) + (gx#stx-null? _tl145138145464_)) + (___kont147234147235_ + _hd145139145462_ + _hd145136145454_ + _hd145133145446_) + (___kont147244147245_)))) + (___kont147244147245_)))) + (___kont147244147245_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont147239147240_)) + (___kont147244147245_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd145125145433_)) + _hd145130145438_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl145124145435_)) - (let ((_e145141145347_ + _tl145129145440_)) + (let ((_e145146145352_ (let () (declare (not safe)) (gx#stx-e - _tl145124145435_)))) - (let ((_tl145139145352_ + _tl145129145440_)))) + (let ((_tl145144145357_ (let () (declare (not safe)) - (##cdr _e145141145347_))) - (_hd145140145350_ + (##cdr _e145146145352_))) + (_hd145145145355_ (let () (declare (not safe)) - (##car _e145141145347_)))) + (##car _e145146145352_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd145140145350_)) - (let ((___splice147233147234_ + _hd145145145355_)) + (let ((___splice147238147239_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _hd145140145350_ '0)))) - (let ((_tl145144145357_ + (gx#syntax-split-splice _hd145145145355_ '0)))) + (let ((_tl145149145362_ (let () (declare (not safe)) - (##vector-ref ___splice147233147234_ '1))) - (_target145142145355_ + (##vector-ref ___splice147238147239_ '1))) + (_target145147145360_ (let () (declare (not safe)) - (##vector-ref ___splice147233147234_ '0)))) + (##vector-ref ___splice147238147239_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl145144145357_)) - (___match147294147295_ - _e145126145430_ - _hd145125145433_ - _tl145124145435_ - _e145141145347_ - _hd145140145350_ - _tl145139145352_ - ___splice147233147234_ - _target145142145355_ - _tl145144145357_) - (___kont147239147240_)))) - (___kont147239147240_)))) + (gx#stx-null? _tl145149145362_)) + (___match147299147300_ + _e145131145435_ + _hd145130145438_ + _tl145129145440_ + _e145146145352_ + _hd145145145355_ + _tl145144145357_ + ___splice147238147239_ + _target145147145360_ + _tl145149145362_) + (___kont147244147245_)))) + (___kont147244147245_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont147239147240_)) - (___kont147239147240_))) - (___kont147239147240_)))) - (___kont147239147240_))))))) - (_fold-blocks144932_ - (lambda (_rest145031_ _blocks145032_) - (let* ((_rest145033145050_ _rest145031_) - (_E145036145054_ + (___kont147244147245_)) + (___kont147244147245_))) + (___kont147244147245_)))) + (___kont147244147245_))))))) + (_fold-blocks144937_ + (lambda (_rest145036_ _blocks145037_) + (let* ((_rest145038145055_ _rest145036_) + (_E145041145059_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _rest145033145050_))))) - (let ((_K145038145074_ - (lambda (_rest145065_ - _assert145066_ - _bind145067_ - _body145068_ - _name145069_) - (let ((_g150103_ + _rest145038145055_))))) + (let ((_K145043145079_ + (lambda (_rest145070_ + _assert145071_ + _bind145072_ + _body145073_ + _name145074_) + (let ((_g150108_ (let () (declare (not safe)) - (_basic-block144931_ - _body145068_ - _bind145067_ - _assert145066_)))) + (_basic-block144936_ + _body145073_ + _bind145072_ + _assert145071_)))) (begin - (let ((_g150104_ + (let ((_g150109_ (let () (declare (not safe)) - (if (##values? _g150103_) - (##vector-length _g150103_) + (if (##values? _g150108_) + (##vector-length _g150108_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g150104_ 2))) + (##fx= _g150109_ 2))) (error "Context expects 2 values" - _g150104_))) - (let ((_body145071_ + _g150109_))) + (let ((_body145076_ (let () (declare (not safe)) - (##vector-ref _g150103_ 0))) - (_body-blocks145072_ + (##vector-ref _g150108_ 0))) + (_body-blocks145077_ (let () (declare (not safe)) - (##vector-ref _g150103_ 1)))) - (let ((__tmp150115 + (##vector-ref _g150108_ 1)))) + (let ((__tmp150120 (let () (declare (not safe)) (foldl1 cons - _rest145065_ - _body-blocks145072_))) - (__tmp150105 - (let ((__tmp150106 - (let ((__tmp150107 - (let ((__tmp150108 + _rest145070_ + _body-blocks145077_))) + (__tmp150110 + (let ((__tmp150111 + (let ((__tmp150112 + (let ((__tmp150113 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp150111 - (let ((__tmp150112 - (let ((__tmp150114 - (reverse (map car _bind145067_))) - (__tmp150113 + (let ((__tmp150116 + (let ((__tmp150117 + (let ((__tmp150119 + (reverse (map car _bind145072_))) + (__tmp150118 (let () (declare (not safe)) - (cons _body145071_ '())))) + (cons _body145076_ '())))) (declare (not safe)) - (cons __tmp150114 __tmp150113)))) + (cons __tmp150119 __tmp150118)))) (declare (not safe)) - (cons '%#lambda __tmp150112))) - (__tmp150109 - (let ((__tmp150110 + (cons '%#lambda __tmp150117))) + (__tmp150114 + (let ((__tmp150115 (let () (declare (not safe)) - (cons _bind145067_ '())))) + (cons _bind145072_ '())))) (declare (not safe)) - (cons _assert145066_ __tmp150110)))) + (cons _assert145071_ __tmp150115)))) (declare (not safe)) - (cons __tmp150111 __tmp150109)))) + (cons __tmp150116 __tmp150114)))) (declare (not safe)) - (cons 'continue: __tmp150108)))) + (cons 'continue: __tmp150113)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _name145069_ - __tmp150107)))) + (cons _name145074_ + __tmp150112)))) (declare (not safe)) - (cons __tmp150106 - _blocks145032_)))) + (cons __tmp150111 + _blocks145037_)))) (declare (not safe)) - (_fold-blocks144932_ - __tmp150115 - __tmp150105))))))) - (_K145037145059_ (lambda () _blocks145032_))) - (let ((_try-match145035145062_ + (_fold-blocks144937_ + __tmp150120 + __tmp150110))))))) + (_K145042145064_ (lambda () _blocks145037_))) + (let ((_try-match145040145067_ (lambda () (if (let () (declare (not safe)) - (##null? _rest145033145050_)) + (##null? _rest145038145055_)) (let () (declare (not safe)) - (_K145037145059_)) + (_K145042145064_)) (let () (declare (not safe)) - (_E145036145054_)))))) + (_E145041145059_)))))) (if (let () (declare (not safe)) - (##pair? _rest145033145050_)) - (let ((_tl145040145079_ + (##pair? _rest145038145055_)) + (let ((_tl145045145084_ (let () (declare (not safe)) - (##cdr _rest145033145050_))) - (_hd145039145077_ + (##cdr _rest145038145055_))) + (_hd145044145082_ (let () (declare (not safe)) - (##car _rest145033145050_)))) + (##car _rest145038145055_)))) (if (let () (declare (not safe)) - (##pair? _hd145039145077_)) - (let ((_tl145042145084_ + (##pair? _hd145044145082_)) + (let ((_tl145047145089_ (let () (declare (not safe)) - (##cdr _hd145039145077_))) - (_hd145041145082_ + (##cdr _hd145044145082_))) + (_hd145046145087_ (let () (declare (not safe)) - (##car _hd145039145077_)))) + (##car _hd145044145082_)))) (if (let () (declare (not safe)) - (##pair? _tl145042145084_)) - (let ((_tl145044145091_ + (##pair? _tl145047145089_)) + (let ((_tl145049145096_ (let () (declare (not safe)) - (##cdr _tl145042145084_))) - (_hd145043145089_ + (##cdr _tl145047145089_))) + (_hd145048145094_ (let () (declare (not safe)) - (##car _tl145042145084_)))) + (##car _tl145047145089_)))) (if (let () (declare (not safe)) - (##pair? _tl145044145091_)) - (let ((_tl145046145098_ + (##pair? _tl145049145096_)) + (let ((_tl145051145103_ (let () (declare (not safe)) - (##cdr _tl145044145091_))) - (_hd145045145096_ + (##cdr _tl145049145096_))) + (_hd145050145101_ (let () (declare (not safe)) - (##car _tl145044145091_)))) + (##car _tl145049145096_)))) (if (let () (declare (not safe)) - (##pair? _tl145046145098_)) - (let ((_tl145048145105_ + (##pair? _tl145051145103_)) + (let ((_tl145053145110_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _tl145046145098_))) - (_hd145047145103_ - (let () (declare (not safe)) (##car _tl145046145098_)))) - (if (let () (declare (not safe)) (##null? _tl145048145105_)) - (let ((_name145087_ _hd145041145082_) - (_body145094_ _hd145043145089_) - (_bind145101_ _hd145045145096_) - (_assert145108_ _hd145047145103_) - (_rest145110_ _tl145040145079_)) + (##cdr _tl145051145103_))) + (_hd145052145108_ + (let () (declare (not safe)) (##car _tl145051145103_)))) + (if (let () (declare (not safe)) (##null? _tl145053145110_)) + (let ((_name145092_ _hd145046145087_) + (_body145099_ _hd145048145094_) + (_bind145106_ _hd145050145101_) + (_assert145113_ _hd145052145108_) + (_rest145115_ _tl145045145084_)) (let () (declare (not safe)) - (_K145038145074_ - _rest145110_ - _assert145108_ - _bind145101_ - _body145094_ - _name145087_))) - (let () (declare (not safe)) (_E145036145054_)))) - (let () (declare (not safe)) (_E145036145054_)))) + (_K145043145079_ + _rest145115_ + _assert145113_ + _bind145106_ + _body145099_ + _name145092_))) + (let () (declare (not safe)) (_E145041145059_)))) + (let () (declare (not safe)) (_E145041145059_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_E145036145054_)))) + (_E145041145059_)))) (let () (declare (not safe)) - (_E145036145054_)))) + (_E145041145059_)))) (let () (declare (not safe)) - (_E145036145054_)))) + (_E145041145059_)))) (let () (declare (not safe)) - (_try-match145035145062_))))))))) - (let* ((_clause144933144940_ _clause144926_) - (_E144935144944_ + (_try-match145040145067_))))))))) + (let* ((_clause144938144945_ _clause144931_) + (_E144940144949_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _clause144933144940_)))) - (_K144936145019_ - (lambda (_body144947_ _name144948_) - (let* ((_g144950144966_ - (lambda (_g144951144963_) + (error '"No clause matching" _clause144938144945_)))) + (_K144941145024_ + (lambda (_body144952_ _name144953_) + (let* ((_g144955144971_ + (lambda (_g144956144968_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g144951144963_)))) - (_g144949145016_ - (lambda (_g144951144969_) + _g144956144968_)))) + (_g144954145021_ + (lambda (_g144956144974_) (if (let () (declare (not safe)) - (gx#stx-pair? _g144951144969_)) - (let ((_e144955144971_ + (gx#stx-pair? _g144956144974_)) + (let ((_e144960144976_ (let () (declare (not safe)) - (gx#stx-e _g144951144969_)))) - (let ((_hd144954144974_ + (gx#stx-e _g144956144974_)))) + (let ((_hd144959144979_ (let () (declare (not safe)) - (##car _e144955144971_))) - (_tl144953144976_ + (##car _e144960144976_))) + (_tl144958144981_ (let () (declare (not safe)) - (##cdr _e144955144971_)))) + (##cdr _e144960144976_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd144954144974_)) + (gx#identifier? _hd144959144979_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd144954144974_)) + _hd144959144979_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl144953144976_)) - (let ((_e144958144979_ + _tl144958144981_)) + (let ((_e144963144984_ (let () (declare (not safe)) (gx#stx-e - _tl144953144976_)))) - (let ((_hd144957144982_ + _tl144958144981_)))) + (let ((_hd144962144987_ (let () (declare (not safe)) - (##car _e144958144979_))) - (_tl144956144984_ + (##car _e144963144984_))) + (_tl144961144989_ (let () (declare (not safe)) - (##cdr _e144958144979_)))) + (##cdr _e144963144984_)))) (if (let () (declare (not safe)) (gx#stx-null? - _hd144957144982_)) + _hd144962144987_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl144956144984_)) - (let ((_e144961144987_ + (gx#stx-pair? _tl144961144989_)) + (let ((_e144966144992_ (let () (declare (not safe)) - (gx#stx-e _tl144956144984_)))) - (let ((_hd144960144990_ + (gx#stx-e _tl144961144989_)))) + (let ((_hd144965144995_ (let () (declare (not safe)) - (##car _e144961144987_))) - (_tl144959144992_ + (##car _e144966144992_))) + (_tl144964144997_ (let () (declare (not safe)) - (##cdr _e144961144987_)))) + (##cdr _e144966144992_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl144959144992_)) - ((lambda (_L144995_) - (let ((_g150116_ + (gx#stx-null? _tl144964144997_)) + ((lambda (_L145000_) + (let ((_g150121_ (let () (declare (not safe)) - (_basic-block144931_ - _L144995_ + (_basic-block144936_ + _L145000_ '() '())))) (begin - (let ((_g150117_ + (let ((_g150122_ (let () (declare (not safe)) - (if (##values? _g150116_) - (##vector-length _g150116_) + (if (##values? _g150121_) + (##vector-length _g150121_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g150117_ 2))) + (##fx= _g150122_ 2))) (error "Context expects 2 values" - _g150117_))) - (let ((_body145013_ + _g150122_))) + (let ((_body145018_ (let () (declare (not safe)) - (##vector-ref _g150116_ 0))) - (_body-blocks145014_ + (##vector-ref _g150121_ 0))) + (_body-blocks145019_ (let () (declare (not safe)) - (##vector-ref _g150116_ 1)))) - (let ((__tmp150118 - (let ((__tmp150119 - (let ((__tmp150120 - (let ((__tmp150121 + (##vector-ref _g150121_ 1)))) + (let ((__tmp150123 + (let ((__tmp150124 + (let ((__tmp150125 + (let ((__tmp150126 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp150123 - (let ((__tmp150124 - (let ((__tmp150125 + (let ((__tmp150128 + (let ((__tmp150129 + (let ((__tmp150130 (let () (declare (not safe)) - (cons _body145013_ '())))) + (cons _body145018_ '())))) (declare (not safe)) - (cons '() __tmp150125)))) + (cons '() __tmp150130)))) (declare (not safe)) - (cons '%#lambda __tmp150124))) - (__tmp150122 + (cons '%#lambda __tmp150129))) + (__tmp150127 (let () (declare (not safe)) (cons '() '())))) (declare (not safe)) - (cons __tmp150123 __tmp150122)))) + (cons __tmp150128 __tmp150127)))) (declare (not safe)) - (cons 'restart: __tmp150121)))) + (cons 'restart: __tmp150126)))) (declare (not safe)) - (cons _name144948_ __tmp150120)))) + (cons _name144953_ __tmp150125)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp150119 - _blocks144927_)))) + (cons __tmp150124 + _blocks144932_)))) (declare (not safe)) - (_fold-blocks144932_ - _body-blocks145014_ - __tmp150118)))))) - _hd144960144990_) + (_fold-blocks144937_ + _body-blocks145019_ + __tmp150123)))))) + _hd144965144995_) (let () (declare (not safe)) - (_g144950144966_ _g144951144969_))))) + (_g144955144971_ _g144956144974_))))) (let () (declare (not safe)) - (_g144950144966_ _g144951144969_))) + (_g144955144971_ _g144956144974_))) (let () (declare (not safe)) - (_g144950144966_ _g144951144969_))))) + (_g144955144971_ _g144956144974_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g144950144966_ - _g144951144969_))) + (_g144955144971_ + _g144956144974_))) (let () (declare (not safe)) - (_g144950144966_ - _g144951144969_))) + (_g144955144971_ + _g144956144974_))) (let () (declare (not safe)) - (_g144950144966_ - _g144951144969_))))) + (_g144955144971_ + _g144956144974_))))) (let () (declare (not safe)) - (_g144950144966_ _g144951144969_)))))) + (_g144955144971_ _g144956144974_)))))) (declare (not safe)) - (_g144949145016_ _body144947_))))) - (if (let () (declare (not safe)) (##pair? _clause144933144940_)) - (let ((_hd144937145022_ + (_g144954145021_ _body144952_))))) + (if (let () (declare (not safe)) (##pair? _clause144938144945_)) + (let ((_hd144942145027_ (let () (declare (not safe)) - (##car _clause144933144940_))) - (_tl144938145024_ + (##car _clause144938144945_))) + (_tl144943145029_ (let () (declare (not safe)) - (##cdr _clause144933144940_)))) - (let* ((_name145027_ _hd144937145022_) - (_body145029_ _tl144938145024_)) + (##cdr _clause144938144945_)))) + (let* ((_name145032_ _hd144942145027_) + (_body145034_ _tl144943145029_)) (declare (not safe)) - (_K144936145019_ _body145029_ _name145027_))) - (let () (declare (not safe)) (_E144935144944_))))))) + (_K144941145024_ _body145034_ _name145032_))) + (let () (declare (not safe)) (_E144940144949_))))))) (define gxc#optimize-match-fold-basic-blocks - (lambda (_blocks144532_) - (let _lp144534_ ((_rest144536_ _blocks144532_) (_blocks144537_ '())) - (let* ((_rest144538144546_ _rest144536_) - (_else144540144595_ + (lambda (_blocks144537_) + (let _lp144539_ ((_rest144541_ _blocks144537_) (_blocks144542_ '())) + (let* ((_rest144543144551_ _rest144541_) + (_else144545144600_ (lambda () - (let ((__tmp150126 - (lambda (_block144554_ _r144555_) - (let* ((_block144556144567_ _block144554_) - (_E144558144571_ + (let ((__tmp150131 + (lambda (_block144559_ _r144560_) + (let* ((_block144561144572_ _block144559_) + (_E144563144576_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _block144556144567_)))) - (_K144559144577_ - (lambda (_kont144574_ _name144575_) - (let ((__tmp150127 + _block144561144572_)))) + (_K144564144582_ + (lambda (_kont144579_ _name144580_) + (let ((__tmp150132 (let () (declare (not safe)) - (cons _name144575_ - _kont144574_)))) + (cons _name144580_ + _kont144579_)))) (declare (not safe)) - (cons __tmp150127 _r144555_))))) + (cons __tmp150132 _r144560_))))) (if (let () (declare (not safe)) - (##pair? _block144556144567_)) - (let ((_hd144560144580_ + (##pair? _block144561144572_)) + (let ((_hd144565144585_ (let () (declare (not safe)) - (##car _block144556144567_))) - (_tl144561144582_ + (##car _block144561144572_))) + (_tl144566144587_ (let () (declare (not safe)) - (##cdr _block144556144567_)))) - (let ((_name144585_ _hd144560144580_)) + (##cdr _block144561144572_)))) + (let ((_name144590_ _hd144565144585_)) (if (let () (declare (not safe)) - (##pair? _tl144561144582_)) - (let ((_tl144563144587_ + (##pair? _tl144566144587_)) + (let ((_tl144568144592_ (let () (declare (not safe)) - (##cdr _tl144561144582_)))) + (##cdr _tl144566144587_)))) (if (let () (declare (not safe)) - (##pair? _tl144563144587_)) - (let* ((_hd144564144590_ + (##pair? _tl144568144592_)) + (let* ((_hd144569144595_ (let () (declare (not safe)) - (##car _tl144563144587_))) - (_kont144593_ - _hd144564144590_)) + (##car _tl144568144592_))) + (_kont144598_ + _hd144569144595_)) (declare (not safe)) - (_K144559144577_ - _kont144593_ - _name144585_)) + (_K144564144582_ + _kont144598_ + _name144590_)) (let () (declare (not safe)) - (_E144558144571_)))) + (_E144563144576_)))) (let () (declare (not safe)) - (_E144558144571_))))) + (_E144563144576_))))) (let () (declare (not safe)) - (_E144558144571_))))))) + (_E144563144576_))))))) (declare (not safe)) - (foldl1 __tmp150126 '() _blocks144537_)))) - (_K144542144914_ - (lambda (_rest144598_ _block144599_) - (let* ((_block144600144625_ _block144599_) - (_E144603144629_ + (foldl1 __tmp150131 '() _blocks144542_)))) + (_K144547144919_ + (lambda (_rest144603_ _block144604_) + (let* ((_block144605144630_ _block144604_) + (_E144608144634_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _block144600144625_))))) - (let ((_K144615144885_ - (lambda (_assert144807_ _kont144808_ _name144809_) - (let* ((_g144811144827_ - (lambda (_g144812144824_) + _block144605144630_))))) + (let ((_K144620144890_ + (lambda (_assert144812_ _kont144813_ _name144814_) + (let* ((_g144816144832_ + (lambda (_g144817144829_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g144812144824_)))) - (_g144810144882_ - (lambda (_g144812144830_) + _g144817144829_)))) + (_g144815144887_ + (lambda (_g144817144835_) (if (let () (declare (not safe)) - (gx#stx-pair? _g144812144830_)) - (let ((_e144816144832_ + (gx#stx-pair? _g144817144835_)) + (let ((_e144821144837_ (let () (declare (not safe)) (gx#stx-e - _g144812144830_)))) - (let ((_hd144815144835_ + _g144817144835_)))) + (let ((_hd144820144840_ (let () (declare (not safe)) - (##car _e144816144832_))) - (_tl144814144837_ + (##car _e144821144837_))) + (_tl144819144842_ (let () (declare (not safe)) - (##cdr _e144816144832_)))) + (##cdr _e144821144837_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd144815144835_)) + _hd144820144840_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd144815144835_)) + _hd144820144840_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl144814144837_)) - (let ((_e144819144840_ + (gx#stx-pair? _tl144819144842_)) + (let ((_e144824144845_ (let () (declare (not safe)) - (gx#stx-e _tl144814144837_)))) - (let ((_hd144818144843_ + (gx#stx-e _tl144819144842_)))) + (let ((_hd144823144848_ (let () (declare (not safe)) - (##car _e144819144840_))) - (_tl144817144845_ + (##car _e144824144845_))) + (_tl144822144850_ (let () (declare (not safe)) - (##cdr _e144819144840_)))) + (##cdr _e144824144845_)))) (if (let () (declare (not safe)) - (gx#stx-null? _hd144818144843_)) + (gx#stx-null? _hd144823144848_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl144817144845_)) - (let ((_e144822144848_ + (gx#stx-pair? _tl144822144850_)) + (let ((_e144827144853_ (let () (declare (not safe)) - (gx#stx-e _tl144817144845_)))) - (let ((_hd144821144851_ + (gx#stx-e _tl144822144850_)))) + (let ((_hd144826144856_ (let () (declare (not safe)) - (##car _e144822144848_))) - (_tl144820144853_ + (##car _e144827144853_))) + (_tl144825144858_ (let () (declare (not safe)) - (##cdr _e144822144848_)))) + (##cdr _e144827144853_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl144820144853_)) - ((lambda (_L144856_) - (let* ((_body144871_ + (gx#stx-null? _tl144825144858_)) + ((lambda (_L144861_) + (let* ((_body144876_ (let () (declare (not safe)) (gxc#optimize-match-block - _L144856_ - _assert144807_ + _L144861_ + _assert144812_ '() - _rest144598_))) - (_block144873_ - (let ((__tmp150128 - (let ((__tmp150129 + _rest144603_))) + (_block144878_ + (let ((__tmp150133 + (let ((__tmp150134 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp150131 - (let ((__tmp150132 - (let ((__tmp150133 + (let ((__tmp150136 + (let ((__tmp150137 + (let ((__tmp150138 (let () (declare (not safe)) - (cons _body144871_ '())))) + (cons _body144876_ '())))) (declare (not safe)) - (cons '() __tmp150133)))) + (cons '() __tmp150138)))) (declare (not safe)) - (cons '%#lambda __tmp150132))) - (__tmp150130 + (cons '%#lambda __tmp150137))) + (__tmp150135 (let () (declare (not safe)) - (cons _assert144807_ '())))) + (cons _assert144812_ '())))) (declare (not safe)) - (cons __tmp150131 __tmp150130)))) + (cons __tmp150136 __tmp150135)))) (declare (not safe)) - (cons 'restart: __tmp150129)))) + (cons 'restart: __tmp150134)))) (declare (not safe)) - (cons _name144809_ __tmp150128))) + (cons _name144814_ __tmp150133))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_blocks144875_ + (_blocks144880_ (let () (declare (not safe)) - (cons _block144873_ - _blocks144537_))) - (_rest144877_ + (cons _block144878_ + _blocks144542_))) + (_rest144882_ (let () (declare (not safe)) (gxc#optimize-match-prune-blocks - _rest144598_ - _blocks144875_))) - (_rest144879_ + _rest144603_ + _blocks144880_))) + (_rest144884_ (let () (declare (not safe)) (gxc#optimize-match-fuse-restart-blocks - _rest144877_ - _blocks144875_)))) + _rest144882_ + _blocks144880_)))) (let () (declare (not safe)) - (_lp144534_ - _rest144879_ - _blocks144875_)))) - _hd144821144851_) + (_lp144539_ + _rest144884_ + _blocks144880_)))) + _hd144826144856_) (let () (declare (not safe)) - (_g144811144827_ - _g144812144830_))))) + (_g144816144832_ + _g144817144835_))))) (let () (declare (not safe)) - (_g144811144827_ _g144812144830_))) + (_g144816144832_ _g144817144835_))) (let () (declare (not safe)) - (_g144811144827_ _g144812144830_))))) + (_g144816144832_ _g144817144835_))))) (let () (declare (not safe)) - (_g144811144827_ _g144812144830_))) + (_g144816144832_ _g144817144835_))) (let () (declare (not safe)) - (_g144811144827_ _g144812144830_))) + (_g144816144832_ _g144817144835_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g144811144827_ - _g144812144830_))))) + (_g144816144832_ + _g144817144835_))))) (let () (declare (not safe)) - (_g144811144827_ - _g144812144830_)))))) + (_g144816144832_ + _g144817144835_)))))) (declare (not safe)) - (_g144810144882_ _kont144808_)))) - (_K144604144768_ - (lambda (_bind144633_ - _assert144634_ - _kont144635_ - _name144636_) - (let* ((_g144638144664_ - (lambda (_g144639144661_) + (_g144815144887_ _kont144813_)))) + (_K144609144773_ + (lambda (_bind144638_ + _assert144639_ + _kont144640_ + _name144641_) + (let* ((_g144643144669_ + (lambda (_g144644144666_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g144639144661_)))) - (_g144637144765_ - (lambda (_g144639144667_) + _g144644144666_)))) + (_g144642144770_ + (lambda (_g144644144672_) (if (let () (declare (not safe)) - (gx#stx-pair? _g144639144667_)) - (let ((_e144644144669_ + (gx#stx-pair? _g144644144672_)) + (let ((_e144649144674_ (let () (declare (not safe)) (gx#stx-e - _g144639144667_)))) - (let ((_hd144643144672_ + _g144644144672_)))) + (let ((_hd144648144677_ (let () (declare (not safe)) - (##car _e144644144669_))) - (_tl144642144674_ + (##car _e144649144674_))) + (_tl144647144679_ (let () (declare (not safe)) - (##cdr _e144644144669_)))) + (##cdr _e144649144674_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd144643144672_)) + _hd144648144677_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd144643144672_)) + _hd144648144677_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl144642144674_)) - (let ((_e144647144677_ + (gx#stx-pair? _tl144647144679_)) + (let ((_e144652144682_ (let () (declare (not safe)) - (gx#stx-e _tl144642144674_)))) - (let ((_hd144646144680_ + (gx#stx-e _tl144647144679_)))) + (let ((_hd144651144685_ (let () (declare (not safe)) - (##car _e144647144677_))) - (_tl144645144682_ + (##car _e144652144682_))) + (_tl144650144687_ (let () (declare (not safe)) - (##cdr _e144647144677_)))) + (##cdr _e144652144682_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd144646144680_)) - (let ((_g150134_ + (gx#stx-pair/null? _hd144651144685_)) + (let ((_g150139_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd144646144680_ + _hd144651144685_ '0)))) (begin - (let ((_g150135_ + (let ((_g150140_ (let () (declare (not safe)) - (if (##values? _g150134_) - (##vector-length _g150134_) + (if (##values? _g150139_) + (##vector-length _g150139_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g150135_ 2))) + (##fx= _g150140_ 2))) (error "Context expects 2 values" - _g150135_))) - (let ((_target144648144685_ + _g150140_))) + (let ((_target144653144690_ (let () (declare (not safe)) - (##vector-ref _g150134_ 0))) - (_tl144650144687_ + (##vector-ref _g150139_ 0))) + (_tl144655144692_ (let () (declare (not safe)) - (##vector-ref _g150134_ 1)))) + (##vector-ref _g150139_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl144650144687_)) - (letrec ((_loop144651144690_ - (lambda (_hd144649144693_ - _id144655144695_) + (gx#stx-null? _tl144655144692_)) + (letrec ((_loop144656144695_ + (lambda (_hd144654144698_ + _id144660144700_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd144649144693_)) - (let ((_e144652144698_ + _hd144654144698_)) + (let ((_e144657144703_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd144649144693_)))) - (let ((_lp-hd144653144701_ - (let () (declare (not safe)) (##car _e144652144698_))) - (_lp-tl144654144703_ - (let () (declare (not safe)) (##cdr _e144652144698_)))) - (let ((__tmp150145 + (gx#stx-e _hd144654144698_)))) + (let ((_lp-hd144658144706_ + (let () (declare (not safe)) (##car _e144657144703_))) + (_lp-tl144659144708_ + (let () (declare (not safe)) (##cdr _e144657144703_)))) + (let ((__tmp150150 (let () (declare (not safe)) - (cons _lp-hd144653144701_ _id144655144695_)))) + (cons _lp-hd144658144706_ _id144660144700_)))) (declare (not safe)) - (_loop144651144690_ _lp-tl144654144703_ __tmp150145)))) - (let ((_id144656144706_ (reverse _id144655144695_))) + (_loop144656144695_ _lp-tl144659144708_ __tmp150150)))) + (let ((_id144661144711_ (reverse _id144660144700_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl144645144682_)) - (let ((_e144659144709_ + (gx#stx-pair? _tl144650144687_)) + (let ((_e144664144714_ (let () (declare (not safe)) - (gx#stx-e _tl144645144682_)))) - (let ((_hd144658144712_ + (gx#stx-e _tl144650144687_)))) + (let ((_hd144663144717_ (let () (declare (not safe)) - (##car _e144659144709_))) - (_tl144657144714_ + (##car _e144664144714_))) + (_tl144662144719_ (let () (declare (not safe)) - (##cdr _e144659144709_)))) + (##cdr _e144664144714_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl144657144714_)) - ((lambda (_L144717_ _L144718_) - (let* ((_body144747_ + (gx#stx-null? _tl144662144719_)) + ((lambda (_L144722_ _L144723_) + (let* ((_body144752_ (let () (declare (not safe)) (gxc#optimize-match-block - _L144717_ - _assert144634_ - _bind144633_ - _rest144598_))) - (_block144756_ - (let ((__tmp150136 - (let ((__tmp150137 - (let ((__tmp150140 - (let ((__tmp150141 + _L144722_ + _assert144639_ + _bind144638_ + _rest144603_))) + (_block144761_ + (let ((__tmp150141 + (let ((__tmp150142 + (let ((__tmp150145 + (let ((__tmp150146 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp150143 - (let ((__tmp150144 - (lambda (_g144748144751_ - _g144749144753_) + (let ((__tmp150148 + (let ((__tmp150149 + (lambda (_g144753144756_ + _g144754144758_) (let () (declare (not safe)) - (cons _g144748144751_ - _g144749144753_))))) + (cons _g144753144756_ + _g144754144758_))))) (declare (not safe)) - (foldr1 __tmp150144 '() _L144718_))) - (__tmp150142 + (foldr1 __tmp150149 '() _L144723_))) + (__tmp150147 (let () (declare (not safe)) - (cons _body144747_ '())))) + (cons _body144752_ '())))) (declare (not safe)) - (cons __tmp150143 __tmp150142)))) + (cons __tmp150148 __tmp150147)))) (declare (not safe)) - (cons '%#lambda __tmp150141))) - (__tmp150138 - (let ((__tmp150139 + (cons '%#lambda __tmp150146))) + (__tmp150143 + (let ((__tmp150144 (let () (declare (not safe)) - (cons _bind144633_ '())))) + (cons _bind144638_ '())))) (declare (not safe)) - (cons _assert144634_ __tmp150139)))) + (cons _assert144639_ __tmp150144)))) (declare (not safe)) - (cons __tmp150140 __tmp150138)))) + (cons __tmp150145 __tmp150143)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons 'continue: - __tmp150137)))) + __tmp150142)))) (declare (not safe)) - (cons _name144636_ __tmp150136))) - (_blocks144758_ + (cons _name144641_ __tmp150141))) + (_blocks144763_ (let () (declare (not safe)) - (cons _block144756_ _blocks144537_))) - (_rest144760_ + (cons _block144761_ _blocks144542_))) + (_rest144765_ (let () (declare (not safe)) (gxc#optimize-match-prune-blocks - _rest144598_ - _blocks144758_))) - (_rest144762_ + _rest144603_ + _blocks144763_))) + (_rest144767_ (let () (declare (not safe)) (gxc#optimize-match-fuse-restart-blocks - _rest144760_ - _blocks144758_)))) + _rest144765_ + _blocks144763_)))) (let () (declare (not safe)) - (_lp144534_ _rest144762_ _blocks144758_)))) - _hd144658144712_ - _id144656144706_) + (_lp144539_ _rest144767_ _blocks144763_)))) + _hd144663144717_ + _id144661144711_) (let () (declare (not safe)) - (_g144638144664_ _g144639144667_))))) + (_g144643144669_ _g144644144672_))))) (let () (declare (not safe)) - (_g144638144664_ _g144639144667_)))))))) + (_g144643144669_ _g144644144672_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop144651144690_ - _target144648144685_ + (_loop144656144695_ + _target144653144690_ '()))) (let () (declare (not safe)) - (_g144638144664_ _g144639144667_)))))) + (_g144643144669_ _g144644144672_)))))) (let () (declare (not safe)) - (_g144638144664_ _g144639144667_))))) + (_g144643144669_ _g144644144672_))))) (let () (declare (not safe)) - (_g144638144664_ _g144639144667_))) + (_g144643144669_ _g144644144672_))) (let () (declare (not safe)) - (_g144638144664_ _g144639144667_))) + (_g144643144669_ _g144644144672_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g144638144664_ - _g144639144667_))))) + (_g144643144669_ + _g144644144672_))))) (let () (declare (not safe)) - (_g144638144664_ - _g144639144667_)))))) + (_g144643144669_ + _g144644144672_)))))) (declare (not safe)) - (_g144637144765_ _kont144635_))))) + (_g144642144770_ _kont144640_))))) (if (let () (declare (not safe)) - (##pair? _block144600144625_)) - (let ((_tl144617144890_ + (##pair? _block144605144630_)) + (let ((_tl144622144895_ (let () (declare (not safe)) - (##cdr _block144600144625_))) - (_hd144616144888_ + (##cdr _block144605144630_))) + (_hd144621144893_ (let () (declare (not safe)) - (##car _block144600144625_)))) + (##car _block144605144630_)))) (if (let () (declare (not safe)) - (##pair? _tl144617144890_)) - (let ((_tl144619144897_ + (##pair? _tl144622144895_)) + (let ((_tl144624144902_ (let () (declare (not safe)) - (##cdr _tl144617144890_))) - (_hd144618144895_ + (##cdr _tl144622144895_))) + (_hd144623144900_ (let () (declare (not safe)) - (##car _tl144617144890_)))) + (##car _tl144622144895_)))) (if (let () (declare (not safe)) - (##eq? _hd144618144895_ 'restart:)) + (##eq? _hd144623144900_ 'restart:)) (if (let () (declare (not safe)) - (##pair? _tl144619144897_)) - (let ((_tl144621144902_ + (##pair? _tl144624144902_)) + (let ((_tl144626144907_ (let () (declare (not safe)) - (##cdr _tl144619144897_))) - (_hd144620144900_ + (##cdr _tl144624144902_))) + (_hd144625144905_ (let () (declare (not safe)) - (##car _tl144619144897_)))) + (##car _tl144624144902_)))) (if (let () (declare (not safe)) - (##pair? _tl144621144902_)) - (let ((_tl144623144909_ + (##pair? _tl144626144907_)) + (let ((_tl144628144914_ (let () (declare (not safe)) - (##cdr _tl144621144902_))) - (_hd144622144907_ + (##cdr _tl144626144907_))) + (_hd144627144912_ (let () (declare (not safe)) - (##car _tl144621144902_)))) + (##car _tl144626144907_)))) (if (let () (declare (not safe)) - (##null? _tl144623144909_)) - (let ((_name144893_ - _hd144616144888_) - (_kont144905_ - _hd144620144900_) - (_assert144912_ - _hd144622144907_)) + (##null? _tl144628144914_)) + (let ((_name144898_ + _hd144621144893_) + (_kont144910_ + _hd144625144905_) + (_assert144917_ + _hd144627144912_)) (let () (declare (not safe)) - (_K144615144885_ - _assert144912_ - _kont144905_ - _name144893_))) + (_K144620144890_ + _assert144917_ + _kont144910_ + _name144898_))) (let () (declare (not safe)) - (_E144603144629_)))) + (_E144608144634_)))) (let () (declare (not safe)) - (_E144603144629_)))) + (_E144608144634_)))) (let () (declare (not safe)) - (_E144603144629_))) + (_E144608144634_))) (if (let () (declare (not safe)) - (##eq? _hd144618144895_ + (##eq? _hd144623144900_ 'continue:)) (if (let () (declare (not safe)) - (##pair? _tl144619144897_)) - (let ((_tl144610144785_ + (##pair? _tl144624144902_)) + (let ((_tl144615144790_ (let () (declare (not safe)) - (##cdr _tl144619144897_))) - (_hd144609144783_ + (##cdr _tl144624144902_))) + (_hd144614144788_ (let () (declare (not safe)) - (##car _tl144619144897_)))) + (##car _tl144624144902_)))) (if (let () (declare (not safe)) - (##pair? _tl144610144785_)) - (let ((_tl144612144792_ + (##pair? _tl144615144790_)) + (let ((_tl144617144797_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _tl144610144785_))) - (_hd144611144790_ - (let () (declare (not safe)) (##car _tl144610144785_)))) - (if (let () (declare (not safe)) (##pair? _tl144612144792_)) - (let ((_tl144614144799_ + (##cdr _tl144615144790_))) + (_hd144616144795_ + (let () (declare (not safe)) (##car _tl144615144790_)))) + (if (let () (declare (not safe)) (##pair? _tl144617144797_)) + (let ((_tl144619144804_ (let () (declare (not safe)) - (##cdr _tl144612144792_))) - (_hd144613144797_ + (##cdr _tl144617144797_))) + (_hd144618144802_ (let () (declare (not safe)) - (##car _tl144612144792_)))) + (##car _tl144617144797_)))) (if (let () (declare (not safe)) - (##null? _tl144614144799_)) - (let ((_name144776_ _hd144616144888_) - (_kont144788_ _hd144609144783_) - (_assert144795_ _hd144611144790_) - (_bind144802_ _hd144613144797_)) + (##null? _tl144619144804_)) + (let ((_name144781_ _hd144621144893_) + (_kont144793_ _hd144614144788_) + (_assert144800_ _hd144616144795_) + (_bind144807_ _hd144618144802_)) (let () (declare (not safe)) - (_K144604144768_ - _bind144802_ - _assert144795_ - _kont144788_ - _name144776_))) - (let () (declare (not safe)) (_E144603144629_)))) - (let () (declare (not safe)) (_E144603144629_)))) - (let () (declare (not safe)) (_E144603144629_)))) + (_K144609144773_ + _bind144807_ + _assert144800_ + _kont144793_ + _name144781_))) + (let () (declare (not safe)) (_E144608144634_)))) + (let () (declare (not safe)) (_E144608144634_)))) + (let () (declare (not safe)) (_E144608144634_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_E144603144629_))) + (_E144608144634_))) (let () (declare (not safe)) - (_E144603144629_))))) + (_E144608144634_))))) (let () (declare (not safe)) - (_E144603144629_)))) + (_E144608144634_)))) (let () (declare (not safe)) - (_E144603144629_)))))))) - (if (let () (declare (not safe)) (##pair? _rest144538144546_)) - (let ((_hd144543144917_ + (_E144608144634_)))))))) + (if (let () (declare (not safe)) (##pair? _rest144543144551_)) + (let ((_hd144548144922_ (let () (declare (not safe)) - (##car _rest144538144546_))) - (_tl144544144919_ + (##car _rest144543144551_))) + (_tl144549144924_ (let () (declare (not safe)) - (##cdr _rest144538144546_)))) - (let* ((_block144922_ _hd144543144917_) - (_rest144924_ _tl144544144919_)) + (##cdr _rest144543144551_)))) + (let* ((_block144927_ _hd144548144922_) + (_rest144929_ _tl144549144924_)) (declare (not safe)) - (_K144542144914_ _rest144924_ _block144922_))) - (let () (declare (not safe)) (_else144540144595_))))))) + (_K144547144919_ _rest144929_ _block144927_))) + (let () (declare (not safe)) (_else144545144600_))))))) (define gxc#optimize-match-block - (lambda (_body139165_ _assert139166_ _bind139167_ _blocks139168_) - (letrec* ((_env-assert139403_ '()) - (_env-type139404_ '()) - (_env-bind139405_ '()) - (_in-splice?139406_ '#f) - (_do-assert139407_ - (lambda (_assert144455_ _K144456_) - (if (let () (declare (not safe)) (pair? _assert144455_)) - (let _lp144458_ ((_rest144460_ _assert144455_) - (_env-assert144461_ - _env-assert139403_) - (_env-type144462_ _env-type139404_)) - (let* ((_rest144463144471_ _rest144460_) - (_else144465144479_ + (lambda (_body139170_ _assert139171_ _bind139172_ _blocks139173_) + (letrec* ((_env-assert139408_ '()) + (_env-type139409_ '()) + (_env-bind139410_ '()) + (_in-splice?139411_ '#f) + (_do-assert139412_ + (lambda (_assert144460_ _K144461_) + (if (let () (declare (not safe)) (pair? _assert144460_)) + (let _lp144463_ ((_rest144465_ _assert144460_) + (_env-assert144466_ + _env-assert139408_) + (_env-type144467_ _env-type139409_)) + (let* ((_rest144468144476_ _rest144465_) + (_else144470144484_ (lambda () (let () (declare (not safe)) - (_do-assert!139413_ - _env-assert144461_ - _env-type144462_ - _K144456_)))) - (_K144467144520_ - (lambda (_rest144482_ _assert144483_) - (let* ((_assert144484144491_ - _assert144483_) - (_E144486144495_ + (_do-assert!139418_ + _env-assert144466_ + _env-type144467_ + _K144461_)))) + (_K144472144525_ + (lambda (_rest144487_ _assert144488_) + (let* ((_assert144489144496_ + _assert144488_) + (_E144491144500_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _assert144484144491_)))) - (_K144487144508_ - (lambda (_val144498_ _expr144499_) - (let* ((_sexpr144501_ + _assert144489144496_)))) + (_K144492144513_ + (lambda (_val144503_ _expr144504_) + (let* ((_sexpr144506_ (let () (declare (not safe)) (gxc#apply-generate-runtime-repr - _expr144499_))) - (_env-assert144503_ - (let ((__tmp150146 + _expr144504_))) + (_env-assert144508_ + (let ((__tmp150151 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _sexpr144501_ _val144498_)))) + (cons _sexpr144506_ _val144503_)))) (declare (not safe)) - (cons __tmp150146 _env-assert144461_))) - (_env-type144505_ + (cons __tmp150151 _env-assert144466_))) + (_env-type144510_ (let () (declare (not safe)) - (_fold-assert-type139409_ - _expr144499_ - _val144498_ - _env-type144462_)))) + (_fold-assert-type139414_ + _expr144504_ + _val144503_ + _env-type144467_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_lp144458_ - _rest144482_ - _env-assert144503_ - _env-type144505_)))))) + (_lp144463_ + _rest144487_ + _env-assert144508_ + _env-type144510_)))))) (if (let () (declare (not safe)) - (##pair? _assert144484144491_)) - (let ((_hd144488144511_ + (##pair? _assert144489144496_)) + (let ((_hd144493144516_ (let () (declare (not safe)) - (##car _assert144484144491_))) - (_tl144489144513_ + (##car _assert144489144496_))) + (_tl144494144518_ (let () (declare (not safe)) - (##cdr _assert144484144491_)))) - (let* ((_expr144516_ - _hd144488144511_) - (_val144518_ - _tl144489144513_)) + (##cdr _assert144489144496_)))) + (let* ((_expr144521_ + _hd144493144516_) + (_val144523_ + _tl144494144518_)) (declare (not safe)) - (_K144487144508_ - _val144518_ - _expr144516_))) + (_K144492144513_ + _val144523_ + _expr144521_))) (let () (declare (not safe)) - (_E144486144495_))))))) + (_E144491144500_))))))) (if (let () (declare (not safe)) - (##pair? _rest144463144471_)) - (let ((_hd144468144523_ + (##pair? _rest144468144476_)) + (let ((_hd144473144528_ (let () (declare (not safe)) - (##car _rest144463144471_))) - (_tl144469144525_ + (##car _rest144468144476_))) + (_tl144474144530_ (let () (declare (not safe)) - (##cdr _rest144463144471_)))) - (let* ((_assert144528_ _hd144468144523_) - (_rest144530_ _tl144469144525_)) + (##cdr _rest144468144476_)))) + (let* ((_assert144533_ _hd144473144528_) + (_rest144535_ _tl144474144530_)) (declare (not safe)) - (_K144467144520_ - _rest144530_ - _assert144528_))) + (_K144472144525_ + _rest144535_ + _assert144533_))) (let () (declare (not safe)) - (_else144465144479_))))) - (_K144456_)))) - (_predicate-type139408_ - (lambda (_id144400_) - (let* ((_sym144402_ + (_else144470144484_))))) + (_K144461_)))) + (_predicate-type139413_ + (lambda (_id144405_) + (let* ((_sym144407_ (let () (declare (not safe)) - (gxc#identifier-symbol _id144400_))) - (_$e144404_ _sym144402_)) - (let ((_default144406144437_ + (gxc#identifier-symbol _id144405_))) + (_$e144409_ _sym144407_)) + (let ((_default144411144442_ (lambda () - (let* ((_g144409144416_ + (let* ((_g144414144421_ (let () (declare (not safe)) (gxc#optimizer-resolve-type - _sym144402_))) - (_else144411144424_ (lambda () '#f)) - (_K144413144429_ - (lambda (_t144427_) + _sym144407_))) + (_else144416144429_ (lambda () '#f)) + (_K144418144434_ + (lambda (_t144432_) (let () (declare (not safe)) (gxc#optimizer-resolve-type - _t144427_))))) + _t144432_))))) (if (let () (declare (not safe)) (##structure-instance-of? - _g144409144416_ + _g144414144421_ 'gxc#!predicate::t)) - (let* ((_e144414144432_ + (let* ((_e144419144437_ (let () (declare (not safe)) (##unchecked-structure-ref - _g144409144416_ + _g144414144421_ '1 gxc#!type::t '#f))) - (_t144435_ _e144414144432_)) + (_t144440_ _e144419144437_)) (declare (not safe)) - (gxc#optimizer-resolve-type _t144435_)) + (gxc#optimizer-resolve-type _t144440_)) (let () (declare (not safe)) - (_else144411144424_)))))) - (_table144407144439_ + (_else144416144429_)))))) + (_table144412144444_ '#(#f (##box? . 3) #f @@ -4363,50 +4363,50 @@ #f #f #f))) - (if (let () (declare (not safe)) (symbol? _$e144404_)) - (let* ((_h144442_ + (if (let () (declare (not safe)) (symbol? _$e144409_)) + (let* ((_h144447_ (let () (declare (not safe)) - (##symbol-hash _$e144404_))) - (_ix144445_ + (##symbol-hash _$e144409_))) + (_ix144450_ (let () (declare (not safe)) - (##fxmodulo _h144442_ '63))) - (_q144448_ + (##fxmodulo _h144447_ '63))) + (_q144453_ (let () (declare (not safe)) (##vector-ref - _table144407144439_ - _ix144445_)))) - (if _q144448_ - (if (let ((__tmp150147 + _table144412144444_ + _ix144450_)))) + (if _q144453_ + (if (let ((__tmp150152 (let () (declare (not safe)) - (##car _q144448_)))) + (##car _q144453_)))) (declare (not safe)) - (eq? __tmp150147 _$e144404_)) - (let ((_x144452_ + (eq? __tmp150152 _$e144409_)) + (let ((_x144457_ (let () (declare (not safe)) - (##cdr _q144448_)))) + (##cdr _q144453_)))) (if (let () (declare (not safe)) - (##fx< _x144452_ '5)) + (##fx< _x144457_ '5)) (if (let () (declare (not safe)) - (##fx< _x144452_ '2)) + (##fx< _x144457_ '2)) (if (let () (declare (not safe)) - (##fx= _x144452_ '0)) + (##fx= _x144457_ '0)) 'pair 'null) (if (let () (declare (not safe)) - (##fx= _x144452_ '2)) + (##fx= _x144457_ '2)) 'vector (if (let () (declare (not safe)) - (##fx= _x144452_ + (##fx= _x144457_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '3)) 'box @@ -4414,19 +4414,19 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##fx< _x144452_ '7)) + (##fx< _x144457_ '7)) (if (let () (declare (not safe)) - (##fx= _x144452_ '5)) + (##fx= _x144457_ '5)) 'stx-pair 'stx-null) (if (let () (declare (not safe)) - (##fx= _x144452_ '7)) + (##fx= _x144457_ '7)) 'stx-vector (if (let () (declare (not safe)) - (##fx= _x144452_ + (##fx= _x144457_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '8)) 'stx-box @@ -4434,5306 +4434,5306 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_default144406144437_))) + (_default144411144442_))) (let () (declare (not safe)) - (_default144406144437_)))) + (_default144411144442_)))) (let () (declare (not safe)) - (_default144406144437_))))))) - (_fold-assert-type139409_ - (lambda (_expr143348_ _val143349_ _env143350_) - (let* ((___stx147485147486_ _expr143348_) - (_g143358143537_ + (_default144411144442_))))))) + (_fold-assert-type139414_ + (lambda (_expr143353_ _val143354_ _env143355_) + (let* ((___stx147490147491_ _expr143353_) + (_g143363143542_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx147485147486_))))) - (let ((___kont147487147488_ - (lambda (_L144369_ _L144370_) - (let ((_$e144392_ + ___stx147490147491_))))) + (let ((___kont147492147493_ + (lambda (_L144374_ _L144375_) + (let ((_$e144397_ (let () (declare (not safe)) - (_predicate-type139408_ _L144370_)))) - (if _$e144392_ - ((lambda (_t144395_) - (let ((__tmp150148 - (let ((__tmp150149 - (let ((__tmp150150 + (_predicate-type139413_ _L144375_)))) + (if _$e144397_ + ((lambda (_t144400_) + (let ((__tmp150153 + (let ((__tmp150154 + (let ((__tmp150155 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _val143349_ '())))) + (cons _val143354_ '())))) (declare (not safe)) - (cons _t144395_ __tmp150150)))) + (cons _t144400_ __tmp150155)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L144369_ - __tmp150149)))) + (cons _L144374_ + __tmp150154)))) (declare (not safe)) - (cons __tmp150148 _env143350_))) - _$e144392_) - _env143350_)))) - (___kont147489147490_ - (lambda (_L144059_ _L144060_ _L144061_) - (let ((_$e144086_ + (cons __tmp150153 _env143355_))) + _$e144397_) + _env143355_)))) + (___kont147494147495_ + (lambda (_L144064_ _L144065_ _L144066_) + (let ((_$e144091_ (let () (declare (not safe)) - (gxc#identifier-symbol _L144061_)))) + (gxc#identifier-symbol _L144066_)))) (if (or (let () (declare (not safe)) - (eq? '##fx= _$e144086_)) + (eq? '##fx= _$e144091_)) (let () (declare (not safe)) - (eq? 'fx= _$e144086_))) - (let* ((___stx147391147392_ _L144060_) - (_g144093144122_ + (eq? 'fx= _$e144091_))) + (let* ((___stx147396147397_ _L144065_) + (_g144098144127_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx147391147392_))))) - (let ((___kont147393147394_ - (lambda (_L144190_ _L144191_) - (let ((_$e144216_ + ___stx147396147397_))))) + (let ((___kont147398147399_ + (lambda (_L144195_ _L144196_) + (let ((_$e144221_ (let () (declare (not safe)) - (_countf-symbol139410_ - _L144191_)))) - (if _$e144216_ - ((lambda (_sym144219_) - (let ((__tmp150156 + (_countf-symbol139415_ + _L144196_)))) + (if _$e144221_ + ((lambda (_sym144224_) + (let ((__tmp150161 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp150157 - (let ((__tmp150158 - (let ((__tmp150160 + (let ((__tmp150162 + (let ((__tmp150163 + (let ((__tmp150165 (let () (declare (not safe)) - (gx#stx-e _L144059_))) - (__tmp150159 + (gx#stx-e _L144064_))) + (__tmp150164 (let () (declare (not safe)) - (cons _val143349_ '())))) + (cons _val143354_ '())))) (declare (not safe)) - (cons __tmp150160 __tmp150159)))) + (cons __tmp150165 __tmp150164)))) (declare (not safe)) - (cons _sym144219_ __tmp150158)))) + (cons _sym144224_ __tmp150163)))) (declare (not safe)) - (cons _L144190_ __tmp150157)))) + (cons _L144195_ __tmp150162)))) (declare (not safe)) - (cons __tmp150156 _env143350_))) - _$e144216_) - _env143350_)))) + (cons __tmp150161 _env143355_))) + _$e144221_) + _env143355_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont147395147396_ - (lambda () _env143350_))) + (___kont147400147401_ + (lambda () _env143355_))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx147391147392_)) - (let ((_e144099144134_ + ___stx147396147397_)) + (let ((_e144104144139_ (let () (declare (not safe)) (gx#stx-e - ___stx147391147392_)))) - (let ((_tl144097144139_ + ___stx147396147397_)))) + (let ((_tl144102144144_ (let () (declare (not safe)) - (##cdr _e144099144134_))) - (_hd144098144137_ + (##cdr _e144104144139_))) + (_hd144103144142_ (let () (declare (not safe)) - (##car _e144099144134_)))) + (##car _e144104144139_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd144098144137_)) + _hd144103144142_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd144098144137_)) + _hd144103144142_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl144097144139_)) - (let ((_e144102144142_ + (gx#stx-pair? _tl144102144144_)) + (let ((_e144107144147_ (let () (declare (not safe)) - (gx#stx-e _tl144097144139_)))) - (let ((_tl144100144147_ + (gx#stx-e _tl144102144144_)))) + (let ((_tl144105144152_ (let () (declare (not safe)) - (##cdr _e144102144142_))) - (_hd144101144145_ + (##cdr _e144107144147_))) + (_hd144106144150_ (let () (declare (not safe)) - (##car _e144102144142_)))) + (##car _e144107144147_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd144101144145_)) - (let ((_e144105144150_ + (gx#stx-pair? _hd144106144150_)) + (let ((_e144110144155_ (let () (declare (not safe)) - (gx#stx-e _hd144101144145_)))) - (let ((_tl144103144155_ + (gx#stx-e _hd144106144150_)))) + (let ((_tl144108144160_ (let () (declare (not safe)) - (##cdr _e144105144150_))) - (_hd144104144153_ + (##cdr _e144110144155_))) + (_hd144109144158_ (let () (declare (not safe)) - (##car _e144105144150_)))) + (##car _e144110144155_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd144104144153_)) + (gx#identifier? _hd144109144158_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd144104144153_)) + _hd144109144158_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl144103144155_)) - (let ((_e144108144158_ + _tl144108144160_)) + (let ((_e144113144163_ (let () (declare (not safe)) (gx#stx-e - _tl144103144155_)))) - (let ((_tl144106144163_ + _tl144108144160_)))) + (let ((_tl144111144168_ (let () (declare (not safe)) - (##cdr _e144108144158_))) - (_hd144107144161_ + (##cdr _e144113144163_))) + (_hd144112144166_ (let () (declare (not safe)) - (##car _e144108144158_)))) + (##car _e144113144163_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl144106144163_)) + _tl144111144168_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl144100144147_)) - (let ((_e144111144166_ + _tl144105144152_)) + (let ((_e144116144171_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl144100144147_)))) - (let ((_tl144109144171_ + (gx#stx-e _tl144105144152_)))) + (let ((_tl144114144176_ (let () (declare (not safe)) - (##cdr _e144111144166_))) - (_hd144110144169_ + (##cdr _e144116144171_))) + (_hd144115144174_ (let () (declare (not safe)) - (##car _e144111144166_)))) + (##car _e144116144171_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd144110144169_)) - (let ((_e144114144174_ + (gx#stx-pair? _hd144115144174_)) + (let ((_e144119144179_ (let () (declare (not safe)) - (gx#stx-e _hd144110144169_)))) - (let ((_tl144112144179_ + (gx#stx-e _hd144115144174_)))) + (let ((_tl144117144184_ (let () (declare (not safe)) - (##cdr _e144114144174_))) - (_hd144113144177_ + (##cdr _e144119144179_))) + (_hd144118144182_ (let () (declare (not safe)) - (##car _e144114144174_)))) + (##car _e144119144179_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd144113144177_)) + (gx#identifier? _hd144118144182_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd144113144177_)) + (gx#stx-eq? '%#ref _hd144118144182_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl144112144179_)) - (let ((_e144117144182_ + (gx#stx-pair? _tl144117144184_)) + (let ((_e144122144187_ (let () (declare (not safe)) (gx#stx-e - _tl144112144179_)))) - (let ((_tl144115144187_ + _tl144117144184_)))) + (let ((_tl144120144192_ (let () (declare (not safe)) - (##cdr _e144117144182_))) - (_hd144116144185_ + (##cdr _e144122144187_))) + (_hd144121144190_ (let () (declare (not safe)) - (##car _e144117144182_)))) + (##car _e144122144187_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl144115144187_)) + _tl144120144192_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl144109144171_)) - (___kont147393147394_ - _hd144116144185_ - _hd144107144161_) - (___kont147395147396_)) - (___kont147395147396_)))) - (___kont147395147396_)) - (___kont147395147396_)) - (___kont147395147396_)))) - (___kont147395147396_)))) - (___kont147395147396_)) - (___kont147395147396_)))) + _tl144114144176_)) + (___kont147398147399_ + _hd144121144190_ + _hd144112144166_) + (___kont147400147401_)) + (___kont147400147401_)))) + (___kont147400147401_)) + (___kont147400147401_)) + (___kont147400147401_)))) + (___kont147400147401_)))) + (___kont147400147401_)) + (___kont147400147401_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont147395147396_)) - (___kont147395147396_)) - (___kont147395147396_)))) - (___kont147395147396_)))) - (___kont147395147396_)) - (___kont147395147396_)) - (___kont147395147396_)))) + (___kont147400147401_)) + (___kont147400147401_)) + (___kont147400147401_)))) + (___kont147400147401_)))) + (___kont147400147401_)) + (___kont147400147401_)) + (___kont147400147401_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont147395147396_)))) + (___kont147400147401_)))) (if (or (let () (declare (not safe)) - (eq? '##eq? _$e144086_)) + (eq? '##eq? _$e144091_)) (let () (declare (not safe)) - (eq? 'eq? _$e144086_)) + (eq? 'eq? _$e144091_)) (let () (declare (not safe)) - (eq? '##eqv? _$e144086_)) + (eq? '##eqv? _$e144091_)) (let () (declare (not safe)) - (eq? 'eqv? _$e144086_)) + (eq? 'eqv? _$e144091_)) (let () (declare (not safe)) - (eq? '##equal? _$e144086_)) + (eq? '##equal? _$e144091_)) (let () (declare (not safe)) - (eq? 'equal? _$e144086_)) + (eq? 'equal? _$e144091_)) (let () (declare (not safe)) (eq? 'gx#free-identifier=? - _$e144086_)) + _$e144091_)) (let () (declare (not safe)) - (eq? 'gx#stx-eq? _$e144086_))) - ((lambda (_sym144245_) - (let* ((_sym144247_ + (eq? 'gx#stx-eq? _$e144091_))) + ((lambda (_sym144250_) + (let* ((_sym144252_ (let () (declare (not safe)) - (_eqf-symbol139411_ - _sym144245_))) - (___stx147459147460_ - _L144060_) - (_g144250144263_ + (_eqf-symbol139416_ + _sym144250_))) + (___stx147464147465_ + _L144065_) + (_g144255144268_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx147459147460_))))) - (let ((___kont147461147462_ - (lambda (_L144291_) - (let ((__tmp150151 - (let ((__tmp150152 + ___stx147464147465_))))) + (let ((___kont147466147467_ + (lambda (_L144296_) + (let ((__tmp150156 + (let ((__tmp150157 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp150153 - (let ((__tmp150155 + (let ((__tmp150158 + (let ((__tmp150160 (let () (declare (not safe)) - (gx#stx-e _L144059_))) - (__tmp150154 + (gx#stx-e _L144064_))) + (__tmp150159 (let () (declare (not safe)) - (cons _val143349_ '())))) + (cons _val143354_ '())))) (declare (not safe)) - (cons __tmp150155 __tmp150154)))) + (cons __tmp150160 __tmp150159)))) (declare (not safe)) - (cons _sym144247_ __tmp150153)))) + (cons _sym144252_ __tmp150158)))) (declare (not safe)) - (cons _L144291_ __tmp150152)))) + (cons _L144296_ __tmp150157)))) (declare (not safe)) - (cons __tmp150151 _env143350_)))) + (cons __tmp150156 _env143355_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont147463147464_ - (lambda () _env143350_))) + (___kont147468147469_ + (lambda () _env143355_))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx147459147460_)) - (let ((_e144255144275_ + ___stx147464147465_)) + (let ((_e144260144280_ (let () (declare (not safe)) (gx#stx-e - ___stx147459147460_)))) - (let ((_tl144253144280_ + ___stx147464147465_)))) + (let ((_tl144258144285_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e144255144275_))) - (_hd144254144278_ - (let () (declare (not safe)) (##car _e144255144275_)))) + (##cdr _e144260144280_))) + (_hd144259144283_ + (let () (declare (not safe)) (##car _e144260144280_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd144254144278_)) + (gx#identifier? _hd144259144283_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd144254144278_)) + (gx#stx-eq? '%#ref _hd144259144283_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl144253144280_)) - (let ((_e144258144283_ + (gx#stx-pair? _tl144258144285_)) + (let ((_e144263144288_ (let () (declare (not safe)) - (gx#stx-e _tl144253144280_)))) - (let ((_tl144256144288_ + (gx#stx-e _tl144258144285_)))) + (let ((_tl144261144293_ (let () (declare (not safe)) - (##cdr _e144258144283_))) - (_hd144257144286_ + (##cdr _e144263144288_))) + (_hd144262144291_ (let () (declare (not safe)) - (##car _e144258144283_)))) + (##car _e144263144288_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl144256144288_)) - (___kont147461147462_ _hd144257144286_) - (___kont147463147464_)))) - (___kont147463147464_)) - (___kont147463147464_)) - (___kont147463147464_)))) + (gx#stx-null? _tl144261144293_)) + (___kont147466147467_ _hd144262144291_) + (___kont147468147469_)))) + (___kont147468147469_)) + (___kont147468147469_)) + (___kont147468147469_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont147463147464_))))) - _$e144086_) - _env143350_))))) - (___kont147491147492_ - (lambda (_L143963_ _L143964_ _L143965_) - (let ((__tmp150161 - (let ((__tmp150171 + (___kont147468147469_))))) + _$e144091_) + _env143355_))))) + (___kont147496147497_ + (lambda (_L143968_ _L143969_ _L143970_) + (let ((__tmp150166 + (let ((__tmp150176 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#call))) - (__tmp150162 - (let ((__tmp150168 - (let ((__tmp150170 + (__tmp150167 + (let ((__tmp150173 + (let ((__tmp150175 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp150169 + (__tmp150174 (let () (declare (not safe)) - (cons _L143965_ + (cons _L143970_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp150170 __tmp150169))) + (cons __tmp150175 __tmp150174))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp150163 - (let ((__tmp150164 - (let ((__tmp150165 + (__tmp150168 + (let ((__tmp150169 + (let ((__tmp150170 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp150167 + (let ((__tmp150172 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote))) - (__tmp150166 + (__tmp150171 (let () (declare (not safe)) - (cons _L143964_ '())))) + (cons _L143969_ '())))) (declare (not safe)) - (cons __tmp150167 __tmp150166)))) + (cons __tmp150172 __tmp150171)))) (declare (not safe)) - (cons __tmp150165 '())))) + (cons __tmp150170 '())))) (declare (not safe)) - (cons _L143963_ __tmp150164)))) + (cons _L143968_ __tmp150169)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp150168 - __tmp150163)))) + (cons __tmp150173 + __tmp150168)))) (declare (not safe)) - (cons __tmp150171 __tmp150162)))) + (cons __tmp150176 __tmp150167)))) (declare (not safe)) - (_fold-assert-type139409_ - __tmp150161 - _val143349_ - _env143350_)))) - (___kont147493147494_ - (lambda (_L143853_ _L143854_ _L143855_) - (let ((_$e143884_ + (_fold-assert-type139414_ + __tmp150166 + _val143354_ + _env143355_)))) + (___kont147498147499_ + (lambda (_L143858_ _L143859_ _L143860_) + (let ((_$e143889_ (let () (declare (not safe)) - (gxc#identifier-symbol _L143855_)))) + (gxc#identifier-symbol _L143860_)))) (if (or (let () (declare (not safe)) (eq? 'gx#free-identifier=? - _$e143884_)) + _$e143889_)) (let () (declare (not safe)) - (eq? 'gx#stx-eq? _$e143884_))) - ((lambda (_sym143890_) - (let* ((_sym143892_ + (eq? 'gx#stx-eq? _$e143889_))) + ((lambda (_sym143895_) + (let* ((_sym143897_ (let () (declare (not safe)) - (_eqf-symbol139411_ - _sym143890_))) - (__tmp150172 - (let ((__tmp150173 - (let ((__tmp150174 - (let ((__tmp150175 + (_eqf-symbol139416_ + _sym143895_))) + (__tmp150177 + (let ((__tmp150178 + (let ((__tmp150179 + (let ((__tmp150180 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _val143349_ '())))) + (cons _val143354_ '())))) (declare (not safe)) - (cons _L143853_ __tmp150175)))) + (cons _L143858_ __tmp150180)))) (declare (not safe)) - (cons _sym143892_ __tmp150174)))) + (cons _sym143897_ __tmp150179)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L143854_ - __tmp150173)))) + (cons _L143859_ + __tmp150178)))) (declare (not safe)) - (cons __tmp150172 _env143350_))) - _$e143884_) - _env143350_)))) - (___kont147495147496_ - (lambda (_L143737_ _L143738_ _L143739_) - (let ((__tmp150176 - (let ((__tmp150189 + (cons __tmp150177 _env143355_))) + _$e143889_) + _env143355_)))) + (___kont147500147501_ + (lambda (_L143742_ _L143743_ _L143744_) + (let ((__tmp150181 + (let ((__tmp150194 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#call))) - (__tmp150177 - (let ((__tmp150186 - (let ((__tmp150188 + (__tmp150182 + (let ((__tmp150191 + (let ((__tmp150193 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp150187 + (__tmp150192 (let () (declare (not safe)) - (cons _L143739_ + (cons _L143744_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp150188 __tmp150187))) + (cons __tmp150193 __tmp150192))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp150178 - (let ((__tmp150183 - (let ((__tmp150185 + (__tmp150183 + (let ((__tmp150188 + (let ((__tmp150190 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp150184 - (let () (declare (not safe)) (cons _L143737_ '())))) + (__tmp150189 + (let () (declare (not safe)) (cons _L143742_ '())))) (declare (not safe)) - (cons __tmp150185 __tmp150184))) - (__tmp150179 - (let ((__tmp150180 - (let ((__tmp150182 + (cons __tmp150190 __tmp150189))) + (__tmp150184 + (let ((__tmp150185 + (let ((__tmp150187 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote-syntax))) - (__tmp150181 + (__tmp150186 (let () (declare (not safe)) - (cons _L143738_ '())))) + (cons _L143743_ '())))) (declare (not safe)) - (cons __tmp150182 __tmp150181)))) + (cons __tmp150187 __tmp150186)))) (declare (not safe)) - (cons __tmp150180 '())))) + (cons __tmp150185 '())))) (declare (not safe)) - (cons __tmp150183 __tmp150179)))) + (cons __tmp150188 __tmp150184)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp150186 - __tmp150178)))) + (cons __tmp150191 + __tmp150183)))) (declare (not safe)) - (cons __tmp150189 __tmp150177)))) + (cons __tmp150194 __tmp150182)))) (declare (not safe)) - (_fold-assert-type139409_ - __tmp150176 - _val143349_ - _env143350_)))) - (___kont147497147498_ - (lambda (_L143621_ _L143622_ _L143623_) - (let ((__tmp150190 + (_fold-assert-type139414_ + __tmp150181 + _val143354_ + _env143355_)))) + (___kont147502147503_ + (lambda (_L143626_ _L143627_ _L143628_) + (let ((__tmp150195 (let () (declare (not safe)) (gxc#apply-expression-subst - _L143622_ - _L143623_ - _L143621_)))) + _L143627_ + _L143628_ + _L143626_)))) (declare (not safe)) - (_fold-assert-type139409_ - __tmp150190 - _val143349_ - _env143350_)))) - (___kont147499147500_ (lambda () _env143350_))) + (_fold-assert-type139414_ + __tmp150195 + _val143354_ + _env143355_)))) + (___kont147504147505_ (lambda () _env143355_))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx147485147486_)) - (let ((_e143364144313_ + (gx#stx-pair? ___stx147490147491_)) + (let ((_e143369144318_ (let () (declare (not safe)) - (gx#stx-e ___stx147485147486_)))) - (let ((_tl143362144318_ + (gx#stx-e ___stx147490147491_)))) + (let ((_tl143367144323_ (let () (declare (not safe)) - (##cdr _e143364144313_))) - (_hd143363144316_ + (##cdr _e143369144318_))) + (_hd143368144321_ (let () (declare (not safe)) - (##car _e143364144313_)))) + (##car _e143369144318_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd143363144316_)) + (gx#identifier? _hd143368144321_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd143363144316_)) + _hd143368144321_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143362144318_)) - (let ((_e143367144321_ + (gx#stx-pair? _tl143367144323_)) + (let ((_e143372144326_ (let () (declare (not safe)) (gx#stx-e - _tl143362144318_)))) - (let ((_tl143365144326_ + _tl143367144323_)))) + (let ((_tl143370144331_ (let () (declare (not safe)) - (##cdr _e143367144321_))) - (_hd143366144324_ + (##cdr _e143372144326_))) + (_hd143371144329_ (let () (declare (not safe)) - (##car _e143367144321_)))) + (##car _e143372144326_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd143366144324_)) - (let ((_e143370144329_ + _hd143371144329_)) + (let ((_e143375144334_ (let () (declare (not safe)) (gx#stx-e - _hd143366144324_)))) - (let ((_tl143368144334_ + _hd143371144329_)))) + (let ((_tl143373144339_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e143370144329_))) - (_hd143369144332_ - (let () (declare (not safe)) (##car _e143370144329_)))) + (##cdr _e143375144334_))) + (_hd143374144337_ + (let () (declare (not safe)) (##car _e143375144334_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd143369144332_)) + (gx#identifier? _hd143374144337_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd143369144332_)) + (gx#stx-eq? '%#ref _hd143374144337_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143368144334_)) - (let ((_e143373144337_ + (gx#stx-pair? _tl143373144339_)) + (let ((_e143378144342_ (let () (declare (not safe)) - (gx#stx-e _tl143368144334_)))) - (let ((_tl143371144342_ + (gx#stx-e _tl143373144339_)))) + (let ((_tl143376144347_ (let () (declare (not safe)) - (##cdr _e143373144337_))) - (_hd143372144340_ + (##cdr _e143378144342_))) + (_hd143377144345_ (let () (declare (not safe)) - (##car _e143373144337_)))) + (##car _e143378144342_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl143371144342_)) + (gx#stx-null? _tl143376144347_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143365144326_)) - (let ((_e143376144345_ + (gx#stx-pair? _tl143370144331_)) + (let ((_e143381144350_ (let () (declare (not safe)) (gx#stx-e - _tl143365144326_)))) - (let ((_tl143374144350_ + _tl143370144331_)))) + (let ((_tl143379144355_ (let () (declare (not safe)) - (##cdr _e143376144345_))) - (_hd143375144348_ + (##cdr _e143381144350_))) + (_hd143380144353_ (let () (declare (not safe)) - (##car _e143376144345_)))) + (##car _e143381144350_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd143375144348_)) - (let ((_e143379144353_ + _hd143380144353_)) + (let ((_e143384144358_ (let () (declare (not safe)) (gx#stx-e - _hd143375144348_)))) - (let ((_tl143377144358_ + _hd143380144353_)))) + (let ((_tl143382144363_ (let () (declare (not safe)) - (##cdr _e143379144353_))) - (_hd143378144356_ + (##cdr _e143384144358_))) + (_hd143383144361_ (let () (declare (not safe)) - (##car _e143379144353_)))) + (##car _e143384144358_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd143378144356_)) + _hd143383144361_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _hd143378144356_)) + (gx#stx-eq? '%#ref _hd143383144361_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143377144358_)) - (let ((_e143382144361_ + (gx#stx-pair? _tl143382144363_)) + (let ((_e143387144366_ (let () (declare (not safe)) - (gx#stx-e _tl143377144358_)))) - (let ((_tl143380144366_ + (gx#stx-e _tl143382144363_)))) + (let ((_tl143385144371_ (let () (declare (not safe)) - (##cdr _e143382144361_))) - (_hd143381144364_ + (##cdr _e143387144366_))) + (_hd143386144369_ (let () (declare (not safe)) - (##car _e143382144361_)))) + (##car _e143387144366_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl143380144366_)) + (gx#stx-null? _tl143385144371_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl143374144350_)) - (___kont147487147488_ - _hd143381144364_ - _hd143372144340_) + (gx#stx-null? _tl143379144355_)) + (___kont147492147493_ + _hd143386144369_ + _hd143377144345_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143374144350_)) - (let ((_e143403144035_ + (gx#stx-pair? _tl143379144355_)) + (let ((_e143408144040_ (let () (declare (not safe)) (gx#stx-e - _tl143374144350_)))) - (let ((_tl143401144040_ + _tl143379144355_)))) + (let ((_tl143406144045_ (let () (declare (not safe)) - (##cdr _e143403144035_))) - (_hd143402144038_ + (##cdr _e143408144040_))) + (_hd143407144043_ (let () (declare (not safe)) - (##car _e143403144035_)))) + (##car _e143408144040_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd143402144038_)) - (let ((_e143406144043_ + _hd143407144043_)) + (let ((_e143411144048_ (let () (declare (not safe)) (gx#stx-e - _hd143402144038_)))) - (let ((_tl143404144048_ + _hd143407144043_)))) + (let ((_tl143409144053_ (let () (declare (not safe)) - (##cdr _e143406144043_))) - (_hd143405144046_ + (##cdr _e143411144048_))) + (_hd143410144051_ (let () (declare (not safe)) - (##car _e143406144043_)))) + (##car _e143411144048_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd143405144046_)) + _hd143410144051_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#quote _hd143405144046_)) + (gx#stx-eq? '%#quote _hd143410144051_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143404144048_)) - (let ((_e143409144051_ + (gx#stx-pair? _tl143409144053_)) + (let ((_e143414144056_ (let () (declare (not safe)) - (gx#stx-e _tl143404144048_)))) - (let ((_tl143407144056_ + (gx#stx-e _tl143409144053_)))) + (let ((_tl143412144061_ (let () (declare (not safe)) - (##cdr _e143409144051_))) - (_hd143408144054_ + (##cdr _e143414144056_))) + (_hd143413144059_ (let () (declare (not safe)) - (##car _e143409144051_)))) + (##car _e143414144056_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl143407144056_)) + (gx#stx-null? _tl143412144061_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl143401144040_)) - (___kont147489147490_ - _hd143408144054_ - _hd143375144348_ - _hd143372144340_) - (___kont147499147500_)) - (___kont147499147500_)))) - (___kont147499147500_)) + (gx#stx-null? _tl143406144045_)) + (___kont147494147495_ + _hd143413144059_ + _hd143380144353_ + _hd143377144345_) + (___kont147504147505_)) + (___kont147504147505_)))) + (___kont147504147505_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _hd143405144046_)) + (gx#stx-eq? '%#quote-syntax _hd143410144051_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143404144048_)) - (let ((_e143469143845_ + (gx#stx-pair? _tl143409144053_)) + (let ((_e143474143850_ (let () (declare (not safe)) - (gx#stx-e _tl143404144048_)))) - (let ((_tl143467143850_ + (gx#stx-e _tl143409144053_)))) + (let ((_tl143472143855_ (let () (declare (not safe)) - (##cdr _e143469143845_))) - (_hd143468143848_ + (##cdr _e143474143850_))) + (_hd143473143853_ (let () (declare (not safe)) - (##car _e143469143845_)))) + (##car _e143474143850_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl143467143850_)) + (gx#stx-null? _tl143472143855_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl143401144040_)) - (___kont147493147494_ - _hd143468143848_ - _hd143381144364_ - _hd143372144340_) - (___kont147499147500_)) - (___kont147499147500_)))) - (___kont147499147500_)) - (___kont147499147500_))) - (___kont147499147500_)))) + (gx#stx-null? _tl143406144045_)) + (___kont147498147499_ + _hd143473143853_ + _hd143386144369_ + _hd143377144345_) + (___kont147504147505_)) + (___kont147504147505_)))) + (___kont147504147505_)) + (___kont147504147505_))) + (___kont147504147505_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont147499147500_)))) - (___kont147499147500_))) + (___kont147504147505_)))) + (___kont147504147505_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143374144350_)) - (let ((_e143403144035_ + (gx#stx-pair? _tl143379144355_)) + (let ((_e143408144040_ (let () (declare (not safe)) - (gx#stx-e _tl143374144350_)))) - (let ((_tl143401144040_ + (gx#stx-e _tl143379144355_)))) + (let ((_tl143406144045_ (let () (declare (not safe)) - (##cdr _e143403144035_))) - (_hd143402144038_ + (##cdr _e143408144040_))) + (_hd143407144043_ (let () (declare (not safe)) - (##car _e143403144035_)))) + (##car _e143408144040_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd143402144038_)) - (let ((_e143406144043_ + (gx#stx-pair? _hd143407144043_)) + (let ((_e143411144048_ (let () (declare (not safe)) (gx#stx-e - _hd143402144038_)))) - (let ((_tl143404144048_ + _hd143407144043_)))) + (let ((_tl143409144053_ (let () (declare (not safe)) - (##cdr _e143406144043_))) - (_hd143405144046_ + (##cdr _e143411144048_))) + (_hd143410144051_ (let () (declare (not safe)) - (##car _e143406144043_)))) + (##car _e143411144048_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd143405144046_)) + _hd143410144051_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd143405144046_)) + _hd143410144051_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl143404144048_)) - (let ((_e143409144051_ + (gx#stx-pair? _tl143409144053_)) + (let ((_e143414144056_ (let () (declare (not safe)) - (gx#stx-e _tl143404144048_)))) - (let ((_tl143407144056_ + (gx#stx-e _tl143409144053_)))) + (let ((_tl143412144061_ (let () (declare (not safe)) - (##cdr _e143409144051_))) - (_hd143408144054_ + (##cdr _e143414144056_))) + (_hd143413144059_ (let () (declare (not safe)) - (##car _e143409144051_)))) + (##car _e143414144056_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl143407144056_)) + (gx#stx-null? _tl143412144061_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl143401144040_)) - (___kont147489147490_ - _hd143408144054_ - _hd143375144348_ - _hd143372144340_) - (___kont147499147500_)) - (___kont147499147500_)))) - (___kont147499147500_)) - (___kont147499147500_)) + (gx#stx-null? _tl143406144045_)) + (___kont147494147495_ + _hd143413144059_ + _hd143380144353_ + _hd143377144345_) + (___kont147504147505_)) + (___kont147504147505_)))) + (___kont147504147505_)) + (___kont147504147505_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont147499147500_)))) - (___kont147499147500_)))) - (___kont147499147500_))))) + (___kont147504147505_)))) + (___kont147504147505_)))) + (___kont147504147505_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143374144350_)) - (let ((_e143403144035_ + (gx#stx-pair? _tl143379144355_)) + (let ((_e143408144040_ (let () (declare (not safe)) - (gx#stx-e _tl143374144350_)))) - (let ((_tl143401144040_ + (gx#stx-e _tl143379144355_)))) + (let ((_tl143406144045_ (let () (declare (not safe)) - (##cdr _e143403144035_))) - (_hd143402144038_ + (##cdr _e143408144040_))) + (_hd143407144043_ (let () (declare (not safe)) - (##car _e143403144035_)))) + (##car _e143408144040_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd143402144038_)) - (let ((_e143406144043_ + (gx#stx-pair? _hd143407144043_)) + (let ((_e143411144048_ (let () (declare (not safe)) - (gx#stx-e _hd143402144038_)))) - (let ((_tl143404144048_ + (gx#stx-e _hd143407144043_)))) + (let ((_tl143409144053_ (let () (declare (not safe)) - (##cdr _e143406144043_))) - (_hd143405144046_ + (##cdr _e143411144048_))) + (_hd143410144051_ (let () (declare (not safe)) - (##car _e143406144043_)))) + (##car _e143411144048_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd143405144046_)) + _hd143410144051_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd143405144046_)) + _hd143410144051_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl143404144048_)) - (let ((_e143409144051_ + _tl143409144053_)) + (let ((_e143414144056_ (let () (declare (not safe)) (gx#stx-e - _tl143404144048_)))) - (let ((_tl143407144056_ + _tl143409144053_)))) + (let ((_tl143412144061_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e143409144051_))) - (_hd143408144054_ - (let () (declare (not safe)) (##car _e143409144051_)))) + (##cdr _e143414144056_))) + (_hd143413144059_ + (let () (declare (not safe)) (##car _e143414144056_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl143407144056_)) + (gx#stx-null? _tl143412144061_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl143401144040_)) - (___kont147489147490_ - _hd143408144054_ - _hd143375144348_ - _hd143372144340_) - (___kont147499147500_)) - (___kont147499147500_)))) + (gx#stx-null? _tl143406144045_)) + (___kont147494147495_ + _hd143413144059_ + _hd143380144353_ + _hd143377144345_) + (___kont147504147505_)) + (___kont147504147505_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont147499147500_)) - (___kont147499147500_)) - (___kont147499147500_)))) - (___kont147499147500_)))) - (___kont147499147500_))) + (___kont147504147505_)) + (___kont147504147505_)) + (___kont147504147505_)))) + (___kont147504147505_)))) + (___kont147504147505_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143374144350_)) - (let ((_e143403144035_ + (gx#stx-pair? _tl143379144355_)) + (let ((_e143408144040_ (let () (declare (not safe)) - (gx#stx-e _tl143374144350_)))) - (let ((_tl143401144040_ + (gx#stx-e _tl143379144355_)))) + (let ((_tl143406144045_ (let () (declare (not safe)) - (##cdr _e143403144035_))) - (_hd143402144038_ + (##cdr _e143408144040_))) + (_hd143407144043_ (let () (declare (not safe)) - (##car _e143403144035_)))) + (##car _e143408144040_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd143402144038_)) - (let ((_e143406144043_ + (gx#stx-pair? _hd143407144043_)) + (let ((_e143411144048_ (let () (declare (not safe)) - (gx#stx-e _hd143402144038_)))) - (let ((_tl143404144048_ + (gx#stx-e _hd143407144043_)))) + (let ((_tl143409144053_ (let () (declare (not safe)) - (##cdr _e143406144043_))) - (_hd143405144046_ + (##cdr _e143411144048_))) + (_hd143410144051_ (let () (declare (not safe)) - (##car _e143406144043_)))) + (##car _e143411144048_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd143405144046_)) + (gx#identifier? _hd143410144051_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd143405144046_)) + _hd143410144051_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl143404144048_)) - (let ((_e143409144051_ + _tl143409144053_)) + (let ((_e143414144056_ (let () (declare (not safe)) (gx#stx-e - _tl143404144048_)))) - (let ((_tl143407144056_ + _tl143409144053_)))) + (let ((_tl143412144061_ (let () (declare (not safe)) - (##cdr _e143409144051_))) - (_hd143408144054_ + (##cdr _e143414144056_))) + (_hd143413144059_ (let () (declare (not safe)) - (##car _e143409144051_)))) + (##car _e143414144056_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl143407144056_)) + _tl143412144061_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl143401144040_)) - (___kont147489147490_ - _hd143408144054_ - _hd143375144348_ - _hd143372144340_) + (gx#stx-null? _tl143406144045_)) + (___kont147494147495_ + _hd143413144059_ + _hd143380144353_ + _hd143377144345_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd143378144356_)) + (gx#stx-eq? '%#quote _hd143383144361_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143377144358_)) - (let ((_e143433143947_ + (gx#stx-pair? _tl143382144363_)) + (let ((_e143438143952_ (let () (declare (not safe)) - (gx#stx-e _tl143377144358_)))) - (let ((_tl143431143952_ + (gx#stx-e _tl143382144363_)))) + (let ((_tl143436143957_ (let () (declare (not safe)) - (##cdr _e143433143947_))) - (_hd143432143950_ + (##cdr _e143438143952_))) + (_hd143437143955_ (let () (declare (not safe)) - (##car _e143433143947_)))) - (___kont147499147500_))) - (___kont147499147500_)) + (##car _e143438143952_)))) + (___kont147504147505_))) + (___kont147504147505_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _hd143378144356_)) + (gx#stx-eq? '%#quote-syntax _hd143383144361_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143377144358_)) - (let ((_e143493143705_ + (gx#stx-pair? _tl143382144363_)) + (let ((_e143498143710_ (let () (declare (not safe)) - (gx#stx-e _tl143377144358_)))) - (let ((_tl143491143710_ + (gx#stx-e _tl143382144363_)))) + (let ((_tl143496143715_ (let () (declare (not safe)) - (##cdr _e143493143705_))) - (_hd143492143708_ + (##cdr _e143498143710_))) + (_hd143497143713_ (let () (declare (not safe)) - (##car _e143493143705_)))) - (___kont147499147500_))) - (___kont147499147500_)) - (___kont147499147500_)))) + (##car _e143498143710_)))) + (___kont147504147505_))) + (___kont147504147505_)) + (___kont147504147505_)))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd143378144356_)) + (gx#stx-eq? '%#quote _hd143383144361_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143377144358_)) - (let ((_e143433143947_ + (gx#stx-pair? _tl143382144363_)) + (let ((_e143438143952_ (let () (declare (not safe)) - (gx#stx-e _tl143377144358_)))) - (let ((_tl143431143952_ + (gx#stx-e _tl143382144363_)))) + (let ((_tl143436143957_ (let () (declare (not safe)) - (##cdr _e143433143947_))) - (_hd143432143950_ + (##cdr _e143438143952_))) + (_hd143437143955_ (let () (declare (not safe)) - (##car _e143433143947_)))) + (##car _e143438143952_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl143431143952_)) + (gx#stx-null? _tl143436143957_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl143401144040_)) - (___kont147491147492_ - _hd143402144038_ - _hd143432143950_ - _hd143372144340_) - (___kont147499147500_)) - (___kont147499147500_)))) - (___kont147499147500_)) + (gx#stx-null? _tl143406144045_)) + (___kont147496147497_ + _hd143407144043_ + _hd143437143955_ + _hd143377144345_) + (___kont147504147505_)) + (___kont147504147505_)))) + (___kont147504147505_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _hd143378144356_)) + (gx#stx-eq? '%#quote-syntax _hd143383144361_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143377144358_)) - (let ((_e143493143705_ + (gx#stx-pair? _tl143382144363_)) + (let ((_e143498143710_ (let () (declare (not safe)) - (gx#stx-e _tl143377144358_)))) - (let ((_tl143491143710_ + (gx#stx-e _tl143382144363_)))) + (let ((_tl143496143715_ (let () (declare (not safe)) - (##cdr _e143493143705_))) - (_hd143492143708_ + (##cdr _e143498143710_))) + (_hd143497143713_ (let () (declare (not safe)) - (##car _e143493143705_)))) - (___kont147499147500_))) - (___kont147499147500_)) - (___kont147499147500_)))))) + (##car _e143498143710_)))) + (___kont147504147505_))) + (___kont147504147505_)) + (___kont147504147505_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd143378144356_)) + _hd143383144361_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl143377144358_)) - (let ((_e143433143947_ + _tl143382144363_)) + (let ((_e143438143952_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl143377144358_)))) - (let ((_tl143431143952_ + (gx#stx-e _tl143382144363_)))) + (let ((_tl143436143957_ (let () (declare (not safe)) - (##cdr _e143433143947_))) - (_hd143432143950_ + (##cdr _e143438143952_))) + (_hd143437143955_ (let () (declare (not safe)) - (##car _e143433143947_)))) + (##car _e143438143952_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl143431143952_)) + (gx#stx-null? _tl143436143957_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl143401144040_)) - (___kont147491147492_ - _hd143402144038_ - _hd143432143950_ - _hd143372144340_) - (___kont147499147500_)) - (___kont147499147500_)))) - (___kont147499147500_)) + (gx#stx-null? _tl143406144045_)) + (___kont147496147497_ + _hd143407144043_ + _hd143437143955_ + _hd143377144345_) + (___kont147504147505_)) + (___kont147504147505_)))) + (___kont147504147505_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd143378144356_)) + _hd143383144361_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl143377144358_)) - (let ((_e143493143705_ + (gx#stx-pair? _tl143382144363_)) + (let ((_e143498143710_ (let () (declare (not safe)) - (gx#stx-e _tl143377144358_)))) - (let ((_tl143491143710_ + (gx#stx-e _tl143382144363_)))) + (let ((_tl143496143715_ (let () (declare (not safe)) - (##cdr _e143493143705_))) - (_hd143492143708_ + (##cdr _e143498143710_))) + (_hd143497143713_ (let () (declare (not safe)) - (##car _e143493143705_)))) - (___kont147499147500_))) - (___kont147499147500_)) - (___kont147499147500_)))) + (##car _e143498143710_)))) + (___kont147504147505_))) + (___kont147504147505_)) + (___kont147504147505_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd143378144356_)) + _hd143383144361_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl143377144358_)) - (let ((_e143433143947_ + _tl143382144363_)) + (let ((_e143438143952_ (let () (declare (not safe)) (gx#stx-e - _tl143377144358_)))) - (let ((_tl143431143952_ + _tl143382144363_)))) + (let ((_tl143436143957_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e143433143947_))) - (_hd143432143950_ - (let () (declare (not safe)) (##car _e143433143947_)))) + (##cdr _e143438143952_))) + (_hd143437143955_ + (let () (declare (not safe)) (##car _e143438143952_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl143431143952_)) + (gx#stx-null? _tl143436143957_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl143401144040_)) - (___kont147491147492_ - _hd143402144038_ - _hd143432143950_ - _hd143372144340_) - (___kont147499147500_)) - (___kont147499147500_)))) + (gx#stx-null? _tl143406144045_)) + (___kont147496147497_ + _hd143407144043_ + _hd143437143955_ + _hd143377144345_) + (___kont147504147505_)) + (___kont147504147505_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont147499147500_)) + (___kont147504147505_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd143378144356_)) + _hd143383144361_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl143377144358_)) - (let ((_e143493143705_ + _tl143382144363_)) + (let ((_e143498143710_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl143377144358_)))) - (let ((_tl143491143710_ + (gx#stx-e _tl143382144363_)))) + (let ((_tl143496143715_ (let () (declare (not safe)) - (##cdr _e143493143705_))) - (_hd143492143708_ + (##cdr _e143498143710_))) + (_hd143497143713_ (let () (declare (not safe)) - (##car _e143493143705_)))) + (##car _e143498143710_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl143491143710_)) + (gx#stx-null? _tl143496143715_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd143405144046_)) + (gx#stx-eq? '%#ref _hd143410144051_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143404144048_)) - (let ((_e143502143729_ + (gx#stx-pair? _tl143409144053_)) + (let ((_e143507143734_ (let () (declare (not safe)) - (gx#stx-e _tl143404144048_)))) - (let ((_tl143500143734_ + (gx#stx-e _tl143409144053_)))) + (let ((_tl143505143739_ (let () (declare (not safe)) - (##cdr _e143502143729_))) - (_hd143501143732_ + (##cdr _e143507143734_))) + (_hd143506143737_ (let () (declare (not safe)) - (##car _e143502143729_)))) + (##car _e143507143734_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl143500143734_)) + (gx#stx-null? _tl143505143739_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl143401144040_)) - (___kont147495147496_ - _hd143501143732_ - _hd143492143708_ - _hd143372144340_) - (___kont147499147500_)) - (___kont147499147500_)))) - (___kont147499147500_)) - (___kont147499147500_)) - (___kont147499147500_)))) - (___kont147499147500_)) + (gx#stx-null? _tl143406144045_)) + (___kont147500147501_ + _hd143506143737_ + _hd143497143713_ + _hd143377144345_) + (___kont147504147505_)) + (___kont147504147505_)))) + (___kont147504147505_)) + (___kont147504147505_)) + (___kont147504147505_)))) + (___kont147504147505_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont147499147500_)))) + (___kont147504147505_)))) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd143378144356_)) + _hd143383144361_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl143377144358_)) - (let ((_e143433143947_ + _tl143382144363_)) + (let ((_e143438143952_ (let () (declare (not safe)) (gx#stx-e - _tl143377144358_)))) - (let ((_tl143431143952_ + _tl143382144363_)))) + (let ((_tl143436143957_ (let () (declare (not safe)) - (##cdr _e143433143947_))) - (_hd143432143950_ + (##cdr _e143438143952_))) + (_hd143437143955_ (let () (declare (not safe)) - (##car _e143433143947_)))) + (##car _e143438143952_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl143431143952_)) + _tl143436143957_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl143401144040_)) - (___kont147491147492_ - _hd143402144038_ - _hd143432143950_ - _hd143372144340_) - (___kont147499147500_)) - (___kont147499147500_)))) + (gx#stx-null? _tl143406144045_)) + (___kont147496147497_ + _hd143407144043_ + _hd143437143955_ + _hd143377144345_) + (___kont147504147505_)) + (___kont147504147505_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont147499147500_)) + (___kont147504147505_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd143378144356_)) + _hd143383144361_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl143377144358_)) - (let ((_e143493143705_ + _tl143382144363_)) + (let ((_e143498143710_ (let () (declare (not safe)) (gx#stx-e - _tl143377144358_)))) - (let ((_tl143491143710_ + _tl143382144363_)))) + (let ((_tl143496143715_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e143493143705_))) - (_hd143492143708_ - (let () (declare (not safe)) (##car _e143493143705_)))) - (___kont147499147500_))) + (##cdr _e143498143710_))) + (_hd143497143713_ + (let () (declare (not safe)) (##car _e143498143710_)))) + (___kont147504147505_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont147499147500_)) - (___kont147499147500_)))))) + (___kont147504147505_)) + (___kont147504147505_)))))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd143378144356_)) + (gx#stx-eq? '%#quote _hd143383144361_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143377144358_)) - (let ((_e143433143947_ + (gx#stx-pair? _tl143382144363_)) + (let ((_e143438143952_ (let () (declare (not safe)) (gx#stx-e - _tl143377144358_)))) - (let ((_tl143431143952_ + _tl143382144363_)))) + (let ((_tl143436143957_ (let () (declare (not safe)) - (##cdr _e143433143947_))) - (_hd143432143950_ + (##cdr _e143438143952_))) + (_hd143437143955_ (let () (declare (not safe)) - (##car _e143433143947_)))) + (##car _e143438143952_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl143431143952_)) + _tl143436143957_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl143401144040_)) - (___kont147491147492_ - _hd143402144038_ - _hd143432143950_ - _hd143372144340_) - (___kont147499147500_)) - (___kont147499147500_)))) - (___kont147499147500_)) + _tl143406144045_)) + (___kont147496147497_ + _hd143407144043_ + _hd143437143955_ + _hd143377144345_) + (___kont147504147505_)) + (___kont147504147505_)))) + (___kont147504147505_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd143378144356_)) + _hd143383144361_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143377144358_)) - (let ((_e143493143705_ + (gx#stx-pair? _tl143382144363_)) + (let ((_e143498143710_ (let () (declare (not safe)) (gx#stx-e - _tl143377144358_)))) - (let ((_tl143491143710_ + _tl143382144363_)))) + (let ((_tl143496143715_ (let () (declare (not safe)) - (##cdr _e143493143705_))) - (_hd143492143708_ + (##cdr _e143498143710_))) + (_hd143497143713_ (let () (declare (not safe)) - (##car _e143493143705_)))) - (___kont147499147500_))) - (___kont147499147500_)) - (___kont147499147500_)))))) + (##car _e143498143710_)))) + (___kont147504147505_))) + (___kont147504147505_)) + (___kont147504147505_)))))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd143378144356_)) + (gx#stx-eq? '%#quote _hd143383144361_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143377144358_)) - (let ((_e143433143947_ + (gx#stx-pair? _tl143382144363_)) + (let ((_e143438143952_ (let () (declare (not safe)) - (gx#stx-e _tl143377144358_)))) - (let ((_tl143431143952_ + (gx#stx-e _tl143382144363_)))) + (let ((_tl143436143957_ (let () (declare (not safe)) - (##cdr _e143433143947_))) - (_hd143432143950_ + (##cdr _e143438143952_))) + (_hd143437143955_ (let () (declare (not safe)) - (##car _e143433143947_)))) - (___kont147499147500_))) - (___kont147499147500_)) + (##car _e143438143952_)))) + (___kont147504147505_))) + (___kont147504147505_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd143378144356_)) + _hd143383144361_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143377144358_)) - (let ((_e143493143705_ + (gx#stx-pair? _tl143382144363_)) + (let ((_e143498143710_ (let () (declare (not safe)) - (gx#stx-e _tl143377144358_)))) - (let ((_tl143491143710_ + (gx#stx-e _tl143382144363_)))) + (let ((_tl143496143715_ (let () (declare (not safe)) - (##cdr _e143493143705_))) - (_hd143492143708_ + (##cdr _e143498143710_))) + (_hd143497143713_ (let () (declare (not safe)) - (##car _e143493143705_)))) - (___kont147499147500_))) - (___kont147499147500_)) - (___kont147499147500_))))) + (##car _e143498143710_)))) + (___kont147504147505_))) + (___kont147504147505_)) + (___kont147504147505_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143374144350_)) - (let ((_e143403144035_ + (gx#stx-pair? _tl143379144355_)) + (let ((_e143408144040_ (let () (declare (not safe)) - (gx#stx-e _tl143374144350_)))) - (let ((_tl143401144040_ + (gx#stx-e _tl143379144355_)))) + (let ((_tl143406144045_ (let () (declare (not safe)) - (##cdr _e143403144035_))) - (_hd143402144038_ + (##cdr _e143408144040_))) + (_hd143407144043_ (let () (declare (not safe)) - (##car _e143403144035_)))) + (##car _e143408144040_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd143402144038_)) - (let ((_e143406144043_ + (gx#stx-pair? _hd143407144043_)) + (let ((_e143411144048_ (let () (declare (not safe)) - (gx#stx-e _hd143402144038_)))) - (let ((_tl143404144048_ + (gx#stx-e _hd143407144043_)))) + (let ((_tl143409144053_ (let () (declare (not safe)) - (##cdr _e143406144043_))) - (_hd143405144046_ + (##cdr _e143411144048_))) + (_hd143410144051_ (let () (declare (not safe)) - (##car _e143406144043_)))) + (##car _e143411144048_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd143405144046_)) + (gx#identifier? _hd143410144051_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd143405144046_)) + _hd143410144051_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143404144048_)) - (let ((_e143409144051_ + (gx#stx-pair? _tl143409144053_)) + (let ((_e143414144056_ (let () (declare (not safe)) (gx#stx-e - _tl143404144048_)))) - (let ((_tl143407144056_ + _tl143409144053_)))) + (let ((_tl143412144061_ (let () (declare (not safe)) - (##cdr _e143409144051_))) - (_hd143408144054_ + (##cdr _e143414144056_))) + (_hd143413144059_ (let () (declare (not safe)) - (##car _e143409144051_)))) + (##car _e143414144056_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl143407144056_)) + _tl143412144061_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl143401144040_)) - (___kont147489147490_ - _hd143408144054_ - _hd143375144348_ - _hd143372144340_) - (___kont147499147500_)) - (___kont147499147500_)))) - (___kont147499147500_)) - (___kont147499147500_)) - (___kont147499147500_)))) - (___kont147499147500_)))) - (___kont147499147500_))))) + _tl143406144045_)) + (___kont147494147495_ + _hd143413144059_ + _hd143380144353_ + _hd143377144345_) + (___kont147504147505_)) + (___kont147504147505_)))) + (___kont147504147505_)) + (___kont147504147505_)) + (___kont147504147505_)))) + (___kont147504147505_)))) + (___kont147504147505_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl143374144350_)) - (let ((_e143403144035_ + _tl143379144355_)) + (let ((_e143408144040_ (let () (declare (not safe)) (gx#stx-e - _tl143374144350_)))) - (let ((_tl143401144040_ + _tl143379144355_)))) + (let ((_tl143406144045_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e143403144035_))) - (_hd143402144038_ - (let () (declare (not safe)) (##car _e143403144035_)))) + (##cdr _e143408144040_))) + (_hd143407144043_ + (let () (declare (not safe)) (##car _e143408144040_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd143402144038_)) - (let ((_e143406144043_ + (gx#stx-pair? _hd143407144043_)) + (let ((_e143411144048_ (let () (declare (not safe)) - (gx#stx-e _hd143402144038_)))) - (let ((_tl143404144048_ + (gx#stx-e _hd143407144043_)))) + (let ((_tl143409144053_ (let () (declare (not safe)) - (##cdr _e143406144043_))) - (_hd143405144046_ + (##cdr _e143411144048_))) + (_hd143410144051_ (let () (declare (not safe)) - (##car _e143406144043_)))) + (##car _e143411144048_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd143405144046_)) + (gx#identifier? _hd143410144051_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd143405144046_)) + (gx#stx-eq? '%#quote _hd143410144051_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143404144048_)) - (let ((_e143409144051_ + (gx#stx-pair? _tl143409144053_)) + (let ((_e143414144056_ (let () (declare (not safe)) - (gx#stx-e _tl143404144048_)))) - (let ((_tl143407144056_ + (gx#stx-e _tl143409144053_)))) + (let ((_tl143412144061_ (let () (declare (not safe)) - (##cdr _e143409144051_))) - (_hd143408144054_ + (##cdr _e143414144056_))) + (_hd143413144059_ (let () (declare (not safe)) - (##car _e143409144051_)))) + (##car _e143414144056_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl143407144056_)) + (gx#stx-null? _tl143412144061_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl143401144040_)) - (___kont147489147490_ - _hd143408144054_ - _hd143375144348_ - _hd143372144340_) - (___kont147499147500_)) - (___kont147499147500_)))) - (___kont147499147500_)) - (___kont147499147500_)) - (___kont147499147500_)))) - (___kont147499147500_)))) + _tl143406144045_)) + (___kont147494147495_ + _hd143413144059_ + _hd143380144353_ + _hd143377144345_) + (___kont147504147505_)) + (___kont147504147505_)))) + (___kont147504147505_)) + (___kont147504147505_)) + (___kont147504147505_)))) + (___kont147504147505_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont147499147500_))))) - (___kont147499147500_)) - (___kont147499147500_)))) - (___kont147499147500_)) + (___kont147504147505_))))) + (___kont147504147505_)) + (___kont147504147505_)))) + (___kont147504147505_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _hd143369144332_)) + (gx#stx-eq? '%#lambda _hd143374144337_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143368144334_)) - (let ((_e143517143573_ + (gx#stx-pair? _tl143373144339_)) + (let ((_e143522143578_ (let () (declare (not safe)) - (gx#stx-e _tl143368144334_)))) - (let ((_tl143515143578_ + (gx#stx-e _tl143373144339_)))) + (let ((_tl143520143583_ (let () (declare (not safe)) - (##cdr _e143517143573_))) - (_hd143516143576_ + (##cdr _e143522143578_))) + (_hd143521143581_ (let () (declare (not safe)) - (##car _e143517143573_)))) + (##car _e143522143578_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd143516143576_)) - (let ((_e143520143581_ + (gx#stx-pair? _hd143521143581_)) + (let ((_e143525143586_ (let () (declare (not safe)) (gx#stx-e - _hd143516143576_)))) - (let ((_tl143518143586_ + _hd143521143581_)))) + (let ((_tl143523143591_ (let () (declare (not safe)) - (##cdr _e143520143581_))) - (_hd143519143584_ + (##cdr _e143525143586_))) + (_hd143524143589_ (let () (declare (not safe)) - (##car _e143520143581_)))) + (##car _e143525143586_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl143518143586_)) + _tl143523143591_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl143515143578_)) - (let ((_e143523143589_ + _tl143520143583_)) + (let ((_e143528143594_ (let () (declare (not safe)) (gx#stx-e - _tl143515143578_)))) - (let ((_tl143521143594_ + _tl143520143583_)))) + (let ((_tl143526143599_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e143523143589_))) - (_hd143522143592_ - (let () (declare (not safe)) (##car _e143523143589_)))) + (##cdr _e143528143594_))) + (_hd143527143597_ + (let () (declare (not safe)) (##car _e143528143594_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl143521143594_)) + (gx#stx-null? _tl143526143599_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143365144326_)) - (let ((_e143526143597_ + (gx#stx-pair? _tl143370144331_)) + (let ((_e143531143602_ (let () (declare (not safe)) - (gx#stx-e _tl143365144326_)))) - (let ((_tl143524143602_ + (gx#stx-e _tl143370144331_)))) + (let ((_tl143529143607_ (let () (declare (not safe)) - (##cdr _e143526143597_))) - (_hd143525143600_ + (##cdr _e143531143602_))) + (_hd143530143605_ (let () (declare (not safe)) - (##car _e143526143597_)))) + (##car _e143531143602_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd143525143600_)) - (let ((_e143529143605_ + (gx#stx-pair? _hd143530143605_)) + (let ((_e143534143610_ (let () (declare (not safe)) - (gx#stx-e _hd143525143600_)))) - (let ((_tl143527143610_ + (gx#stx-e _hd143530143605_)))) + (let ((_tl143532143615_ (let () (declare (not safe)) - (##cdr _e143529143605_))) - (_hd143528143608_ + (##cdr _e143534143610_))) + (_hd143533143613_ (let () (declare (not safe)) - (##car _e143529143605_)))) + (##car _e143534143610_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd143528143608_)) + (gx#identifier? _hd143533143613_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd143528143608_)) + _hd143533143613_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl143527143610_)) - (let ((_e143532143613_ + _tl143532143615_)) + (let ((_e143537143618_ (let () (declare (not safe)) (gx#stx-e - _tl143527143610_)))) - (let ((_tl143530143618_ + _tl143532143615_)))) + (let ((_tl143535143623_ (let () (declare (not safe)) - (##cdr _e143532143613_))) - (_hd143531143616_ + (##cdr _e143537143618_))) + (_hd143536143621_ (let () (declare (not safe)) - (##car _e143532143613_)))) + (##car _e143537143618_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl143530143618_)) + _tl143535143623_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl143524143602_)) - (___kont147497147498_ - _hd143531143616_ - _hd143522143592_ - _hd143519143584_) - (___kont147499147500_)) - (___kont147499147500_)))) + (gx#stx-null? _tl143529143607_)) + (___kont147502147503_ + _hd143536143621_ + _hd143527143597_ + _hd143524143589_) + (___kont147504147505_)) + (___kont147504147505_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont147499147500_)) - (___kont147499147500_)) - (___kont147499147500_)))) - (___kont147499147500_)))) - (___kont147499147500_)) - (___kont147499147500_)))) + (___kont147504147505_)) + (___kont147504147505_)) + (___kont147504147505_)))) + (___kont147504147505_)))) + (___kont147504147505_)) + (___kont147504147505_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont147499147500_)) - (___kont147499147500_)))) - (___kont147499147500_)))) - (___kont147499147500_)) - (___kont147499147500_))) - (___kont147499147500_)))) + (___kont147504147505_)) + (___kont147504147505_)))) + (___kont147504147505_)))) + (___kont147504147505_)) + (___kont147504147505_))) + (___kont147504147505_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont147499147500_)))) - (___kont147499147500_)) - (___kont147499147500_)) - (___kont147499147500_)))) - (___kont147499147500_)))))) - (_countf-symbol139410_ - (lambda (_id143340_) - (let ((_$e143342_ + (___kont147504147505_)))) + (___kont147504147505_)) + (___kont147504147505_)) + (___kont147504147505_)))) + (___kont147504147505_)))))) + (_countf-symbol139415_ + (lambda (_id143345_) + (let ((_$e143347_ (let () (declare (not safe)) - (gxc#identifier-symbol _id143340_)))) + (gxc#identifier-symbol _id143345_)))) (if (or (let () (declare (not safe)) - (eq? '##vector-length _$e143342_)) + (eq? '##vector-length _$e143347_)) (let () (declare (not safe)) - (eq? 'vector-length _$e143342_))) + (eq? 'vector-length _$e143347_))) 'vector-length (if (let () (declare (not safe)) - (eq? 'values-count _$e143342_)) + (eq? 'values-count _$e143347_)) 'values-count '#f))))) - (_eqf-symbol139411_ - (lambda (_sym143326_) - (let ((_$e143328_ _sym143326_)) + (_eqf-symbol139416_ + (lambda (_sym143331_) + (let ((_$e143333_ _sym143331_)) (if (or (let () (declare (not safe)) - (eq? '##eq? _$e143328_)) + (eq? '##eq? _$e143333_)) (let () (declare (not safe)) - (eq? 'eq? _$e143328_))) + (eq? 'eq? _$e143333_))) 'eq? (if (or (let () (declare (not safe)) - (eq? '##eqv? _$e143328_)) + (eq? '##eqv? _$e143333_)) (let () (declare (not safe)) - (eq? 'eqv? _$e143328_))) + (eq? 'eqv? _$e143333_))) 'eqv? (if (or (let () (declare (not safe)) - (eq? '##equal? _$e143328_)) + (eq? '##equal? _$e143333_)) (let () (declare (not safe)) - (eq? 'equal? _$e143328_))) + (eq? 'equal? _$e143333_))) 'equal? (if (let () (declare (not safe)) (eq? 'gx#free-identifier=? - _$e143328_)) + _$e143333_)) 'free-identifier=? (if (let () (declare (not safe)) - (eq? 'gx#stx-eq? _$e143328_)) + (eq? 'gx#stx-eq? _$e143333_)) 'stx-eq? '#f)))))))) - (_eqf-symbol?139412_ - (lambda (_sym143309_) - (let ((_$e143311_ _sym143309_)) + (_eqf-symbol?139417_ + (lambda (_sym143314_) + (let ((_$e143316_ _sym143314_)) (if (or (let () (declare (not safe)) - (eq? 'eq? _$e143311_)) + (eq? 'eq? _$e143316_)) (let () (declare (not safe)) - (eq? 'eqv? _$e143311_)) + (eq? 'eqv? _$e143316_)) (let () (declare (not safe)) - (eq? 'equal? _$e143311_)) + (eq? 'equal? _$e143316_)) (let () (declare (not safe)) - (eq? 'free-identifier=? _$e143311_)) + (eq? 'free-identifier=? _$e143316_)) (let () (declare (not safe)) - (eq? 'stx-eq? _$e143311_))) + (eq? 'stx-eq? _$e143316_))) '#t '#f)))) - (_do-assert!139413_ - (lambda (_assert143300_ _type143301_ _K143302_) - (let ((_unwind-assert143304_ _env-assert139403_) - (_unwind-type143305_ _env-type139404_)) - (set! _env-assert139403_ _assert143300_) - (set! _env-type139404_ _type143301_) - (let ((_val143307_ (_K143302_))) - (set! _env-assert139403_ _unwind-assert143304_) - (set! _env-type139404_ _unwind-type143305_) - _val143307_)))) - (_do-bind139414_ - (lambda (_bind143297_ _K143298_) - (if (let () (declare (not safe)) (pair? _bind143297_)) - (let ((__tmp150191 + (_do-assert!139418_ + (lambda (_assert143305_ _type143306_ _K143307_) + (let ((_unwind-assert143309_ _env-assert139408_) + (_unwind-type143310_ _env-type139409_)) + (set! _env-assert139408_ _assert143305_) + (set! _env-type139409_ _type143306_) + (let ((_val143312_ (_K143307_))) + (set! _env-assert139408_ _unwind-assert143309_) + (set! _env-type139409_ _unwind-type143310_) + _val143312_)))) + (_do-bind139419_ + (lambda (_bind143302_ _K143303_) + (if (let () (declare (not safe)) (pair? _bind143302_)) + (let ((__tmp150196 (let () (declare (not safe)) - (_fold-bind-env139415_ - _bind143297_ - _env-bind139405_)))) + (_fold-bind-env139420_ + _bind143302_ + _env-bind139410_)))) (declare (not safe)) - (_do-bind!139416_ __tmp150191 _K143298_)) - (_K143298_)))) - (_fold-bind-env139415_ - (lambda (_bind143226_ _env143227_) - (let _lp143229_ ((_rest143231_ _bind143226_) - (_env143232_ _env143227_)) - (let* ((_rest143233143241_ _rest143231_) - (_else143235143249_ (lambda () _env143232_)) - (_K143237143285_ - (lambda (_rest143252_ _bind143253_) - (let* ((_bind143254143261_ _bind143253_) - (_E143256143265_ + (_do-bind!139421_ __tmp150196 _K143303_)) + (_K143303_)))) + (_fold-bind-env139420_ + (lambda (_bind143231_ _env143232_) + (let _lp143234_ ((_rest143236_ _bind143231_) + (_env143237_ _env143232_)) + (let* ((_rest143238143246_ _rest143236_) + (_else143240143254_ (lambda () _env143237_)) + (_K143242143290_ + (lambda (_rest143257_ _bind143258_) + (let* ((_bind143259143266_ _bind143258_) + (_E143261143270_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _bind143254143261_)))) - (_K143257143273_ - (lambda (_expr143268_ _id143269_) - (let* ((_sexpr143271_ + _bind143259143266_)))) + (_K143262143278_ + (lambda (_expr143273_ _id143274_) + (let* ((_sexpr143276_ (let () (declare (not safe)) (gxc#apply-generate-runtime-repr - _expr143268_))) - (__tmp150192 - (let ((__tmp150193 + _expr143273_))) + (__tmp150197 + (let ((__tmp150198 (let () (declare (not safe)) - (cons _sexpr143271_ + (cons _sexpr143276_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id143269_)))) + _id143274_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp150193 - _env143232_)))) + (cons __tmp150198 + _env143237_)))) (declare (not safe)) - (_lp143229_ - _rest143252_ - __tmp150192))))) + (_lp143234_ + _rest143257_ + __tmp150197))))) (if (let () (declare (not safe)) - (##pair? _bind143254143261_)) - (let ((_hd143258143276_ + (##pair? _bind143259143266_)) + (let ((_hd143263143281_ (let () (declare (not safe)) - (##car _bind143254143261_))) - (_tl143259143278_ + (##car _bind143259143266_))) + (_tl143264143283_ (let () (declare (not safe)) - (##cdr _bind143254143261_)))) - (let* ((_id143281_ _hd143258143276_) - (_expr143283_ - _tl143259143278_)) + (##cdr _bind143259143266_)))) + (let* ((_id143286_ _hd143263143281_) + (_expr143288_ + _tl143264143283_)) (declare (not safe)) - (_K143257143273_ - _expr143283_ - _id143281_))) + (_K143262143278_ + _expr143288_ + _id143286_))) (let () (declare (not safe)) - (_E143256143265_))))))) + (_E143261143270_))))))) (if (let () (declare (not safe)) - (##pair? _rest143233143241_)) - (let ((_hd143238143288_ + (##pair? _rest143238143246_)) + (let ((_hd143243143293_ (let () (declare (not safe)) - (##car _rest143233143241_))) - (_tl143239143290_ + (##car _rest143238143246_))) + (_tl143244143295_ (let () (declare (not safe)) - (##cdr _rest143233143241_)))) - (let* ((_bind143293_ _hd143238143288_) - (_rest143295_ _tl143239143290_)) + (##cdr _rest143238143246_)))) + (let* ((_bind143298_ _hd143243143293_) + (_rest143300_ _tl143244143295_)) (declare (not safe)) - (_K143237143285_ _rest143295_ _bind143293_))) + (_K143242143290_ _rest143300_ _bind143298_))) (let () (declare (not safe)) - (_else143235143249_))))))) - (_do-bind!139416_ - (lambda (_env143219_ _K143220_) - (let ((_unwind143222_ _env-bind139405_)) - (set! _env-bind139405_ _env143219_) - (let ((_val143224_ (_K143220_))) - (set! _env-bind139405_ _unwind143222_) - _val143224_)))) - (_do-splice!139417_ - (lambda (_K143213_) - (let ((_unwind143215_ _in-splice?139406_)) - (set! _in-splice?139406_ '#t) - (let ((_val143217_ (_K143213_))) - (set! _in-splice?139406_ _unwind143215_) - _val143217_)))) - (_optimize-e139418_ - (lambda (_expr142410_) - (let* ((___stx147937147938_ _expr142410_) - (_g142417142590_ + (_else143240143254_))))))) + (_do-bind!139421_ + (lambda (_env143224_ _K143225_) + (let ((_unwind143227_ _env-bind139410_)) + (set! _env-bind139410_ _env143224_) + (let ((_val143229_ (_K143225_))) + (set! _env-bind139410_ _unwind143227_) + _val143229_)))) + (_do-splice!139422_ + (lambda (_K143218_) + (let ((_unwind143220_ _in-splice?139411_)) + (set! _in-splice?139411_ '#t) + (let ((_val143222_ (_K143218_))) + (set! _in-splice?139411_ _unwind143220_) + _val143222_)))) + (_optimize-e139423_ + (lambda (_expr142415_) + (let* ((___stx147942147943_ _expr142415_) + (_g142422142595_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx147937147938_))))) - (let ((___kont147939147940_ - (lambda (_L143185_ _L143186_ _L143187_) - (let ((_$e143204_ + ___stx147942147943_))))) + (let ((___kont147944147945_ + (lambda (_L143190_ _L143191_ _L143192_) + (let ((_$e143209_ (let () (declare (not safe)) - (_assert-e139421_ _L143187_)))) + (_assert-e139426_ _L143192_)))) (if (let () (declare (not safe)) - (eq? '#t _$e143204_)) + (eq? '#t _$e143209_)) (let () (declare (not safe)) - (_optimize-e139418_ _L143186_)) + (_optimize-e139423_ _L143191_)) (if (let () (declare (not safe)) - (eq? '#f _$e143204_)) + (eq? '#f _$e143209_)) (let () (declare (not safe)) - (_optimize-e139418_ _L143185_)) - (let ((_K143207_ + (_optimize-e139423_ _L143190_)) + (let ((_K143212_ (let () (declare (not safe)) - (_optimize-t__0__146870146871_ - _L143186_ - _L143187_))) - (_E143208_ + (_optimize-t__0__146875146876_ + _L143191_ + _L143192_))) + (_E143213_ (let () (declare (not safe)) - (_optimize-f__146872146873_ - _L143185_ - _L143187_)))) - (if (let ((__tmp150198 + (_optimize-f__146877146878_ + _L143190_ + _L143192_)))) + (if (let ((__tmp150203 (let () (declare (not safe)) (gxc#apply-generate-runtime-repr - _K143207_))) - (__tmp150197 + _K143212_))) + (__tmp150202 (let () (declare (not safe)) (gxc#apply-generate-runtime-repr - _E143208_)))) + _E143213_)))) (declare (not safe)) - (equal? __tmp150198 - __tmp150197)) - _K143207_ - (let ((__tmp150194 - (let ((__tmp150195 - (let ((__tmp150196 + (equal? __tmp150203 + __tmp150202)) + _K143212_ + (let ((__tmp150199 + (let ((__tmp150200 + (let ((__tmp150201 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _E143208_ '())))) + (cons _E143213_ '())))) (declare (not safe)) - (cons _K143207_ __tmp150196)))) + (cons _K143212_ __tmp150201)))) (declare (not safe)) - (cons _L143187_ __tmp150195)))) + (cons _L143192_ __tmp150200)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#if - __tmp150194))))))))) - (___kont147941147942_ - (lambda (_L143115_ _L143116_) - (let ((_$e143136_ + __tmp150199))))))))) + (___kont147946147947_ + (lambda (_L143120_ _L143121_) + (let ((_$e143141_ (let () (declare (not safe)) - (_lookup-block139426_ _L143116_)))) - (if _$e143136_ - ((lambda (_block143139_) + (_lookup-block139431_ _L143121_)))) + (if _$e143141_ + ((lambda (_block143144_) (if (let () (declare (not safe)) - (_nonlinear-block?139428_ - _block143139_)) - _expr142410_ - (let ((__tmp150199 - (let ((__tmp150200 - (let ((__tmp150201 + (_nonlinear-block?139433_ + _block143144_)) + _expr142415_ + (let ((__tmp150204 + (let ((__tmp150205 + (let ((__tmp150206 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g143140143143_ _g143141143145_) + (lambda (_g143145143148_ _g143146143150_) (let () (declare (not safe)) - (cons _g143140143143_ _g143141143145_))))) + (cons _g143145143148_ _g143146143150_))))) (declare (not safe)) - (foldr1 __tmp150201 '() _L143115_)))) + (foldr1 __tmp150206 '() _L143120_)))) (declare (not safe)) - (_inline-block139427_ _block143139_ __tmp150200)))) + (_inline-block139432_ _block143144_ __tmp150205)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_optimize-e139418_ - __tmp150199)))) - _$e143136_) - _expr142410_)))) - (___kont147945147946_ - (lambda (_L143005_ _L143006_ _L143007_) - (let* ((_body143026_ + (_optimize-e139423_ + __tmp150204)))) + _$e143141_) + _expr142415_)))) + (___kont147950147951_ + (lambda (_L143010_ _L143011_ _L143012_) + (let* ((_body143031_ (let () (declare (not safe)) - (_optimize-e139418_ _L143005_))) - (__tmp150202 - (let ((__tmp150204 + (_optimize-e139423_ _L143010_))) + (__tmp150207 + (let ((__tmp150209 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L143006_ - _L143007_)) - (let ((__tmp150205 - (lambda (_g143027143031_ + _L143011_ + _L143012_)) + (let ((__tmp150210 + (lambda (_g143032143036_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g143028143033_ - _g143029143035_) - (let ((__tmp150206 - (let ((__tmp150211 + _g143033143038_ + _g143034143040_) + (let ((__tmp150211 + (let ((__tmp150216 (let () (declare (not safe)) - (cons _g143028143033_ '()))) - (__tmp150207 - (let ((__tmp150208 - (let ((__tmp150210 + (cons _g143033143038_ '()))) + (__tmp150212 + (let ((__tmp150213 + (let ((__tmp150215 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp150209 + (__tmp150214 (let () (declare (not safe)) - (cons _g143027143031_ '())))) + (cons _g143032143036_ '())))) (declare (not safe)) - (cons __tmp150210 __tmp150209)))) + (cons __tmp150215 __tmp150214)))) (declare (not safe)) - (cons __tmp150208 '())))) + (cons __tmp150213 '())))) (declare (not safe)) - (cons __tmp150211 __tmp150207)))) + (cons __tmp150216 __tmp150212)))) (declare (not safe)) - (cons __tmp150206 _g143029143035_))))) + (cons __tmp150211 _g143034143040_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr2 __tmp150205 + (foldr2 __tmp150210 '() - _L143006_ - _L143007_)))) - (__tmp150203 + _L143011_ + _L143012_)))) + (__tmp150208 (let () (declare (not safe)) - (cons _body143026_ '())))) + (cons _body143031_ '())))) (declare (not safe)) - (cons __tmp150204 __tmp150203)))) + (cons __tmp150209 __tmp150208)))) (declare (not safe)) - (cons '%#let-values __tmp150202)))) - (___kont147949147950_ - (lambda (_L142873_ _L142874_ _L142875_) - (let ((__tmp150212 + (cons '%#let-values __tmp150207)))) + (___kont147954147955_ + (lambda (_L142878_ _L142879_ _L142880_) + (let ((__tmp150217 (map cons - (let ((__tmp150213 - (lambda (_g142893142896_ - _g142894142898_) + (let ((__tmp150218 + (lambda (_g142898142901_ + _g142899142903_) (let () (declare (not safe)) - (cons _g142893142896_ - _g142894142898_))))) + (cons _g142898142901_ + _g142899142903_))))) (declare (not safe)) - (foldr1 __tmp150213 + (foldr1 __tmp150218 '() - _L142875_)) - (let ((__tmp150214 - (lambda (_g142900142903_ - _g142901142905_) + _L142880_)) + (let ((__tmp150219 + (lambda (_g142905142908_ + _g142906142910_) (let () (declare (not safe)) - (cons _g142900142903_ - _g142901142905_))))) + (cons _g142905142908_ + _g142906142910_))))) (declare (not safe)) - (foldr1 __tmp150214 + (foldr1 __tmp150219 '() - _L142874_))))) + _L142879_))))) (declare (not safe)) - (_bind-e__0__146878146879_ - __tmp150212 - _L142873_)))) - (___kont147953147954_ - (lambda (_L142730_ - _L142731_ - _L142732_ - _L142733_ - _L142734_) - (let ((__tmp150215 + (_bind-e__0__146883146884_ + __tmp150217 + _L142878_)))) + (___kont147958147959_ + (lambda (_L142735_ + _L142736_ + _L142737_ + _L142738_ + _L142739_) + (let ((__tmp150220 (lambda () - (let* ((_expr142776_ + (let* ((_expr142781_ (let () (declare (not safe)) - (_optimize-e139418_ - _L142732_))) - (__tmp150216 - (let ((__tmp150218 - (let ((__tmp150221 - (let ((__tmp150228 + (_optimize-e139423_ + _L142737_))) + (__tmp150221 + (let ((__tmp150223 + (let ((__tmp150226 + (let ((__tmp150233 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _L142734_ '()))) - (__tmp150222 - (let ((__tmp150223 - (let ((__tmp150224 - (let ((__tmp150226 - (let ((__tmp150227 - (lambda (_g142777142780_ + (cons _L142739_ '()))) + (__tmp150227 + (let ((__tmp150228 + (let ((__tmp150229 + (let ((__tmp150231 + (let ((__tmp150232 + (lambda (_g142782142785_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g142778142782_) + _g142783142787_) (let () (declare (not safe)) - (cons _g142777142780_ _g142778142782_))))) + (cons _g142782142785_ _g142783142787_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp150227 + (foldr1 __tmp150232 '() - _L142733_))) - (__tmp150225 + _L142738_))) + (__tmp150230 (let () (declare (not safe)) - (cons _expr142776_ '())))) + (cons _expr142781_ '())))) (declare (not safe)) - (cons __tmp150226 __tmp150225)))) + (cons __tmp150231 __tmp150230)))) (declare (not safe)) - (cons '%#lambda __tmp150224)))) + (cons '%#lambda __tmp150229)))) (declare (not safe)) - (cons __tmp150223 '())))) + (cons __tmp150228 '())))) (declare (not safe)) - (cons __tmp150228 __tmp150222))) - (__tmp150219 - (let ((__tmp150220 - (lambda (_g142784142787_ _g142785142789_) + (cons __tmp150233 __tmp150227))) + (__tmp150224 + (let ((__tmp150225 + (lambda (_g142789142792_ _g142790142794_) (let () (declare (not safe)) - (cons _g142784142787_ _g142785142789_))))) + (cons _g142789142792_ _g142790142794_))))) (declare (not safe)) - (foldr1 __tmp150220 '() _L142731_)))) + (foldr1 __tmp150225 '() _L142736_)))) (declare (not safe)) - (cons __tmp150221 __tmp150219))) - (__tmp150217 - (let () (declare (not safe)) (cons _L142730_ '())))) + (cons __tmp150226 __tmp150224))) + (__tmp150222 + (let () (declare (not safe)) (cons _L142735_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp150218 - __tmp150217)))) + (cons __tmp150223 + __tmp150222)))) (declare (not safe)) (cons '%#letrec-values - __tmp150216))))) + __tmp150221))))) (declare (not safe)) - (_do-splice!139417_ __tmp150215)))) - (___kont147959147960_ (lambda () _expr142410_))) - (let* ((___match148146148147_ - (lambda (_e142540142602_ - _hd142539142605_ - _tl142538142607_ - _e142543142610_ - _hd142542142613_ - _tl142541142615_ - _e142546142618_ - _hd142545142621_ - _tl142544142623_ - _e142549142626_ - _hd142548142629_ - _tl142547142631_ - _e142552142634_ - _hd142551142637_ - _tl142550142639_ - _e142555142642_ - _hd142554142645_ - _tl142553142647_ - _e142558142650_ - _hd142557142653_ - _tl142556142655_ - _e142561142658_ - _hd142560142661_ - _tl142559142663_ - ___splice147955147956_ - _target142562142666_ - _tl142564142668_) - (letrec ((_loop142565142671_ - (lambda (_hd142563142674_ - _id142569142676_) + (_do-splice!139422_ __tmp150220)))) + (___kont147964147965_ (lambda () _expr142415_))) + (let* ((___match148151148152_ + (lambda (_e142545142607_ + _hd142544142610_ + _tl142543142612_ + _e142548142615_ + _hd142547142618_ + _tl142546142620_ + _e142551142623_ + _hd142550142626_ + _tl142549142628_ + _e142554142631_ + _hd142553142634_ + _tl142552142636_ + _e142557142639_ + _hd142556142642_ + _tl142555142644_ + _e142560142647_ + _hd142559142650_ + _tl142558142652_ + _e142563142655_ + _hd142562142658_ + _tl142561142660_ + _e142566142663_ + _hd142565142666_ + _tl142564142668_ + ___splice147960147961_ + _target142567142671_ + _tl142569142673_) + (letrec ((_loop142570142676_ + (lambda (_hd142568142679_ + _id142574142681_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd142563142674_)) - (let ((_e142566142679_ + _hd142568142679_)) + (let ((_e142571142684_ (let () (declare (not safe)) (gx#stx-e - _hd142563142674_)))) - (let ((_lp-tl142568142684_ + _hd142568142679_)))) + (let ((_lp-tl142573142689_ (let () (declare (not safe)) - (##cdr _e142566142679_))) - (_lp-hd142567142682_ + (##cdr _e142571142684_))) + (_lp-hd142572142687_ (let () (declare (not safe)) - (##car _e142566142679_)))) - (let ((__tmp150230 + (##car _e142571142684_)))) + (let ((__tmp150235 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _lp-hd142567142682_ _id142569142676_)))) + (cons _lp-hd142572142687_ _id142574142681_)))) (declare (not safe)) - (_loop142565142671_ _lp-tl142568142684_ __tmp150230)))) + (_loop142570142676_ _lp-tl142573142689_ __tmp150235)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_id142570142687_ - (reverse _id142569142676_))) + (let ((_id142575142692_ + (reverse _id142574142681_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl142559142663_)) - (let ((_e142573142690_ + _tl142564142668_)) + (let ((_e142578142695_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl142559142663_)))) - (let ((_tl142571142695_ + (gx#stx-e _tl142564142668_)))) + (let ((_tl142576142700_ (let () (declare (not safe)) - (##cdr _e142573142690_))) - (_hd142572142693_ + (##cdr _e142578142695_))) + (_hd142577142698_ (let () (declare (not safe)) - (##car _e142573142690_)))) + (##car _e142578142695_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl142571142695_)) + (gx#stx-null? _tl142576142700_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl142553142647_)) + (gx#stx-null? _tl142558142652_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl142544142623_)) - (let ((___splice147957147958_ + (gx#stx-pair/null? _tl142549142628_)) + (let ((___splice147962147963_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl142544142623_ + _tl142549142628_ '0)))) - (let ((_tl142576142700_ + (let ((_tl142581142705_ (let () (declare (not safe)) (##vector-ref - ___splice147957147958_ + ___splice147962147963_ '1))) - (_target142574142698_ + (_target142579142703_ (let () (declare (not safe)) (##vector-ref - ___splice147957147958_ + ___splice147962147963_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl142576142700_)) - (letrec ((_loop142577142703_ - (lambda (_hd142575142706_ - _bind142581142708_) + (gx#stx-null? _tl142581142705_)) + (letrec ((_loop142582142708_ + (lambda (_hd142580142711_ + _bind142586142713_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd142575142706_)) - (let ((_e142578142711_ + _hd142580142711_)) + (let ((_e142583142716_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd142575142706_)))) - (let ((_lp-tl142580142716_ + (gx#stx-e _hd142580142711_)))) + (let ((_lp-tl142585142721_ (let () (declare (not safe)) - (##cdr _e142578142711_))) - (_lp-hd142579142714_ + (##cdr _e142583142716_))) + (_lp-hd142584142719_ (let () (declare (not safe)) - (##car _e142578142711_)))) - (let ((__tmp150229 + (##car _e142583142716_)))) + (let ((__tmp150234 (let () (declare (not safe)) - (cons _lp-hd142579142714_ _bind142581142708_)))) + (cons _lp-hd142584142719_ _bind142586142713_)))) (declare (not safe)) - (_loop142577142703_ _lp-tl142580142716_ __tmp150229)))) - (let ((_bind142582142719_ (reverse _bind142581142708_))) + (_loop142582142708_ _lp-tl142585142721_ __tmp150234)))) + (let ((_bind142587142724_ (reverse _bind142586142713_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl142541142615_)) - (let ((_e142585142722_ + (gx#stx-pair? _tl142546142620_)) + (let ((_e142590142727_ (let () (declare (not safe)) - (gx#stx-e _tl142541142615_)))) - (let ((_tl142583142727_ + (gx#stx-e _tl142546142620_)))) + (let ((_tl142588142732_ (let () (declare (not safe)) - (##cdr _e142585142722_))) - (_hd142584142725_ + (##cdr _e142590142727_))) + (_hd142589142730_ (let () (declare (not safe)) - (##car _e142585142722_)))) + (##car _e142590142727_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl142583142727_)) - (___kont147953147954_ - _hd142584142725_ - _bind142582142719_ - _hd142572142693_ - _id142570142687_ - _hd142551142637_) - (___kont147959147960_)))) - (___kont147959147960_))))))) + (gx#stx-null? _tl142588142732_)) + (___kont147958147959_ + _hd142589142730_ + _bind142587142724_ + _hd142577142698_ + _id142575142692_ + _hd142556142642_) + (___kont147964147965_)))) + (___kont147964147965_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop142577142703_ - _target142574142698_ + (_loop142582142708_ + _target142579142703_ '()))) - (___kont147959147960_)))) - (___kont147959147960_)) - (___kont147959147960_)) - (___kont147959147960_)))) - (___kont147959147960_))))))) + (___kont147964147965_)))) + (___kont147964147965_)) + (___kont147964147965_)) + (___kont147964147965_)))) + (___kont147964147965_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop142565142671_ - _target142562142666_ + (_loop142570142676_ + _target142567142671_ '()))))) - (___match148080148081_ - (lambda (_e142506142797_ - _hd142505142800_ - _tl142504142802_ - _e142509142805_ - _hd142508142808_ - _tl142507142810_ - ___splice147951147952_ - _target142510142813_ - _tl142512142815_) - (letrec ((_loop142513142818_ - (lambda (_hd142511142821_ - _expr142517142823_ - _id142518142825_) + (___match148085148086_ + (lambda (_e142511142802_ + _hd142510142805_ + _tl142509142807_ + _e142514142810_ + _hd142513142813_ + _tl142512142815_ + ___splice147956147957_ + _target142515142818_ + _tl142517142820_) + (letrec ((_loop142518142823_ + (lambda (_hd142516142826_ + _expr142522142828_ + _id142523142830_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd142511142821_)) - (let ((_e142514142828_ + _hd142516142826_)) + (let ((_e142519142833_ (let () (declare (not safe)) (gx#stx-e - _hd142511142821_)))) - (let ((_lp-tl142516142833_ + _hd142516142826_)))) + (let ((_lp-tl142521142838_ (let () (declare (not safe)) - (##cdr _e142514142828_))) - (_lp-hd142515142831_ + (##cdr _e142519142833_))) + (_lp-hd142520142836_ (let () (declare (not safe)) - (##car _e142514142828_)))) + (##car _e142519142833_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd142515142831_)) - (let ((_e142523142836_ + _lp-hd142520142836_)) + (let ((_e142528142841_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _lp-hd142515142831_)))) - (let ((_tl142521142841_ + (gx#stx-e _lp-hd142520142836_)))) + (let ((_tl142526142846_ (let () (declare (not safe)) - (##cdr _e142523142836_))) - (_hd142522142839_ + (##cdr _e142528142841_))) + (_hd142527142844_ (let () (declare (not safe)) - (##car _e142523142836_)))) + (##car _e142528142841_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd142522142839_)) - (let ((_e142526142844_ + (gx#stx-pair? _hd142527142844_)) + (let ((_e142531142849_ (let () (declare (not safe)) - (gx#stx-e _hd142522142839_)))) - (let ((_tl142524142849_ + (gx#stx-e _hd142527142844_)))) + (let ((_tl142529142854_ (let () (declare (not safe)) - (##cdr _e142526142844_))) - (_hd142525142847_ + (##cdr _e142531142849_))) + (_hd142530142852_ (let () (declare (not safe)) - (##car _e142526142844_)))) + (##car _e142531142849_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl142524142849_)) + (gx#stx-null? _tl142529142854_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl142521142841_)) - (let ((_e142529142852_ + (gx#stx-pair? _tl142526142846_)) + (let ((_e142534142857_ (let () (declare (not safe)) - (gx#stx-e _tl142521142841_)))) - (let ((_tl142527142857_ + (gx#stx-e _tl142526142846_)))) + (let ((_tl142532142862_ (let () (declare (not safe)) - (##cdr _e142529142852_))) - (_hd142528142855_ + (##cdr _e142534142857_))) + (_hd142533142860_ (let () (declare (not safe)) - (##car _e142529142852_)))) + (##car _e142534142857_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl142527142857_)) - (let ((__tmp150232 + _tl142532142862_)) + (let ((__tmp150237 (let () (declare (not safe)) - (cons _hd142528142855_ - _expr142517142823_))) - (__tmp150231 + (cons _hd142533142860_ + _expr142522142828_))) + (__tmp150236 (let () (declare (not safe)) - (cons _hd142525142847_ - _id142518142825_)))) + (cons _hd142530142852_ + _id142523142830_)))) (declare (not safe)) - (_loop142513142818_ - _lp-tl142516142833_ - __tmp150232 - __tmp150231)) - (___kont147959147960_)))) - (___kont147959147960_)) - (___kont147959147960_)))) - (___kont147959147960_)))) - (___kont147959147960_)))) + (_loop142518142823_ + _lp-tl142521142838_ + __tmp150237 + __tmp150236)) + (___kont147964147965_)))) + (___kont147964147965_)) + (___kont147964147965_)))) + (___kont147964147965_)))) + (___kont147964147965_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_id142520142862_ - (reverse _id142518142825_)) - (_expr142519142860_ - (reverse _expr142517142823_))) + (let ((_id142525142867_ + (reverse _id142523142830_)) + (_expr142524142865_ + (reverse _expr142522142828_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl142507142810_)) - (let ((_e142532142865_ + _tl142512142815_)) + (let ((_e142537142870_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl142507142810_)))) - (let ((_tl142530142870_ + (gx#stx-e _tl142512142815_)))) + (let ((_tl142535142875_ (let () (declare (not safe)) - (##cdr _e142532142865_))) - (_hd142531142868_ + (##cdr _e142537142870_))) + (_hd142536142873_ (let () (declare (not safe)) - (##car _e142532142865_)))) + (##car _e142537142870_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl142530142870_)) - (___kont147949147950_ - _hd142531142868_ - _expr142519142860_ - _id142520142862_) - (___kont147959147960_)))) - (___kont147959147960_))))))) + (gx#stx-null? _tl142535142875_)) + (___kont147954147955_ + _hd142536142873_ + _expr142524142865_ + _id142525142867_) + (___kont147964147965_)))) + (___kont147964147965_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop142513142818_ - _target142510142813_ + (_loop142518142823_ + _target142515142818_ '() '()))))) - (___match148056148057_ - (lambda (_e142468142913_ - _hd142467142916_ - _tl142466142918_ - _e142471142921_ - _hd142470142924_ - _tl142469142926_ - ___splice147947147948_ - _target142472142929_ - _tl142474142931_) - (letrec ((_loop142475142934_ - (lambda (_hd142473142937_ - _xid142479142939_ - _id142480142941_) + (___match148061148062_ + (lambda (_e142473142918_ + _hd142472142921_ + _tl142471142923_ + _e142476142926_ + _hd142475142929_ + _tl142474142931_ + ___splice147952147953_ + _target142477142934_ + _tl142479142936_) + (letrec ((_loop142480142939_ + (lambda (_hd142478142942_ + _xid142484142944_ + _id142485142946_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd142473142937_)) - (let ((_e142476142944_ + _hd142478142942_)) + (let ((_e142481142949_ (let () (declare (not safe)) (gx#stx-e - _hd142473142937_)))) - (let ((_lp-tl142478142949_ + _hd142478142942_)))) + (let ((_lp-tl142483142954_ (let () (declare (not safe)) - (##cdr _e142476142944_))) - (_lp-hd142477142947_ + (##cdr _e142481142949_))) + (_lp-hd142482142952_ (let () (declare (not safe)) - (##car _e142476142944_)))) + (##car _e142481142949_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd142477142947_)) - (let ((_e142485142952_ + _lp-hd142482142952_)) + (let ((_e142490142957_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _lp-hd142477142947_)))) - (let ((_tl142483142957_ + (gx#stx-e _lp-hd142482142952_)))) + (let ((_tl142488142962_ (let () (declare (not safe)) - (##cdr _e142485142952_))) - (_hd142484142955_ + (##cdr _e142490142957_))) + (_hd142489142960_ (let () (declare (not safe)) - (##car _e142485142952_)))) + (##car _e142490142957_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd142484142955_)) - (let ((_e142488142960_ + (gx#stx-pair? _hd142489142960_)) + (let ((_e142493142965_ (let () (declare (not safe)) - (gx#stx-e _hd142484142955_)))) - (let ((_tl142486142965_ + (gx#stx-e _hd142489142960_)))) + (let ((_tl142491142970_ (let () (declare (not safe)) - (##cdr _e142488142960_))) - (_hd142487142963_ + (##cdr _e142493142965_))) + (_hd142492142968_ (let () (declare (not safe)) - (##car _e142488142960_)))) + (##car _e142493142965_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl142486142965_)) + (gx#stx-null? _tl142491142970_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl142483142957_)) - (let ((_e142491142968_ + (gx#stx-pair? _tl142488142962_)) + (let ((_e142496142973_ (let () (declare (not safe)) - (gx#stx-e _tl142483142957_)))) - (let ((_tl142489142973_ + (gx#stx-e _tl142488142962_)))) + (let ((_tl142494142978_ (let () (declare (not safe)) - (##cdr _e142491142968_))) - (_hd142490142971_ + (##cdr _e142496142973_))) + (_hd142495142976_ (let () (declare (not safe)) - (##car _e142491142968_)))) + (##car _e142496142973_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd142490142971_)) - (let ((_e142494142976_ + _hd142495142976_)) + (let ((_e142499142981_ (let () (declare (not safe)) (gx#stx-e - _hd142490142971_)))) - (let ((_tl142492142981_ + _hd142495142976_)))) + (let ((_tl142497142986_ (let () (declare (not safe)) - (##cdr _e142494142976_))) - (_hd142493142979_ + (##cdr _e142499142981_))) + (_hd142498142984_ (let () (declare (not safe)) - (##car _e142494142976_)))) + (##car _e142499142981_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd142493142979_)) + _hd142498142984_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd142493142979_)) + _hd142498142984_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl142492142981_)) - (let ((_e142497142984_ + (gx#stx-pair? _tl142497142986_)) + (let ((_e142502142989_ (let () (declare (not safe)) - (gx#stx-e _tl142492142981_)))) - (let ((_tl142495142989_ + (gx#stx-e _tl142497142986_)))) + (let ((_tl142500142994_ (let () (declare (not safe)) - (##cdr _e142497142984_))) - (_hd142496142987_ + (##cdr _e142502142989_))) + (_hd142501142992_ (let () (declare (not safe)) - (##car _e142497142984_)))) + (##car _e142502142989_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl142495142989_)) + (gx#stx-null? _tl142500142994_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl142489142973_)) - (let ((__tmp150234 + (gx#stx-null? _tl142494142978_)) + (let ((__tmp150239 (let () (declare (not safe)) - (cons _hd142496142987_ - _xid142479142939_))) - (__tmp150233 + (cons _hd142501142992_ + _xid142484142944_))) + (__tmp150238 (let () (declare (not safe)) - (cons _hd142487142963_ - _id142480142941_)))) + (cons _hd142492142968_ + _id142485142946_)))) (declare (not safe)) - (_loop142475142934_ - _lp-tl142478142949_ - __tmp150234 - __tmp150233)) - (___match148080148081_ - _e142468142913_ - _hd142467142916_ - _tl142466142918_ - _e142471142921_ - _hd142470142924_ - _tl142469142926_ - ___splice147947147948_ - _target142472142929_ - _tl142474142931_)) - (___match148080148081_ - _e142468142913_ - _hd142467142916_ - _tl142466142918_ - _e142471142921_ - _hd142470142924_ - _tl142469142926_ - ___splice147947147948_ - _target142472142929_ - _tl142474142931_)))) - (___match148080148081_ - _e142468142913_ - _hd142467142916_ - _tl142466142918_ - _e142471142921_ - _hd142470142924_ - _tl142469142926_ - ___splice147947147948_ - _target142472142929_ - _tl142474142931_)) - (___match148080148081_ - _e142468142913_ - _hd142467142916_ - _tl142466142918_ - _e142471142921_ - _hd142470142924_ - _tl142469142926_ - ___splice147947147948_ - _target142472142929_ - _tl142474142931_)) - (___match148080148081_ - _e142468142913_ - _hd142467142916_ - _tl142466142918_ - _e142471142921_ - _hd142470142924_ - _tl142469142926_ - ___splice147947147948_ - _target142472142929_ - _tl142474142931_)))) + (_loop142480142939_ + _lp-tl142483142954_ + __tmp150239 + __tmp150238)) + (___match148085148086_ + _e142473142918_ + _hd142472142921_ + _tl142471142923_ + _e142476142926_ + _hd142475142929_ + _tl142474142931_ + ___splice147952147953_ + _target142477142934_ + _tl142479142936_)) + (___match148085148086_ + _e142473142918_ + _hd142472142921_ + _tl142471142923_ + _e142476142926_ + _hd142475142929_ + _tl142474142931_ + ___splice147952147953_ + _target142477142934_ + _tl142479142936_)))) + (___match148085148086_ + _e142473142918_ + _hd142472142921_ + _tl142471142923_ + _e142476142926_ + _hd142475142929_ + _tl142474142931_ + ___splice147952147953_ + _target142477142934_ + _tl142479142936_)) + (___match148085148086_ + _e142473142918_ + _hd142472142921_ + _tl142471142923_ + _e142476142926_ + _hd142475142929_ + _tl142474142931_ + ___splice147952147953_ + _target142477142934_ + _tl142479142936_)) + (___match148085148086_ + _e142473142918_ + _hd142472142921_ + _tl142471142923_ + _e142476142926_ + _hd142475142929_ + _tl142474142931_ + ___splice147952147953_ + _target142477142934_ + _tl142479142936_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match148080148081_ - _e142468142913_ - _hd142467142916_ - _tl142466142918_ - _e142471142921_ - _hd142470142924_ - _tl142469142926_ - ___splice147947147948_ - _target142472142929_ - _tl142474142931_)))) - (___match148080148081_ - _e142468142913_ - _hd142467142916_ - _tl142466142918_ - _e142471142921_ - _hd142470142924_ - _tl142469142926_ - ___splice147947147948_ - _target142472142929_ - _tl142474142931_)) - (___match148080148081_ - _e142468142913_ - _hd142467142916_ - _tl142466142918_ - _e142471142921_ - _hd142470142924_ - _tl142469142926_ - ___splice147947147948_ - _target142472142929_ - _tl142474142931_)))) - (___match148080148081_ - _e142468142913_ - _hd142467142916_ - _tl142466142918_ - _e142471142921_ - _hd142470142924_ - _tl142469142926_ - ___splice147947147948_ - _target142472142929_ - _tl142474142931_)))) - (___match148080148081_ - _e142468142913_ - _hd142467142916_ - _tl142466142918_ - _e142471142921_ - _hd142470142924_ - _tl142469142926_ - ___splice147947147948_ - _target142472142929_ - _tl142474142931_)))) + (___match148085148086_ + _e142473142918_ + _hd142472142921_ + _tl142471142923_ + _e142476142926_ + _hd142475142929_ + _tl142474142931_ + ___splice147952147953_ + _target142477142934_ + _tl142479142936_)))) + (___match148085148086_ + _e142473142918_ + _hd142472142921_ + _tl142471142923_ + _e142476142926_ + _hd142475142929_ + _tl142474142931_ + ___splice147952147953_ + _target142477142934_ + _tl142479142936_)) + (___match148085148086_ + _e142473142918_ + _hd142472142921_ + _tl142471142923_ + _e142476142926_ + _hd142475142929_ + _tl142474142931_ + ___splice147952147953_ + _target142477142934_ + _tl142479142936_)))) + (___match148085148086_ + _e142473142918_ + _hd142472142921_ + _tl142471142923_ + _e142476142926_ + _hd142475142929_ + _tl142474142931_ + ___splice147952147953_ + _target142477142934_ + _tl142479142936_)))) + (___match148085148086_ + _e142473142918_ + _hd142472142921_ + _tl142471142923_ + _e142476142926_ + _hd142475142929_ + _tl142474142931_ + ___splice147952147953_ + _target142477142934_ + _tl142479142936_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_id142482142994_ - (reverse _id142480142941_)) - (_xid142481142992_ - (reverse _xid142479142939_))) + (let ((_id142487142999_ + (reverse _id142485142946_)) + (_xid142486142997_ + (reverse _xid142484142944_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl142469142926_)) - (let ((_e142500142997_ + _tl142474142931_)) + (let ((_e142505143002_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl142469142926_)))) - (let ((_tl142498143002_ + (gx#stx-e _tl142474142931_)))) + (let ((_tl142503143007_ (let () (declare (not safe)) - (##cdr _e142500142997_))) - (_hd142499143000_ + (##cdr _e142505143002_))) + (_hd142504143005_ (let () (declare (not safe)) - (##car _e142500142997_)))) + (##car _e142505143002_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl142498143002_)) - (___kont147945147946_ - _hd142499143000_ - _xid142481142992_ - _id142482142994_) - (___match148080148081_ - _e142468142913_ - _hd142467142916_ - _tl142466142918_ - _e142471142921_ - _hd142470142924_ - _tl142469142926_ - ___splice147947147948_ - _target142472142929_ - _tl142474142931_)))) - (___match148080148081_ - _e142468142913_ - _hd142467142916_ - _tl142466142918_ - _e142471142921_ - _hd142470142924_ - _tl142469142926_ - ___splice147947147948_ - _target142472142929_ - _tl142474142931_))))))) + (gx#stx-null? _tl142503143007_)) + (___kont147950147951_ + _hd142504143005_ + _xid142486142997_ + _id142487142999_) + (___match148085148086_ + _e142473142918_ + _hd142472142921_ + _tl142471142923_ + _e142476142926_ + _hd142475142929_ + _tl142474142931_ + ___splice147952147953_ + _target142477142934_ + _tl142479142936_)))) + (___match148085148086_ + _e142473142918_ + _hd142472142921_ + _tl142471142923_ + _e142476142926_ + _hd142475142929_ + _tl142474142931_ + ___splice147952147953_ + _target142477142934_ + _tl142479142936_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop142475142934_ - _target142472142929_ + (_loop142480142939_ + _target142477142934_ '() '()))))) - (___match148032148033_ - (lambda (_e142438143043_ - _hd142437143046_ - _tl142436143048_ - _e142441143051_ - _hd142440143054_ - _tl142439143056_ - _e142444143059_ - _hd142443143062_ - _tl142442143064_ - _e142447143067_ - _hd142446143070_ - _tl142445143072_ - ___splice147943147944_ - _target142448143075_ - _tl142450143077_) - (letrec ((_loop142451143080_ - (lambda (_hd142449143083_ - _id142455143085_) + (___match148037148038_ + (lambda (_e142443143048_ + _hd142442143051_ + _tl142441143053_ + _e142446143056_ + _hd142445143059_ + _tl142444143061_ + _e142449143064_ + _hd142448143067_ + _tl142447143069_ + _e142452143072_ + _hd142451143075_ + _tl142450143077_ + ___splice147948147949_ + _target142453143080_ + _tl142455143082_) + (letrec ((_loop142456143085_ + (lambda (_hd142454143088_ + _id142460143090_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd142449143083_)) - (let ((_e142452143088_ + _hd142454143088_)) + (let ((_e142457143093_ (let () (declare (not safe)) (gx#stx-e - _hd142449143083_)))) - (let ((_lp-tl142454143093_ + _hd142454143088_)))) + (let ((_lp-tl142459143098_ (let () (declare (not safe)) - (##cdr _e142452143088_))) - (_lp-hd142453143091_ + (##cdr _e142457143093_))) + (_lp-hd142458143096_ (let () (declare (not safe)) - (##car _e142452143088_)))) + (##car _e142457143093_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd142453143091_)) - (let ((_e142459143096_ + _lp-hd142458143096_)) + (let ((_e142464143101_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _lp-hd142453143091_)))) - (let ((_tl142457143101_ + (gx#stx-e _lp-hd142458143096_)))) + (let ((_tl142462143106_ (let () (declare (not safe)) - (##cdr _e142459143096_))) - (_hd142458143099_ + (##cdr _e142464143101_))) + (_hd142463143104_ (let () (declare (not safe)) - (##car _e142459143096_)))) + (##car _e142464143101_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd142458143099_)) + (gx#identifier? _hd142463143104_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd142458143099_)) + (gx#stx-eq? '%#ref _hd142463143104_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl142457143101_)) - (let ((_e142462143104_ + (gx#stx-pair? _tl142462143106_)) + (let ((_e142467143109_ (let () (declare (not safe)) - (gx#stx-e _tl142457143101_)))) - (let ((_tl142460143109_ + (gx#stx-e _tl142462143106_)))) + (let ((_tl142465143114_ (let () (declare (not safe)) - (##cdr _e142462143104_))) - (_hd142461143107_ + (##cdr _e142467143109_))) + (_hd142466143112_ (let () (declare (not safe)) - (##car _e142462143104_)))) + (##car _e142467143109_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl142460143109_)) - (let ((__tmp150235 + (gx#stx-null? _tl142465143114_)) + (let ((__tmp150240 (let () (declare (not safe)) - (cons _hd142461143107_ - _id142455143085_)))) + (cons _hd142466143112_ + _id142460143090_)))) (declare (not safe)) - (_loop142451143080_ - _lp-tl142454143093_ - __tmp150235)) - (___kont147959147960_)))) - (___kont147959147960_)) - (___kont147959147960_)) - (___kont147959147960_)))) - (___kont147959147960_)))) + (_loop142456143085_ + _lp-tl142459143098_ + __tmp150240)) + (___kont147964147965_)))) + (___kont147964147965_)) + (___kont147964147965_)) + (___kont147964147965_)))) + (___kont147964147965_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_id142456143112_ - (reverse _id142455143085_))) - (___kont147941147942_ - _id142456143112_ - _hd142446143070_)))))) + (let ((_id142461143117_ + (reverse _id142460143090_))) + (___kont147946147947_ + _id142461143117_ + _hd142451143075_)))))) (let () (declare (not safe)) - (_loop142451143080_ - _target142448143075_ + (_loop142456143085_ + _target142453143080_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx147937147938_)) - (let ((_e142424143153_ + (gx#stx-pair? ___stx147942147943_)) + (let ((_e142429143158_ (let () (declare (not safe)) - (gx#stx-e ___stx147937147938_)))) - (let ((_tl142422143158_ + (gx#stx-e ___stx147942147943_)))) + (let ((_tl142427143163_ (let () (declare (not safe)) - (##cdr _e142424143153_))) - (_hd142423143156_ + (##cdr _e142429143158_))) + (_hd142428143161_ (let () (declare (not safe)) - (##car _e142424143153_)))) + (##car _e142429143158_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd142423143156_)) + (gx#identifier? _hd142428143161_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _hd142423143156_)) + _hd142428143161_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl142422143158_)) - (let ((_e142427143161_ + _tl142427143163_)) + (let ((_e142432143166_ (let () (declare (not safe)) (gx#stx-e - _tl142422143158_)))) - (let ((_tl142425143166_ + _tl142427143163_)))) + (let ((_tl142430143171_ (let () (declare (not safe)) - (##cdr _e142427143161_))) - (_hd142426143164_ + (##cdr _e142432143166_))) + (_hd142431143169_ (let () (declare (not safe)) - (##car _e142427143161_)))) + (##car _e142432143166_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl142425143166_)) - (let ((_e142430143169_ + _tl142430143171_)) + (let ((_e142435143174_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl142425143166_)))) - (let ((_tl142428143174_ - (let () (declare (not safe)) (##cdr _e142430143169_))) - (_hd142429143172_ - (let () (declare (not safe)) (##car _e142430143169_)))) + (gx#stx-e _tl142430143171_)))) + (let ((_tl142433143179_ + (let () (declare (not safe)) (##cdr _e142435143174_))) + (_hd142434143177_ + (let () (declare (not safe)) (##car _e142435143174_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl142428143174_)) - (let ((_e142433143177_ + (gx#stx-pair? _tl142433143179_)) + (let ((_e142438143182_ (let () (declare (not safe)) - (gx#stx-e _tl142428143174_)))) - (let ((_tl142431143182_ + (gx#stx-e _tl142433143179_)))) + (let ((_tl142436143187_ (let () (declare (not safe)) - (##cdr _e142433143177_))) - (_hd142432143180_ + (##cdr _e142438143182_))) + (_hd142437143185_ (let () (declare (not safe)) - (##car _e142433143177_)))) + (##car _e142438143182_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl142431143182_)) - (___kont147939147940_ - _hd142432143180_ - _hd142429143172_ - _hd142426143164_) - (___kont147959147960_)))) - (___kont147959147960_)))) - (___kont147959147960_)))) + (gx#stx-null? _tl142436143187_)) + (___kont147944147945_ + _hd142437143185_ + _hd142434143177_ + _hd142431143169_) + (___kont147964147965_)))) + (___kont147964147965_)))) + (___kont147964147965_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont147959147960_)) + (___kont147964147965_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd142423143156_)) + _hd142428143161_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl142422143158_)) - (let ((_e142441143051_ + _tl142427143163_)) + (let ((_e142446143056_ (let () (declare (not safe)) (gx#stx-e - _tl142422143158_)))) - (let ((_tl142439143056_ + _tl142427143163_)))) + (let ((_tl142444143061_ (let () (declare (not safe)) - (##cdr _e142441143051_))) - (_hd142440143054_ + (##cdr _e142446143056_))) + (_hd142445143059_ (let () (declare (not safe)) - (##car _e142441143051_)))) + (##car _e142446143056_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd142440143054_)) - (let ((_e142444143059_ + _hd142445143059_)) + (let ((_e142449143064_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd142440143054_)))) - (let ((_tl142442143064_ + (gx#stx-e _hd142445143059_)))) + (let ((_tl142447143069_ (let () (declare (not safe)) - (##cdr _e142444143059_))) - (_hd142443143062_ + (##cdr _e142449143064_))) + (_hd142448143067_ (let () (declare (not safe)) - (##car _e142444143059_)))) + (##car _e142449143064_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd142443143062_)) + (gx#identifier? _hd142448143067_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd142443143062_)) + (gx#stx-eq? '%#ref _hd142448143067_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl142442143064_)) - (let ((_e142447143067_ + (gx#stx-pair? _tl142447143069_)) + (let ((_e142452143072_ (let () (declare (not safe)) - (gx#stx-e _tl142442143064_)))) - (let ((_tl142445143072_ + (gx#stx-e _tl142447143069_)))) + (let ((_tl142450143077_ (let () (declare (not safe)) - (##cdr _e142447143067_))) - (_hd142446143070_ + (##cdr _e142452143072_))) + (_hd142451143075_ (let () (declare (not safe)) - (##car _e142447143067_)))) + (##car _e142452143072_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl142445143072_)) + (gx#stx-null? _tl142450143077_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl142439143056_)) - (let ((___splice147943147944_ + _tl142444143061_)) + (let ((___splice147948147949_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl142439143056_ + _tl142444143061_ '0)))) - (let ((_tl142450143077_ + (let ((_tl142455143082_ (let () (declare (not safe)) (##vector-ref - ___splice147943147944_ + ___splice147948147949_ '1))) - (_target142448143075_ + (_target142453143080_ (let () (declare (not safe)) (##vector-ref - ___splice147943147944_ + ___splice147948147949_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl142450143077_)) - (___match148032148033_ - _e142424143153_ - _hd142423143156_ - _tl142422143158_ - _e142441143051_ - _hd142440143054_ - _tl142439143056_ - _e142444143059_ - _hd142443143062_ - _tl142442143064_ - _e142447143067_ - _hd142446143070_ - _tl142445143072_ - ___splice147943147944_ - _target142448143075_ - _tl142450143077_) - (___kont147959147960_)))) - (___kont147959147960_)) - (___kont147959147960_)))) - (___kont147959147960_)) - (___kont147959147960_)) - (___kont147959147960_)))) - (___kont147959147960_)))) + _tl142455143082_)) + (___match148037148038_ + _e142429143158_ + _hd142428143161_ + _tl142427143163_ + _e142446143056_ + _hd142445143059_ + _tl142444143061_ + _e142449143064_ + _hd142448143067_ + _tl142447143069_ + _e142452143072_ + _hd142451143075_ + _tl142450143077_ + ___splice147948147949_ + _target142453143080_ + _tl142455143082_) + (___kont147964147965_)))) + (___kont147964147965_)) + (___kont147964147965_)))) + (___kont147964147965_)) + (___kont147964147965_)) + (___kont147964147965_)))) + (___kont147964147965_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont147959147960_)) + (___kont147964147965_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd142423143156_)) + _hd142428143161_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl142422143158_)) - (let ((_e142471142921_ + _tl142427143163_)) + (let ((_e142476142926_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl142422143158_)))) - (let ((_tl142469142926_ - (let () (declare (not safe)) (##cdr _e142471142921_))) - (_hd142470142924_ - (let () (declare (not safe)) (##car _e142471142921_)))) + (gx#stx-e _tl142427143163_)))) + (let ((_tl142474142931_ + (let () (declare (not safe)) (##cdr _e142476142926_))) + (_hd142475142929_ + (let () (declare (not safe)) (##car _e142476142926_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd142470142924_)) - (let ((___splice147947147948_ + (gx#stx-pair/null? _hd142475142929_)) + (let ((___splice147952147953_ (let () (declare (not safe)) - (gx#syntax-split-splice _hd142470142924_ '0)))) - (let ((_tl142474142931_ + (gx#syntax-split-splice _hd142475142929_ '0)))) + (let ((_tl142479142936_ (let () (declare (not safe)) - (##vector-ref ___splice147947147948_ '1))) - (_target142472142929_ + (##vector-ref ___splice147952147953_ '1))) + (_target142477142934_ (let () (declare (not safe)) - (##vector-ref ___splice147947147948_ '0)))) + (##vector-ref ___splice147952147953_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl142474142931_)) - (___match148056148057_ - _e142424143153_ - _hd142423143156_ - _tl142422143158_ - _e142471142921_ - _hd142470142924_ - _tl142469142926_ - ___splice147947147948_ - _target142472142929_ - _tl142474142931_) - (___kont147959147960_)))) - (___kont147959147960_)))) - (___kont147959147960_)) + (gx#stx-null? _tl142479142936_)) + (___match148061148062_ + _e142429143158_ + _hd142428143161_ + _tl142427143163_ + _e142476142926_ + _hd142475142929_ + _tl142474142931_ + ___splice147952147953_ + _target142477142934_ + _tl142479142936_) + (___kont147964147965_)))) + (___kont147964147965_)))) + (___kont147964147965_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _hd142423143156_)) + _hd142428143161_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl142422143158_)) - (let ((_e142543142610_ + _tl142427143163_)) + (let ((_e142548142615_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl142422143158_)))) - (let ((_tl142541142615_ + (gx#stx-e _tl142427143163_)))) + (let ((_tl142546142620_ (let () (declare (not safe)) - (##cdr _e142543142610_))) - (_hd142542142613_ + (##cdr _e142548142615_))) + (_hd142547142618_ (let () (declare (not safe)) - (##car _e142543142610_)))) + (##car _e142548142615_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd142542142613_)) - (let ((_e142546142618_ + (gx#stx-pair? _hd142547142618_)) + (let ((_e142551142623_ (let () (declare (not safe)) - (gx#stx-e _hd142542142613_)))) - (let ((_tl142544142623_ + (gx#stx-e _hd142547142618_)))) + (let ((_tl142549142628_ (let () (declare (not safe)) - (##cdr _e142546142618_))) - (_hd142545142621_ + (##cdr _e142551142623_))) + (_hd142550142626_ (let () (declare (not safe)) - (##car _e142546142618_)))) + (##car _e142551142623_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd142545142621_)) - (let ((_e142549142626_ + (gx#stx-pair? _hd142550142626_)) + (let ((_e142554142631_ (let () (declare (not safe)) - (gx#stx-e _hd142545142621_)))) - (let ((_tl142547142631_ + (gx#stx-e _hd142550142626_)))) + (let ((_tl142552142636_ (let () (declare (not safe)) - (##cdr _e142549142626_))) - (_hd142548142629_ + (##cdr _e142554142631_))) + (_hd142553142634_ (let () (declare (not safe)) - (##car _e142549142626_)))) + (##car _e142554142631_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd142548142629_)) - (let ((_e142552142634_ + (gx#stx-pair? _hd142553142634_)) + (let ((_e142557142639_ (let () (declare (not safe)) (gx#stx-e - _hd142548142629_)))) - (let ((_tl142550142639_ + _hd142553142634_)))) + (let ((_tl142555142644_ (let () (declare (not safe)) - (##cdr _e142552142634_))) - (_hd142551142637_ + (##cdr _e142557142639_))) + (_hd142556142642_ (let () (declare (not safe)) - (##car _e142552142634_)))) + (##car _e142557142639_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl142550142639_)) + _tl142555142644_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl142547142631_)) - (let ((_e142555142642_ + _tl142552142636_)) + (let ((_e142560142647_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl142547142631_)))) - (let ((_tl142553142647_ - (let () (declare (not safe)) (##cdr _e142555142642_))) - (_hd142554142645_ - (let () (declare (not safe)) (##car _e142555142642_)))) + (gx#stx-e _tl142552142636_)))) + (let ((_tl142558142652_ + (let () (declare (not safe)) (##cdr _e142560142647_))) + (_hd142559142650_ + (let () (declare (not safe)) (##car _e142560142647_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd142554142645_)) - (let ((_e142558142650_ + (gx#stx-pair? _hd142559142650_)) + (let ((_e142563142655_ (let () (declare (not safe)) - (gx#stx-e _hd142554142645_)))) - (let ((_tl142556142655_ + (gx#stx-e _hd142559142650_)))) + (let ((_tl142561142660_ (let () (declare (not safe)) - (##cdr _e142558142650_))) - (_hd142557142653_ + (##cdr _e142563142655_))) + (_hd142562142658_ (let () (declare (not safe)) - (##car _e142558142650_)))) + (##car _e142563142655_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd142557142653_)) + (gx#identifier? _hd142562142658_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _hd142557142653_)) + (gx#stx-eq? '%#lambda _hd142562142658_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl142556142655_)) - (let ((_e142561142658_ + (gx#stx-pair? _tl142561142660_)) + (let ((_e142566142663_ (let () (declare (not safe)) - (gx#stx-e _tl142556142655_)))) - (let ((_tl142559142663_ + (gx#stx-e _tl142561142660_)))) + (let ((_tl142564142668_ (let () (declare (not safe)) - (##cdr _e142561142658_))) - (_hd142560142661_ + (##cdr _e142566142663_))) + (_hd142565142666_ (let () (declare (not safe)) - (##car _e142561142658_)))) + (##car _e142566142663_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd142560142661_)) - (let ((___splice147955147956_ + _hd142565142666_)) + (let ((___splice147960147961_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd142560142661_ + _hd142565142666_ '0)))) - (let ((_tl142564142668_ + (let ((_tl142569142673_ (let () (declare (not safe)) (##vector-ref - ___splice147955147956_ + ___splice147960147961_ '1))) - (_target142562142666_ + (_target142567142671_ (let () (declare (not safe)) (##vector-ref - ___splice147955147956_ + ___splice147960147961_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl142564142668_)) - (___match148146148147_ - _e142424143153_ - _hd142423143156_ - _tl142422143158_ - _e142543142610_ - _hd142542142613_ - _tl142541142615_ - _e142546142618_ - _hd142545142621_ - _tl142544142623_ - _e142549142626_ - _hd142548142629_ - _tl142547142631_ - _e142552142634_ - _hd142551142637_ - _tl142550142639_ - _e142555142642_ - _hd142554142645_ - _tl142553142647_ - _e142558142650_ - _hd142557142653_ - _tl142556142655_ - _e142561142658_ - _hd142560142661_ - _tl142559142663_ - ___splice147955147956_ - _target142562142666_ - _tl142564142668_) - (___kont147959147960_)))) - (___kont147959147960_)))) - (___kont147959147960_)) - (___kont147959147960_)) - (___kont147959147960_)))) - (___kont147959147960_)))) - (___kont147959147960_)) + _tl142569142673_)) + (___match148151148152_ + _e142429143158_ + _hd142428143161_ + _tl142427143163_ + _e142548142615_ + _hd142547142618_ + _tl142546142620_ + _e142551142623_ + _hd142550142626_ + _tl142549142628_ + _e142554142631_ + _hd142553142634_ + _tl142552142636_ + _e142557142639_ + _hd142556142642_ + _tl142555142644_ + _e142560142647_ + _hd142559142650_ + _tl142558142652_ + _e142563142655_ + _hd142562142658_ + _tl142561142660_ + _e142566142663_ + _hd142565142666_ + _tl142564142668_ + ___splice147960147961_ + _target142567142671_ + _tl142569142673_) + (___kont147964147965_)))) + (___kont147964147965_)))) + (___kont147964147965_)) + (___kont147964147965_)) + (___kont147964147965_)))) + (___kont147964147965_)))) + (___kont147964147965_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont147959147960_)))) - (___kont147959147960_)))) - (___kont147959147960_)))) - (___kont147959147960_)))) - (___kont147959147960_)) - (___kont147959147960_))))) + (___kont147964147965_)))) + (___kont147964147965_)))) + (___kont147964147965_)))) + (___kont147964147965_)))) + (___kont147964147965_)) + (___kont147964147965_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont147959147960_)))) - (___kont147959147960_))))))) - (_optimize-t__146868146869_ - (lambda (_expr142393_ _test142394_ _continue142395_) - (let ((__tmp150237 - (let ((__tmp150238 + (___kont147964147965_)))) + (___kont147964147965_))))))) + (_optimize-t__146873146874_ + (lambda (_expr142398_ _test142399_ _continue142400_) + (let ((__tmp150242 + (let ((__tmp150243 (let () (declare (not safe)) - (cons _test142394_ '#t)))) + (cons _test142399_ '#t)))) (declare (not safe)) - (cons __tmp150238 '()))) - (__tmp150236 - (lambda () (_continue142395_ _expr142393_)))) + (cons __tmp150243 '()))) + (__tmp150241 + (lambda () (_continue142400_ _expr142398_)))) (declare (not safe)) - (_do-assert139407_ __tmp150237 __tmp150236)))) - (_optimize-t__0__146870146871_ - (lambda (_expr142401_ _test142402_) - (let ((_continue142404_ _optimize-e139418_)) + (_do-assert139412_ __tmp150242 __tmp150241)))) + (_optimize-t__0__146875146876_ + (lambda (_expr142406_ _test142407_) + (let ((_continue142409_ _optimize-e139423_)) (declare (not safe)) - (_optimize-t__146868146869_ - _expr142401_ - _test142402_ - _continue142404_)))) - (_optimize-t139419_ - (lambda _g150240_ - (let ((_g150239_ + (_optimize-t__146873146874_ + _expr142406_ + _test142407_ + _continue142409_)))) + (_optimize-t139424_ + (lambda _g150245_ + (let ((_g150244_ (let () (declare (not safe)) - (##length _g150240_)))) - (cond ((let () (declare (not safe)) (##fx= _g150239_ 2)) - (apply (lambda (_expr142401_ _test142402_) + (##length _g150245_)))) + (cond ((let () (declare (not safe)) (##fx= _g150244_ 2)) + (apply (lambda (_expr142406_ _test142407_) (let () (declare (not safe)) - (_optimize-t__0__146870146871_ - _expr142401_ - _test142402_))) - _g150240_)) - ((let () (declare (not safe)) (##fx= _g150239_ 3)) - (apply (lambda (_expr142406_ - _test142407_ - _continue142408_) + (_optimize-t__0__146875146876_ + _expr142406_ + _test142407_))) + _g150245_)) + ((let () (declare (not safe)) (##fx= _g150244_ 3)) + (apply (lambda (_expr142411_ + _test142412_ + _continue142413_) (let () (declare (not safe)) - (_optimize-t__146868146869_ - _expr142406_ - _test142407_ - _continue142408_))) - _g150240_)) + (_optimize-t__146873146874_ + _expr142411_ + _test142412_ + _continue142413_))) + _g150245_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g150240_)))))) - (_optimize-f__146872146873_ - (lambda (_expr141478_ _test141479_) - (let ((__tmp150283 - (if _test141479_ - (let ((__tmp150284 + _g150245_)))))) + (_optimize-f__146877146878_ + (lambda (_expr141483_ _test141484_) + (let ((__tmp150288 + (if _test141484_ + (let ((__tmp150289 (let () (declare (not safe)) - (cons _test141479_ '#f)))) + (cons _test141484_ '#f)))) (declare (not safe)) - (cons __tmp150284 '())) + (cons __tmp150289 '())) '())) - (__tmp150241 + (__tmp150246 (lambda () - (let* ((___stx148187148188_ _expr141478_) - (_g141487141660_ + (let* ((___stx148192148193_ _expr141483_) + (_g141492141665_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx148187148188_))))) - (let ((___kont148189148190_ - (lambda (_L142248_ _L142249_) - (let ((_$e142269_ + ___stx148192148193_))))) + (let ((___kont148194148195_ + (lambda (_L142253_ _L142254_) + (let ((_$e142274_ (let () (declare (not safe)) - (_lookup-block139426_ - _L142249_)))) - (if _$e142269_ - ((lambda (_block142272_) + (_lookup-block139431_ + _L142254_)))) + (if _$e142274_ + ((lambda (_block142277_) (if (let () (declare (not safe)) - (_nonlinear-block?139428_ - _block142272_)) - _expr141478_ - (let* ((_inline142281_ - (let ((__tmp150242 + (_nonlinear-block?139433_ + _block142277_)) + _expr141483_ + (let* ((_inline142286_ + (let ((__tmp150247 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp150243 - (lambda (_g142273142276_ _g142274142278_) + (let ((__tmp150248 + (lambda (_g142278142281_ _g142279142283_) (let () (declare (not safe)) - (cons _g142273142276_ - _g142274142278_))))) + (cons _g142278142281_ + _g142279142283_))))) (declare (not safe)) - (foldr1 __tmp150243 '() _L142248_)))) + (foldr1 __tmp150248 '() _L142253_)))) (declare (not safe)) - (_inline-block139427_ _block142272_ __tmp150242))) - (___stx148149148150_ _inline142281_) - (_g142284142305_ + (_inline-block139432_ _block142277_ __tmp150247))) + (___stx148154148155_ _inline142286_) + (_g142289142310_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx148149148150_))))) - (let ((___kont148151148152_ - (lambda (_L142349_ _L142350_ _L142351_) - (let ((_$e142373_ + ___stx148154148155_))))) + (let ((___kont148156148157_ + (lambda (_L142354_ _L142355_ _L142356_) + (let ((_$e142378_ (let () (declare (not safe)) - (_assert-e139421_ _L142351_)))) + (_assert-e139426_ _L142356_)))) (if (let () (declare (not safe)) - (eq? '#t _$e142373_)) - (if _in-splice?139406_ + (eq? '#t _$e142378_)) + (if _in-splice?139411_ (let () (declare (not safe)) - (_optimize-f__0__146874146875_ _L142350_)) + (_optimize-f__0__146879146880_ _L142355_)) (let () (declare (not safe)) - (_optimize-e139418_ _L142350_))) + (_optimize-e139423_ _L142355_))) (if (let () (declare (not safe)) - (eq? '#f _$e142373_)) + (eq? '#f _$e142378_)) (let () (declare (not safe)) - (_optimize-f__0__146874146875_ _L142349_)) - _expr141478_))))) - (___kont148153148154_ + (_optimize-f__0__146879146880_ _L142354_)) + _expr141483_))))) + (___kont148158148159_ (lambda () (let () (declare (not safe)) - (_optimize-f__0__146874146875_ _inline142281_))))) + (_optimize-f__0__146879146880_ _inline142286_))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx148149148150_)) - (let ((_e142291142317_ + (gx#stx-pair? ___stx148154148155_)) + (let ((_e142296142322_ (let () (declare (not safe)) - (gx#stx-e ___stx148149148150_)))) - (let ((_tl142289142322_ + (gx#stx-e ___stx148154148155_)))) + (let ((_tl142294142327_ (let () (declare (not safe)) - (##cdr _e142291142317_))) - (_hd142290142320_ + (##cdr _e142296142322_))) + (_hd142295142325_ (let () (declare (not safe)) - (##car _e142291142317_)))) + (##car _e142296142322_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd142290142320_)) + (gx#identifier? _hd142295142325_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#if _hd142290142320_)) + (gx#stx-eq? '%#if _hd142295142325_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl142289142322_)) - (let ((_e142294142325_ + (gx#stx-pair? _tl142294142327_)) + (let ((_e142299142330_ (let () (declare (not safe)) - (gx#stx-e _tl142289142322_)))) - (let ((_tl142292142330_ + (gx#stx-e _tl142294142327_)))) + (let ((_tl142297142335_ (let () (declare (not safe)) - (##cdr _e142294142325_))) - (_hd142293142328_ + (##cdr _e142299142330_))) + (_hd142298142333_ (let () (declare (not safe)) - (##car _e142294142325_)))) + (##car _e142299142330_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl142292142330_)) - (let ((_e142297142333_ + _tl142297142335_)) + (let ((_e142302142338_ (let () (declare (not safe)) (gx#stx-e - _tl142292142330_)))) - (let ((_tl142295142338_ + _tl142297142335_)))) + (let ((_tl142300142343_ (let () (declare (not safe)) - (##cdr _e142297142333_))) - (_hd142296142336_ + (##cdr _e142302142338_))) + (_hd142301142341_ (let () (declare (not safe)) - (##car _e142297142333_)))) + (##car _e142302142338_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl142295142338_)) - (let ((_e142300142341_ + _tl142300142343_)) + (let ((_e142305142346_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl142295142338_)))) - (let ((_tl142298142346_ - (let () (declare (not safe)) (##cdr _e142300142341_))) - (_hd142299142344_ - (let () (declare (not safe)) (##car _e142300142341_)))) + (gx#stx-e _tl142300142343_)))) + (let ((_tl142303142351_ + (let () (declare (not safe)) (##cdr _e142305142346_))) + (_hd142304142349_ + (let () (declare (not safe)) (##car _e142305142346_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl142298142346_)) - (___kont148151148152_ - _hd142299142344_ - _hd142296142336_ - _hd142293142328_) - (___kont148153148154_)))) - (___kont148153148154_)))) + (gx#stx-null? _tl142303142351_)) + (___kont148156148157_ + _hd142304142349_ + _hd142301142341_ + _hd142298142333_) + (___kont148158148159_)))) + (___kont148158148159_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont148153148154_)))) - (___kont148153148154_)) - (___kont148153148154_)) - (___kont148153148154_)))) - (___kont148153148154_)))))) + (___kont148158148159_)))) + (___kont148158148159_)) + (___kont148158148159_)) + (___kont148158148159_)))) + (___kont148158148159_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _$e142269_) - _expr141478_)))) - (___kont148193148194_ - (lambda (_L142146_ _L142147_ _L142148_) - (let ((_$e142165_ + _$e142274_) + _expr141483_)))) + (___kont148198148199_ + (lambda (_L142151_ _L142152_ _L142153_) + (let ((_$e142170_ (let () (declare (not safe)) - (_assert-e139421_ - _L142148_)))) + (_assert-e139426_ + _L142153_)))) (if (let () (declare (not safe)) - (eq? '#t _$e142165_)) - (if _in-splice?139406_ + (eq? '#t _$e142170_)) + (if _in-splice?139411_ (let () (declare (not safe)) - (_optimize-f__0__146874146875_ - _L142147_)) + (_optimize-f__0__146879146880_ + _L142152_)) (let () (declare (not safe)) - (_optimize-e139418_ - _L142147_))) + (_optimize-e139423_ + _L142152_))) (if (let () (declare (not safe)) - (eq? '#f _$e142165_)) + (eq? '#f _$e142170_)) (let () (declare (not safe)) - (_optimize-f__0__146874146875_ - _L142146_)) - (let ((_K142168_ + (_optimize-f__0__146879146880_ + _L142151_)) + (let ((_K142173_ (let () (declare (not safe)) - (_optimize-t__146868146869_ - _L142147_ - _L142148_ - _optimize-f139420_))) - (_E142169_ + (_optimize-t__146873146874_ + _L142152_ + _L142153_ + _optimize-f139425_))) + (_E142174_ (let () (declare (not safe)) - (_optimize-f__146872146873_ - _L142146_ - _L142148_)))) - (if (let ((__tmp150248 + (_optimize-f__146877146878_ + _L142151_ + _L142153_)))) + (if (let ((__tmp150253 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#apply-generate-runtime-repr _K142168_))) - (__tmp150247 + (gxc#apply-generate-runtime-repr _K142173_))) + (__tmp150252 (let () (declare (not safe)) - (gxc#apply-generate-runtime-repr _E142169_)))) + (gxc#apply-generate-runtime-repr _E142174_)))) (declare (not safe)) - (equal? __tmp150248 __tmp150247)) - _K142168_ - (let ((__tmp150244 - (let ((__tmp150245 - (let ((__tmp150246 + (equal? __tmp150253 __tmp150252)) + _K142173_ + (let ((__tmp150249 + (let ((__tmp150250 + (let ((__tmp150251 (let () (declare (not safe)) - (cons _E142169_ '())))) + (cons _E142174_ '())))) (declare (not safe)) - (cons _K142168_ __tmp150246)))) + (cons _K142173_ __tmp150251)))) (declare (not safe)) - (cons _L142148_ __tmp150245)))) + (cons _L142153_ __tmp150250)))) (declare (not safe)) - (cons '%#if __tmp150244))))))))) + (cons '%#if __tmp150249))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont148195148196_ - (lambda (_L142076_ _L142077_ _L142078_) - (let* ((_body142097_ + (___kont148200148201_ + (lambda (_L142081_ _L142082_ _L142083_) + (let* ((_body142102_ (let () (declare (not safe)) - (_optimize-f__0__146874146875_ - _L142076_))) - (__tmp150249 - (let ((__tmp150251 + (_optimize-f__0__146879146880_ + _L142081_))) + (__tmp150254 + (let ((__tmp150256 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L142077_ - _L142078_)) - (let ((__tmp150252 + _L142082_ + _L142083_)) + (let ((__tmp150257 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g142098142102_ - _g142099142104_ - _g142100142106_) - (let ((__tmp150253 - (let ((__tmp150258 + (lambda (_g142103142107_ + _g142104142109_ + _g142105142111_) + (let ((__tmp150258 + (let ((__tmp150263 (let () (declare (not safe)) - (cons _g142099142104_ '()))) - (__tmp150254 - (let ((__tmp150255 - (let ((__tmp150257 + (cons _g142104142109_ '()))) + (__tmp150259 + (let ((__tmp150260 + (let ((__tmp150262 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp150256 + (__tmp150261 (let () (declare (not safe)) - (cons _g142098142102_ + (cons _g142103142107_ '())))) (declare (not safe)) - (cons __tmp150257 - __tmp150256)))) + (cons __tmp150262 + __tmp150261)))) (declare (not safe)) - (cons __tmp150255 '())))) + (cons __tmp150260 '())))) (declare (not safe)) - (cons __tmp150258 __tmp150254)))) + (cons __tmp150263 __tmp150259)))) (declare (not safe)) - (cons __tmp150253 _g142100142106_))))) + (cons __tmp150258 _g142105142111_))))) (declare (not safe)) - (foldr2 __tmp150252 '() _L142077_ _L142078_)))) - (__tmp150250 - (let () (declare (not safe)) (cons _body142097_ '())))) + (foldr2 __tmp150257 '() _L142082_ _L142083_)))) + (__tmp150255 + (let () (declare (not safe)) (cons _body142102_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp150251 - __tmp150250)))) + (cons __tmp150256 + __tmp150255)))) (declare (not safe)) - (cons '%#let-values __tmp150249)))) - (___kont148199148200_ - (lambda (_L141944_ _L141945_ _L141946_) - (let ((__tmp150259 + (cons '%#let-values __tmp150254)))) + (___kont148204148205_ + (lambda (_L141949_ _L141950_ _L141951_) + (let ((__tmp150264 (map cons - (let ((__tmp150260 - (lambda (_g141964141967_ + (let ((__tmp150265 + (lambda (_g141969141972_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g141965141969_) + _g141970141974_) (let () (declare (not safe)) - (cons _g141964141967_ _g141965141969_))))) + (cons _g141969141972_ _g141970141974_))))) (declare (not safe)) - (foldr1 __tmp150260 '() _L141946_)) + (foldr1 __tmp150265 '() _L141951_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp150261 - (lambda (_g141971141974_ + (let ((__tmp150266 + (lambda (_g141976141979_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g141972141976_) + _g141977141981_) (let () (declare (not safe)) - (cons _g141971141974_ _g141972141976_))))) + (cons _g141976141979_ _g141977141981_))))) (declare (not safe)) - (foldr1 __tmp150261 '() _L141945_))))) + (foldr1 __tmp150266 '() _L141950_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_bind-e__146876146877_ - __tmp150259 - _L141944_ - _optimize-f139420_)))) - (___kont148203148204_ - (lambda (_L141800_ - _L141801_ - _L141802_ - _L141803_ - _L141804_) - (let ((__tmp150262 + (_bind-e__146881146882_ + __tmp150264 + _L141949_ + _optimize-f139425_)))) + (___kont148208148209_ + (lambda (_L141805_ + _L141806_ + _L141807_ + _L141808_ + _L141809_) + (let ((__tmp150267 (lambda () - (let* ((_expr141847_ + (let* ((_expr141852_ (let () (declare (not safe)) - (_optimize-f__0__146874146875_ - _L141802_))) - (__tmp150263 - (let ((__tmp150265 + (_optimize-f__0__146879146880_ + _L141807_))) + (__tmp150268 + (let ((__tmp150270 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp150268 - (let ((__tmp150275 + (let ((__tmp150273 + (let ((__tmp150280 (let () (declare (not safe)) - (cons _L141804_ '()))) - (__tmp150269 - (let ((__tmp150270 - (let ((__tmp150271 - (let ((__tmp150273 - (let ((__tmp150274 + (cons _L141809_ '()))) + (__tmp150274 + (let ((__tmp150275 + (let ((__tmp150276 + (let ((__tmp150278 + (let ((__tmp150279 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g141848141851_ _g141849141853_) + (lambda (_g141853141856_ _g141854141858_) (let () (declare (not safe)) - (cons _g141848141851_ _g141849141853_))))) + (cons _g141853141856_ _g141854141858_))))) (declare (not safe)) - (foldr1 __tmp150274 '() _L141803_))) - (__tmp150272 - (let () (declare (not safe)) (cons _expr141847_ '())))) + (foldr1 __tmp150279 '() _L141808_))) + (__tmp150277 + (let () (declare (not safe)) (cons _expr141852_ '())))) (declare (not safe)) - (cons __tmp150273 __tmp150272)))) + (cons __tmp150278 __tmp150277)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#lambda __tmp150271)))) + (cons '%#lambda __tmp150276)))) (declare (not safe)) - (cons __tmp150270 '())))) + (cons __tmp150275 '())))) (declare (not safe)) - (cons __tmp150275 __tmp150269))) - (__tmp150266 - (let ((__tmp150267 - (lambda (_g141855141858_ - _g141856141860_) + (cons __tmp150280 __tmp150274))) + (__tmp150271 + (let ((__tmp150272 + (lambda (_g141860141863_ + _g141861141865_) (let () (declare (not safe)) - (cons _g141855141858_ - _g141856141860_))))) + (cons _g141860141863_ + _g141861141865_))))) (declare (not safe)) - (foldr1 __tmp150267 '() _L141801_)))) + (foldr1 __tmp150272 '() _L141806_)))) (declare (not safe)) - (cons __tmp150268 __tmp150266))) - (__tmp150264 - (let () (declare (not safe)) (cons _L141800_ '())))) + (cons __tmp150273 __tmp150271))) + (__tmp150269 + (let () (declare (not safe)) (cons _L141805_ '())))) (declare (not safe)) - (cons __tmp150265 __tmp150264)))) + (cons __tmp150270 __tmp150269)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#letrec-values - __tmp150263))))) + __tmp150268))))) (declare (not safe)) - (_do-splice!139417_ __tmp150262)))) - (___kont148209148210_ - (lambda () _expr141478_))) - (let* ((___match148396148397_ - (lambda (_e141610141672_ - _hd141609141675_ - _tl141608141677_ - _e141613141680_ - _hd141612141683_ - _tl141611141685_ - _e141616141688_ - _hd141615141691_ - _tl141614141693_ - _e141619141696_ - _hd141618141699_ - _tl141617141701_ - _e141622141704_ - _hd141621141707_ - _tl141620141709_ - _e141625141712_ - _hd141624141715_ - _tl141623141717_ - _e141628141720_ - _hd141627141723_ - _tl141626141725_ - _e141631141728_ - _hd141630141731_ - _tl141629141733_ - ___splice148205148206_ - _target141632141736_ - _tl141634141738_) - (letrec ((_loop141635141741_ - (lambda (_hd141633141744_ - _id141639141746_) + (_do-splice!139422_ __tmp150267)))) + (___kont148214148215_ + (lambda () _expr141483_))) + (let* ((___match148401148402_ + (lambda (_e141615141677_ + _hd141614141680_ + _tl141613141682_ + _e141618141685_ + _hd141617141688_ + _tl141616141690_ + _e141621141693_ + _hd141620141696_ + _tl141619141698_ + _e141624141701_ + _hd141623141704_ + _tl141622141706_ + _e141627141709_ + _hd141626141712_ + _tl141625141714_ + _e141630141717_ + _hd141629141720_ + _tl141628141722_ + _e141633141725_ + _hd141632141728_ + _tl141631141730_ + _e141636141733_ + _hd141635141736_ + _tl141634141738_ + ___splice148210148211_ + _target141637141741_ + _tl141639141743_) + (letrec ((_loop141640141746_ + (lambda (_hd141638141749_ + _id141644141751_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd141633141744_)) - (let ((_e141636141749_ + _hd141638141749_)) + (let ((_e141641141754_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd141633141744_)))) - (let ((_lp-tl141638141754_ + (gx#stx-e _hd141638141749_)))) + (let ((_lp-tl141643141759_ (let () (declare (not safe)) - (##cdr _e141636141749_))) - (_lp-hd141637141752_ + (##cdr _e141641141754_))) + (_lp-hd141642141757_ (let () (declare (not safe)) - (##car _e141636141749_)))) - (let ((__tmp150277 + (##car _e141641141754_)))) + (let ((__tmp150282 (let () (declare (not safe)) - (cons _lp-hd141637141752_ _id141639141746_)))) + (cons _lp-hd141642141757_ _id141644141751_)))) (declare (not safe)) - (_loop141635141741_ - _lp-tl141638141754_ - __tmp150277)))) - (let ((_id141640141757_ (reverse _id141639141746_))) + (_loop141640141746_ + _lp-tl141643141759_ + __tmp150282)))) + (let ((_id141645141762_ (reverse _id141644141751_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl141629141733_)) - (let ((_e141643141760_ + (gx#stx-pair? _tl141634141738_)) + (let ((_e141648141765_ (let () (declare (not safe)) - (gx#stx-e _tl141629141733_)))) - (let ((_tl141641141765_ + (gx#stx-e _tl141634141738_)))) + (let ((_tl141646141770_ (let () (declare (not safe)) - (##cdr _e141643141760_))) - (_hd141642141763_ + (##cdr _e141648141765_))) + (_hd141647141768_ (let () (declare (not safe)) - (##car _e141643141760_)))) + (##car _e141648141765_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl141641141765_)) + (gx#stx-null? _tl141646141770_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl141623141717_)) + (gx#stx-null? _tl141628141722_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl141614141693_)) - (let ((___splice148207148208_ + _tl141619141698_)) + (let ((___splice148212148213_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl141614141693_ + _tl141619141698_ '0)))) - (let ((_tl141646141770_ + (let ((_tl141651141775_ (let () (declare (not safe)) (##vector-ref - ___splice148207148208_ + ___splice148212148213_ '1))) - (_target141644141768_ + (_target141649141773_ (let () (declare (not safe)) (##vector-ref - ___splice148207148208_ + ___splice148212148213_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl141646141770_)) - (letrec ((_loop141647141773_ - (lambda (_hd141645141776_ + _tl141651141775_)) + (letrec ((_loop141652141778_ + (lambda (_hd141650141781_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _bind141651141778_) + _bind141656141783_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd141645141776_)) - (let ((_e141648141781_ + (gx#stx-pair? _hd141650141781_)) + (let ((_e141653141786_ (let () (declare (not safe)) - (gx#stx-e _hd141645141776_)))) - (let ((_lp-tl141650141786_ + (gx#stx-e _hd141650141781_)))) + (let ((_lp-tl141655141791_ (let () (declare (not safe)) - (##cdr _e141648141781_))) - (_lp-hd141649141784_ + (##cdr _e141653141786_))) + (_lp-hd141654141789_ (let () (declare (not safe)) - (##car _e141648141781_)))) - (let ((__tmp150276 + (##car _e141653141786_)))) + (let ((__tmp150281 (let () (declare (not safe)) - (cons _lp-hd141649141784_ - _bind141651141778_)))) + (cons _lp-hd141654141789_ + _bind141656141783_)))) (declare (not safe)) - (_loop141647141773_ - _lp-tl141650141786_ - __tmp150276)))) - (let ((_bind141652141789_ - (reverse _bind141651141778_))) + (_loop141652141778_ + _lp-tl141655141791_ + __tmp150281)))) + (let ((_bind141657141794_ + (reverse _bind141656141783_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl141611141685_)) - (let ((_e141655141792_ + (gx#stx-pair? _tl141616141690_)) + (let ((_e141660141797_ (let () (declare (not safe)) - (gx#stx-e _tl141611141685_)))) - (let ((_tl141653141797_ + (gx#stx-e _tl141616141690_)))) + (let ((_tl141658141802_ (let () (declare (not safe)) - (##cdr _e141655141792_))) - (_hd141654141795_ + (##cdr _e141660141797_))) + (_hd141659141800_ (let () (declare (not safe)) - (##car _e141655141792_)))) + (##car _e141660141797_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl141653141797_)) - (___kont148203148204_ - _hd141654141795_ - _bind141652141789_ - _hd141642141763_ - _id141640141757_ - _hd141621141707_) - (___kont148209148210_)))) - (___kont148209148210_))))))) + (gx#stx-null? _tl141658141802_)) + (___kont148208148209_ + _hd141659141800_ + _bind141657141794_ + _hd141647141768_ + _id141645141762_ + _hd141626141712_) + (___kont148214148215_)))) + (___kont148214148215_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop141647141773_ - _target141644141768_ + (_loop141652141778_ + _target141649141773_ '()))) - (___kont148209148210_)))) - (___kont148209148210_)) - (___kont148209148210_)) - (___kont148209148210_)))) - (___kont148209148210_))))))) + (___kont148214148215_)))) + (___kont148214148215_)) + (___kont148214148215_)) + (___kont148214148215_)))) + (___kont148214148215_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop141635141741_ - _target141632141736_ + (_loop141640141746_ + _target141637141741_ '()))))) - (___match148330148331_ - (lambda (_e141576141868_ - _hd141575141871_ - _tl141574141873_ - _e141579141876_ - _hd141578141879_ - _tl141577141881_ - ___splice148201148202_ - _target141580141884_ - _tl141582141886_) - (letrec ((_loop141583141889_ - (lambda (_hd141581141892_ - _expr141587141894_ - _id141588141896_) + (___match148335148336_ + (lambda (_e141581141873_ + _hd141580141876_ + _tl141579141878_ + _e141584141881_ + _hd141583141884_ + _tl141582141886_ + ___splice148206148207_ + _target141585141889_ + _tl141587141891_) + (letrec ((_loop141588141894_ + (lambda (_hd141586141897_ + _expr141592141899_ + _id141593141901_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd141581141892_)) - (let ((_e141584141899_ + _hd141586141897_)) + (let ((_e141589141904_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd141581141892_)))) - (let ((_lp-tl141586141904_ + (gx#stx-e _hd141586141897_)))) + (let ((_lp-tl141591141909_ (let () (declare (not safe)) - (##cdr _e141584141899_))) - (_lp-hd141585141902_ + (##cdr _e141589141904_))) + (_lp-hd141590141907_ (let () (declare (not safe)) - (##car _e141584141899_)))) + (##car _e141589141904_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd141585141902_)) - (let ((_e141593141907_ + (gx#stx-pair? _lp-hd141590141907_)) + (let ((_e141598141912_ (let () (declare (not safe)) - (gx#stx-e _lp-hd141585141902_)))) - (let ((_tl141591141912_ + (gx#stx-e _lp-hd141590141907_)))) + (let ((_tl141596141917_ (let () (declare (not safe)) - (##cdr _e141593141907_))) - (_hd141592141910_ + (##cdr _e141598141912_))) + (_hd141597141915_ (let () (declare (not safe)) - (##car _e141593141907_)))) + (##car _e141598141912_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd141592141910_)) - (let ((_e141596141915_ + (gx#stx-pair? _hd141597141915_)) + (let ((_e141601141920_ (let () (declare (not safe)) - (gx#stx-e _hd141592141910_)))) - (let ((_tl141594141920_ + (gx#stx-e _hd141597141915_)))) + (let ((_tl141599141925_ (let () (declare (not safe)) - (##cdr _e141596141915_))) - (_hd141595141918_ + (##cdr _e141601141920_))) + (_hd141600141923_ (let () (declare (not safe)) - (##car _e141596141915_)))) + (##car _e141601141920_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl141594141920_)) + (gx#stx-null? _tl141599141925_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl141591141912_)) - (let ((_e141599141923_ + _tl141596141917_)) + (let ((_e141604141928_ (let () (declare (not safe)) (gx#stx-e - _tl141591141912_)))) - (let ((_tl141597141928_ + _tl141596141917_)))) + (let ((_tl141602141933_ (let () (declare (not safe)) - (##cdr _e141599141923_))) - (_hd141598141926_ + (##cdr _e141604141928_))) + (_hd141603141931_ (let () (declare (not safe)) - (##car _e141599141923_)))) + (##car _e141604141928_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl141597141928_)) - (let ((__tmp150279 + _tl141602141933_)) + (let ((__tmp150284 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _hd141598141926_ _expr141587141894_))) - (__tmp150278 + (cons _hd141603141931_ _expr141592141899_))) + (__tmp150283 (let () (declare (not safe)) - (cons _hd141595141918_ _id141588141896_)))) + (cons _hd141600141923_ _id141593141901_)))) (declare (not safe)) - (_loop141583141889_ - _lp-tl141586141904_ - __tmp150279 - __tmp150278)) - (___kont148209148210_)))) + (_loop141588141894_ + _lp-tl141591141909_ + __tmp150284 + __tmp150283)) + (___kont148214148215_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont148209148210_)) - (___kont148209148210_)))) - (___kont148209148210_)))) - (___kont148209148210_)))) - (let ((_id141590141933_ (reverse _id141588141896_)) - (_expr141589141931_ (reverse _expr141587141894_))) + (___kont148214148215_)) + (___kont148214148215_)))) + (___kont148214148215_)))) + (___kont148214148215_)))) + (let ((_id141595141938_ (reverse _id141593141901_)) + (_expr141594141936_ (reverse _expr141592141899_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl141577141881_)) - (let ((_e141602141936_ + (gx#stx-pair? _tl141582141886_)) + (let ((_e141607141941_ (let () (declare (not safe)) - (gx#stx-e _tl141577141881_)))) - (let ((_tl141600141941_ + (gx#stx-e _tl141582141886_)))) + (let ((_tl141605141946_ (let () (declare (not safe)) - (##cdr _e141602141936_))) - (_hd141601141939_ + (##cdr _e141607141941_))) + (_hd141606141944_ (let () (declare (not safe)) - (##car _e141602141936_)))) + (##car _e141607141941_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl141600141941_)) - (___kont148199148200_ - _hd141601141939_ - _expr141589141931_ - _id141590141933_) - (___kont148209148210_)))) - (___kont148209148210_))))))) + (gx#stx-null? _tl141605141946_)) + (___kont148204148205_ + _hd141606141944_ + _expr141594141936_ + _id141595141938_) + (___kont148214148215_)))) + (___kont148214148215_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop141583141889_ - _target141580141884_ + (_loop141588141894_ + _target141585141889_ '() '()))))) - (___match148306148307_ - (lambda (_e141538141984_ - _hd141537141987_ - _tl141536141989_ - _e141541141992_ - _hd141540141995_ - _tl141539141997_ - ___splice148197148198_ - _target141542142000_ - _tl141544142002_) - (letrec ((_loop141545142005_ - (lambda (_hd141543142008_ - _xid141549142010_ - _id141550142012_) + (___match148311148312_ + (lambda (_e141543141989_ + _hd141542141992_ + _tl141541141994_ + _e141546141997_ + _hd141545142000_ + _tl141544142002_ + ___splice148202148203_ + _target141547142005_ + _tl141549142007_) + (letrec ((_loop141550142010_ + (lambda (_hd141548142013_ + _xid141554142015_ + _id141555142017_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd141543142008_)) - (let ((_e141546142015_ + _hd141548142013_)) + (let ((_e141551142020_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd141543142008_)))) - (let ((_lp-tl141548142020_ + (gx#stx-e _hd141548142013_)))) + (let ((_lp-tl141553142025_ (let () (declare (not safe)) - (##cdr _e141546142015_))) - (_lp-hd141547142018_ + (##cdr _e141551142020_))) + (_lp-hd141552142023_ (let () (declare (not safe)) - (##car _e141546142015_)))) + (##car _e141551142020_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd141547142018_)) - (let ((_e141555142023_ + (gx#stx-pair? _lp-hd141552142023_)) + (let ((_e141560142028_ (let () (declare (not safe)) - (gx#stx-e _lp-hd141547142018_)))) - (let ((_tl141553142028_ + (gx#stx-e _lp-hd141552142023_)))) + (let ((_tl141558142033_ (let () (declare (not safe)) - (##cdr _e141555142023_))) - (_hd141554142026_ + (##cdr _e141560142028_))) + (_hd141559142031_ (let () (declare (not safe)) - (##car _e141555142023_)))) + (##car _e141560142028_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd141554142026_)) - (let ((_e141558142031_ + (gx#stx-pair? _hd141559142031_)) + (let ((_e141563142036_ (let () (declare (not safe)) - (gx#stx-e _hd141554142026_)))) - (let ((_tl141556142036_ + (gx#stx-e _hd141559142031_)))) + (let ((_tl141561142041_ (let () (declare (not safe)) - (##cdr _e141558142031_))) - (_hd141557142034_ + (##cdr _e141563142036_))) + (_hd141562142039_ (let () (declare (not safe)) - (##car _e141558142031_)))) + (##car _e141563142036_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl141556142036_)) + (gx#stx-null? _tl141561142041_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl141553142028_)) - (let ((_e141561142039_ + _tl141558142033_)) + (let ((_e141566142044_ (let () (declare (not safe)) (gx#stx-e - _tl141553142028_)))) - (let ((_tl141559142044_ + _tl141558142033_)))) + (let ((_tl141564142049_ (let () (declare (not safe)) - (##cdr _e141561142039_))) - (_hd141560142042_ + (##cdr _e141566142044_))) + (_hd141565142047_ (let () (declare (not safe)) - (##car _e141561142039_)))) + (##car _e141566142044_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd141560142042_)) - (let ((_e141564142047_ + _hd141565142047_)) + (let ((_e141569142052_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd141560142042_)))) - (let ((_tl141562142052_ - (let () (declare (not safe)) (##cdr _e141564142047_))) - (_hd141563142050_ + (gx#stx-e _hd141565142047_)))) + (let ((_tl141567142057_ + (let () (declare (not safe)) (##cdr _e141569142052_))) + (_hd141568142055_ (let () (declare (not safe)) - (##car _e141564142047_)))) + (##car _e141569142052_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd141563142050_)) + (gx#identifier? _hd141568142055_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd141563142050_)) + (gx#stx-eq? '%#ref _hd141568142055_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl141562142052_)) - (let ((_e141567142055_ + (gx#stx-pair? _tl141567142057_)) + (let ((_e141572142060_ (let () (declare (not safe)) - (gx#stx-e _tl141562142052_)))) - (let ((_tl141565142060_ + (gx#stx-e _tl141567142057_)))) + (let ((_tl141570142065_ (let () (declare (not safe)) - (##cdr _e141567142055_))) - (_hd141566142058_ + (##cdr _e141572142060_))) + (_hd141571142063_ (let () (declare (not safe)) - (##car _e141567142055_)))) + (##car _e141572142060_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl141565142060_)) + (gx#stx-null? _tl141570142065_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl141559142044_)) - (let ((__tmp150281 + (gx#stx-null? _tl141564142049_)) + (let ((__tmp150286 (let () (declare (not safe)) - (cons _hd141566142058_ - _xid141549142010_))) - (__tmp150280 + (cons _hd141571142063_ + _xid141554142015_))) + (__tmp150285 (let () (declare (not safe)) - (cons _hd141557142034_ - _id141550142012_)))) + (cons _hd141562142039_ + _id141555142017_)))) (declare (not safe)) - (_loop141545142005_ - _lp-tl141548142020_ - __tmp150281 - __tmp150280)) - (___match148330148331_ - _e141538141984_ - _hd141537141987_ - _tl141536141989_ - _e141541141992_ - _hd141540141995_ - _tl141539141997_ - ___splice148197148198_ - _target141542142000_ - _tl141544142002_)) - (___match148330148331_ - _e141538141984_ - _hd141537141987_ - _tl141536141989_ - _e141541141992_ - _hd141540141995_ - _tl141539141997_ - ___splice148197148198_ - _target141542142000_ - _tl141544142002_)))) - (___match148330148331_ - _e141538141984_ - _hd141537141987_ - _tl141536141989_ - _e141541141992_ - _hd141540141995_ - _tl141539141997_ - ___splice148197148198_ - _target141542142000_ - _tl141544142002_)) - (___match148330148331_ - _e141538141984_ - _hd141537141987_ - _tl141536141989_ - _e141541141992_ - _hd141540141995_ - _tl141539141997_ - ___splice148197148198_ - _target141542142000_ - _tl141544142002_)) - (___match148330148331_ - _e141538141984_ - _hd141537141987_ - _tl141536141989_ - _e141541141992_ - _hd141540141995_ - _tl141539141997_ - ___splice148197148198_ - _target141542142000_ - _tl141544142002_)))) - (___match148330148331_ - _e141538141984_ - _hd141537141987_ - _tl141536141989_ - _e141541141992_ - _hd141540141995_ - _tl141539141997_ - ___splice148197148198_ - _target141542142000_ - _tl141544142002_)))) + (_loop141550142010_ + _lp-tl141553142025_ + __tmp150286 + __tmp150285)) + (___match148335148336_ + _e141543141989_ + _hd141542141992_ + _tl141541141994_ + _e141546141997_ + _hd141545142000_ + _tl141544142002_ + ___splice148202148203_ + _target141547142005_ + _tl141549142007_)) + (___match148335148336_ + _e141543141989_ + _hd141542141992_ + _tl141541141994_ + _e141546141997_ + _hd141545142000_ + _tl141544142002_ + ___splice148202148203_ + _target141547142005_ + _tl141549142007_)))) + (___match148335148336_ + _e141543141989_ + _hd141542141992_ + _tl141541141994_ + _e141546141997_ + _hd141545142000_ + _tl141544142002_ + ___splice148202148203_ + _target141547142005_ + _tl141549142007_)) + (___match148335148336_ + _e141543141989_ + _hd141542141992_ + _tl141541141994_ + _e141546141997_ + _hd141545142000_ + _tl141544142002_ + ___splice148202148203_ + _target141547142005_ + _tl141549142007_)) + (___match148335148336_ + _e141543141989_ + _hd141542141992_ + _tl141541141994_ + _e141546141997_ + _hd141545142000_ + _tl141544142002_ + ___splice148202148203_ + _target141547142005_ + _tl141549142007_)))) + (___match148335148336_ + _e141543141989_ + _hd141542141992_ + _tl141541141994_ + _e141546141997_ + _hd141545142000_ + _tl141544142002_ + ___splice148202148203_ + _target141547142005_ + _tl141549142007_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match148330148331_ - _e141538141984_ - _hd141537141987_ - _tl141536141989_ - _e141541141992_ - _hd141540141995_ - _tl141539141997_ - ___splice148197148198_ - _target141542142000_ - _tl141544142002_)) - (___match148330148331_ - _e141538141984_ - _hd141537141987_ - _tl141536141989_ - _e141541141992_ - _hd141540141995_ - _tl141539141997_ - ___splice148197148198_ - _target141542142000_ - _tl141544142002_)))) - (___match148330148331_ - _e141538141984_ - _hd141537141987_ - _tl141536141989_ - _e141541141992_ - _hd141540141995_ - _tl141539141997_ - ___splice148197148198_ - _target141542142000_ - _tl141544142002_)))) - (___match148330148331_ - _e141538141984_ - _hd141537141987_ - _tl141536141989_ - _e141541141992_ - _hd141540141995_ - _tl141539141997_ - ___splice148197148198_ - _target141542142000_ - _tl141544142002_)))) - (let ((_id141552142065_ (reverse _id141550142012_)) - (_xid141551142063_ (reverse _xid141549142010_))) + (___match148335148336_ + _e141543141989_ + _hd141542141992_ + _tl141541141994_ + _e141546141997_ + _hd141545142000_ + _tl141544142002_ + ___splice148202148203_ + _target141547142005_ + _tl141549142007_)) + (___match148335148336_ + _e141543141989_ + _hd141542141992_ + _tl141541141994_ + _e141546141997_ + _hd141545142000_ + _tl141544142002_ + ___splice148202148203_ + _target141547142005_ + _tl141549142007_)))) + (___match148335148336_ + _e141543141989_ + _hd141542141992_ + _tl141541141994_ + _e141546141997_ + _hd141545142000_ + _tl141544142002_ + ___splice148202148203_ + _target141547142005_ + _tl141549142007_)))) + (___match148335148336_ + _e141543141989_ + _hd141542141992_ + _tl141541141994_ + _e141546141997_ + _hd141545142000_ + _tl141544142002_ + ___splice148202148203_ + _target141547142005_ + _tl141549142007_)))) + (let ((_id141557142070_ (reverse _id141555142017_)) + (_xid141556142068_ (reverse _xid141554142015_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl141539141997_)) - (let ((_e141570142068_ + (gx#stx-pair? _tl141544142002_)) + (let ((_e141575142073_ (let () (declare (not safe)) - (gx#stx-e _tl141539141997_)))) - (let ((_tl141568142073_ + (gx#stx-e _tl141544142002_)))) + (let ((_tl141573142078_ (let () (declare (not safe)) - (##cdr _e141570142068_))) - (_hd141569142071_ + (##cdr _e141575142073_))) + (_hd141574142076_ (let () (declare (not safe)) - (##car _e141570142068_)))) + (##car _e141575142073_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl141568142073_)) - (___kont148195148196_ - _hd141569142071_ - _xid141551142063_ - _id141552142065_) - (___match148330148331_ - _e141538141984_ - _hd141537141987_ - _tl141536141989_ - _e141541141992_ - _hd141540141995_ - _tl141539141997_ - ___splice148197148198_ - _target141542142000_ - _tl141544142002_)))) - (___match148330148331_ - _e141538141984_ - _hd141537141987_ - _tl141536141989_ - _e141541141992_ - _hd141540141995_ - _tl141539141997_ - ___splice148197148198_ - _target141542142000_ - _tl141544142002_))))))) + (gx#stx-null? _tl141573142078_)) + (___kont148200148201_ + _hd141574142076_ + _xid141556142068_ + _id141557142070_) + (___match148335148336_ + _e141543141989_ + _hd141542141992_ + _tl141541141994_ + _e141546141997_ + _hd141545142000_ + _tl141544142002_ + ___splice148202148203_ + _target141547142005_ + _tl141549142007_)))) + (___match148335148336_ + _e141543141989_ + _hd141542141992_ + _tl141541141994_ + _e141546141997_ + _hd141545142000_ + _tl141544142002_ + ___splice148202148203_ + _target141547142005_ + _tl141549142007_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop141545142005_ - _target141542142000_ + (_loop141550142010_ + _target141547142005_ '() '()))))) - (___match148252148253_ - (lambda (_e141493142176_ - _hd141492142179_ - _tl141491142181_ - _e141496142184_ - _hd141495142187_ - _tl141494142189_ - _e141499142192_ - _hd141498142195_ - _tl141497142197_ - _e141502142200_ - _hd141501142203_ - _tl141500142205_ - ___splice148191148192_ - _target141503142208_ - _tl141505142210_) - (letrec ((_loop141506142213_ - (lambda (_hd141504142216_ - _id141510142218_) + (___match148257148258_ + (lambda (_e141498142181_ + _hd141497142184_ + _tl141496142186_ + _e141501142189_ + _hd141500142192_ + _tl141499142194_ + _e141504142197_ + _hd141503142200_ + _tl141502142202_ + _e141507142205_ + _hd141506142208_ + _tl141505142210_ + ___splice148196148197_ + _target141508142213_ + _tl141510142215_) + (letrec ((_loop141511142218_ + (lambda (_hd141509142221_ + _id141515142223_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd141504142216_)) - (let ((_e141507142221_ + _hd141509142221_)) + (let ((_e141512142226_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd141504142216_)))) - (let ((_lp-tl141509142226_ + (gx#stx-e _hd141509142221_)))) + (let ((_lp-tl141514142231_ (let () (declare (not safe)) - (##cdr _e141507142221_))) - (_lp-hd141508142224_ + (##cdr _e141512142226_))) + (_lp-hd141513142229_ (let () (declare (not safe)) - (##car _e141507142221_)))) + (##car _e141512142226_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd141508142224_)) - (let ((_e141514142229_ + (gx#stx-pair? _lp-hd141513142229_)) + (let ((_e141519142234_ (let () (declare (not safe)) - (gx#stx-e _lp-hd141508142224_)))) - (let ((_tl141512142234_ + (gx#stx-e _lp-hd141513142229_)))) + (let ((_tl141517142239_ (let () (declare (not safe)) - (##cdr _e141514142229_))) - (_hd141513142232_ + (##cdr _e141519142234_))) + (_hd141518142237_ (let () (declare (not safe)) - (##car _e141514142229_)))) + (##car _e141519142234_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd141513142232_)) + (gx#identifier? _hd141518142237_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd141513142232_)) + (gx#stx-eq? '%#ref _hd141518142237_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl141512142234_)) - (let ((_e141517142237_ + (gx#stx-pair? _tl141517142239_)) + (let ((_e141522142242_ (let () (declare (not safe)) (gx#stx-e - _tl141512142234_)))) - (let ((_tl141515142242_ + _tl141517142239_)))) + (let ((_tl141520142247_ (let () (declare (not safe)) - (##cdr _e141517142237_))) - (_hd141516142240_ + (##cdr _e141522142242_))) + (_hd141521142245_ (let () (declare (not safe)) - (##car _e141517142237_)))) + (##car _e141522142242_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl141515142242_)) - (let ((__tmp150282 + _tl141520142247_)) + (let ((__tmp150287 (let () (declare (not safe)) - (cons _hd141516142240_ + (cons _hd141521142245_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id141510142218_)))) + _id141515142223_)))) (declare (not safe)) - (_loop141506142213_ _lp-tl141509142226_ __tmp150282)) + (_loop141511142218_ _lp-tl141514142231_ __tmp150287)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont148209148210_)))) - (___kont148209148210_)) - (___kont148209148210_)) - (___kont148209148210_)))) - (___kont148209148210_)))) - (let ((_id141511142245_ (reverse _id141510142218_))) - (___kont148189148190_ - _id141511142245_ - _hd141501142203_)))))) + (___kont148214148215_)))) + (___kont148214148215_)) + (___kont148214148215_)) + (___kont148214148215_)))) + (___kont148214148215_)))) + (let ((_id141516142250_ (reverse _id141515142223_))) + (___kont148194148195_ + _id141516142250_ + _hd141506142208_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop141506142213_ - _target141503142208_ + (_loop141511142218_ + _target141508142213_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx148187148188_)) - (let ((_e141493142176_ + (gx#stx-pair? ___stx148192148193_)) + (let ((_e141498142181_ (let () (declare (not safe)) (gx#stx-e - ___stx148187148188_)))) - (let ((_tl141491142181_ + ___stx148192148193_)))) + (let ((_tl141496142186_ (let () (declare (not safe)) - (##cdr _e141493142176_))) - (_hd141492142179_ + (##cdr _e141498142181_))) + (_hd141497142184_ (let () (declare (not safe)) - (##car _e141493142176_)))) + (##car _e141498142181_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd141492142179_)) + _hd141497142184_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd141492142179_)) + _hd141497142184_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl141491142181_)) - (let ((_e141496142184_ + _tl141496142186_)) + (let ((_e141501142189_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl141491142181_)))) - (let ((_tl141494142189_ - (let () (declare (not safe)) (##cdr _e141496142184_))) - (_hd141495142187_ + (gx#stx-e _tl141496142186_)))) + (let ((_tl141499142194_ + (let () (declare (not safe)) (##cdr _e141501142189_))) + (_hd141500142192_ (let () (declare (not safe)) - (##car _e141496142184_)))) + (##car _e141501142189_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd141495142187_)) - (let ((_e141499142192_ + (gx#stx-pair? _hd141500142192_)) + (let ((_e141504142197_ (let () (declare (not safe)) - (gx#stx-e _hd141495142187_)))) - (let ((_tl141497142197_ + (gx#stx-e _hd141500142192_)))) + (let ((_tl141502142202_ (let () (declare (not safe)) - (##cdr _e141499142192_))) - (_hd141498142195_ + (##cdr _e141504142197_))) + (_hd141503142200_ (let () (declare (not safe)) - (##car _e141499142192_)))) + (##car _e141504142197_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd141498142195_)) + (gx#identifier? _hd141503142200_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd141498142195_)) + (gx#stx-eq? '%#ref _hd141503142200_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl141497142197_)) - (let ((_e141502142200_ + (gx#stx-pair? _tl141502142202_)) + (let ((_e141507142205_ (let () (declare (not safe)) - (gx#stx-e _tl141497142197_)))) - (let ((_tl141500142205_ + (gx#stx-e _tl141502142202_)))) + (let ((_tl141505142210_ (let () (declare (not safe)) - (##cdr _e141502142200_))) - (_hd141501142203_ + (##cdr _e141507142205_))) + (_hd141506142208_ (let () (declare (not safe)) - (##car _e141502142200_)))) + (##car _e141507142205_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl141500142205_)) + _tl141505142210_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl141494142189_)) - (let ((___splice148191148192_ + _tl141499142194_)) + (let ((___splice148196148197_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl141494142189_ + _tl141499142194_ '0)))) - (let ((_tl141505142210_ + (let ((_tl141510142215_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref ___splice148191148192_ '1))) - (_target141503142208_ + (##vector-ref ___splice148196148197_ '1))) + (_target141508142213_ (let () (declare (not safe)) - (##vector-ref ___splice148191148192_ '0)))) + (##vector-ref ___splice148196148197_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl141505142210_)) - (___match148252148253_ - _e141493142176_ - _hd141492142179_ - _tl141491142181_ - _e141496142184_ - _hd141495142187_ - _tl141494142189_ - _e141499142192_ - _hd141498142195_ - _tl141497142197_ - _e141502142200_ - _hd141501142203_ - _tl141500142205_ - ___splice148191148192_ - _target141503142208_ - _tl141505142210_) - (___kont148209148210_)))) + (gx#stx-null? _tl141510142215_)) + (___match148257148258_ + _e141498142181_ + _hd141497142184_ + _tl141496142186_ + _e141501142189_ + _hd141500142192_ + _tl141499142194_ + _e141504142197_ + _hd141503142200_ + _tl141502142202_ + _e141507142205_ + _hd141506142208_ + _tl141505142210_ + ___splice148196148197_ + _target141508142213_ + _tl141510142215_) + (___kont148214148215_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont148209148210_)) - (___kont148209148210_)))) - (___kont148209148210_)) - (___kont148209148210_)) - (___kont148209148210_)))) - (___kont148209148210_)))) - (___kont148209148210_)) + (___kont148214148215_)) + (___kont148214148215_)))) + (___kont148214148215_)) + (___kont148214148215_)) + (___kont148214148215_)))) + (___kont148214148215_)))) + (___kont148214148215_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _hd141492142179_)) + _hd141497142184_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl141491142181_)) - (let ((_e141526142122_ + _tl141496142186_)) + (let ((_e141531142127_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl141491142181_)))) - (let ((_tl141524142127_ + (gx#stx-e _tl141496142186_)))) + (let ((_tl141529142132_ (let () (declare (not safe)) - (##cdr _e141526142122_))) - (_hd141525142125_ + (##cdr _e141531142127_))) + (_hd141530142130_ (let () (declare (not safe)) - (##car _e141526142122_)))) + (##car _e141531142127_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl141524142127_)) - (let ((_e141529142130_ + (gx#stx-pair? _tl141529142132_)) + (let ((_e141534142135_ (let () (declare (not safe)) - (gx#stx-e _tl141524142127_)))) - (let ((_tl141527142135_ + (gx#stx-e _tl141529142132_)))) + (let ((_tl141532142140_ (let () (declare (not safe)) - (##cdr _e141529142130_))) - (_hd141528142133_ + (##cdr _e141534142135_))) + (_hd141533142138_ (let () (declare (not safe)) - (##car _e141529142130_)))) + (##car _e141534142135_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl141527142135_)) - (let ((_e141532142138_ + (gx#stx-pair? _tl141532142140_)) + (let ((_e141537142143_ (let () (declare (not safe)) - (gx#stx-e _tl141527142135_)))) - (let ((_tl141530142143_ + (gx#stx-e _tl141532142140_)))) + (let ((_tl141535142148_ (let () (declare (not safe)) - (##cdr _e141532142138_))) - (_hd141531142141_ + (##cdr _e141537142143_))) + (_hd141536142146_ (let () (declare (not safe)) - (##car _e141532142138_)))) + (##car _e141537142143_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl141530142143_)) - (___kont148193148194_ - _hd141531142141_ - _hd141528142133_ - _hd141525142125_) - (___kont148209148210_)))) - (___kont148209148210_)))) - (___kont148209148210_)))) - (___kont148209148210_)) + (gx#stx-null? _tl141535142148_)) + (___kont148198148199_ + _hd141536142146_ + _hd141533142138_ + _hd141530142130_) + (___kont148214148215_)))) + (___kont148214148215_)))) + (___kont148214148215_)))) + (___kont148214148215_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#let-values _hd141492142179_)) + (gx#stx-eq? '%#let-values _hd141497142184_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl141491142181_)) - (let ((_e141541141992_ + (gx#stx-pair? _tl141496142186_)) + (let ((_e141546141997_ (let () (declare (not safe)) - (gx#stx-e _tl141491142181_)))) - (let ((_tl141539141997_ + (gx#stx-e _tl141496142186_)))) + (let ((_tl141544142002_ (let () (declare (not safe)) - (##cdr _e141541141992_))) - (_hd141540141995_ + (##cdr _e141546141997_))) + (_hd141545142000_ (let () (declare (not safe)) - (##car _e141541141992_)))) + (##car _e141546141997_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd141540141995_)) - (let ((___splice148197148198_ + (gx#stx-pair/null? _hd141545142000_)) + (let ((___splice148202148203_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd141540141995_ + _hd141545142000_ '0)))) - (let ((_tl141544142002_ + (let ((_tl141549142007_ (let () (declare (not safe)) (##vector-ref - ___splice148197148198_ + ___splice148202148203_ '1))) - (_target141542142000_ + (_target141547142005_ (let () (declare (not safe)) (##vector-ref - ___splice148197148198_ + ___splice148202148203_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl141544142002_)) - (___match148306148307_ - _e141493142176_ - _hd141492142179_ - _tl141491142181_ - _e141541141992_ - _hd141540141995_ - _tl141539141997_ - ___splice148197148198_ - _target141542142000_ - _tl141544142002_) - (___kont148209148210_)))) - (___kont148209148210_)))) - (___kont148209148210_)) + (gx#stx-null? _tl141549142007_)) + (___match148311148312_ + _e141498142181_ + _hd141497142184_ + _tl141496142186_ + _e141546141997_ + _hd141545142000_ + _tl141544142002_ + ___splice148202148203_ + _target141547142005_ + _tl141549142007_) + (___kont148214148215_)))) + (___kont148214148215_)))) + (___kont148214148215_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#letrec-values _hd141492142179_)) + (gx#stx-eq? '%#letrec-values _hd141497142184_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl141491142181_)) - (let ((_e141613141680_ + (gx#stx-pair? _tl141496142186_)) + (let ((_e141618141685_ (let () (declare (not safe)) - (gx#stx-e _tl141491142181_)))) - (let ((_tl141611141685_ + (gx#stx-e _tl141496142186_)))) + (let ((_tl141616141690_ (let () (declare (not safe)) - (##cdr _e141613141680_))) - (_hd141612141683_ + (##cdr _e141618141685_))) + (_hd141617141688_ (let () (declare (not safe)) - (##car _e141613141680_)))) + (##car _e141618141685_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd141612141683_)) - (let ((_e141616141688_ + (gx#stx-pair? _hd141617141688_)) + (let ((_e141621141693_ (let () (declare (not safe)) - (gx#stx-e _hd141612141683_)))) - (let ((_tl141614141693_ + (gx#stx-e _hd141617141688_)))) + (let ((_tl141619141698_ (let () (declare (not safe)) - (##cdr _e141616141688_))) - (_hd141615141691_ + (##cdr _e141621141693_))) + (_hd141620141696_ (let () (declare (not safe)) - (##car _e141616141688_)))) + (##car _e141621141693_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd141615141691_)) - (let ((_e141619141696_ + (gx#stx-pair? _hd141620141696_)) + (let ((_e141624141701_ (let () (declare (not safe)) (gx#stx-e - _hd141615141691_)))) - (let ((_tl141617141701_ + _hd141620141696_)))) + (let ((_tl141622141706_ (let () (declare (not safe)) - (##cdr _e141619141696_))) - (_hd141618141699_ + (##cdr _e141624141701_))) + (_hd141623141704_ (let () (declare (not safe)) - (##car _e141619141696_)))) + (##car _e141624141701_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd141618141699_)) - (let ((_e141622141704_ + _hd141623141704_)) + (let ((_e141627141709_ (let () (declare (not safe)) (gx#stx-e - _hd141618141699_)))) - (let ((_tl141620141709_ + _hd141623141704_)))) + (let ((_tl141625141714_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e141622141704_))) - (_hd141621141707_ - (let () (declare (not safe)) (##car _e141622141704_)))) + (##cdr _e141627141709_))) + (_hd141626141712_ + (let () (declare (not safe)) (##car _e141627141709_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl141620141709_)) + (gx#stx-null? _tl141625141714_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl141617141701_)) - (let ((_e141625141712_ + (gx#stx-pair? _tl141622141706_)) + (let ((_e141630141717_ (let () (declare (not safe)) - (gx#stx-e _tl141617141701_)))) - (let ((_tl141623141717_ + (gx#stx-e _tl141622141706_)))) + (let ((_tl141628141722_ (let () (declare (not safe)) - (##cdr _e141625141712_))) - (_hd141624141715_ + (##cdr _e141630141717_))) + (_hd141629141720_ (let () (declare (not safe)) - (##car _e141625141712_)))) + (##car _e141630141717_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd141624141715_)) - (let ((_e141628141720_ + (gx#stx-pair? _hd141629141720_)) + (let ((_e141633141725_ (let () (declare (not safe)) - (gx#stx-e _hd141624141715_)))) - (let ((_tl141626141725_ + (gx#stx-e _hd141629141720_)))) + (let ((_tl141631141730_ (let () (declare (not safe)) - (##cdr _e141628141720_))) - (_hd141627141723_ + (##cdr _e141633141725_))) + (_hd141632141728_ (let () (declare (not safe)) - (##car _e141628141720_)))) + (##car _e141633141725_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd141627141723_)) + (gx#identifier? _hd141632141728_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd141627141723_)) + _hd141632141728_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl141626141725_)) - (let ((_e141631141728_ + _tl141631141730_)) + (let ((_e141636141733_ (let () (declare (not safe)) (gx#stx-e - _tl141626141725_)))) - (let ((_tl141629141733_ + _tl141631141730_)))) + (let ((_tl141634141738_ (let () (declare (not safe)) - (##cdr _e141631141728_))) - (_hd141630141731_ + (##cdr _e141636141733_))) + (_hd141635141736_ (let () (declare (not safe)) - (##car _e141631141728_)))) + (##car _e141636141733_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd141630141731_)) - (let ((___splice148205148206_ + _hd141635141736_)) + (let ((___splice148210148211_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-split-splice _hd141630141731_ '0)))) - (let ((_tl141634141738_ + (gx#syntax-split-splice _hd141635141736_ '0)))) + (let ((_tl141639141743_ (let () (declare (not safe)) - (##vector-ref ___splice148205148206_ '1))) - (_target141632141736_ + (##vector-ref ___splice148210148211_ '1))) + (_target141637141741_ (let () (declare (not safe)) - (##vector-ref ___splice148205148206_ '0)))) + (##vector-ref ___splice148210148211_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl141634141738_)) - (___match148396148397_ - _e141493142176_ - _hd141492142179_ - _tl141491142181_ - _e141613141680_ - _hd141612141683_ - _tl141611141685_ - _e141616141688_ - _hd141615141691_ - _tl141614141693_ - _e141619141696_ - _hd141618141699_ - _tl141617141701_ - _e141622141704_ - _hd141621141707_ - _tl141620141709_ - _e141625141712_ - _hd141624141715_ - _tl141623141717_ - _e141628141720_ - _hd141627141723_ - _tl141626141725_ - _e141631141728_ - _hd141630141731_ - _tl141629141733_ - ___splice148205148206_ - _target141632141736_ - _tl141634141738_) - (___kont148209148210_)))) - (___kont148209148210_)))) + (gx#stx-null? _tl141639141743_)) + (___match148401148402_ + _e141498142181_ + _hd141497142184_ + _tl141496142186_ + _e141618141685_ + _hd141617141688_ + _tl141616141690_ + _e141621141693_ + _hd141620141696_ + _tl141619141698_ + _e141624141701_ + _hd141623141704_ + _tl141622141706_ + _e141627141709_ + _hd141626141712_ + _tl141625141714_ + _e141630141717_ + _hd141629141720_ + _tl141628141722_ + _e141633141725_ + _hd141632141728_ + _tl141631141730_ + _e141636141733_ + _hd141635141736_ + _tl141634141738_ + ___splice148210148211_ + _target141637141741_ + _tl141639141743_) + (___kont148214148215_)))) + (___kont148214148215_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont148209148210_)) - (___kont148209148210_)) - (___kont148209148210_)))) - (___kont148209148210_)))) - (___kont148209148210_)) - (___kont148209148210_)))) + (___kont148214148215_)) + (___kont148214148215_)) + (___kont148214148215_)))) + (___kont148214148215_)))) + (___kont148214148215_)) + (___kont148214148215_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont148209148210_)))) - (___kont148209148210_)))) - (___kont148209148210_)))) - (___kont148209148210_)) - (___kont148209148210_))))) + (___kont148214148215_)))) + (___kont148214148215_)))) + (___kont148214148215_)))) + (___kont148214148215_)) + (___kont148214148215_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont148209148210_)))) - (___kont148209148210_)))))))) + (___kont148214148215_)))) + (___kont148214148215_)))))))) (declare (not safe)) - (_do-assert139407_ __tmp150283 __tmp150241)))) - (_optimize-f__0__146874146875_ - (lambda (_expr142385_) - (let ((_test142387_ '#f)) + (_do-assert139412_ __tmp150288 __tmp150246)))) + (_optimize-f__0__146879146880_ + (lambda (_expr142390_) + (let ((_test142392_ '#f)) (declare (not safe)) - (_optimize-f__146872146873_ - _expr142385_ - _test142387_)))) - (_optimize-f139420_ - (lambda _g150286_ - (let ((_g150285_ + (_optimize-f__146877146878_ + _expr142390_ + _test142392_)))) + (_optimize-f139425_ + (lambda _g150291_ + (let ((_g150290_ (let () (declare (not safe)) - (##length _g150286_)))) - (cond ((let () (declare (not safe)) (##fx= _g150285_ 1)) - (apply (lambda (_expr142385_) + (##length _g150291_)))) + (cond ((let () (declare (not safe)) (##fx= _g150290_ 1)) + (apply (lambda (_expr142390_) (let () (declare (not safe)) - (_optimize-f__0__146874146875_ - _expr142385_))) - _g150286_)) - ((let () (declare (not safe)) (##fx= _g150285_ 2)) - (apply (lambda (_expr142389_ _test142390_) + (_optimize-f__0__146879146880_ + _expr142390_))) + _g150291_)) + ((let () (declare (not safe)) (##fx= _g150290_ 2)) + (apply (lambda (_expr142394_ _test142395_) (let () (declare (not safe)) - (_optimize-f__146872146873_ - _expr142389_ - _test142390_))) - _g150286_)) + (_optimize-f__146877146878_ + _expr142394_ + _test142395_))) + _g150291_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g150286_)))))) - (_assert-e139421_ - (lambda (_expr140419_) - (let* ((_sexpr140421_ + _g150291_)))))) + (_assert-e139426_ + (lambda (_expr140424_) + (let* ((_sexpr140426_ (let () (declare (not safe)) - (gxc#apply-generate-runtime-repr _expr140419_))) - (_$e140423_ - (assoc _sexpr140421_ _env-assert139403_))) - (if _$e140423_ - (cdr _$e140423_) - (let _assert140426_ ((_expr140428_ _expr140419_)) - (let* ((___stx148493148494_ _expr140428_) - (_g140436140615_ + (gxc#apply-generate-runtime-repr _expr140424_))) + (_$e140428_ + (assoc _sexpr140426_ _env-assert139408_))) + (if _$e140428_ + (cdr _$e140428_) + (let _assert140431_ ((_expr140433_ _expr140424_)) + (let* ((___stx148498148499_ _expr140433_) + (_g140441140620_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx148493148494_))))) - (let ((___kont148495148496_ - (lambda (_L141446_ _L141447_) - (let ((_$e141469_ + ___stx148498148499_))))) + (let ((___kont148500148501_ + (lambda (_L141451_ _L141452_) + (let ((_$e141474_ (let () (declare (not safe)) - (_predicate-type139408_ - _L141447_)))) - (if _$e141469_ - ((lambda (_t141472_) + (_predicate-type139413_ + _L141452_)))) + (if _$e141474_ + ((lambda (_t141477_) (let () (declare (not safe)) - (_assert-type139422_ - _L141446_ - _t141472_))) - _$e141469_) + (_assert-type139427_ + _L141451_ + _t141477_))) + _$e141474_) '#!void)))) - (___kont148497148498_ - (lambda (_L141139_ _L141140_ _L141141_) - (let ((_$e141166_ + (___kont148502148503_ + (lambda (_L141144_ _L141145_ _L141146_) + (let ((_$e141171_ (let () (declare (not safe)) (gxc#identifier-symbol - _L141141_)))) + _L141146_)))) (if (or (let () (declare (not safe)) - (eq? '##fx= _$e141166_)) + (eq? '##fx= _$e141171_)) (let () (declare (not safe)) - (eq? 'fx= _$e141166_))) - (let* ((___stx148399148400_ - _L141140_) - (_g141173141202_ + (eq? 'fx= _$e141171_))) + (let* ((___stx148404148405_ + _L141145_) + (_g141178141207_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx148399148400_))))) - (let ((___kont148401148402_ - (lambda (_L141270_ - _L141271_) - (let ((_$e141296_ + ___stx148404148405_))))) + (let ((___kont148406148407_ + (lambda (_L141275_ + _L141276_) + (let ((_$e141301_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (_countf-symbol139410_ _L141271_)))) - (if _$e141296_ - ((lambda (_sym141299_) - (let ((__tmp150289 + (_countf-symbol139415_ _L141276_)))) + (if _$e141301_ + ((lambda (_sym141304_) + (let ((__tmp150294 (let () (declare (not safe)) - (gx#stx-e _L141139_)))) + (gx#stx-e _L141144_)))) (declare (not safe)) - (_assert-count139423_ - _L141270_ - _sym141299_ - __tmp150289))) - _$e141296_) + (_assert-count139428_ + _L141275_ + _sym141304_ + __tmp150294))) + _$e141301_) '#!void)))) - (___kont148403148404_ (lambda () '#!void))) + (___kont148408148409_ (lambda () '#!void))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - ___stx148399148400_)) - (let ((_e141179141214_ + ___stx148404148405_)) + (let ((_e141184141219_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e ___stx148399148400_)))) - (let ((_tl141177141219_ - (let () (declare (not safe)) (##cdr _e141179141214_))) - (_hd141178141217_ - (let () (declare (not safe)) (##car _e141179141214_)))) + (gx#stx-e ___stx148404148405_)))) + (let ((_tl141182141224_ + (let () (declare (not safe)) (##cdr _e141184141219_))) + (_hd141183141222_ + (let () (declare (not safe)) (##car _e141184141219_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd141178141217_)) + (gx#identifier? _hd141183141222_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd141178141217_)) + (gx#stx-eq? '%#call _hd141183141222_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl141177141219_)) - (let ((_e141182141222_ + (gx#stx-pair? _tl141182141224_)) + (let ((_e141187141227_ (let () (declare (not safe)) - (gx#stx-e _tl141177141219_)))) - (let ((_tl141180141227_ + (gx#stx-e _tl141182141224_)))) + (let ((_tl141185141232_ (let () (declare (not safe)) - (##cdr _e141182141222_))) - (_hd141181141225_ + (##cdr _e141187141227_))) + (_hd141186141230_ (let () (declare (not safe)) - (##car _e141182141222_)))) + (##car _e141187141227_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd141181141225_)) - (let ((_e141185141230_ + (gx#stx-pair? _hd141186141230_)) + (let ((_e141190141235_ (let () (declare (not safe)) - (gx#stx-e _hd141181141225_)))) - (let ((_tl141183141235_ + (gx#stx-e _hd141186141230_)))) + (let ((_tl141188141240_ (let () (declare (not safe)) - (##cdr _e141185141230_))) - (_hd141184141233_ + (##cdr _e141190141235_))) + (_hd141189141238_ (let () (declare (not safe)) - (##car _e141185141230_)))) + (##car _e141190141235_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd141184141233_)) + _hd141189141238_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd141184141233_)) + _hd141189141238_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl141183141235_)) - (let ((_e141188141238_ + _tl141188141240_)) + (let ((_e141193141243_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl141183141235_)))) - (let ((_tl141186141243_ - (let () (declare (not safe)) (##cdr _e141188141238_))) - (_hd141187141241_ - (let () (declare (not safe)) (##car _e141188141238_)))) + (gx#stx-e _tl141188141240_)))) + (let ((_tl141191141248_ + (let () (declare (not safe)) (##cdr _e141193141243_))) + (_hd141192141246_ + (let () (declare (not safe)) (##car _e141193141243_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl141186141243_)) + (gx#stx-null? _tl141191141248_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl141180141227_)) - (let ((_e141191141246_ + (gx#stx-pair? _tl141185141232_)) + (let ((_e141196141251_ (let () (declare (not safe)) - (gx#stx-e _tl141180141227_)))) - (let ((_tl141189141251_ + (gx#stx-e _tl141185141232_)))) + (let ((_tl141194141256_ (let () (declare (not safe)) - (##cdr _e141191141246_))) - (_hd141190141249_ + (##cdr _e141196141251_))) + (_hd141195141254_ (let () (declare (not safe)) - (##car _e141191141246_)))) + (##car _e141196141251_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd141190141249_)) - (let ((_e141194141254_ + (gx#stx-pair? _hd141195141254_)) + (let ((_e141199141259_ (let () (declare (not safe)) - (gx#stx-e _hd141190141249_)))) - (let ((_tl141192141259_ + (gx#stx-e _hd141195141254_)))) + (let ((_tl141197141264_ (let () (declare (not safe)) - (##cdr _e141194141254_))) - (_hd141193141257_ + (##cdr _e141199141259_))) + (_hd141198141262_ (let () (declare (not safe)) - (##car _e141194141254_)))) + (##car _e141199141259_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd141193141257_)) + (gx#identifier? _hd141198141262_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd141193141257_)) + _hd141198141262_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl141192141259_)) - (let ((_e141197141262_ + _tl141197141264_)) + (let ((_e141202141267_ (let () (declare (not safe)) (gx#stx-e - _tl141192141259_)))) - (let ((_tl141195141267_ + _tl141197141264_)))) + (let ((_tl141200141272_ (let () (declare (not safe)) - (##cdr _e141197141262_))) - (_hd141196141265_ + (##cdr _e141202141267_))) + (_hd141201141270_ (let () (declare (not safe)) - (##car _e141197141262_)))) + (##car _e141202141267_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl141195141267_)) + _tl141200141272_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl141189141251_)) - (___kont148401148402_ _hd141196141265_ _hd141187141241_) - (___kont148403148404_)) - (___kont148403148404_)))) + (gx#stx-null? _tl141194141256_)) + (___kont148406148407_ _hd141201141270_ _hd141192141246_) + (___kont148408148409_)) + (___kont148408148409_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont148403148404_)) - (___kont148403148404_)) - (___kont148403148404_)))) - (___kont148403148404_)))) - (___kont148403148404_)) - (___kont148403148404_)))) - (___kont148403148404_)) + (___kont148408148409_)) + (___kont148408148409_)) + (___kont148408148409_)))) + (___kont148408148409_)))) + (___kont148408148409_)) + (___kont148408148409_)))) + (___kont148408148409_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont148403148404_)) - (___kont148403148404_)))) - (___kont148403148404_)))) - (___kont148403148404_)) - (___kont148403148404_)) - (___kont148403148404_)))) - (___kont148403148404_)))) + (___kont148408148409_)) + (___kont148408148409_)))) + (___kont148408148409_)))) + (___kont148408148409_)) + (___kont148408148409_)) + (___kont148408148409_)))) + (___kont148408148409_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (or (let () (declare (not safe)) (eq? '##eq? - _$e141166_)) + _$e141171_)) (let () (declare (not safe)) - (eq? 'eq? _$e141166_)) + (eq? 'eq? _$e141171_)) (let () (declare (not safe)) (eq? '##eqv? - _$e141166_)) + _$e141171_)) (let () (declare (not safe)) - (eq? 'eqv? _$e141166_)) + (eq? 'eqv? _$e141171_)) (let () (declare (not safe)) (eq? '##equal? - _$e141166_)) + _$e141171_)) (let () (declare (not safe)) (eq? 'equal? - _$e141166_)) + _$e141171_)) (let () (declare (not safe)) (eq? 'gx#free-identifier=? - _$e141166_)) + _$e141171_)) (let () (declare (not safe)) (eq? 'gx#stx-eq? - _$e141166_))) - ((lambda (_sym141325_) - (let* ((___stx148467148468_ - _L141140_) - (_g141328141341_ + _$e141171_))) + ((lambda (_sym141330_) + (let* ((___stx148472148473_ + _L141145_) + (_g141333141346_ (lambda () (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -9741,1465 +9741,1465 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx148467148468_))))) - (let ((___kont148469148470_ - (lambda (_L141369_) - (let ((__tmp150288 + ___stx148472148473_))))) + (let ((___kont148474148475_ + (lambda (_L141374_) + (let ((__tmp150293 (let () (declare (not safe)) - (_eqf-symbol139411_ _sym141325_))) - (__tmp150287 + (_eqf-symbol139416_ _sym141330_))) + (__tmp150292 (let () (declare (not safe)) - (gx#stx-e _L141139_)))) + (gx#stx-e _L141144_)))) (declare (not safe)) - (_assert-eqf139424_ - _L141369_ - __tmp150288 - __tmp150287)))) - (___kont148471148472_ (lambda () '#!void))) + (_assert-eqf139429_ + _L141374_ + __tmp150293 + __tmp150292)))) + (___kont148476148477_ (lambda () '#!void))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx148467148468_)) - (let ((_e141333141353_ + (gx#stx-pair? ___stx148472148473_)) + (let ((_e141338141358_ (let () (declare (not safe)) - (gx#stx-e ___stx148467148468_)))) - (let ((_tl141331141358_ + (gx#stx-e ___stx148472148473_)))) + (let ((_tl141336141363_ (let () (declare (not safe)) - (##cdr _e141333141353_))) - (_hd141332141356_ + (##cdr _e141338141358_))) + (_hd141337141361_ (let () (declare (not safe)) - (##car _e141333141353_)))) + (##car _e141338141358_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd141332141356_)) + (gx#identifier? _hd141337141361_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd141332141356_)) + (gx#stx-eq? '%#ref _hd141337141361_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl141331141358_)) - (let ((_e141336141361_ + (gx#stx-pair? _tl141336141363_)) + (let ((_e141341141366_ (let () (declare (not safe)) - (gx#stx-e _tl141331141358_)))) - (let ((_tl141334141366_ + (gx#stx-e _tl141336141363_)))) + (let ((_tl141339141371_ (let () (declare (not safe)) - (##cdr _e141336141361_))) - (_hd141335141364_ + (##cdr _e141341141366_))) + (_hd141340141369_ (let () (declare (not safe)) - (##car _e141336141361_)))) + (##car _e141341141366_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl141334141366_)) - (___kont148469148470_ - _hd141335141364_) - (___kont148471148472_)))) - (___kont148471148472_)) - (___kont148471148472_)) - (___kont148471148472_)))) - (___kont148471148472_))))) + (gx#stx-null? _tl141339141371_)) + (___kont148474148475_ + _hd141340141369_) + (___kont148476148477_)))) + (___kont148476148477_)) + (___kont148476148477_)) + (___kont148476148477_)))) + (___kont148476148477_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _$e141166_) + _$e141171_) '#!void))))) - (___kont148499148500_ - (lambda (_L141043_ _L141044_ _L141045_) - (let ((__tmp150290 - (let ((__tmp150300 + (___kont148504148505_ + (lambda (_L141048_ _L141049_ _L141050_) + (let ((__tmp150295 + (let ((__tmp150305 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#call))) - (__tmp150291 - (let ((__tmp150297 - (let ((__tmp150299 + (__tmp150296 + (let ((__tmp150302 + (let ((__tmp150304 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp150298 + (__tmp150303 (let () (declare (not safe)) - (cons _L141045_ '())))) + (cons _L141050_ '())))) (declare (not safe)) - (cons __tmp150299 __tmp150298))) - (__tmp150292 - (let ((__tmp150293 - (let ((__tmp150294 - (let ((__tmp150296 + (cons __tmp150304 __tmp150303))) + (__tmp150297 + (let ((__tmp150298 + (let ((__tmp150299 + (let ((__tmp150301 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote))) - (__tmp150295 + (__tmp150300 (let () (declare (not safe)) - (cons _L141044_ '())))) + (cons _L141049_ '())))) (declare (not safe)) - (cons __tmp150296 __tmp150295)))) + (cons __tmp150301 __tmp150300)))) (declare (not safe)) - (cons __tmp150294 '())))) + (cons __tmp150299 '())))) (declare (not safe)) - (cons _L141043_ __tmp150293)))) + (cons _L141048_ __tmp150298)))) (declare (not safe)) - (cons __tmp150297 __tmp150292)))) + (cons __tmp150302 __tmp150297)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp150300 - __tmp150291)))) + (cons __tmp150305 + __tmp150296)))) (declare (not safe)) - (_assert140426_ __tmp150290)))) - (___kont148501148502_ - (lambda (_L140935_ _L140936_ _L140937_) - (let ((_$e140966_ + (_assert140431_ __tmp150295)))) + (___kont148506148507_ + (lambda (_L140940_ _L140941_ _L140942_) + (let ((_$e140971_ (let () (declare (not safe)) (gxc#identifier-symbol - _L140937_)))) + _L140942_)))) (if (or (let () (declare (not safe)) (eq? 'gx#free-identifier=? - _$e140966_)) + _$e140971_)) (let () (declare (not safe)) (eq? 'gx#stx-eq? - _$e140966_))) - ((lambda (_sym140972_) - (let ((__tmp150301 + _$e140971_))) + ((lambda (_sym140977_) + (let ((__tmp150306 (let () (declare (not safe)) - (_eqf-symbol139411_ - _sym140972_)))) + (_eqf-symbol139416_ + _sym140977_)))) (declare (not safe)) - (_assert-eqf139424_ - _L140936_ - __tmp150301 - _L140935_))) - _$e140966_) + (_assert-eqf139429_ + _L140941_ + __tmp150306 + _L140940_))) + _$e140971_) '#!void)))) - (___kont148503148504_ - (lambda (_L140819_ _L140820_ _L140821_) - (let ((__tmp150302 - (let ((__tmp150315 + (___kont148508148509_ + (lambda (_L140824_ _L140825_ _L140826_) + (let ((__tmp150307 + (let ((__tmp150320 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#call))) - (__tmp150303 - (let ((__tmp150312 - (let ((__tmp150314 + (__tmp150308 + (let ((__tmp150317 + (let ((__tmp150319 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp150313 + (__tmp150318 (let () (declare (not safe)) - (cons _L140821_ '())))) + (cons _L140826_ '())))) (declare (not safe)) - (cons __tmp150314 __tmp150313))) - (__tmp150304 - (let ((__tmp150309 - (let ((__tmp150311 + (cons __tmp150319 __tmp150318))) + (__tmp150309 + (let ((__tmp150314 + (let ((__tmp150316 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp150310 + (__tmp150315 (let () (declare (not safe)) - (cons _L140819_ '())))) + (cons _L140824_ '())))) (declare (not safe)) - (cons __tmp150311 __tmp150310))) - (__tmp150305 - (let ((__tmp150306 - (let ((__tmp150308 + (cons __tmp150316 __tmp150315))) + (__tmp150310 + (let ((__tmp150311 + (let ((__tmp150313 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote-syntax))) - (__tmp150307 + (__tmp150312 (let () (declare (not safe)) - (cons _L140820_ '())))) + (cons _L140825_ '())))) (declare (not safe)) - (cons __tmp150308 __tmp150307)))) + (cons __tmp150313 __tmp150312)))) (declare (not safe)) - (cons __tmp150306 '())))) + (cons __tmp150311 '())))) (declare (not safe)) - (cons __tmp150309 __tmp150305)))) + (cons __tmp150314 __tmp150310)))) (declare (not safe)) - (cons __tmp150312 __tmp150304)))) + (cons __tmp150317 __tmp150309)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp150315 - __tmp150303)))) + (cons __tmp150320 + __tmp150308)))) (declare (not safe)) - (_assert140426_ __tmp150302)))) - (___kont148505148506_ - (lambda (_L140699_ _L140700_ _L140701_) - (let ((__tmp150316 + (_assert140431_ __tmp150307)))) + (___kont148510148511_ + (lambda (_L140704_ _L140705_ _L140706_) + (let ((__tmp150321 (let () (declare (not safe)) (gxc#apply-expression-subst - _L140700_ - _L140701_ - _L140699_)))) + _L140705_ + _L140706_ + _L140704_)))) (declare (not safe)) - (_assert140426_ __tmp150316)))) - (___kont148507148508_ + (_assert140431_ __tmp150321)))) + (___kont148512148513_ (lambda () '#!void))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx148493148494_)) - (let ((_e140442141390_ + (gx#stx-pair? ___stx148498148499_)) + (let ((_e140447141395_ (let () (declare (not safe)) - (gx#stx-e ___stx148493148494_)))) - (let ((_tl140440141395_ + (gx#stx-e ___stx148498148499_)))) + (let ((_tl140445141400_ (let () (declare (not safe)) - (##cdr _e140442141390_))) - (_hd140441141393_ + (##cdr _e140447141395_))) + (_hd140446141398_ (let () (declare (not safe)) - (##car _e140442141390_)))) + (##car _e140447141395_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd140441141393_)) + _hd140446141398_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd140441141393_)) + _hd140446141398_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl140440141395_)) - (let ((_e140445141398_ + _tl140445141400_)) + (let ((_e140450141403_ (let () (declare (not safe)) (gx#stx-e - _tl140440141395_)))) - (let ((_tl140443141403_ + _tl140445141400_)))) + (let ((_tl140448141408_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e140445141398_))) - (_hd140444141401_ - (let () (declare (not safe)) (##car _e140445141398_)))) + (##cdr _e140450141403_))) + (_hd140449141406_ + (let () (declare (not safe)) (##car _e140450141403_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd140444141401_)) - (let ((_e140448141406_ + (gx#stx-pair? _hd140449141406_)) + (let ((_e140453141411_ (let () (declare (not safe)) - (gx#stx-e _hd140444141401_)))) - (let ((_tl140446141411_ + (gx#stx-e _hd140449141406_)))) + (let ((_tl140451141416_ (let () (declare (not safe)) - (##cdr _e140448141406_))) - (_hd140447141409_ + (##cdr _e140453141411_))) + (_hd140452141414_ (let () (declare (not safe)) - (##car _e140448141406_)))) + (##car _e140453141411_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd140447141409_)) + (gx#identifier? _hd140452141414_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd140447141409_)) + (gx#stx-eq? '%#ref _hd140452141414_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140446141411_)) - (let ((_e140451141414_ + (gx#stx-pair? _tl140451141416_)) + (let ((_e140456141419_ (let () (declare (not safe)) - (gx#stx-e _tl140446141411_)))) - (let ((_tl140449141419_ + (gx#stx-e _tl140451141416_)))) + (let ((_tl140454141424_ (let () (declare (not safe)) - (##cdr _e140451141414_))) - (_hd140450141417_ + (##cdr _e140456141419_))) + (_hd140455141422_ (let () (declare (not safe)) - (##car _e140451141414_)))) + (##car _e140456141419_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl140449141419_)) + (gx#stx-null? _tl140454141424_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl140443141403_)) - (let ((_e140454141422_ + _tl140448141408_)) + (let ((_e140459141427_ (let () (declare (not safe)) (gx#stx-e - _tl140443141403_)))) - (let ((_tl140452141427_ + _tl140448141408_)))) + (let ((_tl140457141432_ (let () (declare (not safe)) - (##cdr _e140454141422_))) - (_hd140453141425_ + (##cdr _e140459141427_))) + (_hd140458141430_ (let () (declare (not safe)) - (##car _e140454141422_)))) + (##car _e140459141427_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd140453141425_)) - (let ((_e140457141430_ + _hd140458141430_)) + (let ((_e140462141435_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd140453141425_)))) - (let ((_tl140455141435_ + (gx#stx-e _hd140458141430_)))) + (let ((_tl140460141440_ (let () (declare (not safe)) - (##cdr _e140457141430_))) - (_hd140456141433_ + (##cdr _e140462141435_))) + (_hd140461141438_ (let () (declare (not safe)) - (##car _e140457141430_)))) + (##car _e140462141435_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd140456141433_)) + (gx#identifier? _hd140461141438_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd140456141433_)) + (gx#stx-eq? '%#ref _hd140461141438_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140455141435_)) - (let ((_e140460141438_ + (gx#stx-pair? _tl140460141440_)) + (let ((_e140465141443_ (let () (declare (not safe)) - (gx#stx-e _tl140455141435_)))) - (let ((_tl140458141443_ + (gx#stx-e _tl140460141440_)))) + (let ((_tl140463141448_ (let () (declare (not safe)) - (##cdr _e140460141438_))) - (_hd140459141441_ + (##cdr _e140465141443_))) + (_hd140464141446_ (let () (declare (not safe)) - (##car _e140460141438_)))) + (##car _e140465141443_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl140458141443_)) + (gx#stx-null? _tl140463141448_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl140452141427_)) - (___kont148495148496_ - _hd140459141441_ - _hd140450141417_) + (gx#stx-null? _tl140457141432_)) + (___kont148500148501_ + _hd140464141446_ + _hd140455141422_) (if (let () (declare (not safe)) (gx#stx-pair? - _tl140452141427_)) - (let ((_e140481141115_ + _tl140457141432_)) + (let ((_e140486141120_ (let () (declare (not safe)) (gx#stx-e - _tl140452141427_)))) - (let ((_tl140479141120_ + _tl140457141432_)))) + (let ((_tl140484141125_ (let () (declare (not safe)) - (##cdr _e140481141115_))) - (_hd140480141118_ + (##cdr _e140486141120_))) + (_hd140485141123_ (let () (declare (not safe)) - (##car _e140481141115_)))) + (##car _e140486141120_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd140480141118_)) - (let ((_e140484141123_ + _hd140485141123_)) + (let ((_e140489141128_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd140480141118_)))) - (let ((_tl140482141128_ + (gx#stx-e _hd140485141123_)))) + (let ((_tl140487141133_ (let () (declare (not safe)) - (##cdr _e140484141123_))) - (_hd140483141126_ + (##cdr _e140489141128_))) + (_hd140488141131_ (let () (declare (not safe)) - (##car _e140484141123_)))) + (##car _e140489141128_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd140483141126_)) + (gx#identifier? _hd140488141131_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd140483141126_)) + (gx#stx-eq? '%#quote _hd140488141131_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140482141128_)) - (let ((_e140487141131_ + (gx#stx-pair? _tl140487141133_)) + (let ((_e140492141136_ (let () (declare (not safe)) - (gx#stx-e _tl140482141128_)))) - (let ((_tl140485141136_ + (gx#stx-e _tl140487141133_)))) + (let ((_tl140490141141_ (let () (declare (not safe)) - (##cdr _e140487141131_))) - (_hd140486141134_ + (##cdr _e140492141136_))) + (_hd140491141139_ (let () (declare (not safe)) - (##car _e140487141131_)))) + (##car _e140492141136_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl140485141136_)) + (gx#stx-null? _tl140490141141_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl140479141120_)) - (___kont148497148498_ - _hd140486141134_ - _hd140453141425_ - _hd140450141417_) - (___kont148507148508_)) - (___kont148507148508_)))) - (___kont148507148508_)) + (gx#stx-null? _tl140484141125_)) + (___kont148502148503_ + _hd140491141139_ + _hd140458141430_ + _hd140455141422_) + (___kont148512148513_)) + (___kont148512148513_)))) + (___kont148512148513_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd140483141126_)) + _hd140488141131_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140482141128_)) - (let ((_e140547140927_ + (gx#stx-pair? _tl140487141133_)) + (let ((_e140552140932_ (let () (declare (not safe)) - (gx#stx-e _tl140482141128_)))) - (let ((_tl140545140932_ + (gx#stx-e _tl140487141133_)))) + (let ((_tl140550140937_ (let () (declare (not safe)) - (##cdr _e140547140927_))) - (_hd140546140930_ + (##cdr _e140552140932_))) + (_hd140551140935_ (let () (declare (not safe)) - (##car _e140547140927_)))) + (##car _e140552140932_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl140545140932_)) + (gx#stx-null? _tl140550140937_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl140479141120_)) - (___kont148501148502_ - _hd140546140930_ - _hd140459141441_ - _hd140450141417_) - (___kont148507148508_)) - (___kont148507148508_)))) - (___kont148507148508_)) - (___kont148507148508_))) - (___kont148507148508_)))) - (___kont148507148508_)))) + _tl140484141125_)) + (___kont148506148507_ + _hd140551140935_ + _hd140464141446_ + _hd140455141422_) + (___kont148512148513_)) + (___kont148512148513_)))) + (___kont148512148513_)) + (___kont148512148513_))) + (___kont148512148513_)))) + (___kont148512148513_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont148507148508_))) + (___kont148512148513_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140452141427_)) - (let ((_e140481141115_ + (gx#stx-pair? _tl140457141432_)) + (let ((_e140486141120_ (let () (declare (not safe)) (gx#stx-e - _tl140452141427_)))) - (let ((_tl140479141120_ + _tl140457141432_)))) + (let ((_tl140484141125_ (let () (declare (not safe)) - (##cdr _e140481141115_))) - (_hd140480141118_ + (##cdr _e140486141120_))) + (_hd140485141123_ (let () (declare (not safe)) - (##car _e140481141115_)))) + (##car _e140486141120_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd140480141118_)) - (let ((_e140484141123_ + _hd140485141123_)) + (let ((_e140489141128_ (let () (declare (not safe)) (gx#stx-e - _hd140480141118_)))) - (let ((_tl140482141128_ + _hd140485141123_)))) + (let ((_tl140487141133_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e140484141123_))) - (_hd140483141126_ - (let () (declare (not safe)) (##car _e140484141123_)))) + (##cdr _e140489141128_))) + (_hd140488141131_ + (let () (declare (not safe)) (##car _e140489141128_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd140483141126_)) + (gx#identifier? _hd140488141131_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd140483141126_)) + (gx#stx-eq? '%#quote _hd140488141131_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140482141128_)) - (let ((_e140487141131_ + (gx#stx-pair? _tl140487141133_)) + (let ((_e140492141136_ (let () (declare (not safe)) - (gx#stx-e _tl140482141128_)))) - (let ((_tl140485141136_ + (gx#stx-e _tl140487141133_)))) + (let ((_tl140490141141_ (let () (declare (not safe)) - (##cdr _e140487141131_))) - (_hd140486141134_ + (##cdr _e140492141136_))) + (_hd140491141139_ (let () (declare (not safe)) - (##car _e140487141131_)))) + (##car _e140492141136_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl140485141136_)) + (gx#stx-null? _tl140490141141_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl140479141120_)) - (___kont148497148498_ - _hd140486141134_ - _hd140453141425_ - _hd140450141417_) - (___kont148507148508_)) - (___kont148507148508_)))) - (___kont148507148508_)) - (___kont148507148508_)) - (___kont148507148508_)))) + (gx#stx-null? _tl140484141125_)) + (___kont148502148503_ + _hd140491141139_ + _hd140458141430_ + _hd140455141422_) + (___kont148512148513_)) + (___kont148512148513_)))) + (___kont148512148513_)) + (___kont148512148513_)) + (___kont148512148513_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont148507148508_)))) - (___kont148507148508_))))) + (___kont148512148513_)))) + (___kont148512148513_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140452141427_)) - (let ((_e140481141115_ + (gx#stx-pair? _tl140457141432_)) + (let ((_e140486141120_ (let () (declare (not safe)) - (gx#stx-e _tl140452141427_)))) - (let ((_tl140479141120_ + (gx#stx-e _tl140457141432_)))) + (let ((_tl140484141125_ (let () (declare (not safe)) - (##cdr _e140481141115_))) - (_hd140480141118_ + (##cdr _e140486141120_))) + (_hd140485141123_ (let () (declare (not safe)) - (##car _e140481141115_)))) + (##car _e140486141120_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd140480141118_)) - (let ((_e140484141123_ + (gx#stx-pair? _hd140485141123_)) + (let ((_e140489141128_ (let () (declare (not safe)) (gx#stx-e - _hd140480141118_)))) - (let ((_tl140482141128_ + _hd140485141123_)))) + (let ((_tl140487141133_ (let () (declare (not safe)) - (##cdr _e140484141123_))) - (_hd140483141126_ + (##cdr _e140489141128_))) + (_hd140488141131_ (let () (declare (not safe)) - (##car _e140484141123_)))) + (##car _e140489141128_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd140483141126_)) + _hd140488141131_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd140483141126_)) + _hd140488141131_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl140482141128_)) - (let ((_e140487141131_ + (gx#stx-pair? _tl140487141133_)) + (let ((_e140492141136_ (let () (declare (not safe)) - (gx#stx-e _tl140482141128_)))) - (let ((_tl140485141136_ + (gx#stx-e _tl140487141133_)))) + (let ((_tl140490141141_ (let () (declare (not safe)) - (##cdr _e140487141131_))) - (_hd140486141134_ + (##cdr _e140492141136_))) + (_hd140491141139_ (let () (declare (not safe)) - (##car _e140487141131_)))) + (##car _e140492141136_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl140485141136_)) + (gx#stx-null? _tl140490141141_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl140479141120_)) - (___kont148497148498_ - _hd140486141134_ - _hd140453141425_ - _hd140450141417_) - (___kont148507148508_)) - (___kont148507148508_)))) - (___kont148507148508_)) - (___kont148507148508_)) + (gx#stx-null? _tl140484141125_)) + (___kont148502148503_ + _hd140491141139_ + _hd140458141430_ + _hd140455141422_) + (___kont148512148513_)) + (___kont148512148513_)))) + (___kont148512148513_)) + (___kont148512148513_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont148507148508_)))) - (___kont148507148508_)))) - (___kont148507148508_))) + (___kont148512148513_)))) + (___kont148512148513_)))) + (___kont148512148513_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140452141427_)) - (let ((_e140481141115_ + (gx#stx-pair? _tl140457141432_)) + (let ((_e140486141120_ (let () (declare (not safe)) - (gx#stx-e _tl140452141427_)))) - (let ((_tl140479141120_ + (gx#stx-e _tl140457141432_)))) + (let ((_tl140484141125_ (let () (declare (not safe)) - (##cdr _e140481141115_))) - (_hd140480141118_ + (##cdr _e140486141120_))) + (_hd140485141123_ (let () (declare (not safe)) - (##car _e140481141115_)))) + (##car _e140486141120_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd140480141118_)) - (let ((_e140484141123_ + (gx#stx-pair? _hd140485141123_)) + (let ((_e140489141128_ (let () (declare (not safe)) (gx#stx-e - _hd140480141118_)))) - (let ((_tl140482141128_ + _hd140485141123_)))) + (let ((_tl140487141133_ (let () (declare (not safe)) - (##cdr _e140484141123_))) - (_hd140483141126_ + (##cdr _e140489141128_))) + (_hd140488141131_ (let () (declare (not safe)) - (##car _e140484141123_)))) + (##car _e140489141128_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd140483141126_)) + _hd140488141131_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd140483141126_)) + _hd140488141131_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl140482141128_)) - (let ((_e140487141131_ + _tl140487141133_)) + (let ((_e140492141136_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl140482141128_)))) - (let ((_tl140485141136_ + (gx#stx-e _tl140487141133_)))) + (let ((_tl140490141141_ (let () (declare (not safe)) - (##cdr _e140487141131_))) - (_hd140486141134_ + (##cdr _e140492141136_))) + (_hd140491141139_ (let () (declare (not safe)) - (##car _e140487141131_)))) + (##car _e140492141136_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl140485141136_)) + (gx#stx-null? _tl140490141141_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl140479141120_)) - (___kont148497148498_ - _hd140486141134_ - _hd140453141425_ - _hd140450141417_) + (gx#stx-null? _tl140484141125_)) + (___kont148502148503_ + _hd140491141139_ + _hd140458141430_ + _hd140455141422_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd140456141433_)) + (gx#stx-eq? '%#quote _hd140461141438_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140455141435_)) - (let ((_e140511141027_ + (gx#stx-pair? _tl140460141440_)) + (let ((_e140516141032_ (let () (declare (not safe)) - (gx#stx-e _tl140455141435_)))) - (let ((_tl140509141032_ + (gx#stx-e _tl140460141440_)))) + (let ((_tl140514141037_ (let () (declare (not safe)) - (##cdr _e140511141027_))) - (_hd140510141030_ + (##cdr _e140516141032_))) + (_hd140515141035_ (let () (declare (not safe)) - (##car _e140511141027_)))) - (___kont148507148508_))) - (___kont148507148508_)) + (##car _e140516141032_)))) + (___kont148512148513_))) + (___kont148512148513_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd140456141433_)) + _hd140461141438_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140455141435_)) - (let ((_e140571140787_ + (gx#stx-pair? _tl140460141440_)) + (let ((_e140576140792_ (let () (declare (not safe)) (gx#stx-e - _tl140455141435_)))) - (let ((_tl140569140792_ + _tl140460141440_)))) + (let ((_tl140574140797_ (let () (declare (not safe)) - (##cdr _e140571140787_))) - (_hd140570140790_ + (##cdr _e140576140792_))) + (_hd140575140795_ (let () (declare (not safe)) - (##car _e140571140787_)))) - (___kont148507148508_))) - (___kont148507148508_)) - (___kont148507148508_)))) + (##car _e140576140792_)))) + (___kont148512148513_))) + (___kont148512148513_)) + (___kont148512148513_)))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd140456141433_)) + (gx#stx-eq? '%#quote _hd140461141438_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140455141435_)) - (let ((_e140511141027_ + (gx#stx-pair? _tl140460141440_)) + (let ((_e140516141032_ (let () (declare (not safe)) - (gx#stx-e _tl140455141435_)))) - (let ((_tl140509141032_ + (gx#stx-e _tl140460141440_)))) + (let ((_tl140514141037_ (let () (declare (not safe)) - (##cdr _e140511141027_))) - (_hd140510141030_ + (##cdr _e140516141032_))) + (_hd140515141035_ (let () (declare (not safe)) - (##car _e140511141027_)))) + (##car _e140516141032_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl140509141032_)) + (gx#stx-null? _tl140514141037_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl140479141120_)) - (___kont148499148500_ - _hd140480141118_ - _hd140510141030_ - _hd140450141417_) - (___kont148507148508_)) - (___kont148507148508_)))) - (___kont148507148508_)) + (gx#stx-null? _tl140484141125_)) + (___kont148504148505_ + _hd140485141123_ + _hd140515141035_ + _hd140455141422_) + (___kont148512148513_)) + (___kont148512148513_)))) + (___kont148512148513_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd140456141433_)) + _hd140461141438_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140455141435_)) - (let ((_e140571140787_ + (gx#stx-pair? _tl140460141440_)) + (let ((_e140576140792_ (let () (declare (not safe)) - (gx#stx-e _tl140455141435_)))) - (let ((_tl140569140792_ + (gx#stx-e _tl140460141440_)))) + (let ((_tl140574140797_ (let () (declare (not safe)) - (##cdr _e140571140787_))) - (_hd140570140790_ + (##cdr _e140576140792_))) + (_hd140575140795_ (let () (declare (not safe)) - (##car _e140571140787_)))) - (___kont148507148508_))) - (___kont148507148508_)) - (___kont148507148508_)))))) + (##car _e140576140792_)))) + (___kont148512148513_))) + (___kont148512148513_)) + (___kont148512148513_)))))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd140456141433_)) + (gx#stx-eq? '%#quote _hd140461141438_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140455141435_)) - (let ((_e140511141027_ + (gx#stx-pair? _tl140460141440_)) + (let ((_e140516141032_ (let () (declare (not safe)) - (gx#stx-e _tl140455141435_)))) - (let ((_tl140509141032_ + (gx#stx-e _tl140460141440_)))) + (let ((_tl140514141037_ (let () (declare (not safe)) - (##cdr _e140511141027_))) - (_hd140510141030_ + (##cdr _e140516141032_))) + (_hd140515141035_ (let () (declare (not safe)) - (##car _e140511141027_)))) + (##car _e140516141032_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl140509141032_)) + (gx#stx-null? _tl140514141037_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl140479141120_)) - (___kont148499148500_ - _hd140480141118_ - _hd140510141030_ - _hd140450141417_) - (___kont148507148508_)) - (___kont148507148508_)))) - (___kont148507148508_)) + (gx#stx-null? _tl140484141125_)) + (___kont148504148505_ + _hd140485141123_ + _hd140515141035_ + _hd140455141422_) + (___kont148512148513_)) + (___kont148512148513_)))) + (___kont148512148513_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _hd140456141433_)) + (gx#stx-eq? '%#quote-syntax _hd140461141438_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140455141435_)) - (let ((_e140571140787_ + (gx#stx-pair? _tl140460141440_)) + (let ((_e140576140792_ (let () (declare (not safe)) - (gx#stx-e _tl140455141435_)))) - (let ((_tl140569140792_ + (gx#stx-e _tl140460141440_)))) + (let ((_tl140574140797_ (let () (declare (not safe)) - (##cdr _e140571140787_))) - (_hd140570140790_ + (##cdr _e140576140792_))) + (_hd140575140795_ (let () (declare (not safe)) - (##car _e140571140787_)))) - (___kont148507148508_))) - (___kont148507148508_)) - (___kont148507148508_)))) + (##car _e140576140792_)))) + (___kont148512148513_))) + (___kont148512148513_)) + (___kont148512148513_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd140456141433_)) + _hd140461141438_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl140455141435_)) - (let ((_e140511141027_ + (gx#stx-pair? _tl140460141440_)) + (let ((_e140516141032_ (let () (declare (not safe)) - (gx#stx-e _tl140455141435_)))) - (let ((_tl140509141032_ + (gx#stx-e _tl140460141440_)))) + (let ((_tl140514141037_ (let () (declare (not safe)) - (##cdr _e140511141027_))) - (_hd140510141030_ + (##cdr _e140516141032_))) + (_hd140515141035_ (let () (declare (not safe)) - (##car _e140511141027_)))) + (##car _e140516141032_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl140509141032_)) + (gx#stx-null? _tl140514141037_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl140479141120_)) - (___kont148499148500_ - _hd140480141118_ - _hd140510141030_ - _hd140450141417_) - (___kont148507148508_)) - (___kont148507148508_)))) - (___kont148507148508_)) + (gx#stx-null? _tl140484141125_)) + (___kont148504148505_ + _hd140485141123_ + _hd140515141035_ + _hd140455141422_) + (___kont148512148513_)) + (___kont148512148513_)))) + (___kont148512148513_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _hd140456141433_)) + (gx#stx-eq? '%#quote-syntax _hd140461141438_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140455141435_)) - (let ((_e140571140787_ + (gx#stx-pair? _tl140460141440_)) + (let ((_e140576140792_ (let () (declare (not safe)) - (gx#stx-e _tl140455141435_)))) - (let ((_tl140569140792_ + (gx#stx-e _tl140460141440_)))) + (let ((_tl140574140797_ (let () (declare (not safe)) - (##cdr _e140571140787_))) - (_hd140570140790_ + (##cdr _e140576140792_))) + (_hd140575140795_ (let () (declare (not safe)) - (##car _e140571140787_)))) + (##car _e140576140792_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl140569140792_)) + (gx#stx-null? _tl140574140797_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd140483141126_)) + (gx#stx-eq? '%#ref _hd140488141131_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140482141128_)) - (let ((_e140580140811_ + (gx#stx-pair? _tl140487141133_)) + (let ((_e140585140816_ (let () (declare (not safe)) (gx#stx-e - _tl140482141128_)))) - (let ((_tl140578140816_ + _tl140487141133_)))) + (let ((_tl140583140821_ (let () (declare (not safe)) - (##cdr _e140580140811_))) - (_hd140579140814_ + (##cdr _e140585140816_))) + (_hd140584140819_ (let () (declare (not safe)) - (##car _e140580140811_)))) + (##car _e140585140816_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl140578140816_)) + _tl140583140821_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl140479141120_)) - (___kont148503148504_ - _hd140579140814_ - _hd140570140790_ - _hd140450141417_) - (___kont148507148508_)) - (___kont148507148508_)))) - (___kont148507148508_)) - (___kont148507148508_)) - (___kont148507148508_)))) - (___kont148507148508_)) - (___kont148507148508_)))) + _tl140484141125_)) + (___kont148508148509_ + _hd140584140819_ + _hd140575140795_ + _hd140455141422_) + (___kont148512148513_)) + (___kont148512148513_)))) + (___kont148512148513_)) + (___kont148512148513_)) + (___kont148512148513_)))) + (___kont148512148513_)) + (___kont148512148513_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd140456141433_)) + _hd140461141438_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl140455141435_)) - (let ((_e140511141027_ + _tl140460141440_)) + (let ((_e140516141032_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl140455141435_)))) - (let ((_tl140509141032_ + (gx#stx-e _tl140460141440_)))) + (let ((_tl140514141037_ (let () (declare (not safe)) - (##cdr _e140511141027_))) - (_hd140510141030_ + (##cdr _e140516141032_))) + (_hd140515141035_ (let () (declare (not safe)) - (##car _e140511141027_)))) + (##car _e140516141032_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl140509141032_)) + (gx#stx-null? _tl140514141037_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl140479141120_)) - (___kont148499148500_ - _hd140480141118_ - _hd140510141030_ - _hd140450141417_) - (___kont148507148508_)) - (___kont148507148508_)))) - (___kont148507148508_)) + (gx#stx-null? _tl140484141125_)) + (___kont148504148505_ + _hd140485141123_ + _hd140515141035_ + _hd140455141422_) + (___kont148512148513_)) + (___kont148512148513_)))) + (___kont148512148513_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd140456141433_)) + _hd140461141438_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl140455141435_)) - (let ((_e140571140787_ + (gx#stx-pair? _tl140460141440_)) + (let ((_e140576140792_ (let () (declare (not safe)) - (gx#stx-e _tl140455141435_)))) - (let ((_tl140569140792_ + (gx#stx-e _tl140460141440_)))) + (let ((_tl140574140797_ (let () (declare (not safe)) - (##cdr _e140571140787_))) - (_hd140570140790_ + (##cdr _e140576140792_))) + (_hd140575140795_ (let () (declare (not safe)) - (##car _e140571140787_)))) - (___kont148507148508_))) - (___kont148507148508_)) - (___kont148507148508_)))))) + (##car _e140576140792_)))) + (___kont148512148513_))) + (___kont148512148513_)) + (___kont148512148513_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd140456141433_)) + _hd140461141438_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl140455141435_)) - (let ((_e140511141027_ + _tl140460141440_)) + (let ((_e140516141032_ (let () (declare (not safe)) (gx#stx-e - _tl140455141435_)))) - (let ((_tl140509141032_ + _tl140460141440_)))) + (let ((_tl140514141037_ (let () (declare (not safe)) - (##cdr _e140511141027_))) - (_hd140510141030_ + (##cdr _e140516141032_))) + (_hd140515141035_ (let () (declare (not safe)) - (##car _e140511141027_)))) + (##car _e140516141032_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl140509141032_)) + _tl140514141037_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl140479141120_)) - (___kont148499148500_ - _hd140480141118_ - _hd140510141030_ - _hd140450141417_) - (___kont148507148508_)) - (___kont148507148508_)))) + (gx#stx-null? _tl140484141125_)) + (___kont148504148505_ + _hd140485141123_ + _hd140515141035_ + _hd140455141422_) + (___kont148512148513_)) + (___kont148512148513_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont148507148508_)) + (___kont148512148513_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd140456141433_)) + _hd140461141438_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl140455141435_)) - (let ((_e140571140787_ + _tl140460141440_)) + (let ((_e140576140792_ (let () (declare (not safe)) (gx#stx-e - _tl140455141435_)))) - (let ((_tl140569140792_ + _tl140460141440_)))) + (let ((_tl140574140797_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e140571140787_))) - (_hd140570140790_ - (let () (declare (not safe)) (##car _e140571140787_)))) - (___kont148507148508_))) + (##cdr _e140576140792_))) + (_hd140575140795_ + (let () (declare (not safe)) (##car _e140576140792_)))) + (___kont148512148513_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont148507148508_)) - (___kont148507148508_)))))) + (___kont148512148513_)) + (___kont148512148513_)))))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd140456141433_)) + (gx#stx-eq? '%#quote _hd140461141438_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140455141435_)) - (let ((_e140511141027_ + (gx#stx-pair? _tl140460141440_)) + (let ((_e140516141032_ (let () (declare (not safe)) (gx#stx-e - _tl140455141435_)))) - (let ((_tl140509141032_ + _tl140460141440_)))) + (let ((_tl140514141037_ (let () (declare (not safe)) - (##cdr _e140511141027_))) - (_hd140510141030_ + (##cdr _e140516141032_))) + (_hd140515141035_ (let () (declare (not safe)) - (##car _e140511141027_)))) - (___kont148507148508_))) - (___kont148507148508_)) + (##car _e140516141032_)))) + (___kont148512148513_))) + (___kont148512148513_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd140456141433_)) + _hd140461141438_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140455141435_)) - (let ((_e140571140787_ + (gx#stx-pair? _tl140460141440_)) + (let ((_e140576140792_ (let () (declare (not safe)) (gx#stx-e - _tl140455141435_)))) - (let ((_tl140569140792_ + _tl140460141440_)))) + (let ((_tl140574140797_ (let () (declare (not safe)) - (##cdr _e140571140787_))) - (_hd140570140790_ + (##cdr _e140576140792_))) + (_hd140575140795_ (let () (declare (not safe)) - (##car _e140571140787_)))) - (___kont148507148508_))) - (___kont148507148508_)) - (___kont148507148508_))))) + (##car _e140576140792_)))) + (___kont148512148513_))) + (___kont148512148513_)) + (___kont148512148513_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140452141427_)) - (let ((_e140481141115_ + (gx#stx-pair? _tl140457141432_)) + (let ((_e140486141120_ (let () (declare (not safe)) - (gx#stx-e _tl140452141427_)))) - (let ((_tl140479141120_ + (gx#stx-e _tl140457141432_)))) + (let ((_tl140484141125_ (let () (declare (not safe)) - (##cdr _e140481141115_))) - (_hd140480141118_ + (##cdr _e140486141120_))) + (_hd140485141123_ (let () (declare (not safe)) - (##car _e140481141115_)))) + (##car _e140486141120_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd140480141118_)) - (let ((_e140484141123_ + (gx#stx-pair? _hd140485141123_)) + (let ((_e140489141128_ (let () (declare (not safe)) - (gx#stx-e _hd140480141118_)))) - (let ((_tl140482141128_ + (gx#stx-e _hd140485141123_)))) + (let ((_tl140487141133_ (let () (declare (not safe)) - (##cdr _e140484141123_))) - (_hd140483141126_ + (##cdr _e140489141128_))) + (_hd140488141131_ (let () (declare (not safe)) - (##car _e140484141123_)))) + (##car _e140489141128_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd140483141126_)) + _hd140488141131_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd140483141126_)) + _hd140488141131_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl140482141128_)) - (let ((_e140487141131_ + _tl140487141133_)) + (let ((_e140492141136_ (let () (declare (not safe)) (gx#stx-e - _tl140482141128_)))) - (let ((_tl140485141136_ + _tl140487141133_)))) + (let ((_tl140490141141_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e140487141131_))) - (_hd140486141134_ - (let () (declare (not safe)) (##car _e140487141131_)))) + (##cdr _e140492141136_))) + (_hd140491141139_ + (let () (declare (not safe)) (##car _e140492141136_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl140485141136_)) + (gx#stx-null? _tl140490141141_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl140479141120_)) - (___kont148497148498_ - _hd140486141134_ - _hd140453141425_ - _hd140450141417_) - (___kont148507148508_)) - (___kont148507148508_)))) + (gx#stx-null? _tl140484141125_)) + (___kont148502148503_ + _hd140491141139_ + _hd140458141430_ + _hd140455141422_) + (___kont148512148513_)) + (___kont148512148513_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont148507148508_)) - (___kont148507148508_)) - (___kont148507148508_)))) - (___kont148507148508_)))) - (___kont148507148508_))))) + (___kont148512148513_)) + (___kont148512148513_)) + (___kont148512148513_)))) + (___kont148512148513_)))) + (___kont148512148513_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140452141427_)) - (let ((_e140481141115_ + (gx#stx-pair? _tl140457141432_)) + (let ((_e140486141120_ (let () (declare (not safe)) - (gx#stx-e _tl140452141427_)))) - (let ((_tl140479141120_ + (gx#stx-e _tl140457141432_)))) + (let ((_tl140484141125_ (let () (declare (not safe)) - (##cdr _e140481141115_))) - (_hd140480141118_ + (##cdr _e140486141120_))) + (_hd140485141123_ (let () (declare (not safe)) - (##car _e140481141115_)))) + (##car _e140486141120_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd140480141118_)) - (let ((_e140484141123_ + (gx#stx-pair? _hd140485141123_)) + (let ((_e140489141128_ (let () (declare (not safe)) - (gx#stx-e _hd140480141118_)))) - (let ((_tl140482141128_ + (gx#stx-e _hd140485141123_)))) + (let ((_tl140487141133_ (let () (declare (not safe)) - (##cdr _e140484141123_))) - (_hd140483141126_ + (##cdr _e140489141128_))) + (_hd140488141131_ (let () (declare (not safe)) - (##car _e140484141123_)))) + (##car _e140489141128_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd140483141126_)) + (gx#identifier? _hd140488141131_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd140483141126_)) + _hd140488141131_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140482141128_)) - (let ((_e140487141131_ + (gx#stx-pair? _tl140487141133_)) + (let ((_e140492141136_ (let () (declare (not safe)) (gx#stx-e - _tl140482141128_)))) - (let ((_tl140485141136_ + _tl140487141133_)))) + (let ((_tl140490141141_ (let () (declare (not safe)) - (##cdr _e140487141131_))) - (_hd140486141134_ + (##cdr _e140492141136_))) + (_hd140491141139_ (let () (declare (not safe)) - (##car _e140487141131_)))) + (##car _e140492141136_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl140485141136_)) + _tl140490141141_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl140479141120_)) - (___kont148497148498_ - _hd140486141134_ - _hd140453141425_ - _hd140450141417_) - (___kont148507148508_)) - (___kont148507148508_)))) - (___kont148507148508_)) - (___kont148507148508_)) - (___kont148507148508_)))) - (___kont148507148508_)))) - (___kont148507148508_))))) + _tl140484141125_)) + (___kont148502148503_ + _hd140491141139_ + _hd140458141430_ + _hd140455141422_) + (___kont148512148513_)) + (___kont148512148513_)))) + (___kont148512148513_)) + (___kont148512148513_)) + (___kont148512148513_)))) + (___kont148512148513_)))) + (___kont148512148513_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont148507148508_)) - (___kont148507148508_)))) - (___kont148507148508_)) + (___kont148512148513_)) + (___kont148512148513_)))) + (___kont148512148513_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _hd140447141409_)) + (gx#stx-eq? '%#lambda _hd140452141414_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140446141411_)) - (let ((_e140595140651_ + (gx#stx-pair? _tl140451141416_)) + (let ((_e140600140656_ (let () (declare (not safe)) (gx#stx-e - _tl140446141411_)))) - (let ((_tl140593140656_ + _tl140451141416_)))) + (let ((_tl140598140661_ (let () (declare (not safe)) - (##cdr _e140595140651_))) - (_hd140594140654_ + (##cdr _e140600140656_))) + (_hd140599140659_ (let () (declare (not safe)) - (##car _e140595140651_)))) + (##car _e140600140656_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd140594140654_)) - (let ((_e140598140659_ + _hd140599140659_)) + (let ((_e140603140664_ (let () (declare (not safe)) (gx#stx-e - _hd140594140654_)))) - (let ((_tl140596140664_ + _hd140599140659_)))) + (let ((_tl140601140669_ (let () (declare (not safe)) - (##cdr _e140598140659_))) - (_hd140597140662_ + (##cdr _e140603140664_))) + (_hd140602140667_ (let () (declare (not safe)) - (##car _e140598140659_)))) + (##car _e140603140664_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl140596140664_)) + _tl140601140669_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl140593140656_)) - (let ((_e140601140667_ + (gx#stx-pair? _tl140598140661_)) + (let ((_e140606140672_ (let () (declare (not safe)) - (gx#stx-e _tl140593140656_)))) - (let ((_tl140599140672_ + (gx#stx-e _tl140598140661_)))) + (let ((_tl140604140677_ (let () (declare (not safe)) - (##cdr _e140601140667_))) - (_hd140600140670_ + (##cdr _e140606140672_))) + (_hd140605140675_ (let () (declare (not safe)) - (##car _e140601140667_)))) + (##car _e140606140672_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl140599140672_)) + (gx#stx-null? _tl140604140677_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140443141403_)) - (let ((_e140604140675_ + (gx#stx-pair? _tl140448141408_)) + (let ((_e140609140680_ (let () (declare (not safe)) - (gx#stx-e _tl140443141403_)))) - (let ((_tl140602140680_ + (gx#stx-e _tl140448141408_)))) + (let ((_tl140607140685_ (let () (declare (not safe)) - (##cdr _e140604140675_))) - (_hd140603140678_ + (##cdr _e140609140680_))) + (_hd140608140683_ (let () (declare (not safe)) - (##car _e140604140675_)))) + (##car _e140609140680_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd140603140678_)) - (let ((_e140607140683_ + (gx#stx-pair? _hd140608140683_)) + (let ((_e140612140688_ (let () (declare (not safe)) (gx#stx-e - _hd140603140678_)))) - (let ((_tl140605140688_ + _hd140608140683_)))) + (let ((_tl140610140693_ (let () (declare (not safe)) - (##cdr _e140607140683_))) - (_hd140606140686_ + (##cdr _e140612140688_))) + (_hd140611140691_ (let () (declare (not safe)) - (##car _e140607140683_)))) + (##car _e140612140688_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd140606140686_)) + _hd140611140691_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd140606140686_)) + _hd140611140691_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl140605140688_)) - (let ((_e140610140691_ + _tl140610140693_)) + (let ((_e140615140696_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl140605140688_)))) - (let ((_tl140608140696_ + (gx#stx-e _tl140610140693_)))) + (let ((_tl140613140701_ (let () (declare (not safe)) - (##cdr _e140610140691_))) - (_hd140609140694_ + (##cdr _e140615140696_))) + (_hd140614140699_ (let () (declare (not safe)) - (##car _e140610140691_)))) + (##car _e140615140696_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl140608140696_)) + (gx#stx-null? _tl140613140701_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl140602140680_)) - (___kont148505148506_ - _hd140609140694_ - _hd140600140670_ - _hd140597140662_) - (___kont148507148508_)) - (___kont148507148508_)))) - (___kont148507148508_)) + (gx#stx-null? _tl140607140685_)) + (___kont148510148511_ + _hd140614140699_ + _hd140605140675_ + _hd140602140667_) + (___kont148512148513_)) + (___kont148512148513_)))) + (___kont148512148513_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont148507148508_)) - (___kont148507148508_)))) - (___kont148507148508_)))) - (___kont148507148508_)) - (___kont148507148508_)))) - (___kont148507148508_)) - (___kont148507148508_)))) + (___kont148512148513_)) + (___kont148512148513_)))) + (___kont148512148513_)))) + (___kont148512148513_)) + (___kont148512148513_)))) + (___kont148512148513_)) + (___kont148512148513_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont148507148508_)))) - (___kont148507148508_)) - (___kont148507148508_))) - (___kont148507148508_)))) - (___kont148507148508_)))) + (___kont148512148513_)))) + (___kont148512148513_)) + (___kont148512148513_))) + (___kont148512148513_)))) + (___kont148512148513_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont148507148508_)) - (___kont148507148508_)) - (___kont148507148508_)))) - (___kont148507148508_))))))))) - (_assert-type139422_ - (lambda (_id140321_ _t140322_) - (let _lp140324_ ((_rest140326_ _env-type139404_)) - (let* ((_rest140327140335_ _rest140326_) - (_else140329140343_ (lambda () '#!void)) - (_K140331140407_ - (lambda (_rest140346_ _type-info140347_) - (let* ((_type-info140348140360_ - _type-info140347_) - (_else140350140368_ + (___kont148512148513_)) + (___kont148512148513_)) + (___kont148512148513_)))) + (___kont148512148513_))))))))) + (_assert-type139427_ + (lambda (_id140326_ _t140327_) + (let _lp140329_ ((_rest140331_ _env-type139409_)) + (let* ((_rest140332140340_ _rest140331_) + (_else140334140348_ (lambda () '#!void)) + (_K140336140412_ + (lambda (_rest140351_ _type-info140352_) + (let* ((_type-info140353140365_ + _type-info140352_) + (_else140355140373_ (lambda () (let () (declare (not safe)) - (_lp140324_ _rest140346_)))) - (_K140352140383_ - (lambda (_val140371_ - _xt140372_ - _xid140373_) + (_lp140329_ _rest140351_)))) + (_K140357140388_ + (lambda (_val140376_ + _xt140377_ + _xid140378_) (if (let () (declare (not safe)) (gx#free-identifier=? - _id140321_ - _xid140373_)) + _id140326_ + _xid140378_)) (if (let () (declare (not safe)) - (eq? _t140322_ - _xt140372_)) - _val140371_ - (if _val140371_ + (eq? _t140327_ + _xt140377_)) + _val140376_ + (if _val140376_ (if (let () (declare (not safe)) (##structure-instance-of? - _t140322_ + _t140327_ 'gxc#!class::t)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##structure-instance-of? _xt140372_ 'gxc#!class::t)) - (memq _t140322_ - (map (lambda (_g140374140376_) + (##structure-instance-of? _xt140377_ 'gxc#!class::t)) + (memq _t140327_ + (map (lambda (_g140379140381_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _xt140372_ - _g140374140376_))) + _xt140377_ + _g140379140381_))) (##structure-ref - _xt140372_ + _xt140377_ '3 gxc#!class::t '#f))) @@ -11207,3511 +11207,3511 @@ '#f) (if (and (let () (declare (not safe)) - (##structure-instance-of? _t140322_ 'gxc#!class::t)) + (##structure-instance-of? _t140327_ 'gxc#!class::t)) (let () (declare (not safe)) - (##structure-instance-of? _xt140372_ 'gxc#!class::t)) - (memq _xt140372_ - (map (lambda (_g140378140380_) + (##structure-instance-of? _xt140377_ 'gxc#!class::t)) + (memq _xt140377_ + (map (lambda (_g140383140385_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _t140322_ - _g140378140380_))) + _t140327_ + _g140383140385_))) (##structure-ref - _t140322_ + _t140327_ '3 gxc#!class::t '#f)))) '#f - (let () (declare (not safe)) (_lp140324_ _rest140346_))))) + (let () (declare (not safe)) (_lp140329_ _rest140351_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_lp140324_ _rest140346_)))))) + (_lp140329_ _rest140351_)))))) (if (let () (declare (not safe)) - (##pair? _type-info140348140360_)) - (let ((_hd140353140386_ + (##pair? _type-info140353140365_)) + (let ((_hd140358140391_ (let () (declare (not safe)) - (##car _type-info140348140360_))) - (_tl140354140388_ + (##car _type-info140353140365_))) + (_tl140359140393_ (let () (declare (not safe)) - (##cdr _type-info140348140360_)))) - (let ((_xid140391_ _hd140353140386_)) + (##cdr _type-info140353140365_)))) + (let ((_xid140396_ _hd140358140391_)) (if (let () (declare (not safe)) - (##pair? _tl140354140388_)) - (let ((_hd140355140393_ + (##pair? _tl140359140393_)) + (let ((_hd140360140398_ (let () (declare (not safe)) - (##car _tl140354140388_))) - (_tl140356140395_ + (##car _tl140359140393_))) + (_tl140361140400_ (let () (declare (not safe)) - (##cdr _tl140354140388_)))) - (let ((_xt140398_ - _hd140355140393_)) + (##cdr _tl140359140393_)))) + (let ((_xt140403_ + _hd140360140398_)) (if (let () (declare (not safe)) - (##pair? _tl140356140395_)) - (let ((_hd140357140400_ + (##pair? _tl140361140400_)) + (let ((_hd140362140405_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _tl140356140395_))) - (_tl140358140402_ - (let () (declare (not safe)) (##cdr _tl140356140395_)))) - (let ((_val140405_ _hd140357140400_)) - (if (let () (declare (not safe)) (##null? _tl140358140402_)) + (##car _tl140361140400_))) + (_tl140363140407_ + (let () (declare (not safe)) (##cdr _tl140361140400_)))) + (let ((_val140410_ _hd140362140405_)) + (if (let () (declare (not safe)) (##null? _tl140363140407_)) (let () (declare (not safe)) - (_K140352140383_ _val140405_ _xt140398_ _xid140391_)) - (let () (declare (not safe)) (_else140350140368_))))) - (let () (declare (not safe)) (_else140350140368_))))) + (_K140357140388_ _val140410_ _xt140403_ _xid140396_)) + (let () (declare (not safe)) (_else140355140373_))))) + (let () (declare (not safe)) (_else140355140373_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_else140350140368_))))) + (_else140355140373_))))) (let () (declare (not safe)) - (_else140350140368_))))))) + (_else140355140373_))))))) (if (let () (declare (not safe)) - (##pair? _rest140327140335_)) - (let ((_hd140332140410_ + (##pair? _rest140332140340_)) + (let ((_hd140337140415_ (let () (declare (not safe)) - (##car _rest140327140335_))) - (_tl140333140412_ + (##car _rest140332140340_))) + (_tl140338140417_ (let () (declare (not safe)) - (##cdr _rest140327140335_)))) - (let* ((_type-info140415_ _hd140332140410_) - (_rest140417_ _tl140333140412_)) + (##cdr _rest140332140340_)))) + (let* ((_type-info140420_ _hd140337140415_) + (_rest140422_ _tl140338140417_)) (declare (not safe)) - (_K140331140407_ - _rest140417_ - _type-info140415_))) + (_K140336140412_ + _rest140422_ + _type-info140420_))) (let () (declare (not safe)) - (_else140329140343_))))))) - (_assert-count139423_ - (lambda (_id140220_ _sym140221_ _count140222_) - (let _lp140224_ ((_rest140226_ _env-type139404_)) - (let* ((_rest140227140235_ _rest140226_) - (_else140229140243_ (lambda () '#!void)) - (_K140231140309_ - (lambda (_rest140246_ _type-info140247_) - (let* ((_type-info140248140262_ - _type-info140247_) - (_else140250140270_ + (_else140334140348_))))))) + (_assert-count139428_ + (lambda (_id140225_ _sym140226_ _count140227_) + (let _lp140229_ ((_rest140231_ _env-type139409_)) + (let* ((_rest140232140240_ _rest140231_) + (_else140234140248_ (lambda () '#!void)) + (_K140236140314_ + (lambda (_rest140251_ _type-info140252_) + (let* ((_type-info140253140267_ + _type-info140252_) + (_else140255140275_ (lambda () (let () (declare (not safe)) - (_lp140224_ _rest140246_)))) - (_K140252140278_ - (lambda (_val140273_ - _xcount140274_ - _xsym140275_ - _xid140276_) + (_lp140229_ _rest140251_)))) + (_K140257140283_ + (lambda (_val140278_ + _xcount140279_ + _xsym140280_ + _xid140281_) (if (and (let () (declare (not safe)) - (eq? _sym140221_ - _xsym140275_)) + (eq? _sym140226_ + _xsym140280_)) (let () (declare (not safe)) (gx#free-identifier=? - _id140220_ - _xid140276_))) - (if _val140273_ - (fx= _count140222_ - _xcount140274_) - (if (fx= _count140222_ - _xcount140274_) + _id140225_ + _xid140281_))) + (if _val140278_ + (fx= _count140227_ + _xcount140279_) + (if (fx= _count140227_ + _xcount140279_) '#f (let () (declare (not safe)) - (_lp140224_ - _rest140246_)))) + (_lp140229_ + _rest140251_)))) (let () (declare (not safe)) - (_lp140224_ _rest140246_)))))) + (_lp140229_ _rest140251_)))))) (if (let () (declare (not safe)) - (##pair? _type-info140248140262_)) - (let ((_hd140253140281_ + (##pair? _type-info140253140267_)) + (let ((_hd140258140286_ (let () (declare (not safe)) - (##car _type-info140248140262_))) - (_tl140254140283_ + (##car _type-info140253140267_))) + (_tl140259140288_ (let () (declare (not safe)) - (##cdr _type-info140248140262_)))) - (let ((_xid140286_ _hd140253140281_)) + (##cdr _type-info140253140267_)))) + (let ((_xid140291_ _hd140258140286_)) (if (let () (declare (not safe)) - (##pair? _tl140254140283_)) - (let ((_hd140255140288_ + (##pair? _tl140259140288_)) + (let ((_hd140260140293_ (let () (declare (not safe)) - (##car _tl140254140283_))) - (_tl140256140290_ + (##car _tl140259140288_))) + (_tl140261140295_ (let () (declare (not safe)) - (##cdr _tl140254140283_)))) - (let ((_xsym140293_ - _hd140255140288_)) + (##cdr _tl140259140288_)))) + (let ((_xsym140298_ + _hd140260140293_)) (if (let () (declare (not safe)) - (##pair? _tl140256140290_)) - (let ((_hd140257140295_ + (##pair? _tl140261140295_)) + (let ((_hd140262140300_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _tl140256140290_))) - (_tl140258140297_ - (let () (declare (not safe)) (##cdr _tl140256140290_)))) - (let ((_xcount140300_ _hd140257140295_)) - (if (let () (declare (not safe)) (##pair? _tl140258140297_)) - (let ((_hd140259140302_ + (##car _tl140261140295_))) + (_tl140263140302_ + (let () (declare (not safe)) (##cdr _tl140261140295_)))) + (let ((_xcount140305_ _hd140262140300_)) + (if (let () (declare (not safe)) (##pair? _tl140263140302_)) + (let ((_hd140264140307_ (let () (declare (not safe)) - (##car _tl140258140297_))) - (_tl140260140304_ + (##car _tl140263140302_))) + (_tl140265140309_ (let () (declare (not safe)) - (##cdr _tl140258140297_)))) - (let ((_val140307_ _hd140259140302_)) + (##cdr _tl140263140302_)))) + (let ((_val140312_ _hd140264140307_)) (if (let () (declare (not safe)) - (##null? _tl140260140304_)) + (##null? _tl140265140309_)) (let () (declare (not safe)) - (_K140252140278_ - _val140307_ - _xcount140300_ - _xsym140293_ - _xid140286_)) + (_K140257140283_ + _val140312_ + _xcount140305_ + _xsym140298_ + _xid140291_)) (let () (declare (not safe)) - (_else140250140270_))))) - (let () (declare (not safe)) (_else140250140270_))))) - (let () (declare (not safe)) (_else140250140270_))))) + (_else140255140275_))))) + (let () (declare (not safe)) (_else140255140275_))))) + (let () (declare (not safe)) (_else140255140275_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_else140250140270_))))) + (_else140255140275_))))) (let () (declare (not safe)) - (_else140250140270_))))))) + (_else140255140275_))))))) (if (let () (declare (not safe)) - (##pair? _rest140227140235_)) - (let ((_hd140232140312_ + (##pair? _rest140232140240_)) + (let ((_hd140237140317_ (let () (declare (not safe)) - (##car _rest140227140235_))) - (_tl140233140314_ + (##car _rest140232140240_))) + (_tl140238140319_ (let () (declare (not safe)) - (##cdr _rest140227140235_)))) - (let* ((_type-info140317_ _hd140232140312_) - (_rest140319_ _tl140233140314_)) + (##cdr _rest140232140240_)))) + (let* ((_type-info140322_ _hd140237140317_) + (_rest140324_ _tl140238140319_)) (declare (not safe)) - (_K140231140309_ - _rest140319_ - _type-info140317_))) + (_K140236140314_ + _rest140324_ + _type-info140322_))) (let () (declare (not safe)) - (_else140229140243_))))))) - (_assert-eqf139424_ - (lambda (_id140110_ _sym140111_ _datum140112_) - (letrec ((_eqf140114_ - (lambda (_sym140215_) - (let ((_$e140217_ _sym140215_)) + (_else140234140248_))))))) + (_assert-eqf139429_ + (lambda (_id140115_ _sym140116_ _datum140117_) + (letrec ((_eqf140119_ + (lambda (_sym140220_) + (let ((_$e140222_ _sym140220_)) (if (let () (declare (not safe)) - (eq? 'eq? _$e140217_)) + (eq? 'eq? _$e140222_)) eq? (if (let () (declare (not safe)) - (eq? 'eqv? _$e140217_)) + (eq? 'eqv? _$e140222_)) eqv? (if (let () (declare (not safe)) - (eq? 'equal? _$e140217_)) + (eq? 'equal? _$e140222_)) equal? (if (let () (declare (not safe)) (eq? 'free-identifier=? - _$e140217_)) + _$e140222_)) gx#free-identifier=? (if (let () (declare (not safe)) (eq? 'stx-eq? - _$e140217_)) + _$e140222_)) gx#stx-eq? (let () (declare (not safe)) (gxc#raise-compile-error '"Unexpected eqf symbol" - _body139165_ - _sym140215_))))))))))) - (let _lp140116_ ((_rest140118_ _env-type139404_)) - (let* ((_rest140119140127_ _rest140118_) - (_else140121140135_ (lambda () '#!void)) - (_K140123140203_ - (lambda (_rest140138_ _type-info140139_) - (let* ((_type-info140140140154_ - _type-info140139_) - (_else140142140162_ + _body139170_ + _sym140220_))))))))))) + (let _lp140121_ ((_rest140123_ _env-type139409_)) + (let* ((_rest140124140132_ _rest140123_) + (_else140126140140_ (lambda () '#!void)) + (_K140128140208_ + (lambda (_rest140143_ _type-info140144_) + (let* ((_type-info140145140159_ + _type-info140144_) + (_else140147140167_ (lambda () (let () (declare (not safe)) - (_lp140116_ _rest140138_)))) - (_K140144140172_ - (lambda (_val140165_ - _xdatum140166_ - _xsym140167_ - _xid140168_) + (_lp140121_ _rest140143_)))) + (_K140149140177_ + (lambda (_val140170_ + _xdatum140171_ + _xsym140172_ + _xid140173_) (if (and (let () (declare (not safe)) - (eq? _sym140111_ - _xsym140167_)) + (eq? _sym140116_ + _xsym140172_)) (let () (declare (not safe)) (gx#free-identifier=? - _id140110_ - _xid140168_))) - (let ((_=?140170_ + _id140115_ + _xid140173_))) + (let ((_=?140175_ (let () (declare (not safe)) - (_eqf140114_ - _sym140111_)))) - (if _val140165_ - (_=?140170_ - _datum140112_ - _xdatum140166_) - (if (_=?140170_ - _datum140112_ - _xdatum140166_) + (_eqf140119_ + _sym140116_)))) + (if _val140170_ + (_=?140175_ + _datum140117_ + _xdatum140171_) + (if (_=?140175_ + _datum140117_ + _xdatum140171_) '#f (let () (declare (not safe)) - (_lp140116_ - _rest140138_))))) + (_lp140121_ + _rest140143_))))) (let () (declare (not safe)) - (_lp140116_ - _rest140138_)))))) + (_lp140121_ + _rest140143_)))))) (if (let () (declare (not safe)) - (##pair? _type-info140140140154_)) - (let ((_hd140145140175_ + (##pair? _type-info140145140159_)) + (let ((_hd140150140180_ (let () (declare (not safe)) - (##car _type-info140140140154_))) - (_tl140146140177_ + (##car _type-info140145140159_))) + (_tl140151140182_ (let () (declare (not safe)) - (##cdr _type-info140140140154_)))) - (let ((_xid140180_ - _hd140145140175_)) + (##cdr _type-info140145140159_)))) + (let ((_xid140185_ + _hd140150140180_)) (if (let () (declare (not safe)) - (##pair? _tl140146140177_)) - (let ((_hd140147140182_ + (##pair? _tl140151140182_)) + (let ((_hd140152140187_ (let () (declare (not safe)) - (##car _tl140146140177_))) - (_tl140148140184_ + (##car _tl140151140182_))) + (_tl140153140189_ (let () (declare (not safe)) - (##cdr _tl140146140177_)))) - (let ((_xsym140187_ - _hd140147140182_)) + (##cdr _tl140151140182_)))) + (let ((_xsym140192_ + _hd140152140187_)) (if (let () (declare (not safe)) - (##pair? _tl140148140184_)) - (let ((_hd140149140189_ + (##pair? _tl140153140189_)) + (let ((_hd140154140194_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _tl140148140184_))) - (_tl140150140191_ + (##car _tl140153140189_))) + (_tl140155140196_ (let () (declare (not safe)) - (##cdr _tl140148140184_)))) - (let ((_xdatum140194_ _hd140149140189_)) + (##cdr _tl140153140189_)))) + (let ((_xdatum140199_ _hd140154140194_)) (if (let () (declare (not safe)) - (##pair? _tl140150140191_)) - (let ((_hd140151140196_ + (##pair? _tl140155140196_)) + (let ((_hd140156140201_ (let () (declare (not safe)) - (##car _tl140150140191_))) - (_tl140152140198_ + (##car _tl140155140196_))) + (_tl140157140203_ (let () (declare (not safe)) - (##cdr _tl140150140191_)))) - (let ((_val140201_ _hd140151140196_)) + (##cdr _tl140155140196_)))) + (let ((_val140206_ _hd140156140201_)) (if (let () (declare (not safe)) - (##null? _tl140152140198_)) + (##null? _tl140157140203_)) (let () (declare (not safe)) - (_K140144140172_ - _val140201_ - _xdatum140194_ - _xsym140187_ - _xid140180_)) + (_K140149140177_ + _val140206_ + _xdatum140199_ + _xsym140192_ + _xid140185_)) (let () (declare (not safe)) - (_else140142140162_))))) - (let () (declare (not safe)) (_else140142140162_))))) - (let () (declare (not safe)) (_else140142140162_))))) + (_else140147140167_))))) + (let () (declare (not safe)) (_else140147140167_))))) + (let () (declare (not safe)) (_else140147140167_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_else140142140162_))))) + (_else140147140167_))))) (let () (declare (not safe)) - (_else140142140162_))))))) + (_else140147140167_))))))) (if (let () (declare (not safe)) - (##pair? _rest140119140127_)) - (let ((_hd140124140206_ + (##pair? _rest140124140132_)) + (let ((_hd140129140211_ (let () (declare (not safe)) - (##car _rest140119140127_))) - (_tl140125140208_ + (##car _rest140124140132_))) + (_tl140130140213_ (let () (declare (not safe)) - (##cdr _rest140119140127_)))) - (let* ((_type-info140211_ _hd140124140206_) - (_rest140213_ _tl140125140208_)) + (##cdr _rest140124140132_)))) + (let* ((_type-info140216_ _hd140129140211_) + (_rest140218_ _tl140130140213_)) (declare (not safe)) - (_K140123140203_ - _rest140213_ - _type-info140211_))) + (_K140128140208_ + _rest140218_ + _type-info140216_))) (let () (declare (not safe)) - (_else140121140135_)))))))) - (_bind-e__146876146877_ - (lambda (_bind140013_ _body140014_ _continue140015_) - (let _lp140017_ ((_rest140019_ _bind140013_) - (_subst140020_ '()) - (_locals140021_ '()) - (_env140022_ _env-bind139405_)) - (let* ((_rest140023140031_ _rest140019_) - (_else140025140045_ + (_else140126140140_)))))))) + (_bind-e__146881146882_ + (lambda (_bind140018_ _body140019_ _continue140020_) + (let _lp140022_ ((_rest140024_ _bind140018_) + (_subst140025_ '()) + (_locals140026_ '()) + (_env140027_ _env-bind139410_)) + (let* ((_rest140028140036_ _rest140024_) + (_else140030140050_ (lambda () - (let* ((_body140039_ + (let* ((_body140044_ (if (let () (declare (not safe)) - (null? _subst140020_)) - _body140014_ + (null? _subst140025_)) + _body140019_ (let () (declare (not safe)) (gxc#apply-expression-subst* - _body140014_ - _subst140020_)))) - (_body140042_ - (let ((__tmp150317 + _body140019_ + _subst140025_)))) + (_body140047_ + (let ((__tmp150322 (lambda () - (_continue140015_ - _body140039_)))) + (_continue140020_ + _body140044_)))) (declare (not safe)) - (_do-bind!139416_ - _env140022_ - __tmp150317)))) + (_do-bind!139421_ + _env140027_ + __tmp150322)))) (if (let () (declare (not safe)) - (null? _locals140021_)) - _body140042_ - (let ((__tmp150318 - (let ((__tmp150319 + (null? _locals140026_)) + _body140047_ + (let ((__tmp150323 + (let ((__tmp150324 (let () (declare (not safe)) - (cons _body140042_ + (cons _body140047_ '())))) (declare (not safe)) - (cons _locals140021_ - __tmp150319)))) + (cons _locals140026_ + __tmp150324)))) (declare (not safe)) - (cons '%#let-values __tmp150318)))))) - (_K140027140086_ - (lambda (_rest140048_ _bind140049_) - (let* ((_bind140050140057_ _bind140049_) - (_E140052140061_ + (cons '%#let-values __tmp150323)))))) + (_K140032140091_ + (lambda (_rest140053_ _bind140054_) + (let* ((_bind140055140062_ _bind140054_) + (_E140057140066_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _bind140050140057_)))) - (_K140053140074_ - (lambda (_expr140064_ _id140065_) - (let* ((_sexpr140067_ + _bind140055140062_)))) + (_K140058140079_ + (lambda (_expr140069_ _id140070_) + (let* ((_sexpr140072_ (let () (declare (not safe)) (gxc#apply-generate-runtime-repr - _expr140064_))) - (_$e140069_ + _expr140069_))) + (_$e140074_ (let () (declare (not safe)) (assget__0 - _sexpr140067_ - _env-bind139405_)))) - (if _$e140069_ - ((lambda (_xid140072_) - (let ((__tmp150326 - (let ((__tmp150327 + _sexpr140072_ + _env-bind139410_)))) + (if _$e140074_ + ((lambda (_xid140077_) + (let ((__tmp150331 + (let ((__tmp150332 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _id140065_ _xid140072_)))) + (cons _id140070_ _xid140077_)))) (declare (not safe)) - (cons __tmp150327 _subst140020_)))) + (cons __tmp150332 _subst140025_)))) (declare (not safe)) - (_lp140017_ - _rest140048_ - __tmp150326 - _locals140021_ - _env140022_))) + (_lp140022_ + _rest140053_ + __tmp150331 + _locals140026_ + _env140027_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _$e140069_) - (let ((__tmp150322 - (let ((__tmp150323 - (let ((__tmp150325 + _$e140074_) + (let ((__tmp150327 + (let ((__tmp150328 + (let ((__tmp150330 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _id140065_ '()))) - (__tmp150324 + (cons _id140070_ '()))) + (__tmp150329 (let () (declare (not safe)) - (cons _expr140064_ '())))) + (cons _expr140069_ '())))) (declare (not safe)) - (cons __tmp150325 __tmp150324)))) + (cons __tmp150330 __tmp150329)))) (declare (not safe)) - (cons __tmp150323 _locals140021_))) - (__tmp150320 - (let ((__tmp150321 + (cons __tmp150328 _locals140026_))) + (__tmp150325 + (let ((__tmp150326 (let () (declare (not safe)) - (cons _sexpr140067_ _id140065_)))) + (cons _sexpr140072_ _id140070_)))) (declare (not safe)) - (cons __tmp150321 _env140022_)))) + (cons __tmp150326 _env140027_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp140017_ - _rest140048_ - _subst140020_ - __tmp150322 - __tmp150320))))))) + (_lp140022_ + _rest140053_ + _subst140025_ + __tmp150327 + __tmp150325))))))) (if (let () (declare (not safe)) - (##pair? _bind140050140057_)) - (let ((_hd140054140077_ + (##pair? _bind140055140062_)) + (let ((_hd140059140082_ (let () (declare (not safe)) - (##car _bind140050140057_))) - (_tl140055140079_ + (##car _bind140055140062_))) + (_tl140060140084_ (let () (declare (not safe)) - (##cdr _bind140050140057_)))) - (let* ((_id140082_ _hd140054140077_) - (_expr140084_ - _tl140055140079_)) + (##cdr _bind140055140062_)))) + (let* ((_id140087_ _hd140059140082_) + (_expr140089_ + _tl140060140084_)) (declare (not safe)) - (_K140053140074_ - _expr140084_ - _id140082_))) + (_K140058140079_ + _expr140089_ + _id140087_))) (let () (declare (not safe)) - (_E140052140061_))))))) + (_E140057140066_))))))) (if (let () (declare (not safe)) - (##pair? _rest140023140031_)) - (let ((_hd140028140089_ + (##pair? _rest140028140036_)) + (let ((_hd140033140094_ (let () (declare (not safe)) - (##car _rest140023140031_))) - (_tl140029140091_ + (##car _rest140028140036_))) + (_tl140034140096_ (let () (declare (not safe)) - (##cdr _rest140023140031_)))) - (let* ((_bind140094_ _hd140028140089_) - (_rest140096_ _tl140029140091_)) + (##cdr _rest140028140036_)))) + (let* ((_bind140099_ _hd140033140094_) + (_rest140101_ _tl140034140096_)) (declare (not safe)) - (_K140027140086_ _rest140096_ _bind140094_))) + (_K140032140091_ _rest140101_ _bind140099_))) (let () (declare (not safe)) - (_else140025140045_))))))) - (_bind-e__0__146878146879_ - (lambda (_bind140101_ _body140102_) - (let ((_continue140104_ _optimize-e139418_)) + (_else140030140050_))))))) + (_bind-e__0__146883146884_ + (lambda (_bind140106_ _body140107_) + (let ((_continue140109_ _optimize-e139423_)) (declare (not safe)) - (_bind-e__146876146877_ - _bind140101_ - _body140102_ - _continue140104_)))) - (_bind-e139425_ - (lambda _g150329_ - (let ((_g150328_ + (_bind-e__146881146882_ + _bind140106_ + _body140107_ + _continue140109_)))) + (_bind-e139430_ + (lambda _g150334_ + (let ((_g150333_ (let () (declare (not safe)) - (##length _g150329_)))) - (cond ((let () (declare (not safe)) (##fx= _g150328_ 2)) - (apply (lambda (_bind140101_ _body140102_) + (##length _g150334_)))) + (cond ((let () (declare (not safe)) (##fx= _g150333_ 2)) + (apply (lambda (_bind140106_ _body140107_) (let () (declare (not safe)) - (_bind-e__0__146878146879_ - _bind140101_ - _body140102_))) - _g150329_)) - ((let () (declare (not safe)) (##fx= _g150328_ 3)) - (apply (lambda (_bind140106_ - _body140107_ - _continue140108_) + (_bind-e__0__146883146884_ + _bind140106_ + _body140107_))) + _g150334_)) + ((let () (declare (not safe)) (##fx= _g150333_ 3)) + (apply (lambda (_bind140111_ + _body140112_ + _continue140113_) (let () (declare (not safe)) - (_bind-e__146876146877_ - _bind140106_ - _body140107_ - _continue140108_))) - _g150329_)) + (_bind-e__146881146882_ + _bind140111_ + _body140112_ + _continue140113_))) + _g150334_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g150329_)))))) - (_lookup-block139426_ - (lambda (_id140008_) - (let ((__tmp150330 - (lambda (_block140010_) - (let ((__tmp150331 (car _block140010_))) + _g150334_)))))) + (_lookup-block139431_ + (lambda (_id140013_) + (let ((__tmp150335 + (lambda (_block140015_) + (let ((__tmp150336 (car _block140015_))) (declare (not safe)) (gx#free-identifier=? - __tmp150331 - _id140008_))))) + __tmp150336 + _id140013_))))) (declare (not safe)) - (find __tmp150330 _blocks139168_)))) - (_inline-block139427_ - (lambda (_block139884_ _args139885_) - (let* ((_kont139887_ (caddr _block139884_)) - (_g139889139915_ - (lambda (_g139890139912_) + (find __tmp150335 _blocks139173_)))) + (_inline-block139432_ + (lambda (_block139889_ _args139890_) + (let* ((_kont139892_ (caddr _block139889_)) + (_g139894139920_ + (lambda (_g139895139917_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g139890139912_)))) - (_g139888140005_ - (lambda (_g139890139918_) + _g139895139917_)))) + (_g139893140010_ + (lambda (_g139895139923_) (if (let () (declare (not safe)) - (gx#stx-pair? _g139890139918_)) - (let ((_e139895139920_ + (gx#stx-pair? _g139895139923_)) + (let ((_e139900139925_ (let () (declare (not safe)) - (gx#stx-e _g139890139918_)))) - (let ((_hd139894139923_ + (gx#stx-e _g139895139923_)))) + (let ((_hd139899139928_ (let () (declare (not safe)) - (##car _e139895139920_))) - (_tl139893139925_ + (##car _e139900139925_))) + (_tl139898139930_ (let () (declare (not safe)) - (##cdr _e139895139920_)))) + (##cdr _e139900139925_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd139894139923_)) + (gx#identifier? _hd139899139928_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd139894139923_)) + _hd139899139928_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl139893139925_)) - (let ((_e139898139928_ + _tl139898139930_)) + (let ((_e139903139933_ (let () (declare (not safe)) (gx#stx-e - _tl139893139925_)))) - (let ((_hd139897139931_ + _tl139898139930_)))) + (let ((_hd139902139936_ (let () (declare (not safe)) - (##car _e139898139928_))) - (_tl139896139933_ + (##car _e139903139933_))) + (_tl139901139938_ (let () (declare (not safe)) - (##cdr _e139898139928_)))) + (##cdr _e139903139933_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd139897139931_)) - (let ((_g150332_ + _hd139902139936_)) + (let ((_g150337_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _hd139897139931_ '0)))) + (gx#syntax-split-splice _hd139902139936_ '0)))) (begin - (let ((_g150333_ + (let ((_g150338_ (let () (declare (not safe)) - (if (##values? _g150332_) - (##vector-length _g150332_) + (if (##values? _g150337_) + (##vector-length _g150337_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g150333_ 2))) - (error "Context expects 2 values" _g150333_))) - (let ((_target139899139936_ + (##fx= _g150338_ 2))) + (error "Context expects 2 values" _g150338_))) + (let ((_target139904139941_ (let () (declare (not safe)) - (##vector-ref _g150332_ 0))) - (_tl139901139938_ + (##vector-ref _g150337_ 0))) + (_tl139906139943_ (let () (declare (not safe)) - (##vector-ref _g150332_ 1)))) + (##vector-ref _g150337_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl139901139938_)) - (letrec ((_loop139902139941_ - (lambda (_hd139900139944_ - _id139906139946_) + (gx#stx-null? _tl139906139943_)) + (letrec ((_loop139907139946_ + (lambda (_hd139905139949_ + _id139911139951_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd139900139944_)) - (let ((_e139903139949_ + (gx#stx-pair? _hd139905139949_)) + (let ((_e139908139954_ (let () (declare (not safe)) (gx#stx-e - _hd139900139944_)))) - (let ((_lp-hd139904139952_ + _hd139905139949_)))) + (let ((_lp-hd139909139957_ (let () (declare (not safe)) - (##car _e139903139949_))) - (_lp-tl139905139954_ + (##car _e139908139954_))) + (_lp-tl139910139959_ (let () (declare (not safe)) - (##cdr _e139903139949_)))) - (let ((__tmp150337 + (##cdr _e139908139954_)))) + (let ((__tmp150342 (let () (declare (not safe)) - (cons _lp-hd139904139952_ - _id139906139946_)))) + (cons _lp-hd139909139957_ + _id139911139951_)))) (declare (not safe)) - (_loop139902139941_ - _lp-tl139905139954_ - __tmp150337)))) - (let ((_id139907139957_ - (reverse _id139906139946_))) + (_loop139907139946_ + _lp-tl139910139959_ + __tmp150342)))) + (let ((_id139912139962_ + (reverse _id139911139951_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl139896139933_)) - (let ((_e139910139960_ + _tl139901139938_)) + (let ((_e139915139965_ (let () (declare (not safe)) (gx#stx-e - _tl139896139933_)))) - (let ((_hd139909139963_ + _tl139901139938_)))) + (let ((_hd139914139968_ (let () (declare (not safe)) - (##car _e139910139960_))) - (_tl139908139965_ + (##car _e139915139965_))) + (_tl139913139970_ (let () (declare (not safe)) - (##cdr _e139910139960_)))) + (##cdr _e139915139965_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl139908139965_)) - ((lambda (_L139968_ + _tl139913139970_)) + ((lambda (_L139973_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L139969_) - (if (let ((__tmp150335 - (let ((__tmp150336 - (lambda (_g139988139991_ - _g139989139993_) + _L139974_) + (if (let ((__tmp150340 + (let ((__tmp150341 + (lambda (_g139993139996_ + _g139994139998_) (let () (declare (not safe)) - (cons _g139988139991_ - _g139989139993_))))) + (cons _g139993139996_ + _g139994139998_))))) (declare (not safe)) - (foldr1 __tmp150336 '() _L139969_)))) + (foldr1 __tmp150341 '() _L139974_)))) (declare (not safe)) - (null? __tmp150335)) - _L139968_ - (let ((_subst140003_ + (null? __tmp150340)) + _L139973_ + (let ((_subst140008_ (map cons - (let ((__tmp150334 - (lambda (_g139995139998_ - _g139996140000_) + (let ((__tmp150339 + (lambda (_g140000140003_ + _g140001140005_) (let () (declare (not safe)) - (cons _g139995139998_ - _g139996140000_))))) + (cons _g140000140003_ + _g140001140005_))))) (declare (not safe)) - (foldr1 __tmp150334 '() _L139969_)) - _args139885_))) + (foldr1 __tmp150339 '() _L139974_)) + _args139890_))) (declare (not safe)) (gxc#apply-expression-subst* - _L139968_ - _subst140003_)))) - _hd139909139963_ - _id139907139957_) + _L139973_ + _subst140008_)))) + _hd139914139968_ + _id139912139962_) (let () (declare (not safe)) - (_g139889139915_ _g139890139918_))))) + (_g139894139920_ _g139895139923_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g139889139915_ - _g139890139918_)))))))) + (_g139894139920_ + _g139895139923_)))))))) (let () (declare (not safe)) - (_loop139902139941_ - _target139899139936_ + (_loop139907139946_ + _target139904139941_ '()))) (let () (declare (not safe)) - (_g139889139915_ _g139890139918_)))))) + (_g139894139920_ _g139895139923_)))))) (let () (declare (not safe)) - (_g139889139915_ _g139890139918_))))) + (_g139894139920_ _g139895139923_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g139889139915_ - _g139890139918_))) + (_g139894139920_ + _g139895139923_))) (let () (declare (not safe)) - (_g139889139915_ - _g139890139918_))) + (_g139894139920_ + _g139895139923_))) (let () (declare (not safe)) - (_g139889139915_ - _g139890139918_))))) + (_g139894139920_ + _g139895139923_))))) (let () (declare (not safe)) - (_g139889139915_ _g139890139918_)))))) + (_g139894139920_ _g139895139923_)))))) (declare (not safe)) - (_g139888140005_ _kont139887_)))) - (_nonlinear-block?139428_ - (lambda (_block139433_) - (letrec ((_nonlinear-expr?139435_ - (lambda (_expr139543_) - (let* ((___stx148963148964_ _expr139543_) - (_g139549139615_ + (_g139893140010_ _kont139892_)))) + (_nonlinear-block?139433_ + (lambda (_block139438_) + (letrec ((_nonlinear-expr?139440_ + (lambda (_expr139548_) + (let* ((___stx148968148969_ _expr139548_) + (_g139554139620_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx148963148964_))))) - (let ((___kont148965148966_ (lambda () '#t)) - (___kont148967148968_ - (lambda (_L139814_) - (let* ((___stx148945148946_ - _L139814_) - (_g139832139841_ + ___stx148968148969_))))) + (let ((___kont148970148971_ (lambda () '#t)) + (___kont148972148973_ + (lambda (_L139819_) + (let* ((___stx148950148951_ + _L139819_) + (_g139837139846_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx148945148946_))))) - (let ((___kont148947148948_ + ___stx148950148951_))))) + (let ((___kont148952148953_ (lambda () '#f)) - (___kont148949148950_ + (___kont148954148955_ (lambda () '#t))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx148945148946_)) - (let ((_e139836139853_ + ___stx148950148951_)) + (let ((_e139841139858_ (let () (declare (not safe)) (gx#stx-e - ___stx148945148946_)))) - (let ((_tl139834139858_ + ___stx148950148951_)))) + (let ((_tl139839139863_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e139836139853_))) - (_hd139835139856_ - (let () (declare (not safe)) (##car _e139836139853_)))) + (##cdr _e139841139858_))) + (_hd139840139861_ + (let () (declare (not safe)) (##car _e139841139858_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd139835139856_)) + (gx#identifier? _hd139840139861_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd139835139856_)) - (___kont148947148948_) - (___kont148949148950_)) - (___kont148949148950_)))) + (gx#stx-eq? '%#call _hd139840139861_)) + (___kont148952148953_) + (___kont148954148955_)) + (___kont148954148955_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont148949148950_)))))) - (___kont148971148972_ - (lambda (_L139712_) + (___kont148954148955_)))))) + (___kont148976148977_ + (lambda (_L139717_) (let () (declare (not safe)) - (_nonlinear-expr?139435_ - _L139712_)))) - (___kont148973148974_ - (lambda (_L139659_ - _L139660_ - _L139661_) - (let ((_$e139680_ + (_nonlinear-expr?139440_ + _L139717_)))) + (___kont148978148979_ + (lambda (_L139664_ + _L139665_ + _L139666_) + (let ((_$e139685_ (let () (declare (not safe)) - (_nonlinear-expr?139435_ - _L139660_)))) - (if _$e139680_ - _$e139680_ + (_nonlinear-expr?139440_ + _L139665_)))) + (if _$e139685_ + _$e139685_ (let () (declare (not safe)) - (_nonlinear-expr?139435_ - _L139659_)))))) - (___kont148975148976_ + (_nonlinear-expr?139440_ + _L139664_)))))) + (___kont148980148981_ (lambda () '#f))) - (let* ((___match149026149027_ - (lambda (_e139589139688_ - _hd139588139691_ - _tl139587139693_ - _e139592139696_ - _hd139591139699_ - _tl139590139701_) + (let* ((___match149031149032_ + (lambda (_e139594139693_ + _hd139593139696_ + _tl139592139698_ + _e139597139701_ + _hd139596139704_ + _tl139595139706_) (if (let () (declare (not safe)) (gx#stx-pair? - _tl139590139701_)) - (let ((_e139595139704_ + _tl139595139706_)) + (let ((_e139600139709_ (let () (declare (not safe)) (gx#stx-e - _tl139590139701_)))) - (let ((_tl139593139709_ + _tl139595139706_)))) + (let ((_tl139598139714_ (let () (declare (not safe)) - (##cdr _e139595139704_))) - (_hd139594139707_ + (##cdr _e139600139709_))) + (_hd139599139712_ (let () (declare (not safe)) - (##car _e139595139704_)))) + (##car _e139600139709_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl139593139709_)) - (___kont148971148972_ - _hd139594139707_) - (___kont148975148976_)))) - (___kont148975148976_)))) - (___match149010149011_ - (lambda (_e139557139730_ - _hd139556139733_ - _tl139555139735_ - _e139560139738_ - _hd139559139741_ - _tl139558139743_ - ___splice148969148970_ - _target139561139746_ - _tl139563139748_) - (letrec ((_loop139564139751_ - (lambda (_hd139562139754_) + _tl139598139714_)) + (___kont148976148977_ + _hd139599139712_) + (___kont148980148981_)))) + (___kont148980148981_)))) + (___match149015149016_ + (lambda (_e139562139735_ + _hd139561139738_ + _tl139560139740_ + _e139565139743_ + _hd139564139746_ + _tl139563139748_ + ___splice148974148975_ + _target139566139751_ + _tl139568139753_) + (letrec ((_loop139569139756_ + (lambda (_hd139567139759_) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _hd139562139754_)) - (let ((_e139565139757_ + (gx#stx-pair? _hd139567139759_)) + (let ((_e139570139762_ (let () (declare (not safe)) - (gx#stx-e _hd139562139754_)))) - (let ((_lp-tl139567139762_ + (gx#stx-e _hd139567139759_)))) + (let ((_lp-tl139572139767_ (let () (declare (not safe)) - (##cdr _e139565139757_))) - (_lp-hd139566139760_ + (##cdr _e139570139762_))) + (_lp-hd139571139765_ (let () (declare (not safe)) - (##car _e139565139757_)))) + (##car _e139570139762_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd139566139760_)) - (let ((_e139570139765_ + (gx#stx-pair? _lp-hd139571139765_)) + (let ((_e139575139770_ (let () (declare (not safe)) - (gx#stx-e _lp-hd139566139760_)))) - (let ((_tl139568139770_ + (gx#stx-e _lp-hd139571139765_)))) + (let ((_tl139573139775_ (let () (declare (not safe)) - (##cdr _e139570139765_))) - (_hd139569139768_ + (##cdr _e139575139770_))) + (_hd139574139773_ (let () (declare (not safe)) - (##car _e139570139765_)))) + (##car _e139575139770_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd139569139768_)) - (let ((_e139573139773_ + (gx#stx-pair? _hd139574139773_)) + (let ((_e139578139778_ (let () (declare (not safe)) - (gx#stx-e _hd139569139768_)))) - (let ((_tl139571139778_ + (gx#stx-e _hd139574139773_)))) + (let ((_tl139576139783_ (let () (declare (not safe)) - (##cdr _e139573139773_))) - (_hd139572139776_ + (##cdr _e139578139778_))) + (_hd139577139781_ (let () (declare (not safe)) - (##car _e139573139773_)))) + (##car _e139578139778_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl139571139778_)) + _tl139576139783_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl139568139770_)) - (let ((_e139576139781_ + _tl139573139775_)) + (let ((_e139581139786_ (let () (declare (not safe)) (gx#stx-e - _tl139568139770_)))) - (let ((_tl139574139786_ + _tl139573139775_)))) + (let ((_tl139579139791_ (let () (declare (not safe)) - (##cdr _e139576139781_))) - (_hd139575139784_ + (##cdr _e139581139786_))) + (_hd139580139789_ (let () (declare (not safe)) - (##car _e139576139781_)))) + (##car _e139581139786_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd139575139784_)) - (let ((_e139579139789_ + _hd139580139789_)) + (let ((_e139584139794_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd139575139784_)))) - (let ((_tl139577139794_ + (gx#stx-e _hd139580139789_)))) + (let ((_tl139582139799_ (let () (declare (not safe)) - (##cdr _e139579139789_))) - (_hd139578139792_ + (##cdr _e139584139794_))) + (_hd139583139797_ (let () (declare (not safe)) - (##car _e139579139789_)))) + (##car _e139584139794_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd139578139792_)) + (gx#identifier? _hd139583139797_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd139578139792_)) + (gx#stx-eq? '%#ref _hd139583139797_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl139577139794_)) - (let ((_e139582139797_ + (gx#stx-pair? _tl139582139799_)) + (let ((_e139587139802_ (let () (declare (not safe)) - (gx#stx-e _tl139577139794_)))) - (let ((_tl139580139802_ + (gx#stx-e _tl139582139799_)))) + (let ((_tl139585139807_ (let () (declare (not safe)) - (##cdr _e139582139797_))) - (_hd139581139800_ + (##cdr _e139587139802_))) + (_hd139586139805_ (let () (declare (not safe)) - (##car _e139582139797_)))) + (##car _e139587139802_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl139580139802_)) + (gx#stx-null? _tl139585139807_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl139574139786_)) + _tl139579139791_)) (let () (declare (not safe)) - (_loop139564139751_ - _lp-tl139567139762_)) - (___match149026149027_ - _e139557139730_ - _hd139556139733_ - _tl139555139735_ - _e139560139738_ - _hd139559139741_ - _tl139558139743_)) - (___match149026149027_ - _e139557139730_ - _hd139556139733_ - _tl139555139735_ - _e139560139738_ - _hd139559139741_ - _tl139558139743_)))) - (___match149026149027_ - _e139557139730_ - _hd139556139733_ - _tl139555139735_ - _e139560139738_ - _hd139559139741_ - _tl139558139743_)) - (___match149026149027_ - _e139557139730_ - _hd139556139733_ - _tl139555139735_ - _e139560139738_ - _hd139559139741_ - _tl139558139743_)) - (___match149026149027_ - _e139557139730_ - _hd139556139733_ - _tl139555139735_ - _e139560139738_ - _hd139559139741_ - _tl139558139743_)))) - (___match149026149027_ - _e139557139730_ - _hd139556139733_ - _tl139555139735_ - _e139560139738_ - _hd139559139741_ - _tl139558139743_)))) + (_loop139569139756_ + _lp-tl139572139767_)) + (___match149031149032_ + _e139562139735_ + _hd139561139738_ + _tl139560139740_ + _e139565139743_ + _hd139564139746_ + _tl139563139748_)) + (___match149031149032_ + _e139562139735_ + _hd139561139738_ + _tl139560139740_ + _e139565139743_ + _hd139564139746_ + _tl139563139748_)))) + (___match149031149032_ + _e139562139735_ + _hd139561139738_ + _tl139560139740_ + _e139565139743_ + _hd139564139746_ + _tl139563139748_)) + (___match149031149032_ + _e139562139735_ + _hd139561139738_ + _tl139560139740_ + _e139565139743_ + _hd139564139746_ + _tl139563139748_)) + (___match149031149032_ + _e139562139735_ + _hd139561139738_ + _tl139560139740_ + _e139565139743_ + _hd139564139746_ + _tl139563139748_)))) + (___match149031149032_ + _e139562139735_ + _hd139561139738_ + _tl139560139740_ + _e139565139743_ + _hd139564139746_ + _tl139563139748_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match149026149027_ - _e139557139730_ - _hd139556139733_ - _tl139555139735_ - _e139560139738_ - _hd139559139741_ - _tl139558139743_)) - (___match149026149027_ - _e139557139730_ - _hd139556139733_ - _tl139555139735_ - _e139560139738_ - _hd139559139741_ - _tl139558139743_)))) - (___match149026149027_ - _e139557139730_ - _hd139556139733_ - _tl139555139735_ - _e139560139738_ - _hd139559139741_ - _tl139558139743_)))) - (___match149026149027_ - _e139557139730_ - _hd139556139733_ - _tl139555139735_ - _e139560139738_ - _hd139559139741_ - _tl139558139743_)))) + (___match149031149032_ + _e139562139735_ + _hd139561139738_ + _tl139560139740_ + _e139565139743_ + _hd139564139746_ + _tl139563139748_)) + (___match149031149032_ + _e139562139735_ + _hd139561139738_ + _tl139560139740_ + _e139565139743_ + _hd139564139746_ + _tl139563139748_)))) + (___match149031149032_ + _e139562139735_ + _hd139561139738_ + _tl139560139740_ + _e139565139743_ + _hd139564139746_ + _tl139563139748_)))) + (___match149031149032_ + _e139562139735_ + _hd139561139738_ + _tl139560139740_ + _e139565139743_ + _hd139564139746_ + _tl139563139748_)))) (let () (if (let () (declare (not safe)) - (gx#stx-pair? _tl139558139743_)) - (let ((_e139585139806_ + (gx#stx-pair? _tl139563139748_)) + (let ((_e139590139811_ (let () (declare (not safe)) - (gx#stx-e _tl139558139743_)))) - (let ((_tl139583139811_ + (gx#stx-e _tl139563139748_)))) + (let ((_tl139588139816_ (let () (declare (not safe)) - (##cdr _e139585139806_))) - (_hd139584139809_ + (##cdr _e139590139811_))) + (_hd139589139814_ (let () (declare (not safe)) - (##car _e139585139806_)))) + (##car _e139590139811_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl139583139811_)) - (___kont148967148968_ _hd139584139809_) - (___kont148975148976_)))) - (___kont148975148976_))))))) + (gx#stx-null? _tl139588139816_)) + (___kont148972148973_ _hd139589139814_) + (___kont148980148981_)))) + (___kont148980148981_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop139564139751_ - _target139561139746_)))))) + (_loop139569139756_ + _target139566139751_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx148963148964_)) - (let ((_e139553139871_ + ___stx148968148969_)) + (let ((_e139558139876_ (let () (declare (not safe)) (gx#stx-e - ___stx148963148964_)))) - (let ((_tl139551139876_ + ___stx148968148969_)))) + (let ((_tl139556139881_ (let () (declare (not safe)) - (##cdr _e139553139871_))) - (_hd139552139874_ + (##cdr _e139558139876_))) + (_hd139557139879_ (let () (declare (not safe)) - (##car _e139553139871_)))) + (##car _e139558139876_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd139552139874_)) + _hd139557139879_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _hd139552139874_)) - (___kont148965148966_) + _hd139557139879_)) + (___kont148970148971_) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd139552139874_)) + _hd139557139879_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl139551139876_)) - (let ((_e139560139738_ + (gx#stx-pair? _tl139556139881_)) + (let ((_e139565139743_ (let () (declare (not safe)) - (gx#stx-e _tl139551139876_)))) - (let ((_tl139558139743_ + (gx#stx-e _tl139556139881_)))) + (let ((_tl139563139748_ (let () (declare (not safe)) - (##cdr _e139560139738_))) - (_hd139559139741_ + (##cdr _e139565139743_))) + (_hd139564139746_ (let () (declare (not safe)) - (##car _e139560139738_)))) + (##car _e139565139743_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd139559139741_)) - (let ((___splice148969148970_ + (gx#stx-pair/null? _hd139564139746_)) + (let ((___splice148974148975_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd139559139741_ + _hd139564139746_ '0)))) - (let ((_tl139563139748_ + (let ((_tl139568139753_ (let () (declare (not safe)) (##vector-ref - ___splice148969148970_ + ___splice148974148975_ '1))) - (_target139561139746_ + (_target139566139751_ (let () (declare (not safe)) (##vector-ref - ___splice148969148970_ + ___splice148974148975_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl139563139748_)) - (___match149010149011_ - _e139553139871_ - _hd139552139874_ - _tl139551139876_ - _e139560139738_ - _hd139559139741_ - _tl139558139743_ - ___splice148969148970_ - _target139561139746_ - _tl139563139748_) + (gx#stx-null? _tl139568139753_)) + (___match149015149016_ + _e139558139876_ + _hd139557139879_ + _tl139556139881_ + _e139565139743_ + _hd139564139746_ + _tl139563139748_ + ___splice148974148975_ + _target139566139751_ + _tl139568139753_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl139558139743_)) - (let ((_e139595139704_ + (gx#stx-pair? _tl139563139748_)) + (let ((_e139600139709_ (let () (declare (not safe)) (gx#stx-e - _tl139558139743_)))) - (let ((_tl139593139709_ + _tl139563139748_)))) + (let ((_tl139598139714_ (let () (declare (not safe)) - (##cdr _e139595139704_))) - (_hd139594139707_ + (##cdr _e139600139709_))) + (_hd139599139712_ (let () (declare (not safe)) - (##car _e139595139704_)))) + (##car _e139600139709_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl139593139709_)) - (___kont148971148972_ - _hd139594139707_) - (___kont148975148976_)))) - (___kont148975148976_))))) + _tl139598139714_)) + (___kont148976148977_ + _hd139599139712_) + (___kont148980148981_)))) + (___kont148980148981_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl139558139743_)) - (let ((_e139595139704_ + (gx#stx-pair? _tl139563139748_)) + (let ((_e139600139709_ (let () (declare (not safe)) - (gx#stx-e _tl139558139743_)))) - (let ((_tl139593139709_ + (gx#stx-e _tl139563139748_)))) + (let ((_tl139598139714_ (let () (declare (not safe)) - (##cdr _e139595139704_))) - (_hd139594139707_ + (##cdr _e139600139709_))) + (_hd139599139712_ (let () (declare (not safe)) - (##car _e139595139704_)))) + (##car _e139600139709_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl139593139709_)) - (___kont148971148972_ - _hd139594139707_) - (___kont148975148976_)))) - (___kont148975148976_))))) - (___kont148975148976_)) + (gx#stx-null? _tl139598139714_)) + (___kont148976148977_ + _hd139599139712_) + (___kont148980148981_)))) + (___kont148980148981_))))) + (___kont148980148981_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#if _hd139552139874_)) + (gx#stx-eq? '%#if _hd139557139879_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl139551139876_)) - (let ((_e139604139635_ + (gx#stx-pair? _tl139556139881_)) + (let ((_e139609139640_ (let () (declare (not safe)) - (gx#stx-e _tl139551139876_)))) - (let ((_tl139602139640_ + (gx#stx-e _tl139556139881_)))) + (let ((_tl139607139645_ (let () (declare (not safe)) - (##cdr _e139604139635_))) - (_hd139603139638_ + (##cdr _e139609139640_))) + (_hd139608139643_ (let () (declare (not safe)) - (##car _e139604139635_)))) + (##car _e139609139640_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl139602139640_)) - (let ((_e139607139643_ + (gx#stx-pair? _tl139607139645_)) + (let ((_e139612139648_ (let () (declare (not safe)) - (gx#stx-e _tl139602139640_)))) - (let ((_tl139605139648_ + (gx#stx-e _tl139607139645_)))) + (let ((_tl139610139653_ (let () (declare (not safe)) - (##cdr _e139607139643_))) - (_hd139606139646_ + (##cdr _e139612139648_))) + (_hd139611139651_ (let () (declare (not safe)) - (##car _e139607139643_)))) + (##car _e139612139648_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl139605139648_)) - (let ((_e139610139651_ + (gx#stx-pair? _tl139610139653_)) + (let ((_e139615139656_ (let () (declare (not safe)) (gx#stx-e - _tl139605139648_)))) - (let ((_tl139608139656_ + _tl139610139653_)))) + (let ((_tl139613139661_ (let () (declare (not safe)) - (##cdr _e139610139651_))) - (_hd139609139654_ + (##cdr _e139615139656_))) + (_hd139614139659_ (let () (declare (not safe)) - (##car _e139610139651_)))) + (##car _e139615139656_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl139608139656_)) - (___kont148973148974_ - _hd139609139654_ - _hd139606139646_ - _hd139603139638_) - (___kont148975148976_)))) - (___kont148975148976_)))) - (___kont148975148976_)))) - (___kont148975148976_)) - (___kont148975148976_)))) + _tl139613139661_)) + (___kont148978148979_ + _hd139614139659_ + _hd139611139651_ + _hd139608139643_) + (___kont148980148981_)))) + (___kont148980148981_)))) + (___kont148980148981_)))) + (___kont148980148981_)) + (___kont148980148981_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont148975148976_)))) - (___kont148975148976_)))))))) - (let* ((_kont139437_ (caddr _block139433_)) - (_g139439139465_ - (lambda (_g139440139462_) + (___kont148980148981_)))) + (___kont148980148981_)))))))) + (let* ((_kont139442_ (caddr _block139438_)) + (_g139444139470_ + (lambda (_g139445139467_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g139440139462_)))) - (_g139438139540_ - (lambda (_g139440139468_) + _g139445139467_)))) + (_g139443139545_ + (lambda (_g139445139473_) (if (let () (declare (not safe)) - (gx#stx-pair? _g139440139468_)) - (let ((_e139445139470_ + (gx#stx-pair? _g139445139473_)) + (let ((_e139450139475_ (let () (declare (not safe)) - (gx#stx-e _g139440139468_)))) - (let ((_hd139444139473_ + (gx#stx-e _g139445139473_)))) + (let ((_hd139449139478_ (let () (declare (not safe)) - (##car _e139445139470_))) - (_tl139443139475_ + (##car _e139450139475_))) + (_tl139448139480_ (let () (declare (not safe)) - (##cdr _e139445139470_)))) + (##cdr _e139450139475_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd139444139473_)) + _hd139449139478_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd139444139473_)) + _hd139449139478_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl139443139475_)) - (let ((_e139448139478_ + _tl139448139480_)) + (let ((_e139453139483_ (let () (declare (not safe)) (gx#stx-e - _tl139443139475_)))) - (let ((_hd139447139481_ + _tl139448139480_)))) + (let ((_hd139452139486_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e139448139478_))) - (_tl139446139483_ - (let () (declare (not safe)) (##cdr _e139448139478_)))) + (##car _e139453139483_))) + (_tl139451139488_ + (let () (declare (not safe)) (##cdr _e139453139483_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd139447139481_)) - (let ((_g150338_ + (gx#stx-pair/null? _hd139452139486_)) + (let ((_g150343_ (let () (declare (not safe)) - (gx#syntax-split-splice _hd139447139481_ '0)))) + (gx#syntax-split-splice _hd139452139486_ '0)))) (begin - (let ((_g150339_ + (let ((_g150344_ (let () (declare (not safe)) - (if (##values? _g150338_) - (##vector-length _g150338_) + (if (##values? _g150343_) + (##vector-length _g150343_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g150339_ 2))) - (error "Context expects 2 values" _g150339_))) - (let ((_target139449139486_ + (##fx= _g150344_ 2))) + (error "Context expects 2 values" _g150344_))) + (let ((_target139454139491_ (let () (declare (not safe)) - (##vector-ref _g150338_ 0))) - (_tl139451139488_ + (##vector-ref _g150343_ 0))) + (_tl139456139493_ (let () (declare (not safe)) - (##vector-ref _g150338_ 1)))) + (##vector-ref _g150343_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl139451139488_)) - (letrec ((_loop139452139491_ - (lambda (_hd139450139494_ - _id139456139496_) + (gx#stx-null? _tl139456139493_)) + (letrec ((_loop139457139496_ + (lambda (_hd139455139499_ + _id139461139501_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd139450139494_)) - (let ((_e139453139499_ + _hd139455139499_)) + (let ((_e139458139504_ (let () (declare (not safe)) (gx#stx-e - _hd139450139494_)))) - (let ((_lp-hd139454139502_ + _hd139455139499_)))) + (let ((_lp-hd139459139507_ (let () (declare (not safe)) - (##car _e139453139499_))) - (_lp-tl139455139504_ + (##car _e139458139504_))) + (_lp-tl139460139509_ (let () (declare (not safe)) - (##cdr _e139453139499_)))) - (let ((__tmp150340 + (##cdr _e139458139504_)))) + (let ((__tmp150345 (let () (declare (not safe)) - (cons _lp-hd139454139502_ + (cons _lp-hd139459139507_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id139456139496_)))) + _id139461139501_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_loop139452139491_ - _lp-tl139455139504_ - __tmp150340)))) - (let ((_id139457139507_ - (reverse _id139456139496_))) + (_loop139457139496_ + _lp-tl139460139509_ + __tmp150345)))) + (let ((_id139462139512_ + (reverse _id139461139501_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl139446139483_)) - (let ((_e139460139510_ + _tl139451139488_)) + (let ((_e139465139515_ (let () (declare (not safe)) (gx#stx-e - _tl139446139483_)))) - (let ((_hd139459139513_ + _tl139451139488_)))) + (let ((_hd139464139518_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e139460139510_))) - (_tl139458139515_ - (let () (declare (not safe)) (##cdr _e139460139510_)))) + (##car _e139465139515_))) + (_tl139463139520_ + (let () (declare (not safe)) (##cdr _e139465139515_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl139458139515_)) - ((lambda (_L139518_ _L139519_) + (gx#stx-null? _tl139463139520_)) + ((lambda (_L139523_ _L139524_) (let () (declare (not safe)) - (_nonlinear-expr?139435_ _L139518_))) - _hd139459139513_ - _id139457139507_) + (_nonlinear-expr?139440_ _L139523_))) + _hd139464139518_ + _id139462139512_) (let () (declare (not safe)) - (_g139439139465_ _g139440139468_))))) + (_g139444139470_ _g139445139473_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g139439139465_ - _g139440139468_)))))))) + (_g139444139470_ + _g139445139473_)))))))) (let () (declare (not safe)) - (_loop139452139491_ - _target139449139486_ + (_loop139457139496_ + _target139454139491_ '()))) (let () (declare (not safe)) - (_g139439139465_ _g139440139468_)))))) + (_g139444139470_ _g139445139473_)))))) (let () (declare (not safe)) - (_g139439139465_ _g139440139468_))))) + (_g139444139470_ _g139445139473_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g139439139465_ - _g139440139468_))) + (_g139444139470_ + _g139445139473_))) (let () (declare (not safe)) - (_g139439139465_ - _g139440139468_))) + (_g139444139470_ + _g139445139473_))) (let () (declare (not safe)) - (_g139439139465_ - _g139440139468_))))) + (_g139444139470_ + _g139445139473_))))) (let () (declare (not safe)) - (_g139439139465_ _g139440139468_)))))) + (_g139444139470_ _g139445139473_)))))) (declare (not safe)) - (_g139438139540_ _kont139437_)))))) - (let ((__tmp150341 + (_g139443139545_ _kont139442_)))))) + (let ((__tmp150346 (lambda () - (let ((__tmp150342 + (let ((__tmp150347 (lambda () (if (memq '@match:prefix (gxc#current-annotation-optimizer)) - (let ((__tmp150343 + (let ((__tmp150348 (lambda () (let () (declare (not safe)) - (_optimize-e139418_ - _body139165_))))) + (_optimize-e139423_ + _body139170_))))) (declare (not safe)) - (_do-splice!139417_ __tmp150343)) + (_do-splice!139422_ __tmp150348)) (let () (declare (not safe)) - (_optimize-e139418_ _body139165_)))))) + (_optimize-e139423_ _body139170_)))))) (declare (not safe)) - (_do-bind139414_ _bind139167_ __tmp150342))))) + (_do-bind139419_ _bind139172_ __tmp150347))))) (declare (not safe)) - (_do-assert139407_ _assert139166_ __tmp150341))))) + (_do-assert139412_ _assert139171_ __tmp150346))))) (define gxc#optimize-match-prune-blocks - (lambda (_blocks139077_ _konts139078_) - (letrec* ((_rtab139080_ + (lambda (_blocks139082_ _konts139083_) + (letrec* ((_rtab139085_ (let () (declare (not safe)) (make-hash-table-eq)))) (for-each - (lambda (_block139082_) - (let ((__tmp150344 (caddr _block139082_))) + (lambda (_block139087_) + (let ((__tmp150349 (caddr _block139087_))) (declare (not safe)) - (gxc#apply-collect-runtime-refs __tmp150344 _rtab139080_))) - _konts139078_) - (let _lp139084_ ((_rest139086_ _blocks139077_) (_r139087_ '())) - (let* ((_rest139088139096_ _rest139086_) - (_else139090139104_ (lambda () (reverse _r139087_))) - (_K139092139153_ - (lambda (_rest139107_ _block139108_) - (let* ((_block139109139120_ _block139108_) - (_E139111139124_ + (gxc#apply-collect-runtime-refs __tmp150349 _rtab139085_))) + _konts139083_) + (let _lp139089_ ((_rest139091_ _blocks139082_) (_r139092_ '())) + (let* ((_rest139093139101_ _rest139091_) + (_else139095139109_ (lambda () (reverse _r139092_))) + (_K139097139158_ + (lambda (_rest139112_ _block139113_) + (let* ((_block139114139125_ _block139113_) + (_E139116139129_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _block139109139120_)))) - (_K139112139131_ - (lambda (_kont139127_ _type139128_ _name139129_) - (if (let ((__tmp150346 + _block139114139125_)))) + (_K139117139136_ + (lambda (_kont139132_ _type139133_ _name139134_) + (if (let ((__tmp150351 (let () (declare (not safe)) (gxc#identifier-symbol - _name139129_)))) + _name139134_)))) (declare (not safe)) - (hash-get _rtab139080_ __tmp150346)) + (hash-get _rtab139085_ __tmp150351)) (begin (let () (declare (not safe)) (gxc#apply-collect-runtime-refs - _kont139127_ - _rtab139080_)) - (let ((__tmp150345 + _kont139132_ + _rtab139085_)) + (let ((__tmp150350 (let () (declare (not safe)) - (cons _block139108_ - _r139087_)))) + (cons _block139113_ + _r139092_)))) (declare (not safe)) - (_lp139084_ _rest139107_ __tmp150345))) + (_lp139089_ _rest139112_ __tmp150350))) (let () (declare (not safe)) - (_lp139084_ _rest139107_ _r139087_)))))) + (_lp139089_ _rest139112_ _r139092_)))))) (if (let () (declare (not safe)) - (##pair? _block139109139120_)) - (let ((_hd139113139134_ + (##pair? _block139114139125_)) + (let ((_hd139118139139_ (let () (declare (not safe)) - (##car _block139109139120_))) - (_tl139114139136_ + (##car _block139114139125_))) + (_tl139119139141_ (let () (declare (not safe)) - (##cdr _block139109139120_)))) - (let ((_name139139_ _hd139113139134_)) + (##cdr _block139114139125_)))) + (let ((_name139144_ _hd139118139139_)) (if (let () (declare (not safe)) - (##pair? _tl139114139136_)) - (let ((_hd139115139141_ + (##pair? _tl139119139141_)) + (let ((_hd139120139146_ (let () (declare (not safe)) - (##car _tl139114139136_))) - (_tl139116139143_ + (##car _tl139119139141_))) + (_tl139121139148_ (let () (declare (not safe)) - (##cdr _tl139114139136_)))) - (let ((_type139146_ _hd139115139141_)) + (##cdr _tl139119139141_)))) + (let ((_type139151_ _hd139120139146_)) (if (let () (declare (not safe)) - (##pair? _tl139116139143_)) - (let* ((_hd139117139148_ + (##pair? _tl139121139148_)) + (let* ((_hd139122139153_ (let () (declare (not safe)) - (##car _tl139116139143_))) - (_kont139151_ - _hd139117139148_)) + (##car _tl139121139148_))) + (_kont139156_ + _hd139122139153_)) (declare (not safe)) - (_K139112139131_ - _kont139151_ - _type139146_ - _name139139_)) + (_K139117139136_ + _kont139156_ + _type139151_ + _name139144_)) (let () (declare (not safe)) - (_E139111139124_))))) + (_E139116139129_))))) (let () (declare (not safe)) - (_E139111139124_))))) + (_E139116139129_))))) (let () (declare (not safe)) - (_E139111139124_))))))) - (if (let () (declare (not safe)) (##pair? _rest139088139096_)) - (let ((_hd139093139156_ + (_E139116139129_))))))) + (if (let () (declare (not safe)) (##pair? _rest139093139101_)) + (let ((_hd139098139161_ (let () (declare (not safe)) - (##car _rest139088139096_))) - (_tl139094139158_ + (##car _rest139093139101_))) + (_tl139099139163_ (let () (declare (not safe)) - (##cdr _rest139088139096_)))) - (let* ((_block139161_ _hd139093139156_) - (_rest139163_ _tl139094139158_)) + (##cdr _rest139093139101_)))) + (let* ((_block139166_ _hd139098139161_) + (_rest139168_ _tl139099139163_)) (declare (not safe)) - (_K139092139153_ _rest139163_ _block139161_))) - (let () (declare (not safe)) (_else139090139104_)))))))) + (_K139097139158_ _rest139168_ _block139166_))) + (let () (declare (not safe)) (_else139095139109_)))))))) (define gxc#optimize-match-fuse-restart-blocks - (lambda (_blocks139001_ _konts139002_) - (let* ((_blocks139003139019_ _blocks139001_) - (_else139005139027_ (lambda () _blocks139001_)) - (_K139007139045_ - (lambda (_rest139030_ _kont139031_ _name139032_) - (letrec* ((_rtab139034_ + (lambda (_blocks139006_ _konts139007_) + (let* ((_blocks139008139024_ _blocks139006_) + (_else139010139032_ (lambda () _blocks139006_)) + (_K139012139050_ + (lambda (_rest139035_ _kont139036_ _name139037_) + (letrec* ((_rtab139039_ (let () (declare (not safe)) (make-hash-table-eq)))) (for-each - (lambda (_block139036_) - (let ((__tmp150347 (caddr _block139036_))) + (lambda (_block139041_) + (let ((__tmp150352 (caddr _block139041_))) (declare (not safe)) (gxc#apply-collect-runtime-refs - __tmp150347 - _rtab139034_))) - _konts139002_) - (if (fx= (let ((__tmp150355 + __tmp150352 + _rtab139039_))) + _konts139007_) + (if (fx= (let ((__tmp150360 (let () (declare (not safe)) - (gxc#identifier-symbol _name139032_)))) + (gxc#identifier-symbol _name139037_)))) (declare (not safe)) - (hash-ref__0 _rtab139034_ __tmp150355)) + (hash-ref__0 _rtab139039_ __tmp150360)) '1) - (let* ((_rblock139040_ - (let ((__tmp150348 - (lambda (_block139038_) - (let ((__tmp150350 - (caddr _block139038_)) - (__tmp150349 + (let* ((_rblock139045_ + (let ((__tmp150353 + (lambda (_block139043_) + (let ((__tmp150355 + (caddr _block139043_)) + (__tmp150354 (let () (declare (not safe)) - (cons _name139032_ '())))) + (cons _name139037_ '())))) (declare (not safe)) (gxc#apply-find-var-refs - __tmp150350 - __tmp150349))))) + __tmp150355 + __tmp150354))))) (declare (not safe)) - (find __tmp150348 _konts139002_))) - (_assert139042_ + (find __tmp150353 _konts139007_))) + (_assert139047_ (let () (declare (not safe)) (gxc#optimize-match-assert-restart - _rblock139040_ - _name139032_)))) - (let ((__tmp150351 - (let ((__tmp150352 - (let ((__tmp150353 - (let ((__tmp150354 + _rblock139045_ + _name139037_)))) + (let ((__tmp150356 + (let ((__tmp150357 + (let ((__tmp150358 + (let ((__tmp150359 (let () (declare (not safe)) - (cons _assert139042_ + (cons _assert139047_ '())))) (declare (not safe)) - (cons _kont139031_ - __tmp150354)))) + (cons _kont139036_ + __tmp150359)))) (declare (not safe)) - (cons 'restart: __tmp150353)))) + (cons 'restart: __tmp150358)))) (declare (not safe)) - (cons _name139032_ __tmp150352)))) + (cons _name139037_ __tmp150357)))) (declare (not safe)) - (cons __tmp150351 _rest139030_))) - _blocks139001_))))) - (if (let () (declare (not safe)) (##pair? _blocks139003139019_)) - (let ((_hd139008139048_ + (cons __tmp150356 _rest139035_))) + _blocks139006_))))) + (if (let () (declare (not safe)) (##pair? _blocks139008139024_)) + (let ((_hd139013139053_ (let () (declare (not safe)) - (##car _blocks139003139019_))) - (_tl139009139050_ + (##car _blocks139008139024_))) + (_tl139014139055_ (let () (declare (not safe)) - (##cdr _blocks139003139019_)))) - (if (let () (declare (not safe)) (##pair? _hd139008139048_)) - (let ((_hd139010139053_ + (##cdr _blocks139008139024_)))) + (if (let () (declare (not safe)) (##pair? _hd139013139053_)) + (let ((_hd139015139058_ (let () (declare (not safe)) - (##car _hd139008139048_))) - (_tl139011139055_ + (##car _hd139013139053_))) + (_tl139016139060_ (let () (declare (not safe)) - (##cdr _hd139008139048_)))) - (let ((_name139058_ _hd139010139053_)) + (##cdr _hd139013139053_)))) + (let ((_name139063_ _hd139015139058_)) (if (let () (declare (not safe)) - (##pair? _tl139011139055_)) - (let ((_hd139012139060_ + (##pair? _tl139016139060_)) + (let ((_hd139017139065_ (let () (declare (not safe)) - (##car _tl139011139055_))) - (_tl139013139062_ + (##car _tl139016139060_))) + (_tl139018139067_ (let () (declare (not safe)) - (##cdr _tl139011139055_)))) + (##cdr _tl139016139060_)))) (if (let () (declare (not safe)) - (##eq? _hd139012139060_ 'restart:)) + (##eq? _hd139017139065_ 'restart:)) (if (let () (declare (not safe)) - (##pair? _tl139013139062_)) - (let ((_hd139014139065_ + (##pair? _tl139018139067_)) + (let ((_hd139019139070_ (let () (declare (not safe)) - (##car _tl139013139062_))) - (_tl139015139067_ + (##car _tl139018139067_))) + (_tl139020139072_ (let () (declare (not safe)) - (##cdr _tl139013139062_)))) - (let ((_kont139070_ _hd139014139065_)) + (##cdr _tl139018139067_)))) + (let ((_kont139075_ _hd139019139070_)) (if (let () (declare (not safe)) - (##pair? _tl139015139067_)) - (let ((_tl139017139072_ + (##pair? _tl139020139072_)) + (let ((_tl139022139077_ (let () (declare (not safe)) - (##cdr _tl139015139067_)))) + (##cdr _tl139020139072_)))) (if (let () (declare (not safe)) - (##null? _tl139017139072_)) - (let ((_rest139075_ - _tl139009139050_)) + (##null? _tl139022139077_)) + (let ((_rest139080_ + _tl139014139055_)) (declare (not safe)) - (_K139007139045_ - _rest139075_ - _kont139070_ - _name139058_)) + (_K139012139050_ + _rest139080_ + _kont139075_ + _name139063_)) (let () (declare (not safe)) - (_else139005139027_)))) + (_else139010139032_)))) (let () (declare (not safe)) - (_else139005139027_))))) + (_else139010139032_))))) (let () (declare (not safe)) - (_else139005139027_))) + (_else139010139032_))) (let () (declare (not safe)) - (_else139005139027_)))) + (_else139010139032_)))) (let () (declare (not safe)) - (_else139005139027_))))) - (let () (declare (not safe)) (_else139005139027_)))) - (let () (declare (not safe)) (_else139005139027_)))))) + (_else139010139032_))))) + (let () (declare (not safe)) (_else139010139032_)))) + (let () (declare (not safe)) (_else139010139032_)))))) (define gxc#optimize-match-assert-restart - (lambda (_block138397_ _name138398_) - (letrec ((_assert-restart138400_ - (lambda (_expr138556_ _assert138557_) - (let* ((___stx149067149068_ _expr138556_) - (_g138563138660_ + (lambda (_block138402_ _name138403_) + (letrec ((_assert-restart138405_ + (lambda (_expr138561_ _assert138562_) + (let* ((___stx149072149073_ _expr138561_) + (_g138568138665_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx149067149068_))))) - (let ((___kont149069149070_ - (lambda (_L138976_ _L138977_ _L138978_) - (let ((_$e138995_ - (let ((__tmp150356 - (let ((__tmp150357 + ___stx149072149073_))))) + (let ((___kont149074149075_ + (lambda (_L138981_ _L138982_ _L138983_) + (let ((_$e139000_ + (let ((__tmp150361 + (let ((__tmp150362 (let () (declare (not safe)) - (cons _L138978_ '#t)))) + (cons _L138983_ '#t)))) (declare (not safe)) - (cons __tmp150357 - _assert138557_)))) + (cons __tmp150362 + _assert138562_)))) (declare (not safe)) - (_assert-restart138400_ - _L138977_ - __tmp150356)))) - (if _$e138995_ - _$e138995_ - (let ((__tmp150358 - (let ((__tmp150359 + (_assert-restart138405_ + _L138982_ + __tmp150361)))) + (if _$e139000_ + _$e139000_ + (let ((__tmp150363 + (let ((__tmp150364 (let () (declare (not safe)) - (cons _L138978_ '#f)))) + (cons _L138983_ '#f)))) (declare (not safe)) - (cons __tmp150359 - _assert138557_)))) + (cons __tmp150364 + _assert138562_)))) (declare (not safe)) - (_assert-restart138400_ - _L138976_ - __tmp150358)))))) - (___kont149071149072_ - (lambda (_L138924_) + (_assert-restart138405_ + _L138981_ + __tmp150363)))))) + (___kont149076149077_ + (lambda (_L138929_) (if (let () (declare (not safe)) (gx#free-identifier=? - _L138924_ - _name138398_)) - _assert138557_ + _L138929_ + _name138403_)) + _assert138562_ '#f))) - (___kont149073149074_ - (lambda (_L138874_) + (___kont149078149079_ + (lambda (_L138879_) (let () (declare (not safe)) - (_assert-restart138400_ - _L138874_ - _assert138557_)))) - (___kont149075149076_ - (lambda (_L138800_ - _L138801_ - _L138802_ - _L138803_ - _L138804_) + (_assert-restart138405_ + _L138879_ + _assert138562_)))) + (___kont149080149081_ + (lambda (_L138805_ + _L138806_ + _L138807_ + _L138808_ + _L138809_) (let () (declare (not safe)) - (_assert-restart138400_ - _L138802_ - _assert138557_)))) - (___kont149081149082_ (lambda () '#f))) - (let ((___match149236149237_ - (lambda (_e138610138672_ - _hd138609138675_ - _tl138608138677_ - _e138613138680_ - _hd138612138683_ - _tl138611138685_ - _e138616138688_ - _hd138615138691_ - _tl138614138693_ - _e138619138696_ - _hd138618138699_ - _tl138617138701_ - _e138622138704_ - _hd138621138707_ - _tl138620138709_ - _e138625138712_ - _hd138624138715_ - _tl138623138717_ - _e138628138720_ - _hd138627138723_ - _tl138626138725_ - _e138631138728_ - _hd138630138731_ - _tl138629138733_ - ___splice149077149078_ - _target138632138736_ - _tl138634138738_) - (letrec ((_loop138635138741_ - (lambda (_hd138633138744_ - _id138639138746_) + (_assert-restart138405_ + _L138807_ + _assert138562_)))) + (___kont149086149087_ (lambda () '#f))) + (let ((___match149241149242_ + (lambda (_e138615138677_ + _hd138614138680_ + _tl138613138682_ + _e138618138685_ + _hd138617138688_ + _tl138616138690_ + _e138621138693_ + _hd138620138696_ + _tl138619138698_ + _e138624138701_ + _hd138623138704_ + _tl138622138706_ + _e138627138709_ + _hd138626138712_ + _tl138625138714_ + _e138630138717_ + _hd138629138720_ + _tl138628138722_ + _e138633138725_ + _hd138632138728_ + _tl138631138730_ + _e138636138733_ + _hd138635138736_ + _tl138634138738_ + ___splice149082149083_ + _target138637138741_ + _tl138639138743_) + (letrec ((_loop138640138746_ + (lambda (_hd138638138749_ + _id138644138751_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd138633138744_)) - (let ((_e138636138749_ + _hd138638138749_)) + (let ((_e138641138754_ (let () (declare (not safe)) (gx#stx-e - _hd138633138744_)))) - (let ((_lp-tl138638138754_ + _hd138638138749_)))) + (let ((_lp-tl138643138759_ (let () (declare (not safe)) - (##cdr _e138636138749_))) - (_lp-hd138637138752_ + (##cdr _e138641138754_))) + (_lp-hd138642138757_ (let () (declare (not safe)) - (##car _e138636138749_)))) - (let ((__tmp150361 + (##car _e138641138754_)))) + (let ((__tmp150366 (let () (declare (not safe)) - (cons _lp-hd138637138752_ + (cons _lp-hd138642138757_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id138639138746_)))) + _id138644138751_)))) (declare (not safe)) - (_loop138635138741_ _lp-tl138638138754_ __tmp150361)))) + (_loop138640138746_ _lp-tl138643138759_ __tmp150366)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_id138640138757_ - (reverse _id138639138746_))) + (let ((_id138645138762_ + (reverse _id138644138751_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl138629138733_)) - (let ((_e138643138760_ + _tl138634138738_)) + (let ((_e138648138765_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl138629138733_)))) - (let ((_tl138641138765_ - (let () (declare (not safe)) (##cdr _e138643138760_))) - (_hd138642138763_ - (let () (declare (not safe)) (##car _e138643138760_)))) + (gx#stx-e _tl138634138738_)))) + (let ((_tl138646138770_ + (let () (declare (not safe)) (##cdr _e138648138765_))) + (_hd138647138768_ + (let () (declare (not safe)) (##car _e138648138765_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl138641138765_)) + (gx#stx-null? _tl138646138770_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl138623138717_)) + (gx#stx-null? _tl138628138722_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl138614138693_)) - (let ((___splice149079149080_ + (gx#stx-pair/null? _tl138619138698_)) + (let ((___splice149084149085_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl138614138693_ + _tl138619138698_ '0)))) - (let ((_tl138646138770_ + (let ((_tl138651138775_ (let () (declare (not safe)) (##vector-ref - ___splice149079149080_ + ___splice149084149085_ '1))) - (_target138644138768_ + (_target138649138773_ (let () (declare (not safe)) (##vector-ref - ___splice149079149080_ + ___splice149084149085_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl138646138770_)) - (letrec ((_loop138647138773_ - (lambda (_hd138645138776_ - _bind138651138778_) + (gx#stx-null? _tl138651138775_)) + (letrec ((_loop138652138778_ + (lambda (_hd138650138781_ + _bind138656138783_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd138645138776_)) - (let ((_e138648138781_ + _hd138650138781_)) + (let ((_e138653138786_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd138645138776_)))) - (let ((_lp-tl138650138786_ - (let () (declare (not safe)) (##cdr _e138648138781_))) - (_lp-hd138649138784_ - (let () (declare (not safe)) (##car _e138648138781_)))) - (let ((__tmp150360 + (gx#stx-e _hd138650138781_)))) + (let ((_lp-tl138655138791_ + (let () (declare (not safe)) (##cdr _e138653138786_))) + (_lp-hd138654138789_ + (let () (declare (not safe)) (##car _e138653138786_)))) + (let ((__tmp150365 (let () (declare (not safe)) - (cons _lp-hd138649138784_ _bind138651138778_)))) + (cons _lp-hd138654138789_ _bind138656138783_)))) (declare (not safe)) - (_loop138647138773_ _lp-tl138650138786_ __tmp150360)))) - (let ((_bind138652138789_ (reverse _bind138651138778_))) + (_loop138652138778_ _lp-tl138655138791_ __tmp150365)))) + (let ((_bind138657138794_ (reverse _bind138656138783_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl138611138685_)) - (let ((_e138655138792_ + (gx#stx-pair? _tl138616138690_)) + (let ((_e138660138797_ (let () (declare (not safe)) - (gx#stx-e _tl138611138685_)))) - (let ((_tl138653138797_ + (gx#stx-e _tl138616138690_)))) + (let ((_tl138658138802_ (let () (declare (not safe)) - (##cdr _e138655138792_))) - (_hd138654138795_ + (##cdr _e138660138797_))) + (_hd138659138800_ (let () (declare (not safe)) - (##car _e138655138792_)))) + (##car _e138660138797_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl138653138797_)) - (___kont149075149076_ - _hd138654138795_ - _bind138652138789_ - _hd138642138763_ - _id138640138757_ - _hd138621138707_) - (___kont149081149082_)))) - (___kont149081149082_))))))) + (gx#stx-null? _tl138658138802_)) + (___kont149080149081_ + _hd138659138800_ + _bind138657138794_ + _hd138647138768_ + _id138645138762_ + _hd138626138712_) + (___kont149086149087_)))) + (___kont149086149087_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop138647138773_ - _target138644138768_ + (_loop138652138778_ + _target138649138773_ '()))) - (___kont149081149082_)))) - (___kont149081149082_)) - (___kont149081149082_)) - (___kont149081149082_)))) - (___kont149081149082_))))))) + (___kont149086149087_)))) + (___kont149086149087_)) + (___kont149086149087_)) + (___kont149086149087_)))) + (___kont149086149087_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop138635138741_ - _target138632138736_ + (_loop138640138746_ + _target138637138741_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx149067149068_)) - (let ((_e138570138944_ + (gx#stx-pair? ___stx149072149073_)) + (let ((_e138575138949_ (let () (declare (not safe)) - (gx#stx-e ___stx149067149068_)))) - (let ((_tl138568138949_ + (gx#stx-e ___stx149072149073_)))) + (let ((_tl138573138954_ (let () (declare (not safe)) - (##cdr _e138570138944_))) - (_hd138569138947_ + (##cdr _e138575138949_))) + (_hd138574138952_ (let () (declare (not safe)) - (##car _e138570138944_)))) + (##car _e138575138949_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd138569138947_)) + (gx#identifier? _hd138574138952_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _hd138569138947_)) + _hd138574138952_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl138568138949_)) - (let ((_e138573138952_ + _tl138573138954_)) + (let ((_e138578138957_ (let () (declare (not safe)) (gx#stx-e - _tl138568138949_)))) - (let ((_tl138571138957_ + _tl138573138954_)))) + (let ((_tl138576138962_ (let () (declare (not safe)) - (##cdr _e138573138952_))) - (_hd138572138955_ + (##cdr _e138578138957_))) + (_hd138577138960_ (let () (declare (not safe)) - (##car _e138573138952_)))) + (##car _e138578138957_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl138571138957_)) - (let ((_e138576138960_ + _tl138576138962_)) + (let ((_e138581138965_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl138571138957_)))) - (let ((_tl138574138965_ - (let () (declare (not safe)) (##cdr _e138576138960_))) - (_hd138575138963_ - (let () (declare (not safe)) (##car _e138576138960_)))) + (gx#stx-e _tl138576138962_)))) + (let ((_tl138579138970_ + (let () (declare (not safe)) (##cdr _e138581138965_))) + (_hd138580138968_ + (let () (declare (not safe)) (##car _e138581138965_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl138574138965_)) - (let ((_e138579138968_ + (gx#stx-pair? _tl138579138970_)) + (let ((_e138584138973_ (let () (declare (not safe)) - (gx#stx-e _tl138574138965_)))) - (let ((_tl138577138973_ + (gx#stx-e _tl138579138970_)))) + (let ((_tl138582138978_ (let () (declare (not safe)) - (##cdr _e138579138968_))) - (_hd138578138971_ + (##cdr _e138584138973_))) + (_hd138583138976_ (let () (declare (not safe)) - (##car _e138579138968_)))) + (##car _e138584138973_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl138577138973_)) - (___kont149069149070_ - _hd138578138971_ - _hd138575138963_ - _hd138572138955_) - (___kont149081149082_)))) - (___kont149081149082_)))) - (___kont149081149082_)))) + (gx#stx-null? _tl138582138978_)) + (___kont149074149075_ + _hd138583138976_ + _hd138580138968_ + _hd138577138960_) + (___kont149086149087_)))) + (___kont149086149087_)))) + (___kont149086149087_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont149081149082_)) + (___kont149086149087_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd138569138947_)) + _hd138574138952_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl138568138949_)) - (let ((_e138586138900_ + _tl138573138954_)) + (let ((_e138591138905_ (let () (declare (not safe)) (gx#stx-e - _tl138568138949_)))) - (let ((_tl138584138905_ + _tl138573138954_)))) + (let ((_tl138589138910_ (let () (declare (not safe)) - (##cdr _e138586138900_))) - (_hd138585138903_ + (##cdr _e138591138905_))) + (_hd138590138908_ (let () (declare (not safe)) - (##car _e138586138900_)))) + (##car _e138591138905_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd138585138903_)) - (let ((_e138589138908_ + _hd138590138908_)) + (let ((_e138594138913_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd138585138903_)))) - (let ((_tl138587138913_ + (gx#stx-e _hd138590138908_)))) + (let ((_tl138592138918_ (let () (declare (not safe)) - (##cdr _e138589138908_))) - (_hd138588138911_ + (##cdr _e138594138913_))) + (_hd138593138916_ (let () (declare (not safe)) - (##car _e138589138908_)))) + (##car _e138594138913_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd138588138911_)) + (gx#identifier? _hd138593138916_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd138588138911_)) + (gx#stx-eq? '%#ref _hd138593138916_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl138587138913_)) - (let ((_e138592138916_ + (gx#stx-pair? _tl138592138918_)) + (let ((_e138597138921_ (let () (declare (not safe)) - (gx#stx-e _tl138587138913_)))) - (let ((_tl138590138921_ + (gx#stx-e _tl138592138918_)))) + (let ((_tl138595138926_ (let () (declare (not safe)) - (##cdr _e138592138916_))) - (_hd138591138919_ + (##cdr _e138597138921_))) + (_hd138596138924_ (let () (declare (not safe)) - (##car _e138592138916_)))) + (##car _e138597138921_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl138590138921_)) - (___kont149071149072_ - _hd138591138919_) - (___kont149081149082_)))) - (___kont149081149082_)) - (___kont149081149082_)) - (___kont149081149082_)))) - (___kont149081149082_)))) + (gx#stx-null? _tl138595138926_)) + (___kont149076149077_ + _hd138596138924_) + (___kont149086149087_)))) + (___kont149086149087_)) + (___kont149086149087_)) + (___kont149086149087_)))) + (___kont149086149087_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont149081149082_)) + (___kont149086149087_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd138569138947_)) + _hd138574138952_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl138568138949_)) - (let ((_e138599138858_ + _tl138573138954_)) + (let ((_e138604138863_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl138568138949_)))) - (let ((_tl138597138863_ - (let () (declare (not safe)) (##cdr _e138599138858_))) - (_hd138598138861_ - (let () (declare (not safe)) (##car _e138599138858_)))) + (gx#stx-e _tl138573138954_)))) + (let ((_tl138602138868_ + (let () (declare (not safe)) (##cdr _e138604138863_))) + (_hd138603138866_ + (let () (declare (not safe)) (##car _e138604138863_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl138597138863_)) - (let ((_e138602138866_ + (gx#stx-pair? _tl138602138868_)) + (let ((_e138607138871_ (let () (declare (not safe)) - (gx#stx-e _tl138597138863_)))) - (let ((_tl138600138871_ + (gx#stx-e _tl138602138868_)))) + (let ((_tl138605138876_ (let () (declare (not safe)) - (##cdr _e138602138866_))) - (_hd138601138869_ + (##cdr _e138607138871_))) + (_hd138606138874_ (let () (declare (not safe)) - (##car _e138602138866_)))) + (##car _e138607138871_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl138600138871_)) - (___kont149073149074_ _hd138601138869_) - (___kont149081149082_)))) - (___kont149081149082_)))) - (___kont149081149082_)) + (gx#stx-null? _tl138605138876_)) + (___kont149078149079_ _hd138606138874_) + (___kont149086149087_)))) + (___kont149086149087_)))) + (___kont149086149087_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _hd138569138947_)) + _hd138574138952_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl138568138949_)) - (let ((_e138613138680_ + _tl138573138954_)) + (let ((_e138618138685_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl138568138949_)))) - (let ((_tl138611138685_ + (gx#stx-e _tl138573138954_)))) + (let ((_tl138616138690_ (let () (declare (not safe)) - (##cdr _e138613138680_))) - (_hd138612138683_ + (##cdr _e138618138685_))) + (_hd138617138688_ (let () (declare (not safe)) - (##car _e138613138680_)))) + (##car _e138618138685_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd138612138683_)) - (let ((_e138616138688_ + (gx#stx-pair? _hd138617138688_)) + (let ((_e138621138693_ (let () (declare (not safe)) - (gx#stx-e _hd138612138683_)))) - (let ((_tl138614138693_ + (gx#stx-e _hd138617138688_)))) + (let ((_tl138619138698_ (let () (declare (not safe)) - (##cdr _e138616138688_))) - (_hd138615138691_ + (##cdr _e138621138693_))) + (_hd138620138696_ (let () (declare (not safe)) - (##car _e138616138688_)))) + (##car _e138621138693_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd138615138691_)) - (let ((_e138619138696_ + (gx#stx-pair? _hd138620138696_)) + (let ((_e138624138701_ (let () (declare (not safe)) - (gx#stx-e _hd138615138691_)))) - (let ((_tl138617138701_ + (gx#stx-e _hd138620138696_)))) + (let ((_tl138622138706_ (let () (declare (not safe)) - (##cdr _e138619138696_))) - (_hd138618138699_ + (##cdr _e138624138701_))) + (_hd138623138704_ (let () (declare (not safe)) - (##car _e138619138696_)))) + (##car _e138624138701_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd138618138699_)) - (let ((_e138622138704_ + (gx#stx-pair? _hd138623138704_)) + (let ((_e138627138709_ (let () (declare (not safe)) (gx#stx-e - _hd138618138699_)))) - (let ((_tl138620138709_ + _hd138623138704_)))) + (let ((_tl138625138714_ (let () (declare (not safe)) - (##cdr _e138622138704_))) - (_hd138621138707_ + (##cdr _e138627138709_))) + (_hd138626138712_ (let () (declare (not safe)) - (##car _e138622138704_)))) + (##car _e138627138709_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl138620138709_)) + _tl138625138714_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl138617138701_)) - (let ((_e138625138712_ + _tl138622138706_)) + (let ((_e138630138717_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl138617138701_)))) - (let ((_tl138623138717_ - (let () (declare (not safe)) (##cdr _e138625138712_))) - (_hd138624138715_ - (let () (declare (not safe)) (##car _e138625138712_)))) + (gx#stx-e _tl138622138706_)))) + (let ((_tl138628138722_ + (let () (declare (not safe)) (##cdr _e138630138717_))) + (_hd138629138720_ + (let () (declare (not safe)) (##car _e138630138717_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd138624138715_)) - (let ((_e138628138720_ + (gx#stx-pair? _hd138629138720_)) + (let ((_e138633138725_ (let () (declare (not safe)) - (gx#stx-e _hd138624138715_)))) - (let ((_tl138626138725_ + (gx#stx-e _hd138629138720_)))) + (let ((_tl138631138730_ (let () (declare (not safe)) - (##cdr _e138628138720_))) - (_hd138627138723_ + (##cdr _e138633138725_))) + (_hd138632138728_ (let () (declare (not safe)) - (##car _e138628138720_)))) + (##car _e138633138725_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd138627138723_)) + (gx#identifier? _hd138632138728_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _hd138627138723_)) + (gx#stx-eq? '%#lambda _hd138632138728_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl138626138725_)) - (let ((_e138631138728_ + (gx#stx-pair? _tl138631138730_)) + (let ((_e138636138733_ (let () (declare (not safe)) - (gx#stx-e _tl138626138725_)))) - (let ((_tl138629138733_ + (gx#stx-e _tl138631138730_)))) + (let ((_tl138634138738_ (let () (declare (not safe)) - (##cdr _e138631138728_))) - (_hd138630138731_ + (##cdr _e138636138733_))) + (_hd138635138736_ (let () (declare (not safe)) - (##car _e138631138728_)))) + (##car _e138636138733_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd138630138731_)) - (let ((___splice149077149078_ + _hd138635138736_)) + (let ((___splice149082149083_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd138630138731_ + _hd138635138736_ '0)))) - (let ((_tl138634138738_ + (let ((_tl138639138743_ (let () (declare (not safe)) (##vector-ref - ___splice149077149078_ + ___splice149082149083_ '1))) - (_target138632138736_ + (_target138637138741_ (let () (declare (not safe)) (##vector-ref - ___splice149077149078_ + ___splice149082149083_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl138634138738_)) - (___match149236149237_ - _e138570138944_ - _hd138569138947_ - _tl138568138949_ - _e138613138680_ - _hd138612138683_ - _tl138611138685_ - _e138616138688_ - _hd138615138691_ - _tl138614138693_ - _e138619138696_ - _hd138618138699_ - _tl138617138701_ - _e138622138704_ - _hd138621138707_ - _tl138620138709_ - _e138625138712_ - _hd138624138715_ - _tl138623138717_ - _e138628138720_ - _hd138627138723_ - _tl138626138725_ - _e138631138728_ - _hd138630138731_ - _tl138629138733_ - ___splice149077149078_ - _target138632138736_ - _tl138634138738_) - (___kont149081149082_)))) - (___kont149081149082_)))) - (___kont149081149082_)) - (___kont149081149082_)) - (___kont149081149082_)))) - (___kont149081149082_)))) - (___kont149081149082_)) + _tl138639138743_)) + (___match149241149242_ + _e138575138949_ + _hd138574138952_ + _tl138573138954_ + _e138618138685_ + _hd138617138688_ + _tl138616138690_ + _e138621138693_ + _hd138620138696_ + _tl138619138698_ + _e138624138701_ + _hd138623138704_ + _tl138622138706_ + _e138627138709_ + _hd138626138712_ + _tl138625138714_ + _e138630138717_ + _hd138629138720_ + _tl138628138722_ + _e138633138725_ + _hd138632138728_ + _tl138631138730_ + _e138636138733_ + _hd138635138736_ + _tl138634138738_ + ___splice149082149083_ + _target138637138741_ + _tl138639138743_) + (___kont149086149087_)))) + (___kont149086149087_)))) + (___kont149086149087_)) + (___kont149086149087_)) + (___kont149086149087_)))) + (___kont149086149087_)))) + (___kont149086149087_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont149081149082_)))) - (___kont149081149082_)))) - (___kont149081149082_)))) - (___kont149081149082_)))) - (___kont149081149082_)) - (___kont149081149082_))))) + (___kont149086149087_)))) + (___kont149086149087_)))) + (___kont149086149087_)))) + (___kont149086149087_)))) + (___kont149086149087_)) + (___kont149086149087_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont149081149082_)))) - (___kont149081149082_)))))))) - (let* ((_block138401138414_ _block138397_) - (_E138403138418_ + (___kont149086149087_)))) + (___kont149086149087_)))))))) + (let* ((_block138406138419_ _block138402_) + (_E138408138423_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _block138401138414_)))) - (_K138404138531_ - (lambda (_maybe-bind138421_ _assert138422_ _kont138423_) - (let* ((_g138425138451_ - (lambda (_g138426138448_) + (error '"No clause matching" _block138406138419_)))) + (_K138409138536_ + (lambda (_maybe-bind138426_ _assert138427_ _kont138428_) + (let* ((_g138430138456_ + (lambda (_g138431138453_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g138426138448_)))) - (_g138424138528_ - (lambda (_g138426138454_) + _g138431138453_)))) + (_g138429138533_ + (lambda (_g138431138459_) (if (let () (declare (not safe)) - (gx#stx-pair? _g138426138454_)) - (let ((_e138431138456_ + (gx#stx-pair? _g138431138459_)) + (let ((_e138436138461_ (let () (declare (not safe)) - (gx#stx-e _g138426138454_)))) - (let ((_hd138430138459_ + (gx#stx-e _g138431138459_)))) + (let ((_hd138435138464_ (let () (declare (not safe)) - (##car _e138431138456_))) - (_tl138429138461_ + (##car _e138436138461_))) + (_tl138434138466_ (let () (declare (not safe)) - (##cdr _e138431138456_)))) + (##cdr _e138436138461_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd138430138459_)) + (gx#identifier? _hd138435138464_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd138430138459_)) + _hd138435138464_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl138429138461_)) - (let ((_e138434138464_ + _tl138434138466_)) + (let ((_e138439138469_ (let () (declare (not safe)) (gx#stx-e - _tl138429138461_)))) - (let ((_hd138433138467_ + _tl138434138466_)))) + (let ((_hd138438138472_ (let () (declare (not safe)) - (##car _e138434138464_))) - (_tl138432138469_ + (##car _e138439138469_))) + (_tl138437138474_ (let () (declare (not safe)) - (##cdr _e138434138464_)))) + (##cdr _e138439138469_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd138433138467_)) - (let ((_g150362_ + _hd138438138472_)) + (let ((_g150367_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _hd138433138467_ '0)))) + (gx#syntax-split-splice _hd138438138472_ '0)))) (begin - (let ((_g150363_ + (let ((_g150368_ (let () (declare (not safe)) - (if (##values? _g150362_) - (##vector-length _g150362_) + (if (##values? _g150367_) + (##vector-length _g150367_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g150363_ 2))) - (error "Context expects 2 values" _g150363_))) - (let ((_target138435138472_ + (##fx= _g150368_ 2))) + (error "Context expects 2 values" _g150368_))) + (let ((_target138440138477_ (let () (declare (not safe)) - (##vector-ref _g150362_ 0))) - (_tl138437138474_ + (##vector-ref _g150367_ 0))) + (_tl138442138479_ (let () (declare (not safe)) - (##vector-ref _g150362_ 1)))) + (##vector-ref _g150367_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl138437138474_)) - (letrec ((_loop138438138477_ - (lambda (_hd138436138480_ - _id138442138482_) + (gx#stx-null? _tl138442138479_)) + (letrec ((_loop138443138482_ + (lambda (_hd138441138485_ + _id138447138487_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd138436138480_)) - (let ((_e138439138485_ + (gx#stx-pair? _hd138441138485_)) + (let ((_e138444138490_ (let () (declare (not safe)) (gx#stx-e - _hd138436138480_)))) - (let ((_lp-hd138440138488_ + _hd138441138485_)))) + (let ((_lp-hd138445138493_ (let () (declare (not safe)) - (##car _e138439138485_))) - (_lp-tl138441138490_ + (##car _e138444138490_))) + (_lp-tl138446138495_ (let () (declare (not safe)) - (##cdr _e138439138485_)))) - (let ((__tmp150364 + (##cdr _e138444138490_)))) + (let ((__tmp150369 (let () (declare (not safe)) - (cons _lp-hd138440138488_ - _id138442138482_)))) + (cons _lp-hd138445138493_ + _id138447138487_)))) (declare (not safe)) - (_loop138438138477_ - _lp-tl138441138490_ - __tmp150364)))) - (let ((_id138443138493_ - (reverse _id138442138482_))) + (_loop138443138482_ + _lp-tl138446138495_ + __tmp150369)))) + (let ((_id138448138498_ + (reverse _id138447138487_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl138432138469_)) - (let ((_e138446138496_ + _tl138437138474_)) + (let ((_e138451138501_ (let () (declare (not safe)) (gx#stx-e - _tl138432138469_)))) - (let ((_hd138445138499_ + _tl138437138474_)))) + (let ((_hd138450138504_ (let () (declare (not safe)) - (##car _e138446138496_))) - (_tl138444138501_ + (##car _e138451138501_))) + (_tl138449138506_ (let () (declare (not safe)) - (##cdr _e138446138496_)))) + (##cdr _e138451138501_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl138444138501_)) - ((lambda (_L138504_ + _tl138449138506_)) + ((lambda (_L138509_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L138505_) + _L138510_) (let () (declare (not safe)) - (_assert-restart138400_ _L138504_ _assert138422_))) - _hd138445138499_ - _id138443138493_) + (_assert-restart138405_ _L138509_ _assert138427_))) + _hd138450138504_ + _id138448138498_) (let () (declare (not safe)) - (_g138425138451_ _g138426138454_))))) + (_g138430138456_ _g138431138459_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g138425138451_ - _g138426138454_)))))))) + (_g138430138456_ + _g138431138459_)))))))) (let () (declare (not safe)) - (_loop138438138477_ _target138435138472_ '()))) + (_loop138443138482_ _target138440138477_ '()))) (let () (declare (not safe)) - (_g138425138451_ _g138426138454_)))))) + (_g138430138456_ _g138431138459_)))))) (let () (declare (not safe)) - (_g138425138451_ _g138426138454_))))) + (_g138430138456_ _g138431138459_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g138425138451_ - _g138426138454_))) + (_g138430138456_ + _g138431138459_))) (let () (declare (not safe)) - (_g138425138451_ - _g138426138454_))) + (_g138430138456_ + _g138431138459_))) (let () (declare (not safe)) - (_g138425138451_ - _g138426138454_))))) + (_g138430138456_ + _g138431138459_))))) (let () (declare (not safe)) - (_g138425138451_ _g138426138454_)))))) + (_g138430138456_ _g138431138459_)))))) (declare (not safe)) - (_g138424138528_ _kont138423_))))) - (if (let () (declare (not safe)) (##pair? _block138401138414_)) - (let ((_tl138406138534_ + (_g138429138533_ _kont138428_))))) + (if (let () (declare (not safe)) (##pair? _block138406138419_)) + (let ((_tl138411138539_ (let () (declare (not safe)) - (##cdr _block138401138414_)))) - (if (let () (declare (not safe)) (##pair? _tl138406138534_)) - (let ((_tl138408138537_ + (##cdr _block138406138419_)))) + (if (let () (declare (not safe)) (##pair? _tl138411138539_)) + (let ((_tl138413138542_ (let () (declare (not safe)) - (##cdr _tl138406138534_)))) + (##cdr _tl138411138539_)))) (if (let () (declare (not safe)) - (##pair? _tl138408138537_)) - (let ((_hd138409138540_ + (##pair? _tl138413138542_)) + (let ((_hd138414138545_ (let () (declare (not safe)) - (##car _tl138408138537_))) - (_tl138410138542_ + (##car _tl138413138542_))) + (_tl138415138547_ (let () (declare (not safe)) - (##cdr _tl138408138537_)))) - (let ((_kont138545_ _hd138409138540_)) + (##cdr _tl138413138542_)))) + (let ((_kont138550_ _hd138414138545_)) (if (let () (declare (not safe)) - (##pair? _tl138410138542_)) - (let ((_hd138411138547_ + (##pair? _tl138415138547_)) + (let ((_hd138416138552_ (let () (declare (not safe)) - (##car _tl138410138542_))) - (_tl138412138549_ + (##car _tl138415138547_))) + (_tl138417138554_ (let () (declare (not safe)) - (##cdr _tl138410138542_)))) - (let* ((_assert138552_ _hd138411138547_) - (_maybe-bind138554_ - _tl138412138549_)) + (##cdr _tl138415138547_)))) + (let* ((_assert138557_ _hd138416138552_) + (_maybe-bind138559_ + _tl138417138554_)) (declare (not safe)) - (_K138404138531_ - _maybe-bind138554_ - _assert138552_ - _kont138545_))) + (_K138409138536_ + _maybe-bind138559_ + _assert138557_ + _kont138550_))) (let () (declare (not safe)) - (_E138403138418_))))) - (let () (declare (not safe)) (_E138403138418_)))) - (let () (declare (not safe)) (_E138403138418_)))) - (let () (declare (not safe)) (_E138403138418_))))))) + (_E138408138423_))))) + (let () (declare (not safe)) (_E138408138423_)))) + (let () (declare (not safe)) (_E138408138423_)))) + (let () (declare (not safe)) (_E138408138423_))))))) (define gxc#optimize-syntax-case - (lambda (_stx138028_) - (let* ((_g138030138060_ - (lambda (_g138031138057_) + (lambda (_stx138033_) + (let* ((_g138035138065_ + (lambda (_g138036138062_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g138031138057_)))) - (_g138029138394_ - (lambda (_g138031138063_) + _g138036138062_)))) + (_g138034138399_ + (lambda (_g138036138068_) (if (let () (declare (not safe)) - (gx#stx-pair? _g138031138063_)) - (let ((_e138037138065_ + (gx#stx-pair? _g138036138068_)) + (let ((_e138042138070_ (let () (declare (not safe)) - (gx#stx-e _g138031138063_)))) - (let ((_hd138036138068_ + (gx#stx-e _g138036138068_)))) + (let ((_hd138041138073_ (let () (declare (not safe)) - (##car _e138037138065_))) - (_tl138035138070_ + (##car _e138042138070_))) + (_tl138040138075_ (let () (declare (not safe)) - (##cdr _e138037138065_)))) + (##cdr _e138042138070_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd138036138068_)) + (gx#identifier? _hd138041138073_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd138036138068_)) + _hd138041138073_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl138035138070_)) - (let ((_e138040138073_ + (gx#stx-pair? _tl138040138075_)) + (let ((_e138045138078_ (let () (declare (not safe)) - (gx#stx-e _tl138035138070_)))) - (let ((_hd138039138076_ + (gx#stx-e _tl138040138075_)))) + (let ((_hd138044138081_ (let () (declare (not safe)) - (##car _e138040138073_))) - (_tl138038138078_ + (##car _e138045138078_))) + (_tl138043138083_ (let () (declare (not safe)) - (##cdr _e138040138073_)))) + (##cdr _e138045138078_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd138039138076_)) - (let ((_e138043138081_ + _hd138044138081_)) + (let ((_e138048138086_ (let () (declare (not safe)) (gx#stx-e - _hd138039138076_)))) - (let ((_hd138042138084_ + _hd138044138081_)))) + (let ((_hd138047138089_ (let () (declare (not safe)) - (##car _e138043138081_))) - (_tl138041138086_ + (##car _e138048138086_))) + (_tl138046138091_ (let () (declare (not safe)) - (##cdr _e138043138081_)))) + (##cdr _e138048138086_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd138042138084_)) - (let ((_e138046138089_ + _hd138047138089_)) + (let ((_e138051138094_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd138042138084_)))) - (let ((_hd138045138092_ - (let () (declare (not safe)) (##car _e138046138089_))) - (_tl138044138094_ - (let () (declare (not safe)) (##cdr _e138046138089_)))) + (gx#stx-e _hd138047138089_)))) + (let ((_hd138050138097_ + (let () (declare (not safe)) (##car _e138051138094_))) + (_tl138049138099_ + (let () (declare (not safe)) (##cdr _e138051138094_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd138045138092_)) - (let ((_e138049138097_ + (gx#stx-pair? _hd138050138097_)) + (let ((_e138054138102_ (let () (declare (not safe)) - (gx#stx-e _hd138045138092_)))) - (let ((_hd138048138100_ + (gx#stx-e _hd138050138097_)))) + (let ((_hd138053138105_ (let () (declare (not safe)) - (##car _e138049138097_))) - (_tl138047138102_ + (##car _e138054138102_))) + (_tl138052138107_ (let () (declare (not safe)) - (##cdr _e138049138097_)))) + (##cdr _e138054138102_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl138047138102_)) + (gx#stx-null? _tl138052138107_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl138044138094_)) - (let ((_e138052138105_ + (gx#stx-pair? _tl138049138099_)) + (let ((_e138057138110_ (let () (declare (not safe)) - (gx#stx-e _tl138044138094_)))) - (let ((_hd138051138108_ + (gx#stx-e _tl138049138099_)))) + (let ((_hd138056138113_ (let () (declare (not safe)) - (##car _e138052138105_))) - (_tl138050138110_ + (##car _e138057138110_))) + (_tl138055138115_ (let () (declare (not safe)) - (##cdr _e138052138105_)))) + (##cdr _e138057138110_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl138050138110_)) + (gx#stx-null? _tl138055138115_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl138041138086_)) + _tl138046138091_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl138038138078_)) - (let ((_e138055138113_ + _tl138043138083_)) + (let ((_e138060138118_ (let () (declare (not safe)) (gx#stx-e - _tl138038138078_)))) - (let ((_hd138054138116_ + _tl138043138083_)))) + (let ((_hd138059138121_ (let () (declare (not safe)) - (##car _e138055138113_))) - (_tl138053138118_ + (##car _e138060138118_))) + (_tl138058138123_ (let () (declare (not safe)) - (##cdr _e138055138113_)))) + (##cdr _e138060138118_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl138053138118_)) - ((lambda (_L138121_ + _tl138058138123_)) + ((lambda (_L138126_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L138122_ - _L138123_) - (let _lp138147_ ((_body138149_ _L138121_) - (_clauses138150_ '())) - (let* ((___stx149239149240_ _body138149_) - (_g138153138200_ + _L138127_ + _L138128_) + (let _lp138152_ ((_body138154_ _L138126_) + (_clauses138155_ '())) + (let* ((___stx149244149245_ _body138154_) + (_g138158138205_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx149239149240_))))) - (let ((___kont149241149242_ - (lambda (_L138366_ _L138367_ _L138368_) - (let ((__tmp150365 - (let ((__tmp150366 - (let ((__tmp150367 + ___stx149244149245_))))) + (let ((___kont149246149247_ + (lambda (_L138371_ _L138372_ _L138373_) + (let ((__tmp150370 + (let ((__tmp150371 + (let ((__tmp150372 (let () (declare (not safe)) (gxc#compile-e__0 - _L138367_)))) + _L138372_)))) (declare (not safe)) - (cons _L138368_ - __tmp150367)))) + (cons _L138373_ + __tmp150372)))) (declare (not safe)) - (cons __tmp150366 - _clauses138150_)))) + (cons __tmp150371 + _clauses138155_)))) (declare (not safe)) - (_lp138147_ _L138366_ __tmp150365)))) - (___kont149243149244_ - (lambda (_L138245_ _L138246_) - (let ((_$e138267_ (length _clauses138150_))) + (_lp138152_ _L138371_ __tmp150370)))) + (___kont149248149249_ + (lambda (_L138250_ _L138251_) + (let ((_$e138272_ (length _clauses138155_))) (if (let () (declare (not safe)) - (eq? '0 _$e138267_)) - (let ((__tmp150385 - (let ((__tmp150386 - (let ((__tmp150389 - (let ((__tmp150390 + (eq? '0 _$e138272_)) + (let ((__tmp150390 + (let ((__tmp150391 + (let ((__tmp150394 + (let ((__tmp150395 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp150392 + (let ((__tmp150397 (let () (declare (not safe)) - (cons _L138123_ '()))) - (__tmp150391 + (cons _L138128_ '()))) + (__tmp150396 (let () (declare (not safe)) - (cons _L138122_ '())))) + (cons _L138127_ '())))) (declare (not safe)) - (cons __tmp150392 __tmp150391)))) + (cons __tmp150397 __tmp150396)))) (declare (not safe)) - (cons __tmp150390 '()))) - (__tmp150387 - (let ((__tmp150388 + (cons __tmp150395 '()))) + (__tmp150392 + (let ((__tmp150393 (let () (declare (not safe)) - (gxc#compile-e__0 _body138149_)))) + (gxc#compile-e__0 _body138154_)))) (declare (not safe)) - (cons __tmp150388 '())))) + (cons __tmp150393 '())))) (declare (not safe)) - (cons __tmp150389 __tmp150387)))) + (cons __tmp150394 __tmp150392)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#let-values - __tmp150386)))) + __tmp150391)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp150385 - _stx138028_)) + __tmp150390 + _stx138033_)) (if (let () (declare (not safe)) - (eq? '1 _$e138267_)) - (let* ((_clauses138269138278_ - _clauses138150_) - (_E138271138282_ + (eq? '1 _$e138272_)) + (let* ((_clauses138274138283_ + _clauses138155_) + (_E138276138287_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _clauses138269138278_)))) - (_K138272138288_ - (lambda (_clause-lambda138285_ - _clause138286_) - (let ((__tmp150370 - (let ((__tmp150371 + _clauses138274138283_)))) + (_K138277138293_ + (lambda (_clause-lambda138290_ + _clause138291_) + (let ((__tmp150375 + (let ((__tmp150376 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp150381 - (let ((__tmp150382 - (let ((__tmp150384 + (let ((__tmp150386 + (let ((__tmp150387 + (let ((__tmp150389 (let () (declare (not safe)) - (cons _L138123_ '()))) - (__tmp150383 + (cons _L138128_ '()))) + (__tmp150388 (let () (declare (not safe)) - (cons _L138122_ '())))) + (cons _L138127_ '())))) (declare (not safe)) - (cons __tmp150384 __tmp150383)))) + (cons __tmp150389 __tmp150388)))) (declare (not safe)) - (cons __tmp150382 '()))) - (__tmp150372 - (let ((__tmp150373 - (let ((__tmp150374 - (let ((__tmp150377 - (let ((__tmp150378 - (let ((__tmp150380 + (cons __tmp150387 '()))) + (__tmp150377 + (let ((__tmp150378 + (let ((__tmp150379 + (let ((__tmp150382 + (let ((__tmp150383 + (let ((__tmp150385 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _clause138286_ '()))) - (__tmp150379 + (cons _clause138291_ '()))) + (__tmp150384 (let () (declare (not safe)) - (cons _clause-lambda138285_ '())))) + (cons _clause-lambda138290_ '())))) (declare (not safe)) - (cons __tmp150380 __tmp150379)))) + (cons __tmp150385 __tmp150384)))) (declare (not safe)) - (cons __tmp150378 '()))) - (__tmp150375 - (let ((__tmp150376 + (cons __tmp150383 '()))) + (__tmp150380 + (let ((__tmp150381 (let () (declare (not safe)) - (gxc#compile-e__0 _body138149_)))) + (gxc#compile-e__0 _body138154_)))) (declare (not safe)) - (cons __tmp150376 '())))) + (cons __tmp150381 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp150377 - __tmp150375)))) + (cons __tmp150382 + __tmp150380)))) (declare (not safe)) - (cons '%#let-values __tmp150374)))) + (cons '%#let-values __tmp150379)))) (declare (not safe)) - (cons __tmp150373 '())))) + (cons __tmp150378 '())))) (declare (not safe)) - (cons __tmp150381 __tmp150372)))) + (cons __tmp150386 __tmp150377)))) (declare (not safe)) - (cons '%#let-values __tmp150371)))) + (cons '%#let-values __tmp150376)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp150370 _stx138028_))))) + (gxc#xform-wrap-source __tmp150375 _stx138033_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _clauses138269138278_)) - (let ((_hd138273138291_ + (##pair? _clauses138274138283_)) + (let ((_hd138278138296_ (let () (declare (not safe)) - (##car _clauses138269138278_))) - (_tl138274138293_ + (##car _clauses138274138283_))) + (_tl138279138298_ (let () (declare (not safe)) - (##cdr _clauses138269138278_)))) + (##cdr _clauses138274138283_)))) (if (let () (declare (not safe)) - (##pair? _hd138273138291_)) - (let ((_hd138275138296_ + (##pair? _hd138278138296_)) + (let ((_hd138280138301_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _hd138273138291_))) - (_tl138276138298_ - (let () (declare (not safe)) (##cdr _hd138273138291_)))) - (let* ((_clause138301_ _hd138275138296_) - (_clause-lambda138303_ _tl138276138298_)) + (##car _hd138278138296_))) + (_tl138281138303_ + (let () (declare (not safe)) (##cdr _hd138278138296_)))) + (let* ((_clause138306_ _hd138280138301_) + (_clause-lambda138308_ _tl138281138303_)) (if (let () (declare (not safe)) - (##null? _tl138274138293_)) + (##null? _tl138279138298_)) (let () (declare (not safe)) - (_K138272138288_ - _clause-lambda138303_ - _clause138301_)) - (let () (declare (not safe)) (_E138271138282_))))) - (let () (declare (not safe)) (_E138271138282_)))) + (_K138277138293_ + _clause-lambda138308_ + _clause138306_)) + (let () (declare (not safe)) (_E138276138287_))))) + (let () (declare (not safe)) (_E138276138287_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_E138271138282_)))) - (let ((__tmp150369 + (_E138276138287_)))) + (let ((__tmp150374 (let () (declare (not safe)) (gxc#compile-e__0 - _L138245_))) - (__tmp150368 + _L138250_))) + (__tmp150373 (let () (declare (not safe)) - (cons _L138123_ - _L138122_)))) + (cons _L138128_ + _L138127_)))) (declare (not safe)) (gxc#optimize-syntax-case-body - _stx138028_ - __tmp150369 - __tmp150368 - _clauses138150_)))))))) + _stx138033_ + __tmp150374 + __tmp150373 + _clauses138155_)))))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx149239149240_)) - (let ((_e138160138310_ + (gx#stx-pair? ___stx149244149245_)) + (let ((_e138165138315_ (let () (declare (not safe)) - (gx#stx-e ___stx149239149240_)))) - (let ((_tl138158138315_ + (gx#stx-e ___stx149244149245_)))) + (let ((_tl138163138320_ (let () (declare (not safe)) - (##cdr _e138160138310_))) - (_hd138159138313_ + (##cdr _e138165138315_))) + (_hd138164138318_ (let () (declare (not safe)) - (##car _e138160138310_)))) + (##car _e138165138315_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd138159138313_)) + (gx#identifier? _hd138164138318_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd138159138313_)) + _hd138164138318_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl138158138315_)) - (let ((_e138163138318_ + _tl138163138320_)) + (let ((_e138168138323_ (let () (declare (not safe)) (gx#stx-e - _tl138158138315_)))) - (let ((_tl138161138323_ + _tl138163138320_)))) + (let ((_tl138166138328_ (let () (declare (not safe)) - (##cdr _e138163138318_))) - (_hd138162138321_ + (##cdr _e138168138323_))) + (_hd138167138326_ (let () (declare (not safe)) - (##car _e138163138318_)))) + (##car _e138168138323_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd138162138321_)) - (let ((_e138166138326_ + _hd138167138326_)) + (let ((_e138171138331_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd138162138321_)))) - (let ((_tl138164138331_ - (let () (declare (not safe)) (##cdr _e138166138326_))) - (_hd138165138329_ - (let () (declare (not safe)) (##car _e138166138326_)))) + (gx#stx-e _hd138167138326_)))) + (let ((_tl138169138336_ + (let () (declare (not safe)) (##cdr _e138171138331_))) + (_hd138170138334_ + (let () (declare (not safe)) (##car _e138171138331_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd138165138329_)) - (let ((_e138169138334_ + (gx#stx-pair? _hd138170138334_)) + (let ((_e138174138339_ (let () (declare (not safe)) - (gx#stx-e _hd138165138329_)))) - (let ((_tl138167138339_ + (gx#stx-e _hd138170138334_)))) + (let ((_tl138172138344_ (let () (declare (not safe)) - (##cdr _e138169138334_))) - (_hd138168138337_ + (##cdr _e138174138339_))) + (_hd138173138342_ (let () (declare (not safe)) - (##car _e138169138334_)))) + (##car _e138174138339_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd138168138337_)) - (let ((_e138172138342_ + (gx#stx-pair? _hd138173138342_)) + (let ((_e138177138347_ (let () (declare (not safe)) - (gx#stx-e _hd138168138337_)))) - (let ((_tl138170138347_ + (gx#stx-e _hd138173138342_)))) + (let ((_tl138175138352_ (let () (declare (not safe)) - (##cdr _e138172138342_))) - (_hd138171138345_ + (##cdr _e138177138347_))) + (_hd138176138350_ (let () (declare (not safe)) - (##car _e138172138342_)))) + (##car _e138177138347_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl138170138347_)) + (gx#stx-null? _tl138175138352_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl138167138339_)) - (let ((_e138175138350_ + (gx#stx-pair? _tl138172138344_)) + (let ((_e138180138355_ (let () (declare (not safe)) (gx#stx-e - _tl138167138339_)))) - (let ((_tl138173138355_ + _tl138172138344_)))) + (let ((_tl138178138360_ (let () (declare (not safe)) - (##cdr _e138175138350_))) - (_hd138174138353_ + (##cdr _e138180138355_))) + (_hd138179138358_ (let () (declare (not safe)) - (##car _e138175138350_)))) + (##car _e138180138355_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl138173138355_)) + _tl138178138360_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl138164138331_)) + _tl138169138336_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl138161138323_)) - (let ((_e138178138358_ + _tl138166138328_)) + (let ((_e138183138363_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl138161138323_)))) - (let ((_tl138176138363_ + (gx#stx-e _tl138166138328_)))) + (let ((_tl138181138368_ (let () (declare (not safe)) - (##cdr _e138178138358_))) - (_hd138177138361_ + (##cdr _e138183138363_))) + (_hd138182138366_ (let () (declare (not safe)) - (##car _e138178138358_)))) + (##car _e138183138363_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl138176138363_)) - (___kont149241149242_ - _hd138177138361_ - _hd138174138353_ - _hd138171138345_) - (let () (declare (not safe)) (_g138153138200_))))) - (let () (declare (not safe)) (_g138153138200_))) - (let () (declare (not safe)) (_g138153138200_))) + (gx#stx-null? _tl138181138368_)) + (___kont149246149247_ + _hd138182138366_ + _hd138179138358_ + _hd138176138350_) + (let () (declare (not safe)) (_g138158138205_))))) + (let () (declare (not safe)) (_g138158138205_))) + (let () (declare (not safe)) (_g138158138205_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g138153138200_))))) + (_g138158138205_))))) (let () (declare (not safe)) - (_g138153138200_))) + (_g138158138205_))) (let () (declare (not safe)) - (_g138153138200_))))) + (_g138158138205_))))) (let () (declare (not safe)) - (_g138153138200_))))) - (let () (declare (not safe)) (_g138153138200_))))) - (let () (declare (not safe)) (_g138153138200_))))) + (_g138158138205_))))) + (let () (declare (not safe)) (_g138158138205_))))) + (let () (declare (not safe)) (_g138158138205_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g138153138200_))) + (_g138158138205_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd138159138313_)) + _hd138164138318_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl138158138315_)) - (let ((_e138186138213_ + _tl138163138320_)) + (let ((_e138191138218_ (let () (declare (not safe)) (gx#stx-e - _tl138158138315_)))) - (let ((_tl138184138218_ + _tl138163138320_)))) + (let ((_tl138189138223_ (let () (declare (not safe)) - (##cdr _e138186138213_))) - (_hd138185138216_ + (##cdr _e138191138218_))) + (_hd138190138221_ (let () (declare (not safe)) - (##car _e138186138213_)))) + (##car _e138191138218_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd138185138216_)) - (let ((_e138189138221_ + _hd138190138221_)) + (let ((_e138194138226_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd138185138216_)))) - (let ((_tl138187138226_ + (gx#stx-e _hd138190138221_)))) + (let ((_tl138192138231_ (let () (declare (not safe)) - (##cdr _e138189138221_))) - (_hd138188138224_ + (##cdr _e138194138226_))) + (_hd138193138229_ (let () (declare (not safe)) - (##car _e138189138221_)))) + (##car _e138194138226_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd138188138224_)) + (gx#identifier? _hd138193138229_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd138188138224_)) + (gx#stx-eq? '%#ref _hd138193138229_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl138187138226_)) - (let ((_e138192138229_ + (gx#stx-pair? _tl138192138231_)) + (let ((_e138197138234_ (let () (declare (not safe)) - (gx#stx-e _tl138187138226_)))) - (let ((_tl138190138234_ + (gx#stx-e _tl138192138231_)))) + (let ((_tl138195138239_ (let () (declare (not safe)) - (##cdr _e138192138229_))) - (_hd138191138232_ + (##cdr _e138197138234_))) + (_hd138196138237_ (let () (declare (not safe)) - (##car _e138192138229_)))) + (##car _e138197138234_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl138190138234_)) + (gx#stx-null? _tl138195138239_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl138184138218_)) - (let ((_e138195138237_ + _tl138189138223_)) + (let ((_e138200138242_ (let () (declare (not safe)) (gx#stx-e - _tl138184138218_)))) - (let ((_tl138193138242_ + _tl138189138223_)))) + (let ((_tl138198138247_ (let () (declare (not safe)) - (##cdr _e138195138237_))) - (_hd138194138240_ + (##cdr _e138200138242_))) + (_hd138199138245_ (let () (declare (not safe)) - (##car _e138195138237_)))) + (##car _e138200138242_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl138193138242_)) - (___kont149243149244_ - _hd138194138240_ - _hd138191138232_) + _tl138198138247_)) + (___kont149248149249_ + _hd138199138245_ + _hd138196138237_) (let () (declare (not safe)) - (_g138153138200_))))) + (_g138158138205_))))) (let () (declare (not safe)) - (_g138153138200_))) + (_g138158138205_))) (let () (declare (not safe)) - (_g138153138200_))))) + (_g138158138205_))))) (let () (declare (not safe)) - (_g138153138200_))) - (let () (declare (not safe)) (_g138153138200_))) - (let () (declare (not safe)) (_g138153138200_))))) - (let () (declare (not safe)) (_g138153138200_))))) + (_g138158138205_))) + (let () (declare (not safe)) (_g138158138205_))) + (let () (declare (not safe)) (_g138158138205_))))) + (let () (declare (not safe)) (_g138158138205_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g138153138200_))) + (_g138158138205_))) (let () (declare (not safe)) - (_g138153138200_)))) + (_g138158138205_)))) (let () (declare (not safe)) - (_g138153138200_))))) + (_g138158138205_))))) (let () (declare (not safe)) - (_g138153138200_))))))) - _hd138054138116_ - _hd138051138108_ - _hd138048138100_) + (_g138158138205_))))))) + _hd138059138121_ + _hd138056138113_ + _hd138053138105_) (let () (declare (not safe)) - (_g138030138060_ _g138031138063_))))) + (_g138035138065_ _g138036138068_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g138030138060_ - _g138031138063_))) + (_g138035138065_ + _g138036138068_))) (let () (declare (not safe)) - (_g138030138060_ - _g138031138063_))) + (_g138035138065_ + _g138036138068_))) (let () (declare (not safe)) - (_g138030138060_ - _g138031138063_))))) + (_g138035138065_ + _g138036138068_))))) (let () (declare (not safe)) - (_g138030138060_ _g138031138063_))) + (_g138035138065_ _g138036138068_))) (let () (declare (not safe)) - (_g138030138060_ _g138031138063_))))) + (_g138035138065_ _g138036138068_))))) (let () (declare (not safe)) - (_g138030138060_ _g138031138063_))))) + (_g138035138065_ _g138036138068_))))) (let () (declare (not safe)) - (_g138030138060_ _g138031138063_))))) + (_g138035138065_ _g138036138068_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g138030138060_ - _g138031138063_))))) + (_g138035138065_ + _g138036138068_))))) (let () (declare (not safe)) - (_g138030138060_ _g138031138063_))) + (_g138035138065_ _g138036138068_))) (let () (declare (not safe)) - (_g138030138060_ _g138031138063_))) + (_g138035138065_ _g138036138068_))) (let () (declare (not safe)) - (_g138030138060_ _g138031138063_))))) + (_g138035138065_ _g138036138068_))))) (let () (declare (not safe)) - (_g138030138060_ _g138031138063_)))))) + (_g138035138065_ _g138036138068_)))))) (declare (not safe)) - (_g138029138394_ _stx138028_)))) + (_g138034138399_ _stx138033_)))) (define gxc#optimize-syntax-case-body - (lambda (_stx137956_ _expr137957_ _negation137958_ _clauses137959_) - (letrec ((_normalize137961_ - (lambda (_clauses137988_) - (let* ((_clauses137989137998_ _clauses137988_) - (_E137991138002_ + (lambda (_stx137961_ _expr137962_ _negation137963_ _clauses137964_) + (letrec ((_normalize137966_ + (lambda (_clauses137993_) + (let* ((_clauses137994138003_ _clauses137993_) + (_E137996138007_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _clauses137989137998_)))) - (_K137992138009_ - (lambda (_rest138005_ _kont138006_ _id138007_) - (let ((__tmp150393 + _clauses137994138003_)))) + (_K137997138014_ + (lambda (_rest138010_ _kont138011_ _id138012_) + (let ((__tmp150398 (let () (declare (not safe)) - (cons '#f _kont138006_)))) + (cons '#f _kont138011_)))) (declare (not safe)) - (cons __tmp150393 _rest138005_))))) + (cons __tmp150398 _rest138010_))))) (if (let () (declare (not safe)) - (##pair? _clauses137989137998_)) - (let ((_hd137993138012_ + (##pair? _clauses137994138003_)) + (let ((_hd137998138017_ (let () (declare (not safe)) - (##car _clauses137989137998_))) - (_tl137994138014_ + (##car _clauses137994138003_))) + (_tl137999138019_ (let () (declare (not safe)) - (##cdr _clauses137989137998_)))) + (##cdr _clauses137994138003_)))) (if (let () (declare (not safe)) - (##pair? _hd137993138012_)) - (let ((_hd137995138017_ + (##pair? _hd137998138017_)) + (let ((_hd138000138022_ (let () (declare (not safe)) - (##car _hd137993138012_))) - (_tl137996138019_ + (##car _hd137998138017_))) + (_tl138001138024_ (let () (declare (not safe)) - (##cdr _hd137993138012_)))) - (let* ((_id138022_ _hd137995138017_) - (_kont138024_ _tl137996138019_) - (_rest138026_ _tl137994138014_)) + (##cdr _hd137998138017_)))) + (let* ((_id138027_ _hd138000138022_) + (_kont138029_ _tl138001138024_) + (_rest138031_ _tl137999138019_)) (declare (not safe)) - (_K137992138009_ - _rest138026_ - _kont138024_ - _id138022_))) + (_K137997138014_ + _rest138031_ + _kont138029_ + _id138027_))) (let () (declare (not safe)) - (_E137991138002_)))) - (let () (declare (not safe)) (_E137991138002_))))))) - (let ((__tmp150395 + (_E137996138007_)))) + (let () (declare (not safe)) (_E137996138007_))))))) + (let ((__tmp150400 (lambda () - (let* ((_id137964_ - (let ((__tmp150396 (gensym '__stx))) + (let* ((_id137969_ + (let ((__tmp150401 (gensym '__stx))) (declare (not safe)) - (make-symbol__0 __tmp150396))) - (_id137966_ + (make-symbol__0 __tmp150401))) + (_id137971_ (let () (declare (not safe)) - (gx#core-quote-syntax__0 _id137964_))) - (_g150397_ + (gx#core-quote-syntax__0 _id137969_))) + (_g150402_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _id137966_))) - (_g150398_ - (let ((__tmp150400 (car _negation137958_))) + (gx#core-bind-runtime!__0 _id137971_))) + (_g150403_ + (let ((__tmp150405 (car _negation137963_))) (declare (not safe)) (gxc#optimize-syntax-case-clauses - _clauses137959_ - __tmp150400)))) + _clauses137964_ + __tmp150405)))) (begin - (let ((_g150399_ + (let ((_g150404_ (let () (declare (not safe)) - (if (##values? _g150398_) - (##vector-length _g150398_) + (if (##values? _g150403_) + (##vector-length _g150403_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g150399_ 2))) - (error "Context expects 2 values" _g150399_))) - (let ((_clauses137969_ + (##fx= _g150404_ 2))) + (error "Context expects 2 values" _g150404_))) + (let ((_clauses137974_ (let () (declare (not safe)) - (##vector-ref _g150398_ 0))) - (_konts137970_ + (##vector-ref _g150403_ 0))) + (_konts137975_ (let () (declare (not safe)) - (##vector-ref _g150398_ 1)))) - (let* ((_clauses137979_ - (map (lambda (_g137971137974_ _g137972137976_) + (##vector-ref _g150403_ 1)))) + (let* ((_clauses137984_ + (map (lambda (_g137976137979_ _g137977137981_) (let () (declare (not safe)) (gxc#optimize-syntax-case-closure - _g137971137974_ - _g137972137976_ - _id137966_))) - _clauses137969_ - (let ((__tmp150402 - (let ((__tmp150403 - (car _negation137958_))) + _g137976137979_ + _g137977137981_ + _id137971_))) + _clauses137974_ + (let ((__tmp150407 + (let ((__tmp150408 + (car _negation137963_))) (declare (not safe)) - (cons __tmp150403 '()))) - (__tmp150401 - (map car (cdr _clauses137969_)))) + (cons __tmp150408 '()))) + (__tmp150406 + (map car (cdr _clauses137974_)))) (declare (not safe)) (foldr1 cons - __tmp150402 - __tmp150401)))) - (_clauses137981_ + __tmp150407 + __tmp150406)))) + (_clauses137986_ (let () (declare (not safe)) - (_normalize137961_ _clauses137979_))) - (_negation137983_ + (_normalize137966_ _clauses137984_))) + (_negation137988_ (let () (declare (not safe)) (gxc#optimize-syntax-case-closure - _negation137958_ + _negation137963_ '#f - _id137966_))) - (_body137985_ + _id137971_))) + (_body137990_ (let () (declare (not safe)) (gxc#optimize-match-body - _stx137956_ - _negation137983_ - _clauses137981_ - _konts137970_)))) - (let ((__tmp150404 - (let ((__tmp150405 - (let ((__tmp150407 - (let ((__tmp150408 - (let ((__tmp150410 + _stx137961_ + _negation137988_ + _clauses137986_ + _konts137975_)))) + (let ((__tmp150409 + (let ((__tmp150410 + (let ((__tmp150412 + (let ((__tmp150413 + (let ((__tmp150415 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _id137966_ '()))) - (__tmp150409 - (let () (declare (not safe)) (cons _expr137957_ '())))) + (cons _id137971_ '()))) + (__tmp150414 + (let () (declare (not safe)) (cons _expr137962_ '())))) (declare (not safe)) - (cons __tmp150410 __tmp150409)))) + (cons __tmp150415 __tmp150414)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp150408 '()))) - (__tmp150406 + (cons __tmp150413 '()))) + (__tmp150411 (let () (declare (not safe)) - (cons _body137985_ '())))) + (cons _body137990_ '())))) (declare (not safe)) - (cons __tmp150407 __tmp150406)))) + (cons __tmp150412 __tmp150411)))) (declare (not safe)) - (cons '%#let-values __tmp150405)))) + (cons '%#let-values __tmp150410)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp150404 - _stx137956_)))))))) - (__tmp150394 - (let ((__obj149985 + __tmp150409 + _stx137961_)))))))) + (__tmp150399 + (let ((__obj149990 (let () (declare (not safe)) (##structure @@ -14721,3733 +14721,3733 @@ '#f '#f '#f)))) - (gx#local-context:::init! __obj149985) - __obj149985))) + (gx#local-context:::init! __obj149990) + __obj149990))) (declare (not safe)) (call-with-parameters - __tmp150395 + __tmp150400 gx#current-expander-context - __tmp150394))))) + __tmp150399))))) (define gxc#optimize-syntax-case-clauses - (lambda (_clauses136714_ _negation-id136715_) - (letrec ((_xform-e136717_ - (lambda (_expr137101_ - _kont-id137102_ - _kont-box137103_ - _negation-id137104_) - (let* ((___stx149441149442_ _expr137101_) - (_g137110137243_ + (lambda (_clauses136719_ _negation-id136720_) + (letrec ((_xform-e136722_ + (lambda (_expr137106_ + _kont-id137107_ + _kont-box137108_ + _negation-id137109_) + (let* ((___stx149446149447_ _expr137106_) + (_g137115137248_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx149441149442_))))) - (let ((___kont149443149444_ - (lambda (_L137932_ _L137933_ _L137934_) - (let* ((_K137951_ + ___stx149446149447_))))) + (let ((___kont149448149449_ + (lambda (_L137937_ _L137938_ _L137939_) + (let* ((_K137956_ (let () (declare (not safe)) - (_xform-e136717_ - _L137933_ - _kont-id137102_ - _kont-box137103_ - _negation-id137104_))) - (__tmp150411 - (let ((__tmp150412 - (let ((__tmp150413 + (_xform-e136722_ + _L137938_ + _kont-id137107_ + _kont-box137108_ + _negation-id137109_))) + (__tmp150416 + (let ((__tmp150417 + (let ((__tmp150418 (let () (declare (not safe)) - (cons _L137932_ '())))) + (cons _L137937_ '())))) (declare (not safe)) - (cons _K137951_ __tmp150413)))) + (cons _K137956_ __tmp150418)))) (declare (not safe)) - (cons _L137934_ __tmp150412)))) + (cons _L137939_ __tmp150417)))) (declare (not safe)) - (cons '%#if __tmp150411)))) - (___kont149445149446_ - (lambda (_L137848_ - _L137849_ - _L137850_ - _L137851_ - _L137852_) - (let* ((_id137887_ - (let ((__tmp150414 (gensym '__splice))) + (cons '%#if __tmp150416)))) + (___kont149450149451_ + (lambda (_L137853_ + _L137854_ + _L137855_ + _L137856_ + _L137857_) + (let* ((_id137892_ + (let ((__tmp150419 (gensym '__splice))) (declare (not safe)) - (make-symbol__0 __tmp150414))) - (_id137889_ + (make-symbol__0 __tmp150419))) + (_id137894_ (let () (declare (not safe)) - (gx#core-quote-syntax__0 _id137887_))) - (_g150415_ + (gx#core-quote-syntax__0 _id137892_))) + (_g150420_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _id137889_))) - (_body137892_ + _id137894_))) + (_body137897_ (let () (declare (not safe)) - (_xform-e136717_ - _L137848_ - _kont-id137102_ - _kont-box137103_ - _negation-id137104_)))) - (let ((__tmp150416 - (let ((__tmp150441 - (let ((__tmp150442 - (let ((__tmp150450 + (_xform-e136722_ + _L137853_ + _kont-id137107_ + _kont-box137108_ + _negation-id137109_)))) + (let ((__tmp150421 + (let ((__tmp150446 + (let ((__tmp150447 + (let ((__tmp150455 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _id137889_ '()))) - (__tmp150443 - (let ((__tmp150444 - (let ((__tmp150449 + (cons _id137894_ '()))) + (__tmp150448 + (let ((__tmp150449 + (let ((__tmp150454 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#call))) - (__tmp150445 - (let ((__tmp150446 - (let ((__tmp150448 + (__tmp150450 + (let ((__tmp150451 + (let ((__tmp150453 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp150447 + (__tmp150452 (let () (declare (not safe)) - (cons _L137850_ '())))) + (cons _L137855_ '())))) (declare (not safe)) - (cons __tmp150448 __tmp150447)))) + (cons __tmp150453 __tmp150452)))) (declare (not safe)) - (cons __tmp150446 _L137849_)))) + (cons __tmp150451 _L137854_)))) (declare (not safe)) - (cons __tmp150449 __tmp150445)))) + (cons __tmp150454 __tmp150450)))) (declare (not safe)) - (cons __tmp150444 '())))) + (cons __tmp150449 '())))) (declare (not safe)) - (cons __tmp150450 __tmp150443)))) + (cons __tmp150455 __tmp150448)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp150442 '()))) - (__tmp150417 - (let ((__tmp150418 - (let ((__tmp150419 - (let ((__tmp150421 + (cons __tmp150447 '()))) + (__tmp150422 + (let ((__tmp150423 + (let ((__tmp150424 + (let ((__tmp150426 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp150432 - (let ((__tmp150440 + (let ((__tmp150437 + (let ((__tmp150445 (let () (declare (not safe)) - (cons _L137852_ '()))) - (__tmp150433 - (let ((__tmp150434 - (let ((__tmp150435 - (let ((__tmp150436 - (let ((__tmp150438 + (cons _L137857_ '()))) + (__tmp150438 + (let ((__tmp150439 + (let ((__tmp150440 + (let ((__tmp150441 + (let ((__tmp150443 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp150439 + (let ((__tmp150444 (let () (declare (not safe)) - (cons _id137889_ '())))) + (cons _id137894_ '())))) (declare (not safe)) - (cons '%#ref __tmp150439))) - (__tmp150437 + (cons '%#ref __tmp150444))) + (__tmp150442 (let () (declare (not safe)) (cons '(%#quote 0) '())))) (declare (not safe)) - (cons __tmp150438 __tmp150437)))) + (cons __tmp150443 __tmp150442)))) (declare (not safe)) - (cons '(%#ref ##vector-ref) __tmp150436)))) + (cons '(%#ref ##vector-ref) __tmp150441)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#call - __tmp150435)))) + __tmp150440)))) (declare (not safe)) - (cons __tmp150434 '())))) + (cons __tmp150439 '())))) (declare (not safe)) - (cons __tmp150440 __tmp150433))) - (__tmp150422 - (let ((__tmp150423 - (let ((__tmp150431 + (cons __tmp150445 __tmp150438))) + (__tmp150427 + (let ((__tmp150428 + (let ((__tmp150436 (let () (declare (not safe)) - (cons _L137851_ '()))) - (__tmp150424 - (let ((__tmp150425 - (let ((__tmp150426 - (let ((__tmp150427 + (cons _L137856_ '()))) + (__tmp150429 + (let ((__tmp150430 + (let ((__tmp150431 + (let ((__tmp150432 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp150429 - (let ((__tmp150430 + (let ((__tmp150434 + (let ((__tmp150435 (let () (declare (not safe)) - (cons _id137889_ '())))) + (cons _id137894_ '())))) (declare (not safe)) - (cons '%#ref __tmp150430))) - (__tmp150428 + (cons '%#ref __tmp150435))) + (__tmp150433 (let () (declare (not safe)) (cons '(%#quote 1) '())))) (declare (not safe)) - (cons __tmp150429 __tmp150428)))) + (cons __tmp150434 __tmp150433)))) (declare (not safe)) - (cons '(%#ref ##vector-ref) __tmp150427)))) + (cons '(%#ref ##vector-ref) __tmp150432)))) (declare (not safe)) - (cons '%#call __tmp150426)))) + (cons '%#call __tmp150431)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp150425 '())))) + (cons __tmp150430 '())))) (declare (not safe)) - (cons __tmp150431 __tmp150424)))) + (cons __tmp150436 __tmp150429)))) (declare (not safe)) - (cons __tmp150423 '())))) + (cons __tmp150428 '())))) (declare (not safe)) - (cons __tmp150432 __tmp150422))) - (__tmp150420 + (cons __tmp150437 __tmp150427))) + (__tmp150425 (let () (declare (not safe)) - (cons _body137892_ '())))) + (cons _body137897_ '())))) (declare (not safe)) - (cons __tmp150421 __tmp150420)))) + (cons __tmp150426 __tmp150425)))) (declare (not safe)) - (cons '%#let-values __tmp150419)))) + (cons '%#let-values __tmp150424)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp150418 '())))) + (cons __tmp150423 '())))) (declare (not safe)) - (cons __tmp150441 __tmp150417)))) + (cons __tmp150446 __tmp150422)))) (declare (not safe)) - (cons '%#let-values __tmp150416))))) - (___kont149447149448_ - (lambda (_L137730_ _L137731_) - (let* ((_body137745_ + (cons '%#let-values __tmp150421))))) + (___kont149452149453_ + (lambda (_L137735_ _L137736_) + (let* ((_body137750_ (let () (declare (not safe)) - (_xform-e136717_ - _L137730_ - _kont-id137102_ - _kont-box137103_ - _negation-id137104_))) - (__tmp150451 - (let ((__tmp150452 + (_xform-e136722_ + _L137735_ + _kont-id137107_ + _kont-box137108_ + _negation-id137109_))) + (__tmp150456 + (let ((__tmp150457 (let () (declare (not safe)) - (cons _body137745_ '())))) + (cons _body137750_ '())))) (declare (not safe)) - (cons _L137731_ __tmp150452)))) + (cons _L137736_ __tmp150457)))) (declare (not safe)) - (cons '%#let-values __tmp150451)))) - (___kont149449149450_ - (lambda (_L137674_ _L137675_ _L137676_) - (let* ((_lambda-expr137699_ + (cons '%#let-values __tmp150456)))) + (___kont149454149455_ + (lambda (_L137679_ _L137680_ _L137681_) + (let* ((_lambda-expr137704_ (let () (declare (not safe)) - (_xform-loop-e136718_ - _L137675_ - _kont-id137102_ - _kont-box137103_ - _negation-id137104_))) - (__tmp150453 - (let ((__tmp150455 - (let ((__tmp150456 - (let ((__tmp150458 + (_xform-loop-e136723_ + _L137680_ + _kont-id137107_ + _kont-box137108_ + _negation-id137109_))) + (__tmp150458 + (let ((__tmp150460 + (let ((__tmp150461 + (let ((__tmp150463 (let () (declare (not safe)) - (cons _L137676_ + (cons _L137681_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) - (__tmp150457 + (__tmp150462 (let () (declare (not safe)) - (cons _lambda-expr137699_ '())))) + (cons _lambda-expr137704_ '())))) (declare (not safe)) - (cons __tmp150458 __tmp150457)))) + (cons __tmp150463 __tmp150462)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp150456 '()))) - (__tmp150454 + (cons __tmp150461 '()))) + (__tmp150459 (let () (declare (not safe)) - (cons _L137674_ '())))) + (cons _L137679_ '())))) (declare (not safe)) - (cons __tmp150455 __tmp150454)))) + (cons __tmp150460 __tmp150459)))) (declare (not safe)) - (cons '%#letrec-values __tmp150453)))) - (___kont149451149452_ - (lambda (_L137336_ _L137337_ _L137338_) - (let* ((___stx149343149344_ _L137337_) - (_g137367137410_ + (cons '%#letrec-values __tmp150458)))) + (___kont149456149457_ + (lambda (_L137341_ _L137342_ _L137343_) + (let* ((___stx149348149349_ _L137342_) + (_g137372137415_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx149343149344_))))) - (let ((___kont149345149346_ - (lambda (_L137526_ - _L137527_ - _L137528_ - _L137529_) - (let ((_kont137570_ - (let ((__tmp150463 + ___stx149348149349_))))) + (let ((___kont149350149351_ + (lambda (_L137531_ + _L137532_ + _L137533_ + _L137534_) + (let ((_kont137575_ + (let ((__tmp150468 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda))) - (__tmp150459 - (let ((__tmp150461 - (let ((__tmp150462 + (__tmp150464 + (let ((__tmp150466 + (let ((__tmp150467 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g137562137565_ _g137563137567_) + (lambda (_g137567137570_ _g137568137572_) (let () (declare (not safe)) - (cons _g137562137565_ _g137563137567_))))) + (cons _g137567137570_ _g137568137572_))))) (declare (not safe)) - (foldr1 __tmp150462 '() _L137338_))) - (__tmp150460 - (let () (declare (not safe)) (cons _L137528_ '())))) + (foldr1 __tmp150467 '() _L137343_))) + (__tmp150465 + (let () (declare (not safe)) (cons _L137533_ '())))) (declare (not safe)) - (cons __tmp150461 __tmp150460)))) + (cons __tmp150466 __tmp150465)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp150463 - __tmp150459)))) + (cons __tmp150468 + __tmp150464)))) (set-box! - _kont-box137103_ - _kont137570_) - (let* ((_kont-args137581_ - (map (lambda (_id137572_) - (let ((__tmp150464 + _kont-box137108_ + _kont137575_) + (let* ((_kont-args137586_ + (map (lambda (_id137577_) + (let ((__tmp150469 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _id137572_ '())))) + (let () (declare (not safe)) (cons _id137577_ '())))) (declare (not safe)) - (cons '%#ref __tmp150464))) - (let ((__tmp150465 - (lambda (_g137573137576_ _g137574137578_) + (cons '%#ref __tmp150469))) + (let ((__tmp150470 + (lambda (_g137578137581_ _g137579137583_) (let () (declare (not safe)) - (cons _g137573137576_ _g137574137578_))))) + (cons _g137578137581_ _g137579137583_))))) (declare (not safe)) - (foldr1 __tmp150465 '() _L137338_)))) + (foldr1 __tmp150470 '() _L137343_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_body137583_ - (let ((__tmp150466 - (let ((__tmp150467 + (_body137588_ + (let ((__tmp150471 + (let ((__tmp150472 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp150479 - (let ((__tmp150480 - (let ((__tmp150481 - (let ((__tmp150482 + (let ((__tmp150484 + (let ((__tmp150485 + (let ((__tmp150486 + (let ((__tmp150487 (let () (declare (not safe)) - (cons _kont-id137102_ + (cons _kont-id137107_ '())))) (declare (not safe)) - (cons '%#ref __tmp150482)))) + (cons '%#ref __tmp150487)))) (declare (not safe)) - (cons __tmp150481 - _kont-args137581_)))) + (cons __tmp150486 + _kont-args137586_)))) (declare (not safe)) - (cons '%#call __tmp150480))) - (__tmp150468 - (let ((__tmp150469 - (let ((__tmp150478 + (cons '%#call __tmp150485))) + (__tmp150473 + (let ((__tmp150474 + (let ((__tmp150483 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#call))) - (__tmp150470 - (let ((__tmp150475 - (let ((__tmp150477 + (__tmp150475 + (let ((__tmp150480 + (let ((__tmp150482 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp150476 - (let () (declare (not safe)) (cons _L137527_ '())))) + (__tmp150481 + (let () (declare (not safe)) (cons _L137532_ '())))) (declare (not safe)) - (cons __tmp150477 __tmp150476))) + (cons __tmp150482 __tmp150481))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp150471 - (let ((__tmp150472 - (let ((__tmp150474 + (__tmp150476 + (let ((__tmp150477 + (let ((__tmp150479 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp150473 + (__tmp150478 (let () (declare (not safe)) - (cons _L137526_ '())))) + (cons _L137531_ '())))) (declare (not safe)) - (cons __tmp150474 __tmp150473)))) + (cons __tmp150479 __tmp150478)))) (declare (not safe)) - (cons __tmp150472 '())))) + (cons __tmp150477 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp150475 - __tmp150471)))) + (cons __tmp150480 + __tmp150476)))) (declare (not safe)) - (cons __tmp150478 __tmp150470)))) + (cons __tmp150483 __tmp150475)))) (declare (not safe)) - (cons __tmp150469 '())))) + (cons __tmp150474 '())))) (declare (not safe)) - (cons __tmp150479 __tmp150468)))) + (cons __tmp150484 __tmp150473)))) (declare (not safe)) - (cons _L137529_ __tmp150467)))) + (cons _L137534_ __tmp150472)))) (declare (not safe)) - (cons '%#if __tmp150466)))) + (cons '%#if __tmp150471)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (let ((__tmp150490 - (let ((__tmp150491 - (lambda (_g137585137588_ + (if (let ((__tmp150495 + (let ((__tmp150496 + (lambda (_g137590137593_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g137586137590_) + _g137591137595_) (let () (declare (not safe)) - (cons _g137585137588_ _g137586137590_))))) + (cons _g137590137593_ _g137591137595_))))) (declare (not safe)) - (foldr1 __tmp150491 '() _L137338_)))) + (foldr1 __tmp150496 '() _L137343_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (null? __tmp150490)) - _body137583_ - (let ((__tmp150483 - (let ((__tmp150485 - (map (lambda (_id137593_ + (null? __tmp150495)) + _body137588_ + (let ((__tmp150488 + (let ((__tmp150490 + (map (lambda (_id137598_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _arg137594_) - (let ((__tmp150487 + _arg137599_) + (let ((__tmp150492 (let () (declare (not safe)) - (cons _id137593_ '()))) - (__tmp150486 + (cons _id137598_ '()))) + (__tmp150491 (let () (declare (not safe)) - (cons _arg137594_ '())))) + (cons _arg137599_ '())))) (declare (not safe)) - (cons __tmp150487 __tmp150486))) - (let ((__tmp150488 - (lambda (_g137595137598_ _g137596137600_) + (cons __tmp150492 __tmp150491))) + (let ((__tmp150493 + (lambda (_g137600137603_ _g137601137605_) (let () (declare (not safe)) - (cons _g137595137598_ - _g137596137600_))))) + (cons _g137600137603_ + _g137601137605_))))) (declare (not safe)) - (foldr1 __tmp150488 '() _L137338_)) - (let ((__tmp150489 - (lambda (_g137602137605_ _g137603137607_) + (foldr1 __tmp150493 '() _L137343_)) + (let ((__tmp150494 + (lambda (_g137607137610_ _g137608137612_) (let () (declare (not safe)) - (cons _g137602137605_ - _g137603137607_))))) + (cons _g137607137610_ + _g137608137612_))))) (declare (not safe)) - (foldr1 __tmp150489 '() _L137336_)))) - (__tmp150484 - (let () (declare (not safe)) (cons _body137583_ '())))) + (foldr1 __tmp150494 '() _L137341_)))) + (__tmp150489 + (let () (declare (not safe)) (cons _body137588_ '())))) (declare (not safe)) - (cons __tmp150485 __tmp150484)))) + (cons __tmp150490 __tmp150489)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#let-values - __tmp150483))))))) - (___kont149347149348_ + __tmp150488))))))) + (___kont149352149353_ (lambda () - (let ((_kont137424_ - (let ((__tmp150496 + (let ((_kont137429_ + (let ((__tmp150501 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda))) - (__tmp150492 - (let ((__tmp150494 - (let ((__tmp150495 + (__tmp150497 + (let ((__tmp150499 + (let ((__tmp150500 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g137416137419_ _g137417137421_) + (lambda (_g137421137424_ _g137422137426_) (let () (declare (not safe)) - (cons _g137416137419_ _g137417137421_))))) + (cons _g137421137424_ _g137422137426_))))) (declare (not safe)) - (foldr1 __tmp150495 '() _L137338_))) - (__tmp150493 - (let () (declare (not safe)) (cons _L137337_ '())))) + (foldr1 __tmp150500 '() _L137343_))) + (__tmp150498 + (let () (declare (not safe)) (cons _L137342_ '())))) (declare (not safe)) - (cons __tmp150494 __tmp150493)))) + (cons __tmp150499 __tmp150498)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp150496 - __tmp150492)))) + (cons __tmp150501 + __tmp150497)))) (set-box! - _kont-box137103_ - _kont137424_) - (let ((__tmp150497 - (let ((__tmp150500 - (let ((__tmp150501 + _kont-box137108_ + _kont137429_) + (let ((__tmp150502 + (let ((__tmp150505 + (let ((__tmp150506 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _kont-id137102_ '())))) + (cons _kont-id137107_ '())))) (declare (not safe)) - (cons '%#ref __tmp150501))) - (__tmp150498 - (let ((__tmp150499 - (lambda (_g137425137428_ _g137426137430_) + (cons '%#ref __tmp150506))) + (__tmp150503 + (let ((__tmp150504 + (lambda (_g137430137433_ _g137431137435_) (let () (declare (not safe)) - (cons _g137425137428_ _g137426137430_))))) + (cons _g137430137433_ _g137431137435_))))) (declare (not safe)) - (foldr1 __tmp150499 '() _L137336_)))) + (foldr1 __tmp150504 '() _L137341_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp150500 - __tmp150498)))) + (cons __tmp150505 + __tmp150503)))) (declare (not safe)) - (cons '%#call __tmp150497)))))) - (let ((___match149438149439_ - (lambda (_e137375137438_ - _hd137374137441_ - _tl137373137443_ - _e137378137446_ - _hd137377137449_ - _tl137376137451_ - _e137381137454_ - _hd137380137457_ - _tl137379137459_ - _e137384137462_ - _hd137383137465_ - _tl137382137467_ - _e137387137470_ - _hd137386137473_ - _tl137385137475_ - _e137390137478_ - _hd137389137481_ - _tl137388137483_ - _e137393137486_ - _hd137392137489_ - _tl137391137491_ - _e137396137494_ - _hd137395137497_ - _tl137394137499_ - _e137399137502_ - _hd137398137505_ - _tl137397137507_ - _e137402137510_ - _hd137401137513_ - _tl137400137515_ - _e137405137518_ - _hd137404137521_ - _tl137403137523_) - (let ((_L137526_ _hd137404137521_) - (_L137527_ _hd137395137497_) - (_L137528_ _hd137380137457_) - (_L137529_ _hd137377137449_)) + (cons '%#call __tmp150502)))))) + (let ((___match149443149444_ + (lambda (_e137380137443_ + _hd137379137446_ + _tl137378137448_ + _e137383137451_ + _hd137382137454_ + _tl137381137456_ + _e137386137459_ + _hd137385137462_ + _tl137384137464_ + _e137389137467_ + _hd137388137470_ + _tl137387137472_ + _e137392137475_ + _hd137391137478_ + _tl137390137480_ + _e137395137483_ + _hd137394137486_ + _tl137393137488_ + _e137398137491_ + _hd137397137494_ + _tl137396137496_ + _e137401137499_ + _hd137400137502_ + _tl137399137504_ + _e137404137507_ + _hd137403137510_ + _tl137402137512_ + _e137407137515_ + _hd137406137518_ + _tl137405137520_ + _e137410137523_ + _hd137409137526_ + _tl137408137528_) + (let ((_L137531_ _hd137409137526_) + (_L137532_ _hd137400137502_) + (_L137533_ _hd137385137462_) + (_L137534_ _hd137382137454_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _L137527_ - _negation-id137104_)) - (___kont149345149346_ - _L137526_ - _L137527_ - _L137528_ - _L137529_) - (___kont149347149348_)))))) + _L137532_ + _negation-id137109_)) + (___kont149350149351_ + _L137531_ + _L137532_ + _L137533_ + _L137534_) + (___kont149352149353_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx149343149344_)) - (let ((_e137375137438_ + (gx#stx-pair? ___stx149348149349_)) + (let ((_e137380137443_ (let () (declare (not safe)) (gx#stx-e - ___stx149343149344_)))) - (let ((_tl137373137443_ + ___stx149348149349_)))) + (let ((_tl137378137448_ (let () (declare (not safe)) - (##cdr _e137375137438_))) - (_hd137374137441_ + (##cdr _e137380137443_))) + (_hd137379137446_ (let () (declare (not safe)) - (##car _e137375137438_)))) + (##car _e137380137443_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd137374137441_)) + _hd137379137446_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _hd137374137441_)) + _hd137379137446_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl137373137443_)) - (let ((_e137378137446_ + _tl137378137448_)) + (let ((_e137383137451_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl137373137443_)))) - (let ((_tl137376137451_ + (gx#stx-e _tl137378137448_)))) + (let ((_tl137381137456_ (let () (declare (not safe)) - (##cdr _e137378137446_))) - (_hd137377137449_ + (##cdr _e137383137451_))) + (_hd137382137454_ (let () (declare (not safe)) - (##car _e137378137446_)))) + (##car _e137383137451_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl137376137451_)) - (let ((_e137381137454_ + (gx#stx-pair? _tl137381137456_)) + (let ((_e137386137459_ (let () (declare (not safe)) - (gx#stx-e _tl137376137451_)))) - (let ((_tl137379137459_ + (gx#stx-e _tl137381137456_)))) + (let ((_tl137384137464_ (let () (declare (not safe)) - (##cdr _e137381137454_))) - (_hd137380137457_ + (##cdr _e137386137459_))) + (_hd137385137462_ (let () (declare (not safe)) - (##car _e137381137454_)))) + (##car _e137386137459_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl137379137459_)) - (let ((_e137384137462_ + (gx#stx-pair? _tl137384137464_)) + (let ((_e137389137467_ (let () (declare (not safe)) - (gx#stx-e _tl137379137459_)))) - (let ((_tl137382137467_ + (gx#stx-e _tl137384137464_)))) + (let ((_tl137387137472_ (let () (declare (not safe)) - (##cdr _e137384137462_))) - (_hd137383137465_ + (##cdr _e137389137467_))) + (_hd137388137470_ (let () (declare (not safe)) - (##car _e137384137462_)))) + (##car _e137389137467_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd137383137465_)) - (let ((_e137387137470_ + (gx#stx-pair? _hd137388137470_)) + (let ((_e137392137475_ (let () (declare (not safe)) (gx#stx-e - _hd137383137465_)))) - (let ((_tl137385137475_ + _hd137388137470_)))) + (let ((_tl137390137480_ (let () (declare (not safe)) - (##cdr _e137387137470_))) - (_hd137386137473_ + (##cdr _e137392137475_))) + (_hd137391137478_ (let () (declare (not safe)) - (##car _e137387137470_)))) + (##car _e137392137475_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd137386137473_)) + _hd137391137478_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd137386137473_)) + _hd137391137478_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl137385137475_)) - (let ((_e137390137478_ + _tl137390137480_)) + (let ((_e137395137483_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl137385137475_)))) - (let ((_tl137388137483_ + (gx#stx-e _tl137390137480_)))) + (let ((_tl137393137488_ (let () (declare (not safe)) - (##cdr _e137390137478_))) - (_hd137389137481_ + (##cdr _e137395137483_))) + (_hd137394137486_ (let () (declare (not safe)) - (##car _e137390137478_)))) + (##car _e137395137483_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd137389137481_)) - (let ((_e137393137486_ + (gx#stx-pair? _hd137394137486_)) + (let ((_e137398137491_ (let () (declare (not safe)) - (gx#stx-e _hd137389137481_)))) - (let ((_tl137391137491_ + (gx#stx-e _hd137394137486_)))) + (let ((_tl137396137496_ (let () (declare (not safe)) - (##cdr _e137393137486_))) - (_hd137392137489_ + (##cdr _e137398137491_))) + (_hd137397137494_ (let () (declare (not safe)) - (##car _e137393137486_)))) + (##car _e137398137491_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd137392137489_)) + (gx#identifier? _hd137397137494_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd137392137489_)) + (gx#stx-eq? '%#ref _hd137397137494_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl137391137491_)) - (let ((_e137396137494_ + (gx#stx-pair? _tl137396137496_)) + (let ((_e137401137499_ (let () (declare (not safe)) (gx#stx-e - _tl137391137491_)))) - (let ((_tl137394137499_ + _tl137396137496_)))) + (let ((_tl137399137504_ (let () (declare (not safe)) - (##cdr _e137396137494_))) - (_hd137395137497_ + (##cdr _e137401137499_))) + (_hd137400137502_ (let () (declare (not safe)) - (##car _e137396137494_)))) + (##car _e137401137499_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl137394137499_)) + _tl137399137504_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl137388137483_)) - (let ((_e137399137502_ + _tl137393137488_)) + (let ((_e137404137507_ (let () (declare (not safe)) (gx#stx-e - _tl137388137483_)))) - (let ((_tl137397137507_ + _tl137393137488_)))) + (let ((_tl137402137512_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e137399137502_))) - (_hd137398137505_ - (let () (declare (not safe)) (##car _e137399137502_)))) + (##cdr _e137404137507_))) + (_hd137403137510_ + (let () (declare (not safe)) (##car _e137404137507_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd137398137505_)) - (let ((_e137402137510_ + (gx#stx-pair? _hd137403137510_)) + (let ((_e137407137515_ (let () (declare (not safe)) - (gx#stx-e _hd137398137505_)))) - (let ((_tl137400137515_ + (gx#stx-e _hd137403137510_)))) + (let ((_tl137405137520_ (let () (declare (not safe)) - (##cdr _e137402137510_))) - (_hd137401137513_ + (##cdr _e137407137515_))) + (_hd137406137518_ (let () (declare (not safe)) - (##car _e137402137510_)))) + (##car _e137407137515_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd137401137513_)) + (gx#identifier? _hd137406137518_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd137401137513_)) + (gx#stx-eq? '%#ref _hd137406137518_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl137400137515_)) - (let ((_e137405137518_ + (gx#stx-pair? _tl137405137520_)) + (let ((_e137410137523_ (let () (declare (not safe)) - (gx#stx-e _tl137400137515_)))) - (let ((_tl137403137523_ + (gx#stx-e _tl137405137520_)))) + (let ((_tl137408137528_ (let () (declare (not safe)) - (##cdr _e137405137518_))) - (_hd137404137521_ + (##cdr _e137410137523_))) + (_hd137409137526_ (let () (declare (not safe)) - (##car _e137405137518_)))) + (##car _e137410137523_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl137403137523_)) + (gx#stx-null? _tl137408137528_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl137397137507_)) + _tl137402137512_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl137382137467_)) - (___match149438149439_ - _e137375137438_ - _hd137374137441_ - _tl137373137443_ - _e137378137446_ - _hd137377137449_ - _tl137376137451_ - _e137381137454_ - _hd137380137457_ - _tl137379137459_ - _e137384137462_ - _hd137383137465_ - _tl137382137467_ - _e137387137470_ - _hd137386137473_ - _tl137385137475_ - _e137390137478_ - _hd137389137481_ - _tl137388137483_ - _e137393137486_ - _hd137392137489_ - _tl137391137491_ - _e137396137494_ - _hd137395137497_ - _tl137394137499_ - _e137399137502_ - _hd137398137505_ - _tl137397137507_ - _e137402137510_ - _hd137401137513_ - _tl137400137515_ - _e137405137518_ - _hd137404137521_ - _tl137403137523_) - (___kont149347149348_)) - (___kont149347149348_)) - (___kont149347149348_)))) - (___kont149347149348_)) - (___kont149347149348_)) - (___kont149347149348_)))) - (___kont149347149348_)))) + _tl137387137472_)) + (___match149443149444_ + _e137380137443_ + _hd137379137446_ + _tl137378137448_ + _e137383137451_ + _hd137382137454_ + _tl137381137456_ + _e137386137459_ + _hd137385137462_ + _tl137384137464_ + _e137389137467_ + _hd137388137470_ + _tl137387137472_ + _e137392137475_ + _hd137391137478_ + _tl137390137480_ + _e137395137483_ + _hd137394137486_ + _tl137393137488_ + _e137398137491_ + _hd137397137494_ + _tl137396137496_ + _e137401137499_ + _hd137400137502_ + _tl137399137504_ + _e137404137507_ + _hd137403137510_ + _tl137402137512_ + _e137407137515_ + _hd137406137518_ + _tl137405137520_ + _e137410137523_ + _hd137409137526_ + _tl137408137528_) + (___kont149352149353_)) + (___kont149352149353_)) + (___kont149352149353_)))) + (___kont149352149353_)) + (___kont149352149353_)) + (___kont149352149353_)))) + (___kont149352149353_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont149347149348_)) - (___kont149347149348_)))) - (___kont149347149348_)) - (___kont149347149348_)) - (___kont149347149348_)))) - (___kont149347149348_)))) - (___kont149347149348_)) + (___kont149352149353_)) + (___kont149352149353_)))) + (___kont149352149353_)) + (___kont149352149353_)) + (___kont149352149353_)))) + (___kont149352149353_)))) + (___kont149352149353_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont149347149348_)) - (___kont149347149348_)))) - (___kont149347149348_)))) - (___kont149347149348_)))) - (___kont149347149348_)))) - (___kont149347149348_)) + (___kont149352149353_)) + (___kont149352149353_)))) + (___kont149352149353_)))) + (___kont149352149353_)))) + (___kont149352149353_)))) + (___kont149352149353_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont149347149348_)) - (___kont149347149348_)))) - (___kont149347149348_)))))))) - (let* ((___match149698149699_ - (lambda (_e137208137248_ - _hd137207137251_ - _tl137206137253_ - _e137211137256_ - _hd137210137259_ - _tl137209137261_ - _e137214137264_ - _hd137213137267_ - _tl137212137269_ - _e137217137272_ - _hd137216137275_ - _tl137215137277_ - ___splice149453149454_ - _target137218137280_ - _tl137220137282_) - (letrec ((_loop137221137285_ - (lambda (_hd137219137288_ - _id137225137290_) + (___kont149352149353_)) + (___kont149352149353_)))) + (___kont149352149353_)))))))) + (let* ((___match149703149704_ + (lambda (_e137213137253_ + _hd137212137256_ + _tl137211137258_ + _e137216137261_ + _hd137215137264_ + _tl137214137266_ + _e137219137269_ + _hd137218137272_ + _tl137217137274_ + _e137222137277_ + _hd137221137280_ + _tl137220137282_ + ___splice149458149459_ + _target137223137285_ + _tl137225137287_) + (letrec ((_loop137226137290_ + (lambda (_hd137224137293_ + _id137230137295_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd137219137288_)) - (let ((_e137222137293_ + _hd137224137293_)) + (let ((_e137227137298_ (let () (declare (not safe)) (gx#stx-e - _hd137219137288_)))) - (let ((_lp-tl137224137298_ + _hd137224137293_)))) + (let ((_lp-tl137229137303_ (let () (declare (not safe)) - (##cdr _e137222137293_))) - (_lp-hd137223137296_ + (##cdr _e137227137298_))) + (_lp-hd137228137301_ (let () (declare (not safe)) - (##car _e137222137293_)))) - (let ((__tmp150503 + (##car _e137227137298_)))) + (let ((__tmp150508 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _lp-hd137223137296_ _id137225137290_)))) + (cons _lp-hd137228137301_ _id137230137295_)))) (declare (not safe)) - (_loop137221137285_ _lp-tl137224137298_ __tmp150503)))) + (_loop137226137290_ _lp-tl137229137303_ __tmp150508)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_id137226137301_ - (reverse _id137225137290_))) + (let ((_id137231137306_ + (reverse _id137230137295_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl137215137277_)) - (let ((_e137229137304_ + _tl137220137282_)) + (let ((_e137234137309_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl137215137277_)))) - (let ((_tl137227137309_ - (let () (declare (not safe)) (##cdr _e137229137304_))) - (_hd137228137307_ + (gx#stx-e _tl137220137282_)))) + (let ((_tl137232137314_ + (let () (declare (not safe)) (##cdr _e137234137309_))) + (_hd137233137312_ (let () (declare (not safe)) - (##car _e137229137304_)))) + (##car _e137234137309_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl137227137309_)) + (gx#stx-null? _tl137232137314_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl137209137261_)) - (let ((___splice149455149456_ + (gx#stx-pair/null? _tl137214137266_)) + (let ((___splice149460149461_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl137209137261_ + _tl137214137266_ '0)))) - (let ((_tl137232137314_ + (let ((_tl137237137319_ (let () (declare (not safe)) (##vector-ref - ___splice149455149456_ + ___splice149460149461_ '1))) - (_target137230137312_ + (_target137235137317_ (let () (declare (not safe)) (##vector-ref - ___splice149455149456_ + ___splice149460149461_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl137232137314_)) - (letrec ((_loop137233137317_ - (lambda (_hd137231137320_ - _arg137237137322_) + (gx#stx-null? _tl137237137319_)) + (letrec ((_loop137238137322_ + (lambda (_hd137236137325_ + _arg137242137327_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd137231137320_)) - (let ((_e137234137325_ + _hd137236137325_)) + (let ((_e137239137330_ (let () (declare (not safe)) (gx#stx-e - _hd137231137320_)))) - (let ((_lp-tl137236137330_ + _hd137236137325_)))) + (let ((_lp-tl137241137335_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e137234137325_))) - (_lp-hd137235137328_ - (let () (declare (not safe)) (##car _e137234137325_)))) - (let ((__tmp150502 + (##cdr _e137239137330_))) + (_lp-hd137240137333_ + (let () (declare (not safe)) (##car _e137239137330_)))) + (let ((__tmp150507 (let () (declare (not safe)) - (cons _lp-hd137235137328_ _arg137237137322_)))) + (cons _lp-hd137240137333_ _arg137242137327_)))) (declare (not safe)) - (_loop137233137317_ _lp-tl137236137330_ __tmp150502)))) + (_loop137238137322_ _lp-tl137241137335_ __tmp150507)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_arg137238137333_ - (reverse _arg137237137322_))) - (___kont149451149452_ - _arg137238137333_ - _hd137228137307_ - _id137226137301_)))))) + (let ((_arg137243137338_ + (reverse _arg137242137327_))) + (___kont149456149457_ + _arg137243137338_ + _hd137233137312_ + _id137231137306_)))))) (let () (declare (not safe)) - (_loop137233137317_ - _target137230137312_ + (_loop137238137322_ + _target137235137317_ '()))) (let () (declare (not safe)) - (_g137110137243_))))) - (let () (declare (not safe)) (_g137110137243_))) - (let () (declare (not safe)) (_g137110137243_))))) - (let () (declare (not safe)) (_g137110137243_)))))))) + (_g137115137248_))))) + (let () (declare (not safe)) (_g137115137248_))) + (let () (declare (not safe)) (_g137115137248_))))) + (let () (declare (not safe)) (_g137115137248_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop137221137285_ - _target137218137280_ + (_loop137226137290_ + _target137223137285_ '()))))) - (___match149580149581_ - (lambda (_e137134137752_ - _hd137133137755_ - _tl137132137757_ - _e137137137760_ - _hd137136137763_ - _tl137135137765_ - _e137140137768_ - _hd137139137771_ - _tl137138137773_ - _e137143137776_ - _hd137142137779_ - _tl137141137781_ - _e137146137784_ - _hd137145137787_ - _tl137144137789_ - _e137149137792_ - _hd137148137795_ - _tl137147137797_ - _e137152137800_ - _hd137151137803_ - _tl137150137805_ - _e137155137808_ - _hd137154137811_ - _tl137153137813_ - _e137158137816_ - _hd137157137819_ - _tl137156137821_ - _e137161137824_ - _hd137160137827_ - _tl137159137829_ - _e137164137832_ - _hd137163137835_ - _tl137162137837_ - _e137167137840_ - _hd137166137843_ - _tl137165137845_) - (let ((_L137848_ _hd137166137843_) - (_L137849_ _tl137156137821_) - (_L137850_ _hd137163137835_) - (_L137851_ _hd137148137795_) - (_L137852_ _hd137145137787_)) + (___match149585149586_ + (lambda (_e137139137757_ + _hd137138137760_ + _tl137137137762_ + _e137142137765_ + _hd137141137768_ + _tl137140137770_ + _e137145137773_ + _hd137144137776_ + _tl137143137778_ + _e137148137781_ + _hd137147137784_ + _tl137146137786_ + _e137151137789_ + _hd137150137792_ + _tl137149137794_ + _e137154137797_ + _hd137153137800_ + _tl137152137802_ + _e137157137805_ + _hd137156137808_ + _tl137155137810_ + _e137160137813_ + _hd137159137816_ + _tl137158137818_ + _e137163137821_ + _hd137162137824_ + _tl137161137826_ + _e137166137829_ + _hd137165137832_ + _tl137164137834_ + _e137169137837_ + _hd137168137840_ + _tl137167137842_ + _e137172137845_ + _hd137171137848_ + _tl137170137850_) + (let ((_L137853_ _hd137171137848_) + (_L137854_ _tl137161137826_) + (_L137855_ _hd137168137840_) + (_L137856_ _hd137153137800_) + (_L137857_ _hd137150137792_)) (if (let () (declare (not safe)) (gxc#runtime-identifier=? - _L137850_ + _L137855_ 'gx#syntax-split-splice)) - (___kont149445149446_ - _L137848_ - _L137849_ - _L137850_ - _L137851_ - _L137852_) - (___kont149447149448_ - _hd137166137843_ - _hd137136137763_)))))) + (___kont149450149451_ + _L137853_ + _L137854_ + _L137855_ + _L137856_ + _L137857_) + (___kont149452149453_ + _hd137171137848_ + _hd137141137768_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx149441149442_)) - (let ((_e137117137900_ + (gx#stx-pair? ___stx149446149447_)) + (let ((_e137122137905_ (let () (declare (not safe)) - (gx#stx-e ___stx149441149442_)))) - (let ((_tl137115137905_ + (gx#stx-e ___stx149446149447_)))) + (let ((_tl137120137910_ (let () (declare (not safe)) - (##cdr _e137117137900_))) - (_hd137116137903_ + (##cdr _e137122137905_))) + (_hd137121137908_ (let () (declare (not safe)) - (##car _e137117137900_)))) + (##car _e137122137905_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd137116137903_)) + (gx#identifier? _hd137121137908_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _hd137116137903_)) + _hd137121137908_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl137115137905_)) - (let ((_e137120137908_ + _tl137120137910_)) + (let ((_e137125137913_ (let () (declare (not safe)) (gx#stx-e - _tl137115137905_)))) - (let ((_tl137118137913_ + _tl137120137910_)))) + (let ((_tl137123137918_ (let () (declare (not safe)) - (##cdr _e137120137908_))) - (_hd137119137911_ + (##cdr _e137125137913_))) + (_hd137124137916_ (let () (declare (not safe)) - (##car _e137120137908_)))) + (##car _e137125137913_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl137118137913_)) - (let ((_e137123137916_ + _tl137123137918_)) + (let ((_e137128137921_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl137118137913_)))) - (let ((_tl137121137921_ - (let () (declare (not safe)) (##cdr _e137123137916_))) - (_hd137122137919_ - (let () (declare (not safe)) (##car _e137123137916_)))) + (gx#stx-e _tl137123137918_)))) + (let ((_tl137126137926_ + (let () (declare (not safe)) (##cdr _e137128137921_))) + (_hd137127137924_ + (let () (declare (not safe)) (##car _e137128137921_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl137121137921_)) - (let ((_e137126137924_ + (gx#stx-pair? _tl137126137926_)) + (let ((_e137131137929_ (let () (declare (not safe)) - (gx#stx-e _tl137121137921_)))) - (let ((_tl137124137929_ + (gx#stx-e _tl137126137926_)))) + (let ((_tl137129137934_ (let () (declare (not safe)) - (##cdr _e137126137924_))) - (_hd137125137927_ + (##cdr _e137131137929_))) + (_hd137130137932_ (let () (declare (not safe)) - (##car _e137126137924_)))) + (##car _e137131137929_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl137124137929_)) - (___kont149443149444_ - _hd137125137927_ - _hd137122137919_ - _hd137119137911_) + (gx#stx-null? _tl137129137934_)) + (___kont149448149449_ + _hd137130137932_ + _hd137127137924_ + _hd137124137916_) (let () (declare (not safe)) - (_g137110137243_))))) - (let () (declare (not safe)) (_g137110137243_))))) - (let () (declare (not safe)) (_g137110137243_))))) + (_g137115137248_))))) + (let () (declare (not safe)) (_g137115137248_))))) + (let () (declare (not safe)) (_g137115137248_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g137110137243_))) + (_g137115137248_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd137116137903_)) + _hd137121137908_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl137115137905_)) - (let ((_e137137137760_ + _tl137120137910_)) + (let ((_e137142137765_ (let () (declare (not safe)) (gx#stx-e - _tl137115137905_)))) - (let ((_tl137135137765_ + _tl137120137910_)))) + (let ((_tl137140137770_ (let () (declare (not safe)) - (##cdr _e137137137760_))) - (_hd137136137763_ + (##cdr _e137142137765_))) + (_hd137141137768_ (let () (declare (not safe)) - (##car _e137137137760_)))) + (##car _e137142137765_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd137136137763_)) - (let ((_e137140137768_ + _hd137141137768_)) + (let ((_e137145137773_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd137136137763_)))) - (let ((_tl137138137773_ + (gx#stx-e _hd137141137768_)))) + (let ((_tl137143137778_ (let () (declare (not safe)) - (##cdr _e137140137768_))) - (_hd137139137771_ + (##cdr _e137145137773_))) + (_hd137144137776_ (let () (declare (not safe)) - (##car _e137140137768_)))) + (##car _e137145137773_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd137139137771_)) - (let ((_e137143137776_ + (gx#stx-pair? _hd137144137776_)) + (let ((_e137148137781_ (let () (declare (not safe)) - (gx#stx-e _hd137139137771_)))) - (let ((_tl137141137781_ + (gx#stx-e _hd137144137776_)))) + (let ((_tl137146137786_ (let () (declare (not safe)) - (##cdr _e137143137776_))) - (_hd137142137779_ + (##cdr _e137148137781_))) + (_hd137147137784_ (let () (declare (not safe)) - (##car _e137143137776_)))) + (##car _e137148137781_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd137142137779_)) - (let ((_e137146137784_ + (gx#stx-pair? _hd137147137784_)) + (let ((_e137151137789_ (let () (declare (not safe)) - (gx#stx-e _hd137142137779_)))) - (let ((_tl137144137789_ + (gx#stx-e _hd137147137784_)))) + (let ((_tl137149137794_ (let () (declare (not safe)) - (##cdr _e137146137784_))) - (_hd137145137787_ + (##cdr _e137151137789_))) + (_hd137150137792_ (let () (declare (not safe)) - (##car _e137146137784_)))) + (##car _e137151137789_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl137144137789_)) - (let ((_e137149137792_ + (gx#stx-pair? _tl137149137794_)) + (let ((_e137154137797_ (let () (declare (not safe)) (gx#stx-e - _tl137144137789_)))) - (let ((_tl137147137797_ + _tl137149137794_)))) + (let ((_tl137152137802_ (let () (declare (not safe)) - (##cdr _e137149137792_))) - (_hd137148137795_ + (##cdr _e137154137797_))) + (_hd137153137800_ (let () (declare (not safe)) - (##car _e137149137792_)))) + (##car _e137154137797_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl137147137797_)) + _tl137152137802_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl137141137781_)) - (let ((_e137152137800_ + _tl137146137786_)) + (let ((_e137157137805_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl137141137781_)))) - (let ((_tl137150137805_ - (let () (declare (not safe)) (##cdr _e137152137800_))) - (_hd137151137803_ - (let () (declare (not safe)) (##car _e137152137800_)))) + (gx#stx-e _tl137146137786_)))) + (let ((_tl137155137810_ + (let () (declare (not safe)) (##cdr _e137157137805_))) + (_hd137156137808_ + (let () (declare (not safe)) (##car _e137157137805_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd137151137803_)) - (let ((_e137155137808_ + (gx#stx-pair? _hd137156137808_)) + (let ((_e137160137813_ (let () (declare (not safe)) - (gx#stx-e _hd137151137803_)))) - (let ((_tl137153137813_ + (gx#stx-e _hd137156137808_)))) + (let ((_tl137158137818_ (let () (declare (not safe)) - (##cdr _e137155137808_))) - (_hd137154137811_ + (##cdr _e137160137813_))) + (_hd137159137816_ (let () (declare (not safe)) - (##car _e137155137808_)))) + (##car _e137160137813_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd137154137811_)) + (gx#identifier? _hd137159137816_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd137154137811_)) + (gx#stx-eq? '%#call _hd137159137816_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl137153137813_)) - (let ((_e137158137816_ + (gx#stx-pair? _tl137158137818_)) + (let ((_e137163137821_ (let () (declare (not safe)) - (gx#stx-e _tl137153137813_)))) - (let ((_tl137156137821_ + (gx#stx-e _tl137158137818_)))) + (let ((_tl137161137826_ (let () (declare (not safe)) - (##cdr _e137158137816_))) - (_hd137157137819_ + (##cdr _e137163137821_))) + (_hd137162137824_ (let () (declare (not safe)) - (##car _e137158137816_)))) + (##car _e137163137821_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd137157137819_)) - (let ((_e137161137824_ + _hd137162137824_)) + (let ((_e137166137829_ (let () (declare (not safe)) (gx#stx-e - _hd137157137819_)))) - (let ((_tl137159137829_ + _hd137162137824_)))) + (let ((_tl137164137834_ (let () (declare (not safe)) - (##cdr _e137161137824_))) - (_hd137160137827_ + (##cdr _e137166137829_))) + (_hd137165137832_ (let () (declare (not safe)) - (##car _e137161137824_)))) + (##car _e137166137829_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd137160137827_)) + _hd137165137832_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd137160137827_)) + _hd137165137832_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl137159137829_)) - (let ((_e137164137832_ + (gx#stx-pair? _tl137164137834_)) + (let ((_e137169137837_ (let () (declare (not safe)) - (gx#stx-e _tl137159137829_)))) - (let ((_tl137162137837_ + (gx#stx-e _tl137164137834_)))) + (let ((_tl137167137842_ (let () (declare (not safe)) - (##cdr _e137164137832_))) - (_hd137163137835_ + (##cdr _e137169137837_))) + (_hd137168137840_ (let () (declare (not safe)) - (##car _e137164137832_)))) + (##car _e137169137837_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl137162137837_)) + (gx#stx-null? _tl137167137842_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl137150137805_)) + (gx#stx-null? _tl137155137810_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl137138137773_)) + (gx#stx-null? _tl137143137778_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl137135137765_)) - (let ((_e137167137840_ + (gx#stx-pair? _tl137140137770_)) + (let ((_e137172137845_ (let () (declare (not safe)) (gx#stx-e - _tl137135137765_)))) - (let ((_tl137165137845_ + _tl137140137770_)))) + (let ((_tl137170137850_ (let () (declare (not safe)) - (##cdr _e137167137840_))) - (_hd137166137843_ + (##cdr _e137172137845_))) + (_hd137171137848_ (let () (declare (not safe)) - (##car _e137167137840_)))) + (##car _e137172137845_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl137165137845_)) - (___match149580149581_ - _e137117137900_ - _hd137116137903_ - _tl137115137905_ - _e137137137760_ - _hd137136137763_ - _tl137135137765_ - _e137140137768_ - _hd137139137771_ - _tl137138137773_ - _e137143137776_ - _hd137142137779_ - _tl137141137781_ - _e137146137784_ - _hd137145137787_ - _tl137144137789_ - _e137149137792_ - _hd137148137795_ - _tl137147137797_ - _e137152137800_ - _hd137151137803_ - _tl137150137805_ - _e137155137808_ - _hd137154137811_ - _tl137153137813_ - _e137158137816_ - _hd137157137819_ - _tl137156137821_ - _e137161137824_ - _hd137160137827_ - _tl137159137829_ - _e137164137832_ - _hd137163137835_ - _tl137162137837_ - _e137167137840_ - _hd137166137843_ - _tl137165137845_) + _tl137170137850_)) + (___match149585149586_ + _e137122137905_ + _hd137121137908_ + _tl137120137910_ + _e137142137765_ + _hd137141137768_ + _tl137140137770_ + _e137145137773_ + _hd137144137776_ + _tl137143137778_ + _e137148137781_ + _hd137147137784_ + _tl137146137786_ + _e137151137789_ + _hd137150137792_ + _tl137149137794_ + _e137154137797_ + _hd137153137800_ + _tl137152137802_ + _e137157137805_ + _hd137156137808_ + _tl137155137810_ + _e137160137813_ + _hd137159137816_ + _tl137158137818_ + _e137163137821_ + _hd137162137824_ + _tl137161137826_ + _e137166137829_ + _hd137165137832_ + _tl137164137834_ + _e137169137837_ + _hd137168137840_ + _tl137167137842_ + _e137172137845_ + _hd137171137848_ + _tl137170137850_) (let () (declare (not safe)) - (_g137110137243_))))) + (_g137115137248_))))) (let () (declare (not safe)) - (_g137110137243_))) + (_g137115137248_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl137135137765_)) - (let ((_e137178137722_ + (gx#stx-pair? _tl137140137770_)) + (let ((_e137183137727_ (let () (declare (not safe)) (gx#stx-e - _tl137135137765_)))) - (let ((_tl137176137727_ + _tl137140137770_)))) + (let ((_tl137181137732_ (let () (declare (not safe)) - (##cdr _e137178137722_))) - (_hd137177137725_ + (##cdr _e137183137727_))) + (_hd137182137730_ (let () (declare (not safe)) - (##car _e137178137722_)))) + (##car _e137183137727_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl137176137727_)) - (___kont149447149448_ - _hd137177137725_ - _hd137136137763_) + _tl137181137732_)) + (___kont149452149453_ + _hd137182137730_ + _hd137141137768_) (let () (declare (not safe)) - (_g137110137243_))))) + (_g137115137248_))))) (let () (declare (not safe)) - (_g137110137243_)))) + (_g137115137248_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl137135137765_)) - (let ((_e137178137722_ + (gx#stx-pair? _tl137140137770_)) + (let ((_e137183137727_ (let () (declare (not safe)) - (gx#stx-e _tl137135137765_)))) - (let ((_tl137176137727_ + (gx#stx-e _tl137140137770_)))) + (let ((_tl137181137732_ (let () (declare (not safe)) - (##cdr _e137178137722_))) - (_hd137177137725_ + (##cdr _e137183137727_))) + (_hd137182137730_ (let () (declare (not safe)) - (##car _e137178137722_)))) + (##car _e137183137727_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl137176137727_)) - (___kont149447149448_ - _hd137177137725_ - _hd137136137763_) + _tl137181137732_)) + (___kont149452149453_ + _hd137182137730_ + _hd137141137768_) (let () (declare (not safe)) - (_g137110137243_))))) + (_g137115137248_))))) (let () (declare (not safe)) - (_g137110137243_)))) + (_g137115137248_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl137135137765_)) - (let ((_e137178137722_ + (gx#stx-pair? _tl137140137770_)) + (let ((_e137183137727_ (let () (declare (not safe)) - (gx#stx-e _tl137135137765_)))) - (let ((_tl137176137727_ + (gx#stx-e _tl137140137770_)))) + (let ((_tl137181137732_ (let () (declare (not safe)) - (##cdr _e137178137722_))) - (_hd137177137725_ + (##cdr _e137183137727_))) + (_hd137182137730_ (let () (declare (not safe)) - (##car _e137178137722_)))) + (##car _e137183137727_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl137176137727_)) - (___kont149447149448_ - _hd137177137725_ - _hd137136137763_) + (gx#stx-null? _tl137181137732_)) + (___kont149452149453_ + _hd137182137730_ + _hd137141137768_) (let () (declare (not safe)) - (_g137110137243_))))) + (_g137115137248_))))) (let () (declare (not safe)) - (_g137110137243_)))))) + (_g137115137248_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl137135137765_)) - (let ((_e137178137722_ + (gx#stx-pair? _tl137140137770_)) + (let ((_e137183137727_ (let () (declare (not safe)) - (gx#stx-e _tl137135137765_)))) - (let ((_tl137176137727_ + (gx#stx-e _tl137140137770_)))) + (let ((_tl137181137732_ (let () (declare (not safe)) - (##cdr _e137178137722_))) - (_hd137177137725_ + (##cdr _e137183137727_))) + (_hd137182137730_ (let () (declare (not safe)) - (##car _e137178137722_)))) + (##car _e137183137727_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl137176137727_)) - (___kont149447149448_ - _hd137177137725_ - _hd137136137763_) + (gx#stx-null? _tl137181137732_)) + (___kont149452149453_ + _hd137182137730_ + _hd137141137768_) (let () (declare (not safe)) - (_g137110137243_))))) - (let () (declare (not safe)) (_g137110137243_)))) + (_g137115137248_))))) + (let () (declare (not safe)) (_g137115137248_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl137135137765_)) - (let ((_e137178137722_ + (gx#stx-pair? _tl137140137770_)) + (let ((_e137183137727_ (let () (declare (not safe)) - (gx#stx-e _tl137135137765_)))) - (let ((_tl137176137727_ + (gx#stx-e _tl137140137770_)))) + (let ((_tl137181137732_ (let () (declare (not safe)) - (##cdr _e137178137722_))) - (_hd137177137725_ + (##cdr _e137183137727_))) + (_hd137182137730_ (let () (declare (not safe)) - (##car _e137178137722_)))) + (##car _e137183137727_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl137176137727_)) - (___kont149447149448_ - _hd137177137725_ - _hd137136137763_) + (gx#stx-null? _tl137181137732_)) + (___kont149452149453_ + _hd137182137730_ + _hd137141137768_) (let () (declare (not safe)) - (_g137110137243_))))) - (let () (declare (not safe)) (_g137110137243_)))) - (if (let () (declare (not safe)) (gx#stx-pair? _tl137135137765_)) - (let ((_e137178137722_ + (_g137115137248_))))) + (let () (declare (not safe)) (_g137115137248_)))) + (if (let () (declare (not safe)) (gx#stx-pair? _tl137140137770_)) + (let ((_e137183137727_ (let () (declare (not safe)) - (gx#stx-e _tl137135137765_)))) - (let ((_tl137176137727_ + (gx#stx-e _tl137140137770_)))) + (let ((_tl137181137732_ (let () (declare (not safe)) - (##cdr _e137178137722_))) - (_hd137177137725_ + (##cdr _e137183137727_))) + (_hd137182137730_ (let () (declare (not safe)) - (##car _e137178137722_)))) + (##car _e137183137727_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl137176137727_)) - (___kont149447149448_ - _hd137177137725_ - _hd137136137763_) - (let () (declare (not safe)) (_g137110137243_))))) - (let () (declare (not safe)) (_g137110137243_)))))) + (gx#stx-null? _tl137181137732_)) + (___kont149452149453_ + _hd137182137730_ + _hd137141137768_) + (let () (declare (not safe)) (_g137115137248_))))) + (let () (declare (not safe)) (_g137115137248_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl137135137765_)) - (let ((_e137178137722_ + _tl137140137770_)) + (let ((_e137183137727_ (let () (declare (not safe)) (gx#stx-e - _tl137135137765_)))) - (let ((_tl137176137727_ + _tl137140137770_)))) + (let ((_tl137181137732_ (let () (declare (not safe)) - (##cdr _e137178137722_))) - (_hd137177137725_ + (##cdr _e137183137727_))) + (_hd137182137730_ (let () (declare (not safe)) - (##car _e137178137722_)))) + (##car _e137183137727_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl137176137727_)) - (___kont149447149448_ - _hd137177137725_ - _hd137136137763_) + _tl137181137732_)) + (___kont149452149453_ + _hd137182137730_ + _hd137141137768_) (let () (declare (not safe)) - (_g137110137243_))))) + (_g137115137248_))))) (let () (declare (not safe)) - (_g137110137243_)))))) + (_g137115137248_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl137135137765_)) - (let ((_e137178137722_ + (gx#stx-pair? _tl137140137770_)) + (let ((_e137183137727_ (let () (declare (not safe)) (gx#stx-e - _tl137135137765_)))) - (let ((_tl137176137727_ + _tl137140137770_)))) + (let ((_tl137181137732_ (let () (declare (not safe)) - (##cdr _e137178137722_))) - (_hd137177137725_ + (##cdr _e137183137727_))) + (_hd137182137730_ (let () (declare (not safe)) - (##car _e137178137722_)))) + (##car _e137183137727_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl137176137727_)) - (___kont149447149448_ - _hd137177137725_ - _hd137136137763_) + _tl137181137732_)) + (___kont149452149453_ + _hd137182137730_ + _hd137141137768_) (let () (declare (not safe)) - (_g137110137243_))))) + (_g137115137248_))))) (let () (declare (not safe)) - (_g137110137243_)))) + (_g137115137248_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl137135137765_)) - (let ((_e137178137722_ + (gx#stx-pair? _tl137140137770_)) + (let ((_e137183137727_ (let () (declare (not safe)) - (gx#stx-e _tl137135137765_)))) - (let ((_tl137176137727_ + (gx#stx-e _tl137140137770_)))) + (let ((_tl137181137732_ (let () (declare (not safe)) - (##cdr _e137178137722_))) - (_hd137177137725_ + (##cdr _e137183137727_))) + (_hd137182137730_ (let () (declare (not safe)) - (##car _e137178137722_)))) + (##car _e137183137727_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl137176137727_)) - (___kont149447149448_ - _hd137177137725_ - _hd137136137763_) + _tl137181137732_)) + (___kont149452149453_ + _hd137182137730_ + _hd137141137768_) (let () (declare (not safe)) - (_g137110137243_))))) + (_g137115137248_))))) (let () (declare (not safe)) - (_g137110137243_)))) + (_g137115137248_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl137135137765_)) - (let ((_e137178137722_ + (gx#stx-pair? _tl137140137770_)) + (let ((_e137183137727_ (let () (declare (not safe)) - (gx#stx-e _tl137135137765_)))) - (let ((_tl137176137727_ + (gx#stx-e _tl137140137770_)))) + (let ((_tl137181137732_ (let () (declare (not safe)) - (##cdr _e137178137722_))) - (_hd137177137725_ + (##cdr _e137183137727_))) + (_hd137182137730_ (let () (declare (not safe)) - (##car _e137178137722_)))) + (##car _e137183137727_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl137176137727_)) - (___kont149447149448_ - _hd137177137725_ - _hd137136137763_) + (gx#stx-null? _tl137181137732_)) + (___kont149452149453_ + _hd137182137730_ + _hd137141137768_) (let () (declare (not safe)) - (_g137110137243_))))) + (_g137115137248_))))) (let () (declare (not safe)) - (_g137110137243_)))))) + (_g137115137248_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl137135137765_)) - (let ((_e137178137722_ + (gx#stx-pair? _tl137140137770_)) + (let ((_e137183137727_ (let () (declare (not safe)) - (gx#stx-e _tl137135137765_)))) - (let ((_tl137176137727_ + (gx#stx-e _tl137140137770_)))) + (let ((_tl137181137732_ (let () (declare (not safe)) - (##cdr _e137178137722_))) - (_hd137177137725_ + (##cdr _e137183137727_))) + (_hd137182137730_ (let () (declare (not safe)) - (##car _e137178137722_)))) + (##car _e137183137727_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl137176137727_)) - (___kont149447149448_ - _hd137177137725_ - _hd137136137763_) + (gx#stx-null? _tl137181137732_)) + (___kont149452149453_ + _hd137182137730_ + _hd137141137768_) (let () (declare (not safe)) - (_g137110137243_))))) - (let () (declare (not safe)) (_g137110137243_)))))) - (if (let () (declare (not safe)) (gx#stx-pair? _tl137135137765_)) - (let ((_e137178137722_ + (_g137115137248_))))) + (let () (declare (not safe)) (_g137115137248_)))))) + (if (let () (declare (not safe)) (gx#stx-pair? _tl137140137770_)) + (let ((_e137183137727_ (let () (declare (not safe)) - (gx#stx-e _tl137135137765_)))) - (let ((_tl137176137727_ + (gx#stx-e _tl137140137770_)))) + (let ((_tl137181137732_ (let () (declare (not safe)) - (##cdr _e137178137722_))) - (_hd137177137725_ + (##cdr _e137183137727_))) + (_hd137182137730_ (let () (declare (not safe)) - (##car _e137178137722_)))) + (##car _e137183137727_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl137176137727_)) - (___kont149447149448_ - _hd137177137725_ - _hd137136137763_) - (let () (declare (not safe)) (_g137110137243_))))) - (let () (declare (not safe)) (_g137110137243_)))) + (gx#stx-null? _tl137181137732_)) + (___kont149452149453_ + _hd137182137730_ + _hd137141137768_) + (let () (declare (not safe)) (_g137115137248_))))) + (let () (declare (not safe)) (_g137115137248_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl137135137765_)) - (let ((_e137178137722_ + _tl137140137770_)) + (let ((_e137183137727_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl137135137765_)))) - (let ((_tl137176137727_ - (let () (declare (not safe)) (##cdr _e137178137722_))) - (_hd137177137725_ - (let () (declare (not safe)) (##car _e137178137722_)))) + (gx#stx-e _tl137140137770_)))) + (let ((_tl137181137732_ + (let () (declare (not safe)) (##cdr _e137183137727_))) + (_hd137182137730_ + (let () (declare (not safe)) (##car _e137183137727_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl137176137727_)) - (___kont149447149448_ _hd137177137725_ _hd137136137763_) - (let () (declare (not safe)) (_g137110137243_))))) - (let () (declare (not safe)) (_g137110137243_)))))) + (gx#stx-null? _tl137181137732_)) + (___kont149452149453_ _hd137182137730_ _hd137141137768_) + (let () (declare (not safe)) (_g137115137248_))))) + (let () (declare (not safe)) (_g137115137248_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl137135137765_)) - (let ((_e137178137722_ + _tl137140137770_)) + (let ((_e137183137727_ (let () (declare (not safe)) (gx#stx-e - _tl137135137765_)))) - (let ((_tl137176137727_ + _tl137140137770_)))) + (let ((_tl137181137732_ (let () (declare (not safe)) - (##cdr _e137178137722_))) - (_hd137177137725_ + (##cdr _e137183137727_))) + (_hd137182137730_ (let () (declare (not safe)) - (##car _e137178137722_)))) + (##car _e137183137727_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl137176137727_)) - (___kont149447149448_ - _hd137177137725_ - _hd137136137763_) + _tl137181137732_)) + (___kont149452149453_ + _hd137182137730_ + _hd137141137768_) (let () (declare (not safe)) - (_g137110137243_))))) + (_g137115137248_))))) (let () (declare (not safe)) - (_g137110137243_)))))) + (_g137115137248_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl137135137765_)) - (let ((_e137178137722_ + (gx#stx-pair? _tl137140137770_)) + (let ((_e137183137727_ (let () (declare (not safe)) - (gx#stx-e _tl137135137765_)))) - (let ((_tl137176137727_ + (gx#stx-e _tl137140137770_)))) + (let ((_tl137181137732_ (let () (declare (not safe)) - (##cdr _e137178137722_))) - (_hd137177137725_ + (##cdr _e137183137727_))) + (_hd137182137730_ (let () (declare (not safe)) - (##car _e137178137722_)))) + (##car _e137183137727_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl137176137727_)) - (___kont149447149448_ - _hd137177137725_ - _hd137136137763_) + _tl137181137732_)) + (___kont149452149453_ + _hd137182137730_ + _hd137141137768_) (let () (declare (not safe)) - (_g137110137243_))))) + (_g137115137248_))))) (let () (declare (not safe)) - (_g137110137243_)))))) + (_g137115137248_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl137135137765_)) - (let ((_e137178137722_ + (gx#stx-pair? _tl137140137770_)) + (let ((_e137183137727_ (let () (declare (not safe)) - (gx#stx-e _tl137135137765_)))) - (let ((_tl137176137727_ + (gx#stx-e _tl137140137770_)))) + (let ((_tl137181137732_ (let () (declare (not safe)) - (##cdr _e137178137722_))) - (_hd137177137725_ + (##cdr _e137183137727_))) + (_hd137182137730_ (let () (declare (not safe)) - (##car _e137178137722_)))) + (##car _e137183137727_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl137176137727_)) - (___kont149447149448_ - _hd137177137725_ - _hd137136137763_) + (gx#stx-null? _tl137181137732_)) + (___kont149452149453_ + _hd137182137730_ + _hd137141137768_) (let () (declare (not safe)) - (_g137110137243_))))) + (_g137115137248_))))) (let () (declare (not safe)) - (_g137110137243_)))))) + (_g137115137248_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl137135137765_)) - (let ((_e137178137722_ + (gx#stx-pair? _tl137140137770_)) + (let ((_e137183137727_ (let () (declare (not safe)) - (gx#stx-e _tl137135137765_)))) - (let ((_tl137176137727_ + (gx#stx-e _tl137140137770_)))) + (let ((_tl137181137732_ (let () (declare (not safe)) - (##cdr _e137178137722_))) - (_hd137177137725_ + (##cdr _e137183137727_))) + (_hd137182137730_ (let () (declare (not safe)) - (##car _e137178137722_)))) + (##car _e137183137727_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl137176137727_)) - (___kont149447149448_ - _hd137177137725_ - _hd137136137763_) + (gx#stx-null? _tl137181137732_)) + (___kont149452149453_ + _hd137182137730_ + _hd137141137768_) (let () (declare (not safe)) - (_g137110137243_))))) - (let () (declare (not safe)) (_g137110137243_)))))) + (_g137115137248_))))) + (let () (declare (not safe)) (_g137115137248_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g137110137243_))) + (_g137115137248_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _hd137116137903_)) + _hd137121137908_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl137115137905_)) - (let ((_e137187137626_ + _tl137120137910_)) + (let ((_e137192137631_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl137115137905_)))) - (let ((_tl137185137631_ - (let () (declare (not safe)) (##cdr _e137187137626_))) - (_hd137186137629_ - (let () (declare (not safe)) (##car _e137187137626_)))) + (gx#stx-e _tl137120137910_)))) + (let ((_tl137190137636_ + (let () (declare (not safe)) (##cdr _e137192137631_))) + (_hd137191137634_ + (let () (declare (not safe)) (##car _e137192137631_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd137186137629_)) - (let ((_e137190137634_ + (gx#stx-pair? _hd137191137634_)) + (let ((_e137195137639_ (let () (declare (not safe)) - (gx#stx-e _hd137186137629_)))) - (let ((_tl137188137639_ + (gx#stx-e _hd137191137634_)))) + (let ((_tl137193137644_ (let () (declare (not safe)) - (##cdr _e137190137634_))) - (_hd137189137637_ + (##cdr _e137195137639_))) + (_hd137194137642_ (let () (declare (not safe)) - (##car _e137190137634_)))) + (##car _e137195137639_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd137189137637_)) - (let ((_e137193137642_ + (gx#stx-pair? _hd137194137642_)) + (let ((_e137198137647_ (let () (declare (not safe)) - (gx#stx-e _hd137189137637_)))) - (let ((_tl137191137647_ + (gx#stx-e _hd137194137642_)))) + (let ((_tl137196137652_ (let () (declare (not safe)) - (##cdr _e137193137642_))) - (_hd137192137645_ + (##cdr _e137198137647_))) + (_hd137197137650_ (let () (declare (not safe)) - (##car _e137193137642_)))) + (##car _e137198137647_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd137192137645_)) - (let ((_e137196137650_ + (gx#stx-pair? _hd137197137650_)) + (let ((_e137201137655_ (let () (declare (not safe)) - (gx#stx-e _hd137192137645_)))) - (let ((_tl137194137655_ + (gx#stx-e _hd137197137650_)))) + (let ((_tl137199137660_ (let () (declare (not safe)) - (##cdr _e137196137650_))) - (_hd137195137653_ + (##cdr _e137201137655_))) + (_hd137200137658_ (let () (declare (not safe)) - (##car _e137196137650_)))) + (##car _e137201137655_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl137194137655_)) + _tl137199137660_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl137191137647_)) - (let ((_e137199137658_ + _tl137196137652_)) + (let ((_e137204137663_ (let () (declare (not safe)) (gx#stx-e - _tl137191137647_)))) - (let ((_tl137197137663_ + _tl137196137652_)))) + (let ((_tl137202137668_ (let () (declare (not safe)) - (##cdr _e137199137658_))) - (_hd137198137661_ + (##cdr _e137204137663_))) + (_hd137203137666_ (let () (declare (not safe)) - (##car _e137199137658_)))) + (##car _e137204137663_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl137197137663_)) + _tl137202137668_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl137188137639_)) + (gx#stx-null? _tl137193137644_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl137185137631_)) - (let ((_e137202137666_ + (gx#stx-pair? _tl137190137636_)) + (let ((_e137207137671_ (let () (declare (not safe)) - (gx#stx-e _tl137185137631_)))) - (let ((_tl137200137671_ + (gx#stx-e _tl137190137636_)))) + (let ((_tl137205137676_ (let () (declare (not safe)) - (##cdr _e137202137666_))) - (_hd137201137669_ + (##cdr _e137207137671_))) + (_hd137206137674_ (let () (declare (not safe)) - (##car _e137202137666_)))) + (##car _e137207137671_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl137200137671_)) - (___kont149449149450_ - _hd137201137669_ - _hd137198137661_ - _hd137195137653_) + (gx#stx-null? _tl137205137676_)) + (___kont149454149455_ + _hd137206137674_ + _hd137203137666_ + _hd137200137658_) (let () (declare (not safe)) - (_g137110137243_))))) - (let () (declare (not safe)) (_g137110137243_))) - (let () (declare (not safe)) (_g137110137243_))) - (let () (declare (not safe)) (_g137110137243_))))) + (_g137115137248_))))) + (let () (declare (not safe)) (_g137115137248_))) + (let () (declare (not safe)) (_g137115137248_))) + (let () (declare (not safe)) (_g137115137248_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g137110137243_))) + (_g137115137248_))) (let () (declare (not safe)) - (_g137110137243_))))) + (_g137115137248_))))) (let () (declare (not safe)) - (_g137110137243_))))) + (_g137115137248_))))) (let () (declare (not safe)) - (_g137110137243_))))) - (let () (declare (not safe)) (_g137110137243_))))) - (let () (declare (not safe)) (_g137110137243_))) + (_g137115137248_))))) + (let () (declare (not safe)) (_g137115137248_))))) + (let () (declare (not safe)) (_g137115137248_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd137116137903_)) + _hd137121137908_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl137115137905_)) - (let ((_e137211137256_ + _tl137120137910_)) + (let ((_e137216137261_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl137115137905_)))) - (let ((_tl137209137261_ + (gx#stx-e _tl137120137910_)))) + (let ((_tl137214137266_ (let () (declare (not safe)) - (##cdr _e137211137256_))) - (_hd137210137259_ + (##cdr _e137216137261_))) + (_hd137215137264_ (let () (declare (not safe)) - (##car _e137211137256_)))) + (##car _e137216137261_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd137210137259_)) - (let ((_e137214137264_ + (gx#stx-pair? _hd137215137264_)) + (let ((_e137219137269_ (let () (declare (not safe)) - (gx#stx-e _hd137210137259_)))) - (let ((_tl137212137269_ + (gx#stx-e _hd137215137264_)))) + (let ((_tl137217137274_ (let () (declare (not safe)) - (##cdr _e137214137264_))) - (_hd137213137267_ + (##cdr _e137219137269_))) + (_hd137218137272_ (let () (declare (not safe)) - (##car _e137214137264_)))) + (##car _e137219137269_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd137213137267_)) + (gx#identifier? _hd137218137272_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd137213137267_)) + _hd137218137272_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl137212137269_)) - (let ((_e137217137272_ + (gx#stx-pair? _tl137217137274_)) + (let ((_e137222137277_ (let () (declare (not safe)) (gx#stx-e - _tl137212137269_)))) - (let ((_tl137215137277_ + _tl137217137274_)))) + (let ((_tl137220137282_ (let () (declare (not safe)) - (##cdr _e137217137272_))) - (_hd137216137275_ + (##cdr _e137222137277_))) + (_hd137221137280_ (let () (declare (not safe)) - (##car _e137217137272_)))) + (##car _e137222137277_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd137216137275_)) - (let ((___splice149453149454_ + _hd137221137280_)) + (let ((___splice149458149459_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd137216137275_ + _hd137221137280_ '0)))) - (let ((_tl137220137282_ + (let ((_tl137225137287_ (let () (declare (not safe)) (##vector-ref - ___splice149453149454_ + ___splice149458149459_ '1))) - (_target137218137280_ + (_target137223137285_ (let () (declare (not safe)) (##vector-ref - ___splice149453149454_ + ___splice149458149459_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl137220137282_)) - (___match149698149699_ - _e137117137900_ - _hd137116137903_ - _tl137115137905_ - _e137211137256_ - _hd137210137259_ - _tl137209137261_ - _e137214137264_ - _hd137213137267_ - _tl137212137269_ - _e137217137272_ - _hd137216137275_ - _tl137215137277_ - ___splice149453149454_ - _target137218137280_ - _tl137220137282_) + _tl137225137287_)) + (___match149703149704_ + _e137122137905_ + _hd137121137908_ + _tl137120137910_ + _e137216137261_ + _hd137215137264_ + _tl137214137266_ + _e137219137269_ + _hd137218137272_ + _tl137217137274_ + _e137222137277_ + _hd137221137280_ + _tl137220137282_ + ___splice149458149459_ + _target137223137285_ + _tl137225137287_) (let () (declare (not safe)) - (_g137110137243_))))) + (_g137115137248_))))) (let () (declare (not safe)) - (_g137110137243_))))) + (_g137115137248_))))) (let () (declare (not safe)) - (_g137110137243_))) + (_g137115137248_))) (let () (declare (not safe)) - (_g137110137243_))) + (_g137115137248_))) (let () (declare (not safe)) - (_g137110137243_))))) - (let () (declare (not safe)) (_g137110137243_))))) - (let () (declare (not safe)) (_g137110137243_))) - (let () (declare (not safe)) (_g137110137243_)))))) + (_g137115137248_))))) + (let () (declare (not safe)) (_g137115137248_))))) + (let () (declare (not safe)) (_g137115137248_))) + (let () (declare (not safe)) (_g137115137248_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g137110137243_))))) + (_g137115137248_))))) (let () (declare (not safe)) - (_g137110137243_)))))))) - (_xform-loop-e136718_ - (lambda (_expr136927_ - _kont-id136928_ - _kont-box136929_ - _negation-id136930_) - (let* ((_g136932136972_ - (lambda (_g136933136969_) + (_g137115137248_)))))))) + (_xform-loop-e136723_ + (lambda (_expr136932_ + _kont-id136933_ + _kont-box136934_ + _negation-id136935_) + (let* ((_g136937136977_ + (lambda (_g136938136974_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g136933136969_)))) - (_g136931137098_ - (lambda (_g136933136975_) + _g136938136974_)))) + (_g136936137103_ + (lambda (_g136938136980_) (if (let () (declare (not safe)) - (gx#stx-pair? _g136933136975_)) - (let ((_e136940136977_ + (gx#stx-pair? _g136938136980_)) + (let ((_e136945136982_ (let () (declare (not safe)) - (gx#stx-e _g136933136975_)))) - (let ((_hd136939136980_ + (gx#stx-e _g136938136980_)))) + (let ((_hd136944136985_ (let () (declare (not safe)) - (##car _e136940136977_))) - (_tl136938136982_ + (##car _e136945136982_))) + (_tl136943136987_ (let () (declare (not safe)) - (##cdr _e136940136977_)))) + (##cdr _e136945136982_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd136939136980_)) + (gx#identifier? _hd136944136985_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd136939136980_)) + _hd136944136985_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl136938136982_)) - (let ((_e136943136985_ + _tl136943136987_)) + (let ((_e136948136990_ (let () (declare (not safe)) (gx#stx-e - _tl136938136982_)))) - (let ((_hd136942136988_ + _tl136943136987_)))) + (let ((_hd136947136993_ (let () (declare (not safe)) - (##car _e136943136985_))) - (_tl136941136990_ + (##car _e136948136990_))) + (_tl136946136995_ (let () (declare (not safe)) - (##cdr _e136943136985_)))) + (##cdr _e136948136990_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd136942136988_)) - (let ((_g150504_ + _hd136947136993_)) + (let ((_g150509_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _hd136942136988_ '0)))) + (gx#syntax-split-splice _hd136947136993_ '0)))) (begin - (let ((_g150505_ + (let ((_g150510_ (let () (declare (not safe)) - (if (##values? _g150504_) - (##vector-length _g150504_) + (if (##values? _g150509_) + (##vector-length _g150509_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g150505_ 2))) - (error "Context expects 2 values" _g150505_))) - (let ((_target136944136993_ + (##fx= _g150510_ 2))) + (error "Context expects 2 values" _g150510_))) + (let ((_target136949136998_ (let () (declare (not safe)) - (##vector-ref _g150504_ 0))) - (_tl136946136995_ + (##vector-ref _g150509_ 0))) + (_tl136951137000_ (let () (declare (not safe)) - (##vector-ref _g150504_ 1)))) + (##vector-ref _g150509_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl136946136995_)) - (letrec ((_loop136947136998_ - (lambda (_hd136945137001_ - _id136951137003_) + (gx#stx-null? _tl136951137000_)) + (letrec ((_loop136952137003_ + (lambda (_hd136950137006_ + _id136956137008_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd136945137001_)) - (let ((_e136948137006_ + (gx#stx-pair? _hd136950137006_)) + (let ((_e136953137011_ (let () (declare (not safe)) (gx#stx-e - _hd136945137001_)))) - (let ((_lp-hd136949137009_ + _hd136950137006_)))) + (let ((_lp-hd136954137014_ (let () (declare (not safe)) - (##car _e136948137006_))) - (_lp-tl136950137011_ + (##car _e136953137011_))) + (_lp-tl136955137016_ (let () (declare (not safe)) - (##cdr _e136948137006_)))) - (let ((__tmp150514 + (##cdr _e136953137011_)))) + (let ((__tmp150519 (let () (declare (not safe)) - (cons _lp-hd136949137009_ - _id136951137003_)))) + (cons _lp-hd136954137014_ + _id136956137008_)))) (declare (not safe)) - (_loop136947136998_ - _lp-tl136950137011_ - __tmp150514)))) - (let ((_id136952137014_ - (reverse _id136951137003_))) + (_loop136952137003_ + _lp-tl136955137016_ + __tmp150519)))) + (let ((_id136957137019_ + (reverse _id136956137008_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl136941136990_)) - (let ((_e136955137017_ + _tl136946136995_)) + (let ((_e136960137022_ (let () (declare (not safe)) (gx#stx-e - _tl136941136990_)))) - (let ((_hd136954137020_ + _tl136946136995_)))) + (let ((_hd136959137025_ (let () (declare (not safe)) - (##car _e136955137017_))) - (_tl136953137022_ + (##car _e136960137022_))) + (_tl136958137027_ (let () (declare (not safe)) - (##cdr _e136955137017_)))) + (##cdr _e136960137022_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd136954137020_)) - (let ((_e136958137025_ + _hd136959137025_)) + (let ((_e136963137030_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd136954137020_)))) - (let ((_hd136957137028_ + (gx#stx-e _hd136959137025_)))) + (let ((_hd136962137033_ (let () (declare (not safe)) - (##car _e136958137025_))) - (_tl136956137030_ + (##car _e136963137030_))) + (_tl136961137035_ (let () (declare (not safe)) - (##cdr _e136958137025_)))) + (##cdr _e136963137030_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd136957137028_)) + (gx#identifier? _hd136962137033_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#if _hd136957137028_)) + (gx#stx-eq? '%#if _hd136962137033_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl136956137030_)) - (let ((_e136961137033_ + (gx#stx-pair? _tl136961137035_)) + (let ((_e136966137038_ (let () (declare (not safe)) - (gx#stx-e _tl136956137030_)))) - (let ((_hd136960137036_ + (gx#stx-e _tl136961137035_)))) + (let ((_hd136965137041_ (let () (declare (not safe)) - (##car _e136961137033_))) - (_tl136959137038_ + (##car _e136966137038_))) + (_tl136964137043_ (let () (declare (not safe)) - (##cdr _e136961137033_)))) + (##cdr _e136966137038_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl136959137038_)) - (let ((_e136964137041_ + (gx#stx-pair? _tl136964137043_)) + (let ((_e136969137046_ (let () (declare (not safe)) (gx#stx-e - _tl136959137038_)))) - (let ((_hd136963137044_ + _tl136964137043_)))) + (let ((_hd136968137049_ (let () (declare (not safe)) - (##car _e136964137041_))) - (_tl136962137046_ + (##car _e136969137046_))) + (_tl136967137051_ (let () (declare (not safe)) - (##cdr _e136964137041_)))) + (##cdr _e136969137046_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl136962137046_)) - (let ((_e136967137049_ + _tl136967137051_)) + (let ((_e136972137054_ (let () (declare (not safe)) (gx#stx-e - _tl136962137046_)))) - (let ((_hd136966137052_ + _tl136967137051_)))) + (let ((_hd136971137057_ (let () (declare (not safe)) - (##car _e136967137049_))) - (_tl136965137054_ + (##car _e136972137054_))) + (_tl136970137059_ (let () (declare (not safe)) - (##cdr _e136967137049_)))) + (##cdr _e136972137054_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl136965137054_)) + _tl136970137059_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl136953137022_)) - ((lambda (_L137057_ _L137058_ _L137059_ _L137060_) - (let* ((_E137089_ + (gx#stx-null? _tl136958137027_)) + ((lambda (_L137062_ _L137063_ _L137064_ _L137065_) + (let* ((_E137094_ (let () (declare (not safe)) - (_xform-e136717_ - _L137057_ - _kont-id136928_ - _kont-box136929_ - _negation-id136930_))) - (__tmp150506 - (let ((__tmp150512 - (let ((__tmp150513 - (lambda (_g137090137093_ - _g137091137095_) + (_xform-e136722_ + _L137062_ + _kont-id136933_ + _kont-box136934_ + _negation-id136935_))) + (__tmp150511 + (let ((__tmp150517 + (let ((__tmp150518 + (lambda (_g137095137098_ + _g137096137100_) (let () (declare (not safe)) - (cons _g137090137093_ - _g137091137095_))))) + (cons _g137095137098_ + _g137096137100_))))) (declare (not safe)) - (foldr1 __tmp150513 '() _L137060_))) - (__tmp150507 - (let ((__tmp150508 - (let ((__tmp150509 - (let ((__tmp150510 - (let ((__tmp150511 + (foldr1 __tmp150518 '() _L137065_))) + (__tmp150512 + (let ((__tmp150513 + (let ((__tmp150514 + (let ((__tmp150515 + (let ((__tmp150516 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _E137089_ '())))) + (cons _E137094_ '())))) (declare (not safe)) - (cons _L137058_ __tmp150511)))) + (cons _L137063_ __tmp150516)))) (declare (not safe)) - (cons _L137059_ __tmp150510)))) + (cons _L137064_ __tmp150515)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#if __tmp150509)))) + (cons '%#if __tmp150514)))) (declare (not safe)) - (cons __tmp150508 '())))) + (cons __tmp150513 '())))) (declare (not safe)) - (cons __tmp150512 __tmp150507)))) + (cons __tmp150517 __tmp150512)))) (declare (not safe)) - (cons '%#lambda __tmp150506))) - _hd136966137052_ - _hd136963137044_ - _hd136960137036_ - _id136952137014_) + (cons '%#lambda __tmp150511))) + _hd136971137057_ + _hd136968137049_ + _hd136965137041_ + _id136957137019_) (let () (declare (not safe)) - (_g136932136972_ _g136933136975_))) + (_g136937136977_ _g136938136980_))) (let () (declare (not safe)) - (_g136932136972_ _g136933136975_))))) + (_g136937136977_ _g136938136980_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g136932136972_ - _g136933136975_))))) + (_g136937136977_ + _g136938136980_))))) (let () (declare (not safe)) - (_g136932136972_ - _g136933136975_))))) + (_g136937136977_ + _g136938136980_))))) (let () (declare (not safe)) - (_g136932136972_ _g136933136975_))) + (_g136937136977_ _g136938136980_))) (let () (declare (not safe)) - (_g136932136972_ _g136933136975_))) + (_g136937136977_ _g136938136980_))) (let () (declare (not safe)) - (_g136932136972_ _g136933136975_))))) + (_g136937136977_ _g136938136980_))))) (let () (declare (not safe)) - (_g136932136972_ _g136933136975_))))) + (_g136937136977_ _g136938136980_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g136932136972_ - _g136933136975_)))))))) + (_g136937136977_ + _g136938136980_)))))))) (let () (declare (not safe)) - (_loop136947136998_ _target136944136993_ '()))) + (_loop136952137003_ _target136949136998_ '()))) (let () (declare (not safe)) - (_g136932136972_ _g136933136975_)))))) + (_g136937136977_ _g136938136980_)))))) (let () (declare (not safe)) - (_g136932136972_ _g136933136975_))))) + (_g136937136977_ _g136938136980_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g136932136972_ - _g136933136975_))) + (_g136937136977_ + _g136938136980_))) (let () (declare (not safe)) - (_g136932136972_ - _g136933136975_))) + (_g136937136977_ + _g136938136980_))) (let () (declare (not safe)) - (_g136932136972_ - _g136933136975_))))) + (_g136937136977_ + _g136938136980_))))) (let () (declare (not safe)) - (_g136932136972_ _g136933136975_)))))) + (_g136937136977_ _g136938136980_)))))) (declare (not safe)) - (_g136931137098_ _expr136927_)))) - (_clause-e136719_ - (lambda (_clause-lambda136797_ _kont-id136798_ _rest136799_) - (letrec* ((_kont-box136801_ + (_g136936137103_ _expr136932_)))) + (_clause-e136724_ + (lambda (_clause-lambda136802_ _kont-id136803_ _rest136804_) + (letrec* ((_kont-box136806_ (let () (declare (not safe)) (box '#f)))) - (let* ((_negation-id136841_ - (let* ((_rest136802136812_ _rest136799_) - (_else136804136820_ - (lambda () _negation-id136715_)) - (_K136806136826_ - (lambda (_clause136823_ - _clause-id136824_) - _clause-id136824_))) + (let* ((_negation-id136846_ + (let* ((_rest136807136817_ _rest136804_) + (_else136809136825_ + (lambda () _negation-id136720_)) + (_K136811136831_ + (lambda (_clause136828_ + _clause-id136829_) + _clause-id136829_))) (if (let () (declare (not safe)) - (##pair? _rest136802136812_)) - (let ((_hd136807136829_ + (##pair? _rest136807136817_)) + (let ((_hd136812136834_ (let () (declare (not safe)) - (##car _rest136802136812_)))) + (##car _rest136807136817_)))) (if (let () (declare (not safe)) - (##pair? _hd136807136829_)) - (let ((_hd136809136832_ + (##pair? _hd136812136834_)) + (let ((_hd136814136837_ (let () (declare (not safe)) - (##car _hd136807136829_))) - (_tl136810136834_ + (##car _hd136812136834_))) + (_tl136815136839_ (let () (declare (not safe)) - (##cdr _hd136807136829_)))) - (let* ((_clause-id136837_ - _hd136809136832_) - (_clause136839_ - _tl136810136834_)) + (##cdr _hd136812136834_)))) + (let* ((_clause-id136842_ + _hd136814136837_) + (_clause136844_ + _tl136815136839_)) (declare (not safe)) - (_K136806136826_ - _clause136839_ - _clause-id136837_))) + (_K136811136831_ + _clause136844_ + _clause-id136842_))) (let () (declare (not safe)) - (_else136804136820_)))) + (_else136809136825_)))) (let () (declare (not safe)) - (_else136804136820_))))) - (_g136843136863_ - (lambda (_g136844136860_) + (_else136809136825_))))) + (_g136848136868_ + (lambda (_g136849136865_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g136844136860_)))) - (_g136842136924_ - (lambda (_g136844136866_) + _g136849136865_)))) + (_g136847136929_ + (lambda (_g136849136871_) (if (let () (declare (not safe)) - (gx#stx-pair? _g136844136866_)) - (let ((_e136849136868_ + (gx#stx-pair? _g136849136871_)) + (let ((_e136854136873_ (let () (declare (not safe)) - (gx#stx-e _g136844136866_)))) - (let ((_hd136848136871_ + (gx#stx-e _g136849136871_)))) + (let ((_hd136853136876_ (let () (declare (not safe)) - (##car _e136849136868_))) - (_tl136847136873_ + (##car _e136854136873_))) + (_tl136852136878_ (let () (declare (not safe)) - (##cdr _e136849136868_)))) + (##cdr _e136854136873_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd136848136871_)) + _hd136853136876_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd136848136871_)) + _hd136853136876_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl136847136873_)) - (let ((_e136852136876_ + _tl136852136878_)) + (let ((_e136857136881_ (let () (declare (not safe)) (gx#stx-e - _tl136847136873_)))) - (let ((_hd136851136879_ + _tl136852136878_)))) + (let ((_hd136856136884_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e136852136876_))) - (_tl136850136881_ - (let () (declare (not safe)) (##cdr _e136852136876_)))) + (##car _e136857136881_))) + (_tl136855136886_ + (let () (declare (not safe)) (##cdr _e136857136881_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd136851136879_)) - (let ((_e136855136884_ + (gx#stx-pair? _hd136856136884_)) + (let ((_e136860136889_ (let () (declare (not safe)) - (gx#stx-e _hd136851136879_)))) - (let ((_hd136854136887_ + (gx#stx-e _hd136856136884_)))) + (let ((_hd136859136892_ (let () (declare (not safe)) - (##car _e136855136884_))) - (_tl136853136889_ + (##car _e136860136889_))) + (_tl136858136894_ (let () (declare (not safe)) - (##cdr _e136855136884_)))) + (##cdr _e136860136889_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl136853136889_)) + (gx#stx-null? _tl136858136894_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl136850136881_)) - (let ((_e136858136892_ + (gx#stx-pair? _tl136855136886_)) + (let ((_e136863136897_ (let () (declare (not safe)) - (gx#stx-e _tl136850136881_)))) - (let ((_hd136857136895_ + (gx#stx-e _tl136855136886_)))) + (let ((_hd136862136900_ (let () (declare (not safe)) - (##car _e136858136892_))) - (_tl136856136897_ + (##car _e136863136897_))) + (_tl136861136902_ (let () (declare (not safe)) - (##cdr _e136858136892_)))) + (##cdr _e136863136897_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl136856136897_)) - ((lambda (_L136900_ _L136901_) - (let ((_body136922_ + (gx#stx-null? _tl136861136902_)) + ((lambda (_L136905_ _L136906_) + (let ((_body136927_ (let () (declare (not safe)) - (_xform-e136717_ - _L136900_ - _kont-id136798_ - _kont-box136801_ - _negation-id136841_)))) - (values (let ((__tmp150515 - (let ((__tmp150517 + (_xform-e136722_ + _L136905_ + _kont-id136803_ + _kont-box136806_ + _negation-id136846_)))) + (values (let ((__tmp150520 + (let ((__tmp150522 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _L136901_ '()))) - (__tmp150516 + (let () (declare (not safe)) (cons _L136906_ '()))) + (__tmp150521 (let () (declare (not safe)) - (cons _body136922_ '())))) + (cons _body136927_ '())))) (declare (not safe)) - (cons __tmp150517 __tmp150516)))) + (cons __tmp150522 __tmp150521)))) (declare (not safe)) - (cons '%#lambda __tmp150515)) + (cons '%#lambda __tmp150520)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (unbox _kont-box136801_)))) - _hd136857136895_ - _hd136854136887_) + (unbox _kont-box136806_)))) + _hd136862136900_ + _hd136859136892_) (let () (declare (not safe)) - (_g136843136863_ _g136844136866_))))) + (_g136848136868_ _g136849136871_))))) (let () (declare (not safe)) - (_g136843136863_ _g136844136866_))) + (_g136848136868_ _g136849136871_))) (let () (declare (not safe)) - (_g136843136863_ _g136844136866_))))) + (_g136848136868_ _g136849136871_))))) (let () (declare (not safe)) - (_g136843136863_ _g136844136866_))))) + (_g136848136868_ _g136849136871_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g136843136863_ - _g136844136866_))) + (_g136848136868_ + _g136849136871_))) (let () (declare (not safe)) - (_g136843136863_ - _g136844136866_))) + (_g136848136868_ + _g136849136871_))) (let () (declare (not safe)) - (_g136843136863_ - _g136844136866_))))) + (_g136848136868_ + _g136849136871_))))) (let () (declare (not safe)) - (_g136843136863_ _g136844136866_)))))) + (_g136848136868_ _g136849136871_)))))) (declare (not safe)) - (_g136842136924_ _clause-lambda136797_)))))) - (let _lp136721_ ((_rest136723_ _clauses136714_) - (_clauses136724_ '()) - (_konts136725_ '())) - (let* ((_rest136726136734_ _rest136723_) - (_else136728136742_ + (_g136847136929_ _clause-lambda136802_)))))) + (let _lp136726_ ((_rest136728_ _clauses136719_) + (_clauses136729_ '()) + (_konts136730_ '())) + (let* ((_rest136731136739_ _rest136728_) + (_else136733136747_ (lambda () - (values (reverse _clauses136724_) - (reverse _konts136725_)))) - (_K136730136785_ - (lambda (_rest136745_ _clause136746_) - (let* ((_clause136747136754_ _clause136746_) - (_E136749136758_ + (values (reverse _clauses136729_) + (reverse _konts136730_)))) + (_K136735136790_ + (lambda (_rest136750_ _clause136751_) + (let* ((_clause136752136759_ _clause136751_) + (_E136754136763_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _clause136747136754_)))) - (_K136750136773_ - (lambda (_clause-lambda136761_ _clause-id136762_) - (let* ((_id136764_ - (let ((__tmp150518 (gensym '__kont))) + _clause136752136759_)))) + (_K136755136778_ + (lambda (_clause-lambda136766_ _clause-id136767_) + (let* ((_id136769_ + (let ((__tmp150523 (gensym '__kont))) (declare (not safe)) - (make-symbol__0 __tmp150518))) - (_id136766_ + (make-symbol__0 __tmp150523))) + (_id136771_ (let () (declare (not safe)) (gx#core-quote-syntax__0 - _id136764_))) - (_g150519_ + _id136769_))) + (_g150524_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _id136766_))) - (_g150520_ + _id136771_))) + (_g150525_ (let () (declare (not safe)) - (_clause-e136719_ - _clause-lambda136761_ - _id136766_ - _rest136745_)))) + (_clause-e136724_ + _clause-lambda136766_ + _id136771_ + _rest136750_)))) (begin - (let ((_g150521_ + (let ((_g150526_ (let () (declare (not safe)) - (if (##values? _g150520_) - (##vector-length _g150520_) + (if (##values? _g150525_) + (##vector-length _g150525_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g150521_ 2))) + (##fx= _g150526_ 2))) (error "Context expects 2 values" - _g150521_))) - (let ((_clause-lambda136769_ + _g150526_))) + (let ((_clause-lambda136774_ (let () (declare (not safe)) - (##vector-ref _g150520_ 0))) - (_kont136770_ + (##vector-ref _g150525_ 0))) + (_kont136775_ (let () (declare (not safe)) - (##vector-ref _g150520_ 1)))) + (##vector-ref _g150525_ 1)))) (let () - (let ((__tmp150524 - (let ((__tmp150525 + (let ((__tmp150529 + (let ((__tmp150530 (let () (declare (not safe)) - (cons _clause-id136762_ - _clause-lambda136769_)))) + (cons _clause-id136767_ + _clause-lambda136774_)))) (declare (not safe)) - (cons __tmp150525 - _clauses136724_))) - (__tmp150522 - (let ((__tmp150523 + (cons __tmp150530 + _clauses136729_))) + (__tmp150527 + (let ((__tmp150528 (let () (declare (not safe)) - (cons _id136766_ - _kont136770_)))) + (cons _id136771_ + _kont136775_)))) (declare (not safe)) - (cons __tmp150523 - _konts136725_)))) + (cons __tmp150528 + _konts136730_)))) (declare (not safe)) - (_lp136721_ - _rest136745_ - __tmp150524 - __tmp150522))))))))) + (_lp136726_ + _rest136750_ + __tmp150529 + __tmp150527))))))))) (if (let () (declare (not safe)) - (##pair? _clause136747136754_)) - (let ((_hd136751136776_ + (##pair? _clause136752136759_)) + (let ((_hd136756136781_ (let () (declare (not safe)) - (##car _clause136747136754_))) - (_tl136752136778_ + (##car _clause136752136759_))) + (_tl136757136783_ (let () (declare (not safe)) - (##cdr _clause136747136754_)))) - (let* ((_clause-id136781_ _hd136751136776_) - (_clause-lambda136783_ _tl136752136778_)) + (##cdr _clause136752136759_)))) + (let* ((_clause-id136786_ _hd136756136781_) + (_clause-lambda136788_ _tl136757136783_)) (declare (not safe)) - (_K136750136773_ - _clause-lambda136783_ - _clause-id136781_))) + (_K136755136778_ + _clause-lambda136788_ + _clause-id136786_))) (let () (declare (not safe)) - (_E136749136758_))))))) - (if (let () (declare (not safe)) (##pair? _rest136726136734_)) - (let ((_hd136731136788_ + (_E136754136763_))))))) + (if (let () (declare (not safe)) (##pair? _rest136731136739_)) + (let ((_hd136736136793_ (let () (declare (not safe)) - (##car _rest136726136734_))) - (_tl136732136790_ + (##car _rest136731136739_))) + (_tl136737136795_ (let () (declare (not safe)) - (##cdr _rest136726136734_)))) - (let* ((_clause136793_ _hd136731136788_) - (_rest136795_ _tl136732136790_)) + (##cdr _rest136731136739_)))) + (let* ((_clause136798_ _hd136736136793_) + (_rest136800_ _tl136737136795_)) (declare (not safe)) - (_K136730136785_ _rest136795_ _clause136793_))) - (let () (declare (not safe)) (_else136728136742_)))))))) + (_K136735136790_ _rest136800_ _clause136798_))) + (let () (declare (not safe)) (_else136733136747_)))))))) (define gxc#optimize-syntax-case-closure - (lambda (_clause136058_ _negation136059_ _target136060_) - (letrec ((_closure-e136062_ - (lambda (_expr136179_) - (let* ((___stx149701149702_ _expr136179_) - (_g136186136301_ + (lambda (_clause136063_ _negation136064_ _target136065_) + (letrec ((_closure-e136067_ + (lambda (_expr136184_) + (let* ((___stx149706149707_ _expr136184_) + (_g136191136306_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx149701149702_))))) - (let ((___kont149703149704_ - (lambda (_L136692_ _L136693_ _L136694_) - (let ((__tmp150526 - (let ((__tmp150527 - (let ((__tmp150530 + ___stx149706149707_))))) + (let ((___kont149708149709_ + (lambda (_L136697_ _L136698_ _L136699_) + (let ((__tmp150531 + (let ((__tmp150532 + (let ((__tmp150535 (let () (declare (not safe)) - (_closure-e136062_ - _L136693_))) - (__tmp150528 - (let ((__tmp150529 + (_closure-e136067_ + _L136698_))) + (__tmp150533 + (let ((__tmp150534 (let () (declare (not safe)) - (_closure-e136062_ - _L136692_)))) + (_closure-e136067_ + _L136697_)))) (declare (not safe)) - (cons __tmp150529 '())))) + (cons __tmp150534 '())))) (declare (not safe)) - (cons __tmp150530 - __tmp150528)))) + (cons __tmp150535 + __tmp150533)))) (declare (not safe)) - (cons _L136694_ __tmp150527)))) + (cons _L136699_ __tmp150532)))) (declare (not safe)) - (cons '%#if __tmp150526)))) - (___kont149705149706_ - (lambda (_L136640_ _L136641_) - (let ((__tmp150531 - (let ((__tmp150532 - (let ((__tmp150533 + (cons '%#if __tmp150531)))) + (___kont149710149711_ + (lambda (_L136645_ _L136646_) + (let ((__tmp150536 + (let ((__tmp150537 + (let ((__tmp150538 (let () (declare (not safe)) - (_closure-e136062_ - _L136640_)))) + (_closure-e136067_ + _L136645_)))) (declare (not safe)) - (cons __tmp150533 '())))) + (cons __tmp150538 '())))) (declare (not safe)) - (cons _L136641_ __tmp150532)))) + (cons _L136646_ __tmp150537)))) (declare (not safe)) - (cons '%#let-values __tmp150531)))) - (___kont149707149708_ - (lambda (_L136586_ _L136587_ _L136588_) - (let ((__tmp150534 - (let ((__tmp150536 - (let ((__tmp150537 - (let ((__tmp150540 + (cons '%#let-values __tmp150536)))) + (___kont149712149713_ + (lambda (_L136591_ _L136592_ _L136593_) + (let ((__tmp150539 + (let ((__tmp150541 + (let ((__tmp150542 + (let ((__tmp150545 (let () (declare (not safe)) - (cons _L136588_ + (cons _L136593_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) - (__tmp150538 - (let ((__tmp150539 + (__tmp150543 + (let ((__tmp150544 (let () (declare (not safe)) - (_closure-e136062_ _L136587_)))) + (_closure-e136067_ _L136592_)))) (declare (not safe)) - (cons __tmp150539 '())))) + (cons __tmp150544 '())))) (declare (not safe)) - (cons __tmp150540 __tmp150538)))) + (cons __tmp150545 __tmp150543)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp150537 '()))) - (__tmp150535 + (cons __tmp150542 '()))) + (__tmp150540 (let () (declare (not safe)) - (cons _L136586_ '())))) + (cons _L136591_ '())))) (declare (not safe)) - (cons __tmp150536 __tmp150535)))) + (cons __tmp150541 __tmp150540)))) (declare (not safe)) - (cons '%#letrec-values __tmp150534)))) - (___kont149709149710_ - (lambda (_L136499_ _L136500_) - (let ((__tmp150541 - (let ((__tmp150544 - (let ((__tmp150545 - (lambda (_g136517136520_ - _g136518136522_) + (cons '%#letrec-values __tmp150539)))) + (___kont149714149715_ + (lambda (_L136504_ _L136505_) + (let ((__tmp150546 + (let ((__tmp150549 + (let ((__tmp150550 + (lambda (_g136522136525_ + _g136523136527_) (let () (declare (not safe)) - (cons _g136517136520_ - _g136518136522_))))) + (cons _g136522136525_ + _g136523136527_))))) (declare (not safe)) - (foldr1 __tmp150545 + (foldr1 __tmp150550 '() - _L136500_))) - (__tmp150542 - (let ((__tmp150543 + _L136505_))) + (__tmp150547 + (let ((__tmp150548 (let () (declare (not safe)) - (_closure-e136062_ - _L136499_)))) + (_closure-e136067_ + _L136504_)))) (declare (not safe)) - (cons __tmp150543 '())))) + (cons __tmp150548 '())))) (declare (not safe)) - (cons __tmp150544 __tmp150542)))) + (cons __tmp150549 __tmp150547)))) (declare (not safe)) - (cons '%#lambda __tmp150541)))) - (___kont149713149714_ - (lambda (_L136429_) - (let ((__tmp150546 - (let ((__tmp150547 - (let ((__tmp150549 + (cons '%#lambda __tmp150546)))) + (___kont149718149719_ + (lambda (_L136434_) + (let ((__tmp150551 + (let ((__tmp150552 + (let ((__tmp150554 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp150548 + (__tmp150553 (let () (declare (not safe)) - (cons _L136429_ '())))) + (cons _L136434_ '())))) (declare (not safe)) - (cons __tmp150549 - __tmp150548)))) + (cons __tmp150554 + __tmp150553)))) (declare (not safe)) - (cons __tmp150547 '())))) + (cons __tmp150552 '())))) (declare (not safe)) - (cons '%#call __tmp150546)))) - (___kont149715149716_ - (lambda (_L136362_ _L136363_) _expr136179_))) - (let* ((___match149934149935_ - (lambda (_e136278136306_ - _hd136277136309_ - _tl136276136311_ - _e136281136314_ - _hd136280136317_ - _tl136279136319_ - _e136284136322_ - _hd136283136325_ - _tl136282136327_ - _e136287136330_ - _hd136286136333_ - _tl136285136335_ - ___splice149717149718_ - _target136288136338_ - _tl136290136340_) - (letrec ((_loop136291136343_ - (lambda (_hd136289136346_ - _arg136295136348_) + (cons '%#call __tmp150551)))) + (___kont149720149721_ + (lambda (_L136367_ _L136368_) _expr136184_))) + (let* ((___match149939149940_ + (lambda (_e136283136311_ + _hd136282136314_ + _tl136281136316_ + _e136286136319_ + _hd136285136322_ + _tl136284136324_ + _e136289136327_ + _hd136288136330_ + _tl136287136332_ + _e136292136335_ + _hd136291136338_ + _tl136290136340_ + ___splice149722149723_ + _target136293136343_ + _tl136295136345_) + (letrec ((_loop136296136348_ + (lambda (_hd136294136351_ + _arg136300136353_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd136289136346_)) - (let ((_e136292136351_ + _hd136294136351_)) + (let ((_e136297136356_ (let () (declare (not safe)) (gx#stx-e - _hd136289136346_)))) - (let ((_lp-tl136294136356_ + _hd136294136351_)))) + (let ((_lp-tl136299136361_ (let () (declare (not safe)) - (##cdr _e136292136351_))) - (_lp-hd136293136354_ + (##cdr _e136297136356_))) + (_lp-hd136298136359_ (let () (declare (not safe)) - (##car _e136292136351_)))) - (let ((__tmp150550 + (##car _e136297136356_)))) + (let ((__tmp150555 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _lp-hd136293136354_ _arg136295136348_)))) + (cons _lp-hd136298136359_ _arg136300136353_)))) (declare (not safe)) - (_loop136291136343_ _lp-tl136294136356_ __tmp150550)))) + (_loop136296136348_ _lp-tl136299136361_ __tmp150555)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_arg136296136359_ - (reverse _arg136295136348_))) - (___kont149715149716_ - _arg136296136359_ - _hd136286136333_)))))) + (let ((_arg136301136364_ + (reverse _arg136300136353_))) + (___kont149720149721_ + _arg136301136364_ + _hd136291136338_)))))) (let () (declare (not safe)) - (_loop136291136343_ - _target136288136338_ + (_loop136296136348_ + _target136293136343_ '()))))) - (___match149892149893_ - (lambda (_e136261136389_ - _hd136260136392_ - _tl136259136394_ - _e136264136397_ - _hd136263136400_ - _tl136262136402_ - _e136267136405_ - _hd136266136408_ - _tl136265136410_ - _e136270136413_ - _hd136269136416_ - _tl136268136418_ - _e136273136421_ - _hd136272136424_ - _tl136271136426_) - (let ((_L136429_ _hd136269136416_)) + (___match149897149898_ + (lambda (_e136266136394_ + _hd136265136397_ + _tl136264136399_ + _e136269136402_ + _hd136268136405_ + _tl136267136407_ + _e136272136410_ + _hd136271136413_ + _tl136270136415_ + _e136275136418_ + _hd136274136421_ + _tl136273136423_ + _e136278136426_ + _hd136277136429_ + _tl136276136431_) + (let ((_L136434_ _hd136274136421_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _L136429_ - _negation136059_)) - (___kont149713149714_ _L136429_) + _L136434_ + _negation136064_)) + (___kont149718149719_ _L136434_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl136262136402_)) - (let ((___splice149717149718_ + _tl136267136407_)) + (let ((___splice149722149723_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl136262136402_ + _tl136267136407_ '0)))) - (let ((_tl136290136340_ + (let ((_tl136295136345_ (let () (declare (not safe)) (##vector-ref - ___splice149717149718_ + ___splice149722149723_ '1))) - (_target136288136338_ + (_target136293136343_ (let () (declare (not safe)) (##vector-ref - ___splice149717149718_ + ___splice149722149723_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl136290136340_)) - (___match149934149935_ - _e136261136389_ - _hd136260136392_ - _tl136259136394_ - _e136264136397_ - _hd136263136400_ - _tl136262136402_ - _e136267136405_ - _hd136266136408_ - _tl136265136410_ - _e136270136413_ - _hd136269136416_ - _tl136268136418_ - ___splice149717149718_ - _target136288136338_ - _tl136290136340_) + _tl136295136345_)) + (___match149939149940_ + _e136266136394_ + _hd136265136397_ + _tl136264136399_ + _e136269136402_ + _hd136268136405_ + _tl136267136407_ + _e136272136410_ + _hd136271136413_ + _tl136270136415_ + _e136275136418_ + _hd136274136421_ + _tl136273136423_ + ___splice149722149723_ + _target136293136343_ + _tl136295136345_) (let () (declare (not safe)) - (_g136186136301_))))) + (_g136191136306_))))) (let () (declare (not safe)) - (_g136186136301_))))))) - (___match149850149851_ - (lambda (_e136242136451_ - _hd136241136454_ - _tl136240136456_ - _e136245136459_ - _hd136244136462_ - _tl136243136464_ - ___splice149711149712_ - _target136246136467_ - _tl136248136469_) - (letrec ((_loop136249136472_ - (lambda (_hd136247136475_ - _id136253136477_) + (_g136191136306_))))))) + (___match149855149856_ + (lambda (_e136247136456_ + _hd136246136459_ + _tl136245136461_ + _e136250136464_ + _hd136249136467_ + _tl136248136469_ + ___splice149716149717_ + _target136251136472_ + _tl136253136474_) + (letrec ((_loop136254136477_ + (lambda (_hd136252136480_ + _id136258136482_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd136247136475_)) - (let ((_e136250136480_ + _hd136252136480_)) + (let ((_e136255136485_ (let () (declare (not safe)) (gx#stx-e - _hd136247136475_)))) - (let ((_lp-tl136252136485_ + _hd136252136480_)))) + (let ((_lp-tl136257136490_ (let () (declare (not safe)) - (##cdr _e136250136480_))) - (_lp-hd136251136483_ + (##cdr _e136255136485_))) + (_lp-hd136256136488_ (let () (declare (not safe)) - (##car _e136250136480_)))) - (let ((__tmp150551 + (##car _e136255136485_)))) + (let ((__tmp150556 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _lp-hd136251136483_ _id136253136477_)))) + (cons _lp-hd136256136488_ _id136258136482_)))) (declare (not safe)) - (_loop136249136472_ _lp-tl136252136485_ __tmp150551)))) + (_loop136254136477_ _lp-tl136257136490_ __tmp150556)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_id136254136488_ - (reverse _id136253136477_))) + (let ((_id136259136493_ + (reverse _id136258136482_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl136243136464_)) - (let ((_e136257136491_ + _tl136248136469_)) + (let ((_e136262136496_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl136243136464_)))) - (let ((_tl136255136496_ - (let () (declare (not safe)) (##cdr _e136257136491_))) - (_hd136256136494_ + (gx#stx-e _tl136248136469_)))) + (let ((_tl136260136501_ + (let () (declare (not safe)) (##cdr _e136262136496_))) + (_hd136261136499_ (let () (declare (not safe)) - (##car _e136257136491_)))) + (##car _e136262136496_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl136255136496_)) - (___kont149709149710_ - _hd136256136494_ - _id136254136488_) - (let () (declare (not safe)) (_g136186136301_))))) - (let () (declare (not safe)) (_g136186136301_)))))))) + (gx#stx-null? _tl136260136501_)) + (___kont149714149715_ + _hd136261136499_ + _id136259136493_) + (let () (declare (not safe)) (_g136191136306_))))) + (let () (declare (not safe)) (_g136191136306_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop136249136472_ - _target136246136467_ + (_loop136254136477_ + _target136251136472_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx149701149702_)) - (let ((_e136193136660_ + (gx#stx-pair? ___stx149706149707_)) + (let ((_e136198136665_ (let () (declare (not safe)) - (gx#stx-e ___stx149701149702_)))) - (let ((_tl136191136665_ + (gx#stx-e ___stx149706149707_)))) + (let ((_tl136196136670_ (let () (declare (not safe)) - (##cdr _e136193136660_))) - (_hd136192136663_ + (##cdr _e136198136665_))) + (_hd136197136668_ (let () (declare (not safe)) - (##car _e136193136660_)))) + (##car _e136198136665_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd136192136663_)) + (gx#identifier? _hd136197136668_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _hd136192136663_)) + _hd136197136668_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl136191136665_)) - (let ((_e136196136668_ + _tl136196136670_)) + (let ((_e136201136673_ (let () (declare (not safe)) (gx#stx-e - _tl136191136665_)))) - (let ((_tl136194136673_ + _tl136196136670_)))) + (let ((_tl136199136678_ (let () (declare (not safe)) - (##cdr _e136196136668_))) - (_hd136195136671_ + (##cdr _e136201136673_))) + (_hd136200136676_ (let () (declare (not safe)) - (##car _e136196136668_)))) + (##car _e136201136673_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl136194136673_)) - (let ((_e136199136676_ + _tl136199136678_)) + (let ((_e136204136681_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl136194136673_)))) - (let ((_tl136197136681_ - (let () (declare (not safe)) (##cdr _e136199136676_))) - (_hd136198136679_ - (let () (declare (not safe)) (##car _e136199136676_)))) + (gx#stx-e _tl136199136678_)))) + (let ((_tl136202136686_ + (let () (declare (not safe)) (##cdr _e136204136681_))) + (_hd136203136684_ + (let () (declare (not safe)) (##car _e136204136681_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl136197136681_)) - (let ((_e136202136684_ + (gx#stx-pair? _tl136202136686_)) + (let ((_e136207136689_ (let () (declare (not safe)) - (gx#stx-e _tl136197136681_)))) - (let ((_tl136200136689_ + (gx#stx-e _tl136202136686_)))) + (let ((_tl136205136694_ (let () (declare (not safe)) - (##cdr _e136202136684_))) - (_hd136201136687_ + (##cdr _e136207136689_))) + (_hd136206136692_ (let () (declare (not safe)) - (##car _e136202136684_)))) + (##car _e136207136689_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl136200136689_)) - (___kont149703149704_ - _hd136201136687_ - _hd136198136679_ - _hd136195136671_) + (gx#stx-null? _tl136205136694_)) + (___kont149708149709_ + _hd136206136692_ + _hd136203136684_ + _hd136200136676_) (let () (declare (not safe)) - (_g136186136301_))))) - (let () (declare (not safe)) (_g136186136301_))))) - (let () (declare (not safe)) (_g136186136301_))))) + (_g136191136306_))))) + (let () (declare (not safe)) (_g136191136306_))))) + (let () (declare (not safe)) (_g136191136306_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g136186136301_))) + (_g136191136306_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd136192136663_)) + _hd136197136668_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl136191136665_)) - (let ((_e136210136624_ + _tl136196136670_)) + (let ((_e136215136629_ (let () (declare (not safe)) (gx#stx-e - _tl136191136665_)))) - (let ((_tl136208136629_ + _tl136196136670_)))) + (let ((_tl136213136634_ (let () (declare (not safe)) - (##cdr _e136210136624_))) - (_hd136209136627_ + (##cdr _e136215136629_))) + (_hd136214136632_ (let () (declare (not safe)) - (##car _e136210136624_)))) + (##car _e136215136629_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl136208136629_)) - (let ((_e136213136632_ + _tl136213136634_)) + (let ((_e136218136637_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl136208136629_)))) - (let ((_tl136211136637_ + (gx#stx-e _tl136213136634_)))) + (let ((_tl136216136642_ (let () (declare (not safe)) - (##cdr _e136213136632_))) - (_hd136212136635_ + (##cdr _e136218136637_))) + (_hd136217136640_ (let () (declare (not safe)) - (##car _e136213136632_)))) + (##car _e136218136637_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl136211136637_)) - (___kont149705149706_ - _hd136212136635_ - _hd136209136627_) - (let () (declare (not safe)) (_g136186136301_))))) - (let () (declare (not safe)) (_g136186136301_))))) + (gx#stx-null? _tl136216136642_)) + (___kont149710149711_ + _hd136217136640_ + _hd136214136632_) + (let () (declare (not safe)) (_g136191136306_))))) + (let () (declare (not safe)) (_g136191136306_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g136186136301_))) + (_g136191136306_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _hd136192136663_)) + _hd136197136668_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl136191136665_)) - (let ((_e136222136538_ + _tl136196136670_)) + (let ((_e136227136543_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl136191136665_)))) - (let ((_tl136220136543_ - (let () (declare (not safe)) (##cdr _e136222136538_))) - (_hd136221136541_ - (let () (declare (not safe)) (##car _e136222136538_)))) + (gx#stx-e _tl136196136670_)))) + (let ((_tl136225136548_ + (let () (declare (not safe)) (##cdr _e136227136543_))) + (_hd136226136546_ + (let () (declare (not safe)) (##car _e136227136543_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd136221136541_)) - (let ((_e136225136546_ + (gx#stx-pair? _hd136226136546_)) + (let ((_e136230136551_ (let () (declare (not safe)) - (gx#stx-e _hd136221136541_)))) - (let ((_tl136223136551_ + (gx#stx-e _hd136226136546_)))) + (let ((_tl136228136556_ (let () (declare (not safe)) - (##cdr _e136225136546_))) - (_hd136224136549_ + (##cdr _e136230136551_))) + (_hd136229136554_ (let () (declare (not safe)) - (##car _e136225136546_)))) + (##car _e136230136551_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd136224136549_)) - (let ((_e136228136554_ + (gx#stx-pair? _hd136229136554_)) + (let ((_e136233136559_ (let () (declare (not safe)) - (gx#stx-e _hd136224136549_)))) - (let ((_tl136226136559_ + (gx#stx-e _hd136229136554_)))) + (let ((_tl136231136564_ (let () (declare (not safe)) - (##cdr _e136228136554_))) - (_hd136227136557_ + (##cdr _e136233136559_))) + (_hd136232136562_ (let () (declare (not safe)) - (##car _e136228136554_)))) + (##car _e136233136559_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd136227136557_)) - (let ((_e136231136562_ + (gx#stx-pair? _hd136232136562_)) + (let ((_e136236136567_ (let () (declare (not safe)) - (gx#stx-e _hd136227136557_)))) - (let ((_tl136229136567_ + (gx#stx-e _hd136232136562_)))) + (let ((_tl136234136572_ (let () (declare (not safe)) - (##cdr _e136231136562_))) - (_hd136230136565_ + (##cdr _e136236136567_))) + (_hd136235136570_ (let () (declare (not safe)) - (##car _e136231136562_)))) + (##car _e136236136567_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl136229136567_)) + _tl136234136572_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl136226136559_)) - (let ((_e136234136570_ + _tl136231136564_)) + (let ((_e136239136575_ (let () (declare (not safe)) (gx#stx-e - _tl136226136559_)))) - (let ((_tl136232136575_ + _tl136231136564_)))) + (let ((_tl136237136580_ (let () (declare (not safe)) - (##cdr _e136234136570_))) - (_hd136233136573_ + (##cdr _e136239136575_))) + (_hd136238136578_ (let () (declare (not safe)) - (##car _e136234136570_)))) + (##car _e136239136575_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl136232136575_)) + _tl136237136580_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl136223136551_)) + (gx#stx-null? _tl136228136556_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl136220136543_)) - (let ((_e136237136578_ + (gx#stx-pair? _tl136225136548_)) + (let ((_e136242136583_ (let () (declare (not safe)) - (gx#stx-e _tl136220136543_)))) - (let ((_tl136235136583_ + (gx#stx-e _tl136225136548_)))) + (let ((_tl136240136588_ (let () (declare (not safe)) - (##cdr _e136237136578_))) - (_hd136236136581_ + (##cdr _e136242136583_))) + (_hd136241136586_ (let () (declare (not safe)) - (##car _e136237136578_)))) + (##car _e136242136583_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl136235136583_)) - (___kont149707149708_ - _hd136236136581_ - _hd136233136573_ - _hd136230136565_) + (gx#stx-null? _tl136240136588_)) + (___kont149712149713_ + _hd136241136586_ + _hd136238136578_ + _hd136235136570_) (let () (declare (not safe)) - (_g136186136301_))))) - (let () (declare (not safe)) (_g136186136301_))) - (let () (declare (not safe)) (_g136186136301_))) - (let () (declare (not safe)) (_g136186136301_))))) + (_g136191136306_))))) + (let () (declare (not safe)) (_g136191136306_))) + (let () (declare (not safe)) (_g136191136306_))) + (let () (declare (not safe)) (_g136191136306_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g136186136301_))) + (_g136191136306_))) (let () (declare (not safe)) - (_g136186136301_))))) + (_g136191136306_))))) (let () (declare (not safe)) - (_g136186136301_))))) + (_g136191136306_))))) (let () (declare (not safe)) - (_g136186136301_))))) - (let () (declare (not safe)) (_g136186136301_))))) - (let () (declare (not safe)) (_g136186136301_))) + (_g136191136306_))))) + (let () (declare (not safe)) (_g136191136306_))))) + (let () (declare (not safe)) (_g136191136306_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd136192136663_)) + _hd136197136668_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl136191136665_)) - (let ((_e136245136459_ + _tl136196136670_)) + (let ((_e136250136464_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl136191136665_)))) - (let ((_tl136243136464_ + (gx#stx-e _tl136196136670_)))) + (let ((_tl136248136469_ (let () (declare (not safe)) - (##cdr _e136245136459_))) - (_hd136244136462_ + (##cdr _e136250136464_))) + (_hd136249136467_ (let () (declare (not safe)) - (##car _e136245136459_)))) + (##car _e136250136464_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd136244136462_)) - (let ((___splice149711149712_ + (gx#stx-pair/null? _hd136249136467_)) + (let ((___splice149716149717_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd136244136462_ + _hd136249136467_ '0)))) - (let ((_tl136248136469_ + (let ((_tl136253136474_ (let () (declare (not safe)) - (##vector-ref ___splice149711149712_ '1))) - (_target136246136467_ + (##vector-ref ___splice149716149717_ '1))) + (_target136251136472_ (let () (declare (not safe)) (##vector-ref - ___splice149711149712_ + ___splice149716149717_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl136248136469_)) - (___match149850149851_ - _e136193136660_ - _hd136192136663_ - _tl136191136665_ - _e136245136459_ - _hd136244136462_ - _tl136243136464_ - ___splice149711149712_ - _target136246136467_ - _tl136248136469_) + (gx#stx-null? _tl136253136474_)) + (___match149855149856_ + _e136198136665_ + _hd136197136668_ + _tl136196136670_ + _e136250136464_ + _hd136249136467_ + _tl136248136469_ + ___splice149716149717_ + _target136251136472_ + _tl136253136474_) (let () (declare (not safe)) - (_g136186136301_))))) - (let () (declare (not safe)) (_g136186136301_))))) - (let () (declare (not safe)) (_g136186136301_))) + (_g136191136306_))))) + (let () (declare (not safe)) (_g136191136306_))))) + (let () (declare (not safe)) (_g136191136306_))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd136192136663_)) + (gx#stx-eq? '%#call _hd136197136668_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl136191136665_)) - (let ((_e136264136397_ + (gx#stx-pair? _tl136196136670_)) + (let ((_e136269136402_ (let () (declare (not safe)) - (gx#stx-e _tl136191136665_)))) - (let ((_tl136262136402_ + (gx#stx-e _tl136196136670_)))) + (let ((_tl136267136407_ (let () (declare (not safe)) - (##cdr _e136264136397_))) - (_hd136263136400_ + (##cdr _e136269136402_))) + (_hd136268136405_ (let () (declare (not safe)) - (##car _e136264136397_)))) + (##car _e136269136402_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd136263136400_)) - (let ((_e136267136405_ + (gx#stx-pair? _hd136268136405_)) + (let ((_e136272136410_ (let () (declare (not safe)) - (gx#stx-e _hd136263136400_)))) - (let ((_tl136265136410_ + (gx#stx-e _hd136268136405_)))) + (let ((_tl136270136415_ (let () (declare (not safe)) - (##cdr _e136267136405_))) - (_hd136266136408_ + (##cdr _e136272136410_))) + (_hd136271136413_ (let () (declare (not safe)) - (##car _e136267136405_)))) + (##car _e136272136410_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd136266136408_)) + (gx#identifier? _hd136271136413_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd136266136408_)) + _hd136271136413_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl136265136410_)) - (let ((_e136270136413_ + _tl136270136415_)) + (let ((_e136275136418_ (let () (declare (not safe)) (gx#stx-e - _tl136265136410_)))) - (let ((_tl136268136418_ + _tl136270136415_)))) + (let ((_tl136273136423_ (let () (declare (not safe)) - (##cdr _e136270136413_))) - (_hd136269136416_ + (##cdr _e136275136418_))) + (_hd136274136421_ (let () (declare (not safe)) - (##car _e136270136413_)))) + (##car _e136275136418_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl136268136418_)) + _tl136273136423_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl136262136402_)) - (let ((_e136273136421_ + _tl136267136407_)) + (let ((_e136278136426_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl136262136402_)))) - (let ((_tl136271136426_ + (gx#stx-e _tl136267136407_)))) + (let ((_tl136276136431_ (let () (declare (not safe)) - (##cdr _e136273136421_))) - (_hd136272136424_ + (##cdr _e136278136426_))) + (_hd136277136429_ (let () (declare (not safe)) - (##car _e136273136421_)))) + (##car _e136278136426_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl136271136426_)) - (___match149892149893_ - _e136193136660_ - _hd136192136663_ - _tl136191136665_ - _e136264136397_ - _hd136263136400_ - _tl136262136402_ - _e136267136405_ - _hd136266136408_ - _tl136265136410_ - _e136270136413_ - _hd136269136416_ - _tl136268136418_ - _e136273136421_ - _hd136272136424_ - _tl136271136426_) + (gx#stx-null? _tl136276136431_)) + (___match149897149898_ + _e136198136665_ + _hd136197136668_ + _tl136196136670_ + _e136269136402_ + _hd136268136405_ + _tl136267136407_ + _e136272136410_ + _hd136271136413_ + _tl136270136415_ + _e136275136418_ + _hd136274136421_ + _tl136273136423_ + _e136278136426_ + _hd136277136429_ + _tl136276136431_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl136262136402_)) - (let ((___splice149717149718_ + (gx#stx-pair/null? _tl136267136407_)) + (let ((___splice149722149723_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl136262136402_ + _tl136267136407_ '0)))) - (let ((_tl136290136340_ + (let ((_tl136295136345_ (let () (declare (not safe)) (##vector-ref - ___splice149717149718_ + ___splice149722149723_ '1))) - (_target136288136338_ + (_target136293136343_ (let () (declare (not safe)) (##vector-ref - ___splice149717149718_ + ___splice149722149723_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl136290136340_)) - (___match149934149935_ - _e136193136660_ - _hd136192136663_ - _tl136191136665_ - _e136264136397_ - _hd136263136400_ - _tl136262136402_ - _e136267136405_ - _hd136266136408_ - _tl136265136410_ - _e136270136413_ - _hd136269136416_ - _tl136268136418_ - ___splice149717149718_ - _target136288136338_ - _tl136290136340_) + (gx#stx-null? _tl136295136345_)) + (___match149939149940_ + _e136198136665_ + _hd136197136668_ + _tl136196136670_ + _e136269136402_ + _hd136268136405_ + _tl136267136407_ + _e136272136410_ + _hd136271136413_ + _tl136270136415_ + _e136275136418_ + _hd136274136421_ + _tl136273136423_ + ___splice149722149723_ + _target136293136343_ + _tl136295136345_) (let () (declare (not safe)) - (_g136186136301_))))) + (_g136191136306_))))) (let () (declare (not safe)) - (_g136186136301_)))))) + (_g136191136306_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl136262136402_)) - (let ((___splice149717149718_ + (gx#stx-pair/null? _tl136267136407_)) + (let ((___splice149722149723_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl136262136402_ '0)))) - (let ((_tl136290136340_ + (gx#syntax-split-splice _tl136267136407_ '0)))) + (let ((_tl136295136345_ (let () (declare (not safe)) - (##vector-ref ___splice149717149718_ '1))) - (_target136288136338_ + (##vector-ref ___splice149722149723_ '1))) + (_target136293136343_ (let () (declare (not safe)) - (##vector-ref ___splice149717149718_ '0)))) + (##vector-ref ___splice149722149723_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl136290136340_)) - (___match149934149935_ - _e136193136660_ - _hd136192136663_ - _tl136191136665_ - _e136264136397_ - _hd136263136400_ - _tl136262136402_ - _e136267136405_ - _hd136266136408_ - _tl136265136410_ - _e136270136413_ - _hd136269136416_ - _tl136268136418_ - ___splice149717149718_ - _target136288136338_ - _tl136290136340_) + (gx#stx-null? _tl136295136345_)) + (___match149939149940_ + _e136198136665_ + _hd136197136668_ + _tl136196136670_ + _e136269136402_ + _hd136268136405_ + _tl136267136407_ + _e136272136410_ + _hd136271136413_ + _tl136270136415_ + _e136275136418_ + _hd136274136421_ + _tl136273136423_ + ___splice149722149723_ + _target136293136343_ + _tl136295136345_) (let () (declare (not safe)) - (_g136186136301_))))) - (let () (declare (not safe)) (_g136186136301_)))) - (let () (declare (not safe)) (_g136186136301_))))) + (_g136191136306_))))) + (let () (declare (not safe)) (_g136191136306_)))) + (let () (declare (not safe)) (_g136191136306_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g136186136301_))) + (_g136191136306_))) (let () (declare (not safe)) - (_g136186136301_))) + (_g136191136306_))) (let () (declare (not safe)) - (_g136186136301_))))) + (_g136191136306_))))) (let () (declare (not safe)) - (_g136186136301_))))) - (let () (declare (not safe)) (_g136186136301_))) - (let () (declare (not safe)) (_g136186136301_))))))) + (_g136191136306_))))) + (let () (declare (not safe)) (_g136191136306_))) + (let () (declare (not safe)) (_g136191136306_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g136186136301_))))) + (_g136191136306_))))) (let () (declare (not safe)) - (_g136186136301_))))))))) - (let* ((_clause136063136070_ _clause136058_) - (_E136065136074_ + (_g136191136306_))))))))) + (let* ((_clause136068136075_ _clause136063_) + (_E136070136079_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _clause136063136070_)))) - (_K136066136167_ - (lambda (_kont136077_ _id136078_) - (let* ((_g136080136100_ - (lambda (_g136081136097_) + (error '"No clause matching" _clause136068136075_)))) + (_K136071136172_ + (lambda (_kont136082_ _id136083_) + (let* ((_g136085136105_ + (lambda (_g136086136102_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g136081136097_)))) - (_g136079136164_ - (lambda (_g136081136103_) + _g136086136102_)))) + (_g136084136169_ + (lambda (_g136086136108_) (if (let () (declare (not safe)) - (gx#stx-pair? _g136081136103_)) - (let ((_e136086136105_ + (gx#stx-pair? _g136086136108_)) + (let ((_e136091136110_ (let () (declare (not safe)) - (gx#stx-e _g136081136103_)))) - (let ((_hd136085136108_ + (gx#stx-e _g136086136108_)))) + (let ((_hd136090136113_ (let () (declare (not safe)) - (##car _e136086136105_))) - (_tl136084136110_ + (##car _e136091136110_))) + (_tl136089136115_ (let () (declare (not safe)) - (##cdr _e136086136105_)))) + (##cdr _e136091136110_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd136085136108_)) + (gx#identifier? _hd136090136113_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd136085136108_)) + _hd136090136113_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl136084136110_)) - (let ((_e136089136113_ + _tl136089136115_)) + (let ((_e136094136118_ (let () (declare (not safe)) (gx#stx-e - _tl136084136110_)))) - (let ((_hd136088136116_ + _tl136089136115_)))) + (let ((_hd136093136121_ (let () (declare (not safe)) - (##car _e136089136113_))) - (_tl136087136118_ + (##car _e136094136118_))) + (_tl136092136123_ (let () (declare (not safe)) - (##cdr _e136089136113_)))) + (##cdr _e136094136118_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd136088136116_)) - (let ((_e136092136121_ + _hd136093136121_)) + (let ((_e136097136126_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd136088136116_)))) - (let ((_hd136091136124_ + (gx#stx-e _hd136093136121_)))) + (let ((_hd136096136129_ (let () (declare (not safe)) - (##car _e136092136121_))) - (_tl136090136126_ + (##car _e136097136126_))) + (_tl136095136131_ (let () (declare (not safe)) - (##cdr _e136092136121_)))) + (##cdr _e136097136126_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl136090136126_)) + (gx#stx-null? _tl136095136131_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl136087136118_)) - (let ((_e136095136129_ + (gx#stx-pair? _tl136092136123_)) + (let ((_e136100136134_ (let () (declare (not safe)) - (gx#stx-e _tl136087136118_)))) - (let ((_hd136094136132_ + (gx#stx-e _tl136092136123_)))) + (let ((_hd136099136137_ (let () (declare (not safe)) - (##car _e136095136129_))) - (_tl136093136134_ + (##car _e136100136134_))) + (_tl136098136139_ (let () (declare (not safe)) - (##cdr _e136095136129_)))) + (##cdr _e136100136134_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl136093136134_)) - ((lambda (_L136137_ _L136138_) - (let* ((_body136159_ + (gx#stx-null? _tl136098136139_)) + ((lambda (_L136142_ _L136143_) + (let* ((_body136164_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L136137_ - _L136138_ - _target136060_))) - (_body136161_ - (if _negation136059_ + _L136142_ + _L136143_ + _target136065_))) + (_body136166_ + (if _negation136064_ (let () (declare (not safe)) - (_closure-e136062_ - _body136159_)) - _body136159_))) - (let ((__tmp150553 + (_closure-e136067_ + _body136164_)) + _body136164_))) + (let ((__tmp150558 (let () (declare (not safe)) (gxc#identifier-symbol - _id136078_))) - (__tmp150552 - (let ((__obj149986 + _id136083_))) + (__tmp150557 + (let ((__obj149991 (let () (declare (not safe)) (##structure @@ -18458,641 +18458,641 @@ '#f '#f)))) (gxc#!lambda:::init! - __obj149986 + __obj149991 'lambda '0 '#f) - __obj149986))) + __obj149991))) (declare (not safe)) (gxc#optimizer-declare-type!__% - __tmp150553 - __tmp150552 + __tmp150558 + __tmp150557 '#t)) - (let ((__tmp150554 - (let ((__tmp150555 - (let ((__tmp150556 + (let ((__tmp150559 + (let ((__tmp150560 + (let ((__tmp150561 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _body136161_ '())))) + (cons _body136166_ '())))) (declare (not safe)) - (cons '() __tmp150556)))) + (cons '() __tmp150561)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#lambda - __tmp150555)))) + __tmp150560)))) (declare (not safe)) - (cons _id136078_ __tmp150554)))) - _hd136094136132_ - _hd136091136124_) + (cons _id136083_ __tmp150559)))) + _hd136099136137_ + _hd136096136129_) (let () (declare (not safe)) - (_g136080136100_ _g136081136103_))))) + (_g136085136105_ _g136086136108_))))) (let () (declare (not safe)) - (_g136080136100_ _g136081136103_))) + (_g136085136105_ _g136086136108_))) (let () (declare (not safe)) - (_g136080136100_ _g136081136103_))))) + (_g136085136105_ _g136086136108_))))) (let () (declare (not safe)) - (_g136080136100_ _g136081136103_))))) + (_g136085136105_ _g136086136108_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g136080136100_ - _g136081136103_))) + (_g136085136105_ + _g136086136108_))) (let () (declare (not safe)) - (_g136080136100_ - _g136081136103_))) + (_g136085136105_ + _g136086136108_))) (let () (declare (not safe)) - (_g136080136100_ - _g136081136103_))))) + (_g136085136105_ + _g136086136108_))))) (let () (declare (not safe)) - (_g136080136100_ _g136081136103_)))))) + (_g136085136105_ _g136086136108_)))))) (declare (not safe)) - (_g136079136164_ _kont136077_))))) - (if (let () (declare (not safe)) (##pair? _clause136063136070_)) - (let ((_hd136067136170_ + (_g136084136169_ _kont136082_))))) + (if (let () (declare (not safe)) (##pair? _clause136068136075_)) + (let ((_hd136072136175_ (let () (declare (not safe)) - (##car _clause136063136070_))) - (_tl136068136172_ + (##car _clause136068136075_))) + (_tl136073136177_ (let () (declare (not safe)) - (##cdr _clause136063136070_)))) - (let* ((_id136175_ _hd136067136170_) - (_kont136177_ _tl136068136172_)) + (##cdr _clause136068136075_)))) + (let* ((_id136180_ _hd136072136175_) + (_kont136182_ _tl136073136177_)) (declare (not safe)) - (_K136066136167_ _kont136177_ _id136175_))) - (let () (declare (not safe)) (_E136065136074_))))))) + (_K136071136172_ _kont136182_ _id136180_))) + (let () (declare (not safe)) (_E136070136079_))))))) (define gxc#push-match-vars-let-values% - (lambda (_stx135844_ _vars135845_ _K135846_) - (let* ((_g135848135865_ - (lambda (_g135849135862_) + (lambda (_stx135849_ _vars135850_ _K135851_) + (let* ((_g135853135870_ + (lambda (_g135854135867_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g135849135862_)))) - (_g135847136055_ - (lambda (_g135849135868_) + _g135854135867_)))) + (_g135852136060_ + (lambda (_g135854135873_) (if (let () (declare (not safe)) - (gx#stx-pair? _g135849135868_)) - (let ((_e135854135870_ + (gx#stx-pair? _g135854135873_)) + (let ((_e135859135875_ (let () (declare (not safe)) - (gx#stx-e _g135849135868_)))) - (let ((_hd135853135873_ + (gx#stx-e _g135854135873_)))) + (let ((_hd135858135878_ (let () (declare (not safe)) - (##car _e135854135870_))) - (_tl135852135875_ + (##car _e135859135875_))) + (_tl135857135880_ (let () (declare (not safe)) - (##cdr _e135854135870_)))) + (##cdr _e135859135875_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl135852135875_)) - (let ((_e135857135878_ + (gx#stx-pair? _tl135857135880_)) + (let ((_e135862135883_ (let () (declare (not safe)) - (gx#stx-e _tl135852135875_)))) - (let ((_hd135856135881_ + (gx#stx-e _tl135857135880_)))) + (let ((_hd135861135886_ (let () (declare (not safe)) - (##car _e135857135878_))) - (_tl135855135883_ + (##car _e135862135883_))) + (_tl135860135888_ (let () (declare (not safe)) - (##cdr _e135857135878_)))) + (##cdr _e135862135883_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl135855135883_)) - (let ((_e135860135886_ + (gx#stx-pair? _tl135860135888_)) + (let ((_e135865135891_ (let () (declare (not safe)) - (gx#stx-e _tl135855135883_)))) - (let ((_hd135859135889_ + (gx#stx-e _tl135860135888_)))) + (let ((_hd135864135894_ (let () (declare (not safe)) - (##car _e135860135886_))) - (_tl135858135891_ + (##car _e135865135891_))) + (_tl135863135896_ (let () (declare (not safe)) - (##cdr _e135860135886_)))) + (##cdr _e135865135891_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl135858135891_)) - ((lambda (_L135894_ _L135895_) - (let _lp135910_ ((_rest135912_ + _tl135863135896_)) + ((lambda (_L135899_ _L135900_) + (let _lp135915_ ((_rest135917_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L135895_) - (_rebind135913_ '()) - (_vars135914_ _vars135845_)) + _L135900_) + (_rebind135918_ '()) + (_vars135919_ _vars135850_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_rest135915135923_ - _rest135912_) - (_else135917135931_ + (let* ((_rest135920135928_ + _rest135917_) + (_else135922135936_ (lambda () (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (null? _rebind135913_)) + (null? _rebind135918_)) (let () (declare (not safe)) - (gxc#compile-e__2 _L135894_ _vars135914_ _K135846_)) - (let ((__tmp150557 - (let ((__tmp150558 - (let ((__tmp150561 - (reverse _rebind135913_)) - (__tmp150559 - (let ((__tmp150560 + (gxc#compile-e__2 _L135899_ _vars135919_ _K135851_)) + (let ((__tmp150562 + (let ((__tmp150563 + (let ((__tmp150566 + (reverse _rebind135918_)) + (__tmp150564 + (let ((__tmp150565 (let () (declare (not safe)) (gxc#compile-e__2 - _L135894_ - _vars135914_ - _K135846_)))) + _L135899_ + _vars135919_ + _K135851_)))) (declare (not safe)) - (cons __tmp150560 '())))) + (cons __tmp150565 '())))) (declare (not safe)) - (cons __tmp150561 __tmp150559)))) + (cons __tmp150566 __tmp150564)))) (declare (not safe)) - (cons '%#let-values __tmp150558)))) + (cons '%#let-values __tmp150563)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp150557 _stx135844_))))) - (_K135919136043_ - (lambda (_rest135934_ _bind135935_) - (let* ((___stx149937149938_ _bind135935_) - (_g135938135961_ + (gxc#xform-wrap-source __tmp150562 _stx135849_))))) + (_K135924136048_ + (lambda (_rest135939_ _bind135940_) + (let* ((___stx149942149943_ _bind135940_) + (_g135943135966_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx149937149938_))))) - (let ((___kont149939149940_ - (lambda (_L136013_ _L136014_) - (let ((__tmp150562 + ___stx149942149943_))))) + (let ((___kont149944149945_ + (lambda (_L136018_ _L136019_) + (let ((__tmp150567 (let () (declare (not safe)) - (cons _bind135935_ _vars135914_)))) + (cons _bind135940_ _vars135919_)))) (declare (not safe)) - (_lp135910_ - _rest135934_ - _rebind135913_ - __tmp150562)))) - (___kont149941149942_ + (_lp135915_ + _rest135939_ + _rebind135918_ + __tmp150567)))) + (___kont149946149947_ (lambda () - (let ((__tmp150563 + (let ((__tmp150568 (let () (declare (not safe)) - (cons _bind135935_ _rebind135913_)))) + (cons _bind135940_ _rebind135918_)))) (declare (not safe)) - (_lp135910_ - _rest135934_ - __tmp150563 - _vars135914_))))) + (_lp135915_ + _rest135939_ + __tmp150568 + _vars135919_))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx149937149938_)) - (let ((_e135944135973_ + (gx#stx-pair? ___stx149942149943_)) + (let ((_e135949135978_ (let () (declare (not safe)) - (gx#stx-e ___stx149937149938_)))) - (let ((_tl135942135978_ + (gx#stx-e ___stx149942149943_)))) + (let ((_tl135947135983_ (let () (declare (not safe)) - (##cdr _e135944135973_))) - (_hd135943135976_ + (##cdr _e135949135978_))) + (_hd135948135981_ (let () (declare (not safe)) - (##car _e135944135973_)))) + (##car _e135949135978_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd135943135976_)) - (let ((_e135947135981_ + (gx#stx-pair? _hd135948135981_)) + (let ((_e135952135986_ (let () (declare (not safe)) - (gx#stx-e _hd135943135976_)))) - (let ((_tl135945135986_ + (gx#stx-e _hd135948135981_)))) + (let ((_tl135950135991_ (let () (declare (not safe)) - (##cdr _e135947135981_))) - (_hd135946135984_ + (##cdr _e135952135986_))) + (_hd135951135989_ (let () (declare (not safe)) - (##car _e135947135981_)))) + (##car _e135952135986_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl135945135986_)) + (gx#stx-null? _tl135950135991_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl135942135978_)) - (let ((_e135950135989_ + _tl135947135983_)) + (let ((_e135955135994_ (let () (declare (not safe)) (gx#stx-e - _tl135942135978_)))) - (let ((_tl135948135994_ + _tl135947135983_)))) + (let ((_tl135953135999_ (let () (declare (not safe)) - (##cdr _e135950135989_))) - (_hd135949135992_ + (##cdr _e135955135994_))) + (_hd135954135997_ (let () (declare (not safe)) - (##car _e135950135989_)))) + (##car _e135955135994_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd135949135992_)) - (let ((_e135953135997_ + _hd135954135997_)) + (let ((_e135958136002_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd135949135992_)))) - (let ((_tl135951136002_ + (gx#stx-e _hd135954135997_)))) + (let ((_tl135956136007_ (let () (declare (not safe)) - (##cdr _e135953135997_))) - (_hd135952136000_ + (##cdr _e135958136002_))) + (_hd135957136005_ (let () (declare (not safe)) - (##car _e135953135997_)))) + (##car _e135958136002_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd135952136000_)) + (gx#identifier? _hd135957136005_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd135952136000_)) + (gx#stx-eq? '%#ref _hd135957136005_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl135951136002_)) - (let ((_e135956136005_ + (gx#stx-pair? _tl135956136007_)) + (let ((_e135961136010_ (let () (declare (not safe)) - (gx#stx-e _tl135951136002_)))) - (let ((_tl135954136010_ + (gx#stx-e _tl135956136007_)))) + (let ((_tl135959136015_ (let () (declare (not safe)) - (##cdr _e135956136005_))) - (_hd135955136008_ + (##cdr _e135961136010_))) + (_hd135960136013_ (let () (declare (not safe)) - (##car _e135956136005_)))) + (##car _e135961136010_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl135954136010_)) + (gx#stx-null? _tl135959136015_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl135948135994_)) - (___kont149939149940_ - _hd135955136008_ - _hd135946135984_) - (___kont149941149942_)) - (___kont149941149942_)))) - (___kont149941149942_)) - (___kont149941149942_)) - (___kont149941149942_)))) - (___kont149941149942_)))) + (gx#stx-null? _tl135953135999_)) + (___kont149944149945_ + _hd135960136013_ + _hd135951135989_) + (___kont149946149947_)) + (___kont149946149947_)))) + (___kont149946149947_)) + (___kont149946149947_)) + (___kont149946149947_)))) + (___kont149946149947_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont149941149942_)) - (___kont149941149942_)))) - (___kont149941149942_)))) - (___kont149941149942_))))))) + (___kont149946149947_)) + (___kont149946149947_)))) + (___kont149946149947_)))) + (___kont149946149947_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _rest135915135923_)) - (let ((_hd135920136046_ + (##pair? _rest135920135928_)) + (let ((_hd135925136051_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _rest135915135923_))) - (_tl135921136048_ + (##car _rest135920135928_))) + (_tl135926136053_ (let () (declare (not safe)) - (##cdr _rest135915135923_)))) - (let* ((_bind136051_ _hd135920136046_) - (_rest136053_ _tl135921136048_)) + (##cdr _rest135920135928_)))) + (let* ((_bind136056_ _hd135925136051_) + (_rest136058_ _tl135926136053_)) (declare (not safe)) - (_K135919136043_ _rest136053_ _bind136051_))) - (let () (declare (not safe)) (_else135917135931_)))))) + (_K135924136048_ _rest136058_ _bind136056_))) + (let () (declare (not safe)) (_else135922135936_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd135859135889_ - _hd135856135881_) + _hd135864135894_ + _hd135861135886_) (let () (declare (not safe)) - (_g135848135865_ - _g135849135868_))))) + (_g135853135870_ + _g135854135873_))))) (let () (declare (not safe)) - (_g135848135865_ _g135849135868_))))) + (_g135853135870_ _g135854135873_))))) (let () (declare (not safe)) - (_g135848135865_ _g135849135868_))))) + (_g135853135870_ _g135854135873_))))) (let () (declare (not safe)) - (_g135848135865_ _g135849135868_)))))) + (_g135853135870_ _g135854135873_)))))) (declare (not safe)) - (_g135847136055_ _stx135844_)))) + (_g135852136060_ _stx135849_)))) (define gxc#push-match-vars-if% - (lambda (_stx135759_ _vars135760_ _K135761_) - (let* ((_g135763135784_ - (lambda (_g135764135781_) + (lambda (_stx135764_ _vars135765_ _K135766_) + (let* ((_g135768135789_ + (lambda (_g135769135786_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g135764135781_)))) - (_g135762135841_ - (lambda (_g135764135787_) + _g135769135786_)))) + (_g135767135846_ + (lambda (_g135769135792_) (if (let () (declare (not safe)) - (gx#stx-pair? _g135764135787_)) - (let ((_e135770135789_ + (gx#stx-pair? _g135769135792_)) + (let ((_e135775135794_ (let () (declare (not safe)) - (gx#stx-e _g135764135787_)))) - (let ((_hd135769135792_ + (gx#stx-e _g135769135792_)))) + (let ((_hd135774135797_ (let () (declare (not safe)) - (##car _e135770135789_))) - (_tl135768135794_ + (##car _e135775135794_))) + (_tl135773135799_ (let () (declare (not safe)) - (##cdr _e135770135789_)))) + (##cdr _e135775135794_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl135768135794_)) - (let ((_e135773135797_ + (gx#stx-pair? _tl135773135799_)) + (let ((_e135778135802_ (let () (declare (not safe)) - (gx#stx-e _tl135768135794_)))) - (let ((_hd135772135800_ + (gx#stx-e _tl135773135799_)))) + (let ((_hd135777135805_ (let () (declare (not safe)) - (##car _e135773135797_))) - (_tl135771135802_ + (##car _e135778135802_))) + (_tl135776135807_ (let () (declare (not safe)) - (##cdr _e135773135797_)))) + (##cdr _e135778135802_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl135771135802_)) - (let ((_e135776135805_ + (gx#stx-pair? _tl135776135807_)) + (let ((_e135781135810_ (let () (declare (not safe)) - (gx#stx-e _tl135771135802_)))) - (let ((_hd135775135808_ + (gx#stx-e _tl135776135807_)))) + (let ((_hd135780135813_ (let () (declare (not safe)) - (##car _e135776135805_))) - (_tl135774135810_ + (##car _e135781135810_))) + (_tl135779135815_ (let () (declare (not safe)) - (##cdr _e135776135805_)))) + (##cdr _e135781135810_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl135774135810_)) - (let ((_e135779135813_ + _tl135779135815_)) + (let ((_e135784135818_ (let () (declare (not safe)) (gx#stx-e - _tl135774135810_)))) - (let ((_hd135778135816_ + _tl135779135815_)))) + (let ((_hd135783135821_ (let () (declare (not safe)) - (##car _e135779135813_))) - (_tl135777135818_ + (##car _e135784135818_))) + (_tl135782135823_ (let () (declare (not safe)) - (##cdr _e135779135813_)))) + (##cdr _e135784135818_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl135777135818_)) - ((lambda (_L135821_ - _L135822_ - _L135823_) - (if (let ((__tmp150570 + _tl135782135823_)) + ((lambda (_L135826_ + _L135827_ + _L135828_) + (if (let ((__tmp150575 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (map caar _vars135760_))) + (map caar _vars135765_))) (declare (not safe)) - (gxc#apply-find-var-refs _L135823_ __tmp150570)) + (gxc#apply-find-var-refs _L135828_ __tmp150575)) (let () (declare (not safe)) (gxc#push-match-vars-stop - _stx135759_ - _vars135760_ - _K135761_)) - (let ((__tmp150564 - (let ((__tmp150565 - (let ((__tmp150566 - (let ((__tmp150569 + _stx135764_ + _vars135765_ + _K135766_)) + (let ((__tmp150569 + (let ((__tmp150570 + (let ((__tmp150571 + (let ((__tmp150574 (let () (declare (not safe)) (gxc#compile-e__2 - _L135822_ - _vars135760_ - _K135761_))) - (__tmp150567 - (let ((__tmp150568 + _L135827_ + _vars135765_ + _K135766_))) + (__tmp150572 + (let ((__tmp150573 (let () (declare (not safe)) (gxc#compile-e__2 - _L135821_ - _vars135760_ - _K135761_)))) + _L135826_ + _vars135765_ + _K135766_)))) (declare (not safe)) - (cons __tmp150568 '())))) + (cons __tmp150573 '())))) (declare (not safe)) - (cons __tmp150569 __tmp150567)))) + (cons __tmp150574 __tmp150572)))) (declare (not safe)) - (cons _L135823_ __tmp150566)))) + (cons _L135828_ __tmp150571)))) (declare (not safe)) - (cons '%#if __tmp150565)))) + (cons '%#if __tmp150570)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp150564 _stx135759_)))) - _hd135778135816_ - _hd135775135808_ - _hd135772135800_) + (gxc#xform-wrap-source __tmp150569 _stx135764_)))) + _hd135783135821_ + _hd135780135813_ + _hd135777135805_) (let () (declare (not safe)) - (_g135763135784_ _g135764135787_))))) + (_g135768135789_ _g135769135792_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g135763135784_ - _g135764135787_))))) + (_g135768135789_ + _g135769135792_))))) (let () (declare (not safe)) - (_g135763135784_ _g135764135787_))))) + (_g135768135789_ _g135769135792_))))) (let () (declare (not safe)) - (_g135763135784_ _g135764135787_))))) + (_g135768135789_ _g135769135792_))))) (let () (declare (not safe)) - (_g135763135784_ _g135764135787_)))))) + (_g135768135789_ _g135769135792_)))))) (declare (not safe)) - (_g135762135841_ _stx135759_)))) + (_g135767135846_ _stx135764_)))) (define gxc#push-match-vars-call% - (lambda (_stx135679_ _vars135680_ _K135681_) - (let* ((_g135683135702_ - (lambda (_g135684135699_) + (lambda (_stx135684_ _vars135685_ _K135686_) + (let* ((_g135688135707_ + (lambda (_g135689135704_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g135684135699_)))) - (_g135682135756_ - (lambda (_g135684135705_) + _g135689135704_)))) + (_g135687135761_ + (lambda (_g135689135710_) (if (let () (declare (not safe)) - (gx#stx-pair? _g135684135705_)) - (let ((_e135688135707_ + (gx#stx-pair? _g135689135710_)) + (let ((_e135693135712_ (let () (declare (not safe)) - (gx#stx-e _g135684135705_)))) - (let ((_hd135687135710_ + (gx#stx-e _g135689135710_)))) + (let ((_hd135692135715_ (let () (declare (not safe)) - (##car _e135688135707_))) - (_tl135686135712_ + (##car _e135693135712_))) + (_tl135691135717_ (let () (declare (not safe)) - (##cdr _e135688135707_)))) + (##cdr _e135693135712_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl135686135712_)) - (let ((_e135691135715_ + (gx#stx-pair? _tl135691135717_)) + (let ((_e135696135720_ (let () (declare (not safe)) - (gx#stx-e _tl135686135712_)))) - (let ((_hd135690135718_ + (gx#stx-e _tl135691135717_)))) + (let ((_hd135695135723_ (let () (declare (not safe)) - (##car _e135691135715_))) - (_tl135689135720_ + (##car _e135696135720_))) + (_tl135694135725_ (let () (declare (not safe)) - (##cdr _e135691135715_)))) + (##cdr _e135696135720_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd135690135718_)) - (let ((_e135694135723_ + (gx#stx-pair? _hd135695135723_)) + (let ((_e135699135728_ (let () (declare (not safe)) - (gx#stx-e _hd135690135718_)))) - (let ((_hd135693135726_ + (gx#stx-e _hd135695135723_)))) + (let ((_hd135698135731_ (let () (declare (not safe)) - (##car _e135694135723_))) - (_tl135692135728_ + (##car _e135699135728_))) + (_tl135697135733_ (let () (declare (not safe)) - (##cdr _e135694135723_)))) + (##cdr _e135699135728_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd135693135726_)) + _hd135698135731_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd135693135726_)) + _hd135698135731_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl135692135728_)) - (let ((_e135697135731_ + _tl135697135733_)) + (let ((_e135702135736_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl135692135728_)))) - (let ((_hd135696135734_ - (let () (declare (not safe)) (##car _e135697135731_))) - (_tl135695135736_ - (let () (declare (not safe)) (##cdr _e135697135731_)))) + (gx#stx-e _tl135697135733_)))) + (let ((_hd135701135739_ + (let () (declare (not safe)) (##car _e135702135736_))) + (_tl135700135741_ + (let () (declare (not safe)) (##cdr _e135702135736_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl135695135736_)) - ((lambda (_L135739_) + (gx#stx-null? _tl135700135741_)) + ((lambda (_L135744_) (if (and (let () (declare (not safe)) - (gx#free-identifier=? _L135739_ _K135681_)) + (gx#free-identifier=? _L135744_ _K135686_)) (let () (declare (not safe)) - (pair? _vars135680_))) - (let ((__tmp150571 - (let ((__tmp150572 - (let ((__tmp150574 - (reverse _vars135680_)) - (__tmp150573 + (pair? _vars135685_))) + (let ((__tmp150576 + (let ((__tmp150577 + (let ((__tmp150579 + (reverse _vars135685_)) + (__tmp150578 (let () (declare (not safe)) - (cons _stx135679_ '())))) + (cons _stx135684_ '())))) (declare (not safe)) - (cons __tmp150574 __tmp150573)))) + (cons __tmp150579 __tmp150578)))) (declare (not safe)) - (cons '%#let-values __tmp150572)))) + (cons '%#let-values __tmp150577)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp150571 _stx135679_)) - _stx135679_)) - _hd135696135734_) + (gxc#xform-wrap-source __tmp150576 _stx135684_)) + _stx135684_)) + _hd135701135739_) (let () (declare (not safe)) - (_g135683135702_ _g135684135705_))))) - (let () (declare (not safe)) (_g135683135702_ _g135684135705_))) + (_g135688135707_ _g135689135710_))))) + (let () (declare (not safe)) (_g135688135707_ _g135689135710_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g135683135702_ - _g135684135705_))) + (_g135688135707_ + _g135689135710_))) (let () (declare (not safe)) - (_g135683135702_ - _g135684135705_))))) + (_g135688135707_ + _g135689135710_))))) (let () (declare (not safe)) - (_g135683135702_ _g135684135705_))))) + (_g135688135707_ _g135689135710_))))) (let () (declare (not safe)) - (_g135683135702_ _g135684135705_))))) + (_g135688135707_ _g135689135710_))))) (let () (declare (not safe)) - (_g135683135702_ _g135684135705_)))))) + (_g135688135707_ _g135689135710_)))))) (declare (not safe)) - (_g135682135756_ _stx135679_)))) + (_g135687135761_ _stx135684_)))) (define gxc#push-match-vars-stop - (lambda (_stx135675_ _vars135676_ _K135677_) - (if (let () (declare (not safe)) (null? _vars135676_)) - _stx135675_ - (let ((__tmp150575 - (let ((__tmp150576 - (let ((__tmp150578 (reverse _vars135676_)) - (__tmp150577 + (lambda (_stx135680_ _vars135681_ _K135682_) + (if (let () (declare (not safe)) (null? _vars135681_)) + _stx135680_ + (let ((__tmp150580 + (let ((__tmp150581 + (let ((__tmp150583 (reverse _vars135681_)) + (__tmp150582 (let () (declare (not safe)) - (cons _stx135675_ '())))) + (cons _stx135680_ '())))) (declare (not safe)) - (cons __tmp150578 __tmp150577)))) + (cons __tmp150583 __tmp150582)))) (declare (not safe)) - (cons '%#let-values __tmp150576)))) + (cons '%#let-values __tmp150581)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp150575 _stx135675_))))))) + (gxc#xform-wrap-source __tmp150580 _stx135680_))))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-base__0.scm b/src/bootstrap/gerbil/compiler/optimize-base__0.scm index 078aa688..4065026b 100644 --- a/src/bootstrap/gerbil/compiler/optimize-base__0.scm +++ b/src/bootstrap/gerbil/compiler/optimize-base__0.scm @@ -1,32 +1,32 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize-base::timestamp 1709229971) + (define gerbil/compiler/optimize-base::timestamp 1709375799) (begin (define gxc#current-compile-optimizer-info (make-parameter '#f)) (define gxc#current-compile-mutators (make-parameter '#f)) (define gxc#current-compile-local-type (make-parameter '#f)) (define gxc#optimizer-info::t - (let ((__tmp114293 (list)) - (__tmp114291 - (let ((__tmp114292 + (let ((__tmp114298 (list)) + (__tmp114296 + (let ((__tmp114297 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp114292 '())))) + (cons __tmp114297 '())))) (declare (not safe)) (make-class-type 'gxc#optimizer-info::t 'optimizer-info - __tmp114293 + __tmp114298 '(type ssxi methods) - __tmp114291 + __tmp114296 ':init!))) (define gxc#optimizer-info? (let () (declare (not safe)) (make-class-predicate gxc#optimizer-info::t))) (define gxc#make-optimizer-info - (lambda _$args114227_ - (apply make-instance gxc#optimizer-info::t _$args114227_))) + (lambda _$args114232_ + (apply make-instance gxc#optimizer-info::t _$args114232_))) (define gxc#optimizer-info-type (let () (declare (not safe)) @@ -76,62 +76,62 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#optimizer-info::t 'methods))) (define gxc#optimizer-info:::init! - (lambda (_self114225_) - (if (let ((__tmp114301 + (lambda (_self114230_) + (if (let ((__tmp114306 (let () (declare (not safe)) - (##structure-length _self114225_)))) + (##structure-length _self114230_)))) (declare (not safe)) - (##fx< '3 __tmp114301)) + (##fx< '3 __tmp114306)) (begin - (let ((__tmp114296 + (let ((__tmp114301 (let () (declare (not safe)) (make-hash-table-eq))) - (__tmp114295 + (__tmp114300 (let () (declare (not safe)) - (##structure-type _self114225_)))) + (##structure-type _self114230_)))) (declare (not safe)) (##unchecked-structure-set! - _self114225_ - __tmp114296 + _self114230_ + __tmp114301 '1 - __tmp114295 + __tmp114300 '#f)) - (let ((__tmp114298 + (let ((__tmp114303 (let () (declare (not safe)) (make-hash-table-eq))) - (__tmp114297 + (__tmp114302 (let () (declare (not safe)) - (##structure-type _self114225_)))) + (##structure-type _self114230_)))) (declare (not safe)) (##unchecked-structure-set! - _self114225_ - __tmp114298 + _self114230_ + __tmp114303 '2 - __tmp114297 + __tmp114302 '#f)) - (let ((__tmp114300 + (let ((__tmp114305 (let () (declare (not safe)) (make-hash-table-eq))) - (__tmp114299 + (__tmp114304 (let () (declare (not safe)) - (##structure-type _self114225_)))) + (##structure-type _self114230_)))) (declare (not safe)) (##unchecked-structure-set! - _self114225_ - __tmp114300 + _self114230_ + __tmp114305 '3 - __tmp114299 + __tmp114304 '#f))) - (let ((__tmp114294 + (let ((__tmp114299 (let () (declare (not safe)) - (##vector-length _self114225_)))) + (##vector-length _self114230_)))) (declare (not safe)) (error '"struct-instance-init!: too many arguments for struct" - _self114225_ + _self114230_ '3 - __tmp114294))))) + __tmp114299))))) (let () (declare (not safe)) (bind-method!__% @@ -140,24 +140,24 @@ gxc#optimizer-info:::init! '#f)) (define gxc#!type::t - (let ((__tmp114304 (list)) - (__tmp114302 - (let ((__tmp114303 + (let ((__tmp114309 (list)) + (__tmp114307 + (let ((__tmp114308 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp114303 '())))) + (cons __tmp114308 '())))) (declare (not safe)) (make-class-type 'gxc#!type::t '!type - __tmp114304 + __tmp114309 '(id) - __tmp114302 + __tmp114307 '#f))) (define gxc#!type? (let () (declare (not safe)) (make-class-predicate gxc#!type::t))) (define gxc#make-!type - (lambda _$args114100_ (apply make-instance gxc#!type::t _$args114100_))) + (lambda _$args114105_ (apply make-instance gxc#!type::t _$args114105_))) (define gxc#!type-id (let () (declare (not safe)) @@ -173,24 +173,24 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#!type::t 'id))) (define gxc#!alias::t - (let ((__tmp114307 (list gxc#!type::t)) - (__tmp114305 - (let ((__tmp114306 + (let ((__tmp114312 (list gxc#!type::t)) + (__tmp114310 + (let ((__tmp114311 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp114306 '())))) + (cons __tmp114311 '())))) (declare (not safe)) (make-class-type 'gxc#!alias::t '!alias - __tmp114307 + __tmp114312 '() - __tmp114305 + __tmp114310 '#f))) (define gxc#!alias? (let () (declare (not safe)) (make-class-predicate gxc#!alias::t))) (define gxc#make-!alias - (lambda _$args114097_ (apply make-instance gxc#!alias::t _$args114097_))) + (lambda _$args114102_ (apply make-instance gxc#!alias::t _$args114102_))) (define gxc#!alias-id (let () (declare (not safe)) @@ -208,25 +208,25 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#!alias::t 'id))) (define gxc#!procedure::t - (let ((__tmp114310 (list gxc#!type::t)) - (__tmp114308 - (let ((__tmp114309 + (let ((__tmp114315 (list gxc#!type::t)) + (__tmp114313 + (let ((__tmp114314 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp114309 '())))) + (cons __tmp114314 '())))) (declare (not safe)) (make-class-type 'gxc#!procedure::t '!procedure - __tmp114310 + __tmp114315 '() - __tmp114308 + __tmp114313 '#f))) (define gxc#!procedure? (let () (declare (not safe)) (make-class-predicate gxc#!procedure::t))) (define gxc#make-!procedure - (lambda _$args114094_ - (apply make-instance gxc#!procedure::t _$args114094_))) + (lambda _$args114099_ + (apply make-instance gxc#!procedure::t _$args114099_))) (define gxc#!procedure-id (let () (declare (not safe)) @@ -244,17 +244,17 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#!procedure::t 'id))) (define gxc#!class::t - (let ((__tmp114313 (list gxc#!type::t)) - (__tmp114311 - (let ((__tmp114312 + (let ((__tmp114318 (list gxc#!type::t)) + (__tmp114316 + (let ((__tmp114317 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp114312 '())))) + (cons __tmp114317 '())))) (declare (not safe)) (make-class-type 'gxc#!class::t '!class - __tmp114313 + __tmp114318 '(super precedence-list slots fields @@ -263,12 +263,12 @@ final? metaclass methods) - __tmp114311 + __tmp114316 ':init!))) (define gxc#!class? (let () (declare (not safe)) (make-class-predicate gxc#!class::t))) (define gxc#make-!class - (lambda _$args114091_ (apply make-instance gxc#!class::t _$args114091_))) + (lambda _$args114096_ (apply make-instance gxc#!class::t _$args114096_))) (define gxc#!class-super (let () (declare (not safe)) @@ -430,25 +430,25 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#!class::t 'id))) (define gxc#!predicate::t - (let ((__tmp114316 (list gxc#!procedure::t)) - (__tmp114314 - (let ((__tmp114315 + (let ((__tmp114321 (list gxc#!procedure::t)) + (__tmp114319 + (let ((__tmp114320 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp114315 '())))) + (cons __tmp114320 '())))) (declare (not safe)) (make-class-type 'gxc#!predicate::t '!predicate - __tmp114316 + __tmp114321 '() - __tmp114314 + __tmp114319 '#f))) (define gxc#!predicate? (let () (declare (not safe)) (make-class-predicate gxc#!predicate::t))) (define gxc#make-!predicate - (lambda _$args114088_ - (apply make-instance gxc#!predicate::t _$args114088_))) + (lambda _$args114093_ + (apply make-instance gxc#!predicate::t _$args114093_))) (define gxc#!predicate-id (let () (declare (not safe)) @@ -466,25 +466,25 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#!predicate::t 'id))) (define gxc#!constructor::t - (let ((__tmp114319 (list gxc#!procedure::t)) - (__tmp114317 - (let ((__tmp114318 + (let ((__tmp114324 (list gxc#!procedure::t)) + (__tmp114322 + (let ((__tmp114323 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp114318 '())))) + (cons __tmp114323 '())))) (declare (not safe)) (make-class-type 'gxc#!constructor::t '!constructor - __tmp114319 + __tmp114324 '() - __tmp114317 + __tmp114322 '#f))) (define gxc#!constructor? (let () (declare (not safe)) (make-class-predicate gxc#!constructor::t))) (define gxc#make-!constructor - (lambda _$args114085_ - (apply make-instance gxc#!constructor::t _$args114085_))) + (lambda _$args114090_ + (apply make-instance gxc#!constructor::t _$args114090_))) (define gxc#!constructor-id (let () (declare (not safe)) @@ -502,25 +502,25 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#!constructor::t 'id))) (define gxc#!accessor::t - (let ((__tmp114322 (list gxc#!procedure::t)) - (__tmp114320 - (let ((__tmp114321 + (let ((__tmp114327 (list gxc#!procedure::t)) + (__tmp114325 + (let ((__tmp114326 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp114321 '())))) + (cons __tmp114326 '())))) (declare (not safe)) (make-class-type 'gxc#!accessor::t '!accessor - __tmp114322 + __tmp114327 '(slot checked?) - __tmp114320 + __tmp114325 '#f))) (define gxc#!accessor? (let () (declare (not safe)) (make-class-predicate gxc#!accessor::t))) (define gxc#make-!accessor - (lambda _$args114082_ - (apply make-instance gxc#!accessor::t _$args114082_))) + (lambda _$args114087_ + (apply make-instance gxc#!accessor::t _$args114087_))) (define gxc#!accessor-slot (let () (declare (not safe)) @@ -570,25 +570,25 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#!accessor::t 'id))) (define gxc#!mutator::t - (let ((__tmp114325 (list gxc#!procedure::t)) - (__tmp114323 - (let ((__tmp114324 + (let ((__tmp114330 (list gxc#!procedure::t)) + (__tmp114328 + (let ((__tmp114329 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp114324 '())))) + (cons __tmp114329 '())))) (declare (not safe)) (make-class-type 'gxc#!mutator::t '!mutator - __tmp114325 + __tmp114330 '(slot checked?) - __tmp114323 + __tmp114328 '#f))) (define gxc#!mutator? (let () (declare (not safe)) (make-class-predicate gxc#!mutator::t))) (define gxc#make-!mutator - (lambda _$args114079_ - (apply make-instance gxc#!mutator::t _$args114079_))) + (lambda _$args114084_ + (apply make-instance gxc#!mutator::t _$args114084_))) (define gxc#!mutator-slot (let () (declare (not safe)) @@ -638,25 +638,25 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#!mutator::t 'id))) (define gxc#!lambda::t - (let ((__tmp114328 (list gxc#!procedure::t)) - (__tmp114326 - (let ((__tmp114327 + (let ((__tmp114333 (list gxc#!procedure::t)) + (__tmp114331 + (let ((__tmp114332 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp114327 '())))) + (cons __tmp114332 '())))) (declare (not safe)) (make-class-type 'gxc#!lambda::t '!lambda - __tmp114328 + __tmp114333 '(arity dispatch inline inline-typedecl) - __tmp114326 + __tmp114331 ':init!))) (define gxc#!lambda? (let () (declare (not safe)) (make-class-predicate gxc#!lambda::t))) (define gxc#make-!lambda - (lambda _$args114076_ - (apply make-instance gxc#!lambda::t _$args114076_))) + (lambda _$args114081_ + (apply make-instance gxc#!lambda::t _$args114081_))) (define gxc#!lambda-arity (let () (declare (not safe)) @@ -738,25 +738,25 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#!lambda::t 'id))) (define gxc#!case-lambda::t - (let ((__tmp114331 (list gxc#!procedure::t)) - (__tmp114329 - (let ((__tmp114330 + (let ((__tmp114336 (list gxc#!procedure::t)) + (__tmp114334 + (let ((__tmp114335 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp114330 '())))) + (cons __tmp114335 '())))) (declare (not safe)) (make-class-type 'gxc#!case-lambda::t '!case-lambda - __tmp114331 + __tmp114336 '(clauses) - __tmp114329 + __tmp114334 '#f))) (define gxc#!case-lambda? (let () (declare (not safe)) (make-class-predicate gxc#!case-lambda::t))) (define gxc#make-!case-lambda - (lambda _$args114073_ - (apply make-instance gxc#!case-lambda::t _$args114073_))) + (lambda _$args114078_ + (apply make-instance gxc#!case-lambda::t _$args114078_))) (define gxc#!case-lambda-clauses (let () (declare (not safe)) @@ -790,25 +790,25 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#!case-lambda::t 'id))) (define gxc#!kw-lambda::t - (let ((__tmp114334 (list gxc#!procedure::t)) - (__tmp114332 - (let ((__tmp114333 + (let ((__tmp114339 (list gxc#!procedure::t)) + (__tmp114337 + (let ((__tmp114338 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp114333 '())))) + (cons __tmp114338 '())))) (declare (not safe)) (make-class-type 'gxc#!kw-lambda::t '!kw-lambda - __tmp114334 + __tmp114339 '(table dispatch) - __tmp114332 + __tmp114337 '#f))) (define gxc#!kw-lambda? (let () (declare (not safe)) (make-class-predicate gxc#!kw-lambda::t))) (define gxc#make-!kw-lambda - (lambda _$args114070_ - (apply make-instance gxc#!kw-lambda::t _$args114070_))) + (lambda _$args114075_ + (apply make-instance gxc#!kw-lambda::t _$args114075_))) (define gxc#!kw-lambda-table (let () (declare (not safe)) @@ -858,27 +858,27 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#!kw-lambda::t 'id))) (define gxc#!kw-lambda-primary::t - (let ((__tmp114337 (list gxc#!procedure::t)) - (__tmp114335 - (let ((__tmp114336 + (let ((__tmp114342 (list gxc#!procedure::t)) + (__tmp114340 + (let ((__tmp114341 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp114336 '())))) + (cons __tmp114341 '())))) (declare (not safe)) (make-class-type 'gxc#!kw-lambda-primary::t '!kw-lambda-primary - __tmp114337 + __tmp114342 '(keys main) - __tmp114335 + __tmp114340 '#f))) (define gxc#!kw-lambda-primary? (let () (declare (not safe)) (make-class-predicate gxc#!kw-lambda-primary::t))) (define gxc#make-!kw-lambda-primary - (lambda _$args114067_ - (apply make-instance gxc#!kw-lambda-primary::t _$args114067_))) + (lambda _$args114072_ + (apply make-instance gxc#!kw-lambda-primary::t _$args114072_))) (define gxc#!kw-lambda-primary-keys (let () (declare (not safe)) @@ -928,27 +928,27 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#!kw-lambda-primary::t 'id))) (define gxc#!primitive::t - (let ((__tmp114338 (list))) + (let ((__tmp114343 (list))) (declare (not safe)) (make-class-type 'gxc#!primitive::t '!primitive - __tmp114338 + __tmp114343 '() '() '#f))) (define gxc#!primitive? (let () (declare (not safe)) (make-class-predicate gxc#!primitive::t))) (define gxc#make-!primitive - (lambda _$args114064_ - (apply make-instance gxc#!primitive::t _$args114064_))) + (lambda _$args114069_ + (apply make-instance gxc#!primitive::t _$args114069_))) (define gxc#!primitive-lambda::t - (let ((__tmp114339 (list gxc#!primitive::t gxc#!lambda::t))) + (let ((__tmp114344 (list gxc#!primitive::t gxc#!lambda::t))) (declare (not safe)) (make-class-type 'gxc#!primitive-lambda::t '!primitive-lambda - __tmp114339 + __tmp114344 '() '() ':init!))) @@ -957,8 +957,8 @@ (declare (not safe)) (make-class-predicate gxc#!primitive-lambda::t))) (define gxc#make-!primitive-lambda - (lambda _$args114061_ - (apply make-instance gxc#!primitive-lambda::t _$args114061_))) + (lambda _$args114066_ + (apply make-instance gxc#!primitive-lambda::t _$args114066_))) (define gxc#!primitive-lambda-arity (let () (declare (not safe)) @@ -1048,12 +1048,12 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#!primitive-lambda::t 'id))) (define gxc#!primitive-case-lambda::t - (let ((__tmp114340 (list gxc#!primitive::t gxc#!case-lambda::t))) + (let ((__tmp114345 (list gxc#!primitive::t gxc#!case-lambda::t))) (declare (not safe)) (make-class-type 'gxc#!primitive-case-lambda::t '!primitive-case-lambda - __tmp114340 + __tmp114345 '() '() ':init!))) @@ -1062,8 +1062,8 @@ (declare (not safe)) (make-class-predicate gxc#!primitive-case-lambda::t))) (define gxc#make-!primitive-case-lambda - (lambda _$args114058_ - (apply make-instance gxc#!primitive-case-lambda::t _$args114058_))) + (lambda _$args114063_ + (apply make-instance gxc#!primitive-case-lambda::t _$args114063_))) (define gxc#!primitive-case-lambda-clauses (let () (declare (not safe)) @@ -1103,901 +1103,901 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#!primitive-case-lambda::t 'id))) (define gxc#!class:::init!__0 - (lambda (_self113940_ - _id113941_ - _super113942_ - _slots113943_ - _ctor-method113944_ - _struct?113945_ - _final?113946_ - _metaclass113947_) - (let _lp113949_ ((_rest113951_ _super113942_)) - (let* ((_rest113952113960_ _rest113951_) - (_else113954113968_ (lambda () '#!void)) - (_K113956113974_ - (lambda (_rest113971_ _super-id113972_) + (lambda (_self113945_ + _id113946_ + _super113947_ + _slots113948_ + _ctor-method113949_ + _struct?113950_ + _final?113951_ + _metaclass113952_) + (let _lp113954_ ((_rest113956_ _super113947_)) + (let* ((_rest113957113965_ _rest113956_) + (_else113959113973_ (lambda () '#!void)) + (_K113961113979_ + (lambda (_rest113976_ _super-id113977_) (if (##structure-ref - (let ((__tmp114343 - (let ((__tmp114344 + (let ((__tmp114348 + (let ((__tmp114349 (let () (declare (not safe)) - (cons _id113941_ '())))) + (cons _id113946_ '())))) (declare (not safe)) - (cons '!class __tmp114344)))) + (cons '!class __tmp114349)))) (declare (not safe)) (gxc#optimizer-resolve-class - __tmp114343 - _super-id113972_)) + __tmp114348 + _super-id113977_)) '8 gxc#!class::t '#f) - (let ((__tmp114341 - (let ((__tmp114342 + (let ((__tmp114346 + (let ((__tmp114347 (let () (declare (not safe)) - (cons _id113941_ '())))) + (cons _id113946_ '())))) (declare (not safe)) - (cons '!class __tmp114342)))) + (cons '!class __tmp114347)))) (declare (not safe)) (gxc#raise-compile-error '"cannot extend final class" - __tmp114341 - _super-id113972_)) + __tmp114346 + _super-id113977_)) '#!void) - (let () (declare (not safe)) (_lp113949_ _rest113971_))))) - (if (let () (declare (not safe)) (##pair? _rest113952113960_)) - (let ((_hd113957113977_ + (let () (declare (not safe)) (_lp113954_ _rest113976_))))) + (if (let () (declare (not safe)) (##pair? _rest113957113965_)) + (let ((_hd113962113982_ (let () (declare (not safe)) - (##car _rest113952113960_))) - (_tl113958113979_ + (##car _rest113957113965_))) + (_tl113963113984_ (let () (declare (not safe)) - (##cdr _rest113952113960_)))) - (let* ((_super-id113982_ _hd113957113977_) - (_rest113984_ _tl113958113979_)) + (##cdr _rest113957113965_)))) + (let* ((_super-id113987_ _hd113962113982_) + (_rest113989_ _tl113963113984_)) (declare (not safe)) - (_K113956113974_ _rest113984_ _super-id113982_))) + (_K113961113979_ _rest113989_ _super-id113987_))) '#!void))) - (let* ((_ctor-method114034_ - (let ((_$e113986_ _ctor-method113944_)) - (if _$e113986_ - _$e113986_ - (let _lp113989_ ((_rest113991_ _super113942_) - (_method113992_ '#f)) - (let* ((_rest113993114001_ _rest113991_) - (_else113995114009_ (lambda () _method113992_)) - (_K113997114022_ - (lambda (_rest114012_ _super-id114013_) - (let* ((_klass114015_ - (let ((__tmp114345 - (let ((__tmp114346 + (let* ((_ctor-method114039_ + (let ((_$e113991_ _ctor-method113949_)) + (if _$e113991_ + _$e113991_ + (let _lp113994_ ((_rest113996_ _super113947_) + (_method113997_ '#f)) + (let* ((_rest113998114006_ _rest113996_) + (_else114000114014_ (lambda () _method113997_)) + (_K114002114027_ + (lambda (_rest114017_ _super-id114018_) + (let* ((_klass114020_ + (let ((__tmp114350 + (let ((__tmp114351 (let () (declare (not safe)) - (cons _id113941_ + (cons _id113946_ '())))) (declare (not safe)) (cons '!class - __tmp114346)))) + __tmp114351)))) (declare (not safe)) (gxc#optimizer-resolve-class - __tmp114345 - _super-id114013_))) - (_$e114017_ + __tmp114350 + _super-id114018_))) + (_$e114022_ (##structure-ref - _klass114015_ + _klass114020_ '6 gxc#!class::t '#f))) - (if _$e114017_ - ((lambda (_ctor-method114020_) - (if _method113992_ + (if _$e114022_ + ((lambda (_ctor-method114025_) + (if _method113997_ (if (let () (declare (not safe)) - (eq? _ctor-method114020_ - _method113992_)) + (eq? _ctor-method114025_ + _method113997_)) (let () (declare (not safe)) - (_lp113989_ - _rest114012_ - _ctor-method114020_)) - (let ((__tmp114347 - (let ((__tmp114348 + (_lp113994_ + _rest114017_ + _ctor-method114025_)) + (let ((__tmp114352 + (let ((__tmp114353 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _id113941_ '())))) + (let () (declare (not safe)) (cons _id113946_ '())))) (declare (not safe)) - (cons '!class __tmp114348)))) + (cons '!class __tmp114353)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#raise-compile-error '"conflicting implicit constructor methods" - __tmp114347 - _method113992_ - _ctor-method114020_))) + __tmp114352 + _method113997_ + _ctor-method114025_))) (let () (declare (not safe)) - (_lp113989_ - _rest114012_ - _ctor-method114020_)))) - _$e114017_) + (_lp113994_ + _rest114017_ + _ctor-method114025_)))) + _$e114022_) (let () (declare (not safe)) - (_lp113989_ - _rest114012_ - _method113992_))))))) + (_lp113994_ + _rest114017_ + _method113997_))))))) (if (let () (declare (not safe)) - (##pair? _rest113993114001_)) - (let ((_hd113998114025_ + (##pair? _rest113998114006_)) + (let ((_hd114003114030_ (let () (declare (not safe)) - (##car _rest113993114001_))) - (_tl113999114027_ + (##car _rest113998114006_))) + (_tl114004114032_ (let () (declare (not safe)) - (##cdr _rest113993114001_)))) - (let* ((_super-id114030_ _hd113998114025_) - (_rest114032_ _tl113999114027_)) + (##cdr _rest113998114006_)))) + (let* ((_super-id114035_ _hd114003114030_) + (_rest114037_ _tl114004114032_)) (declare (not safe)) - (_K113997114022_ - _rest114032_ - _super-id114030_))) + (_K114002114027_ + _rest114037_ + _super-id114035_))) (let () (declare (not safe)) - (_else113995114009_)))))))) - (_g114349_ - (let ((__tmp114354 - (lambda (_klass-id114036_) - (let ((__tmp114355 + (_else114000114014_)))))))) + (_g114354_ + (let ((__tmp114359 + (lambda (_klass-id114041_) + (let ((__tmp114360 (##structure-ref - (let ((__tmp114356 - (let ((__tmp114357 + (let ((__tmp114361 + (let ((__tmp114362 (let () (declare (not safe)) - (cons _id113941_ '())))) + (cons _id113946_ '())))) (declare (not safe)) - (cons '!class __tmp114357)))) + (cons '!class __tmp114362)))) (declare (not safe)) (gxc#optimizer-resolve-class - __tmp114356 - _klass-id114036_)) + __tmp114361 + _klass-id114041_)) '3 gxc#!class::t '#f))) (declare (not safe)) - (cons _klass-id114036_ __tmp114355)))) - (__tmp114351 - (lambda (_klass-id114038_) + (cons _klass-id114041_ __tmp114360)))) + (__tmp114356 + (lambda (_klass-id114043_) (##structure-ref - (let ((__tmp114352 - (let ((__tmp114353 + (let ((__tmp114357 + (let ((__tmp114358 (let () (declare (not safe)) - (cons _id113941_ '())))) + (cons _id113946_ '())))) (declare (not safe)) - (cons '!class __tmp114353)))) + (cons '!class __tmp114358)))) (declare (not safe)) (gxc#optimizer-resolve-class - __tmp114352 - _klass-id114038_)) + __tmp114357 + _klass-id114043_)) '7 gxc#!class::t '#f)))) (declare (not safe)) (c4-linearize '() - _super113942_ + _super113947_ 'get-precedence-list: - __tmp114354 + __tmp114359 'struct: - __tmp114351 + __tmp114356 'eq: eq? 'get-name: identity)))) (begin - (let ((_g114350_ + (let ((_g114355_ (let () (declare (not safe)) - (if (##values? _g114349_) - (##vector-length _g114349_) + (if (##values? _g114354_) + (##vector-length _g114354_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g114350_ 2))) - (error "Context expects 2 values" _g114350_))) - (let ((_precedence-list114040_ - (let () (declare (not safe)) (##vector-ref _g114349_ 0))) - (_base-struct114041_ - (let () (declare (not safe)) (##vector-ref _g114349_ 1)))) - (let ((_fields114043_ - (let ((__tmp114358 - (let ((__tmp114359 + (if (not (let () (declare (not safe)) (##fx= _g114355_ 2))) + (error "Context expects 2 values" _g114355_))) + (let ((_precedence-list114045_ + (let () (declare (not safe)) (##vector-ref _g114354_ 0))) + (_base-struct114046_ + (let () (declare (not safe)) (##vector-ref _g114354_ 1)))) + (let ((_fields114048_ + (let ((__tmp114363 + (let ((__tmp114364 (let () (declare (not safe)) - (cons _id113941_ '())))) + (cons _id113946_ '())))) (declare (not safe)) - (cons '!class __tmp114359)))) + (cons '!class __tmp114364)))) (declare (not safe)) (gxc#compute-class-fields - __tmp114358 - _base-struct114041_ - _precedence-list114040_ - _slots113943_)))) - (##structure-set! _self113940_ _id113941_ '1 gxc#!type::t '#f) + __tmp114363 + _base-struct114046_ + _precedence-list114045_ + _slots113948_)))) + (##structure-set! _self113945_ _id113946_ '1 gxc#!type::t '#f) (##structure-set! - _self113940_ - _super113942_ + _self113945_ + _super113947_ '2 gxc#!class::t '#f) (##structure-set! - _self113940_ - _precedence-list114040_ + _self113945_ + _precedence-list114045_ '3 gxc#!class::t '#f) (##structure-set! - _self113940_ - _slots113943_ + _self113945_ + _slots113948_ '4 gxc#!class::t '#f) (##structure-set! - _self113940_ - _fields114043_ + _self113945_ + _fields114048_ '5 gxc#!class::t '#f) (##structure-set! - _self113940_ - _ctor-method114034_ + _self113945_ + _ctor-method114039_ '6 gxc#!class::t '#f) (##structure-set! - _self113940_ - _struct?113945_ + _self113945_ + _struct?113950_ '7 gxc#!class::t '#f) (##structure-set! - _self113940_ - _final?113946_ + _self113945_ + _final?113951_ '8 gxc#!class::t '#f) (##structure-set! - _self113940_ - _metaclass113947_ + _self113945_ + _metaclass113952_ '9 gxc#!class::t '#f))))))) (define gxc#!class:::init!__1 - (lambda (_self114046_ - _id114047_ - _super114048_ - _precedence-list114049_ - _slots114050_ - _fields114051_ - _constructor114052_ - _struct?114053_ - _final?114054_ - _metaclass114055_ - _methods114056_) - (##structure-set! _self114046_ _id114047_ '1 gxc#!type::t '#f) - (##structure-set! _self114046_ _super114048_ '2 gxc#!class::t '#f) + (lambda (_self114051_ + _id114052_ + _super114053_ + _precedence-list114054_ + _slots114055_ + _fields114056_ + _constructor114057_ + _struct?114058_ + _final?114059_ + _metaclass114060_ + _methods114061_) + (##structure-set! _self114051_ _id114052_ '1 gxc#!type::t '#f) + (##structure-set! _self114051_ _super114053_ '2 gxc#!class::t '#f) (##structure-set! - _self114046_ - _precedence-list114049_ + _self114051_ + _precedence-list114054_ '3 gxc#!class::t '#f) - (##structure-set! _self114046_ _slots114050_ '4 gxc#!class::t '#f) - (##structure-set! _self114046_ _fields114051_ '5 gxc#!class::t '#f) + (##structure-set! _self114051_ _slots114055_ '4 gxc#!class::t '#f) + (##structure-set! _self114051_ _fields114056_ '5 gxc#!class::t '#f) (##structure-set! - _self114046_ - _constructor114052_ + _self114051_ + _constructor114057_ '6 gxc#!class::t '#f) - (##structure-set! _self114046_ _struct?114053_ '7 gxc#!class::t '#f) - (##structure-set! _self114046_ _final?114054_ '8 gxc#!class::t '#f) - (##structure-set! _self114046_ _metaclass114055_ '9 gxc#!class::t '#f) - (if _methods114056_ + (##structure-set! _self114051_ _struct?114058_ '7 gxc#!class::t '#f) + (##structure-set! _self114051_ _final?114059_ '8 gxc#!class::t '#f) + (##structure-set! _self114051_ _metaclass114060_ '9 gxc#!class::t '#f) + (if _methods114061_ (##structure-set! - _self114046_ + _self114051_ (let () (declare (not safe)) - (list->hash-table-eq _methods114056_)) + (list->hash-table-eq _methods114061_)) '10 gxc#!class::t '#f) '#!void))) (define gxc#!class:::init! - (lambda _g114361_ - (let ((_g114360_ (let () (declare (not safe)) (##length _g114361_)))) - (cond ((let () (declare (not safe)) (##fx= _g114360_ 8)) - (apply (lambda (_self113940_ - _id113941_ - _super113942_ - _slots113943_ - _ctor-method113944_ - _struct?113945_ - _final?113946_ - _metaclass113947_) + (lambda _g114366_ + (let ((_g114365_ (let () (declare (not safe)) (##length _g114366_)))) + (cond ((let () (declare (not safe)) (##fx= _g114365_ 8)) + (apply (lambda (_self113945_ + _id113946_ + _super113947_ + _slots113948_ + _ctor-method113949_ + _struct?113950_ + _final?113951_ + _metaclass113952_) (let () (declare (not safe)) (gxc#!class:::init!__0 - _self113940_ - _id113941_ - _super113942_ - _slots113943_ - _ctor-method113944_ - _struct?113945_ - _final?113946_ - _metaclass113947_))) - _g114361_)) - ((let () (declare (not safe)) (##fx= _g114360_ 11)) - (apply (lambda (_self114046_ - _id114047_ - _super114048_ - _precedence-list114049_ - _slots114050_ - _fields114051_ - _constructor114052_ - _struct?114053_ - _final?114054_ - _metaclass114055_ - _methods114056_) + _self113945_ + _id113946_ + _super113947_ + _slots113948_ + _ctor-method113949_ + _struct?113950_ + _final?113951_ + _metaclass113952_))) + _g114366_)) + ((let () (declare (not safe)) (##fx= _g114365_ 11)) + (apply (lambda (_self114051_ + _id114052_ + _super114053_ + _precedence-list114054_ + _slots114055_ + _fields114056_ + _constructor114057_ + _struct?114058_ + _final?114059_ + _metaclass114060_ + _methods114061_) (let () (declare (not safe)) (gxc#!class:::init!__1 - _self114046_ - _id114047_ - _super114048_ - _precedence-list114049_ - _slots114050_ - _fields114051_ - _constructor114052_ - _struct?114053_ - _final?114054_ - _metaclass114055_ - _methods114056_))) - _g114361_)) + _self114051_ + _id114052_ + _super114053_ + _precedence-list114054_ + _slots114055_ + _fields114056_ + _constructor114057_ + _struct?114058_ + _final?114059_ + _metaclass114060_ + _methods114061_))) + _g114366_)) (else (##raise-wrong-number-of-arguments-exception gxc#!class:::init! - _g114361_)))))) + _g114366_)))))) (define gxc#!class:::init!::specialize - (lambda (__klass114229 __method-table114230) - (let ((__constructor114231 - (let ((__slot114241 + (lambda (__klass114234 __method-table114235) + (let ((__fields114236 + (let ((__slot114246 (let () (declare (not safe)) - (class-slot-offset __klass114229 'constructor)))) - (if __slot114241 - __slot114241 + (class-slot-offset __klass114234 'fields)))) + (if __slot114246 + __slot114246 (let () (declare (not safe)) - (error '"Unknown slot" 'constructor))))) - (__super114232 - (let ((__slot114242 + (error '"Unknown slot" 'fields))))) + (__final?114237 + (let ((__slot114247 (let () (declare (not safe)) - (class-slot-offset __klass114229 'super)))) - (if __slot114242 - __slot114242 + (class-slot-offset __klass114234 'final?)))) + (if __slot114247 + __slot114247 (let () (declare (not safe)) - (error '"Unknown slot" 'super))))) - (__struct?114233 - (let ((__slot114243 + (error '"Unknown slot" 'final?))))) + (__slots114238 + (let ((__slot114248 (let () (declare (not safe)) - (class-slot-offset __klass114229 'struct?)))) - (if __slot114243 - __slot114243 + (class-slot-offset __klass114234 'slots)))) + (if __slot114248 + __slot114248 (let () (declare (not safe)) - (error '"Unknown slot" 'struct?))))) - (__precedence-list114234 - (let ((__slot114244 + (error '"Unknown slot" 'slots))))) + (__id114239 + (let ((__slot114249 (let () (declare (not safe)) - (class-slot-offset __klass114229 'precedence-list)))) - (if __slot114244 - __slot114244 + (class-slot-offset __klass114234 'id)))) + (if __slot114249 + __slot114249 (let () (declare (not safe)) - (error '"Unknown slot" 'precedence-list))))) - (__fields114235 - (let ((__slot114245 + (error '"Unknown slot" 'id))))) + (__super114240 + (let ((__slot114250 (let () (declare (not safe)) - (class-slot-offset __klass114229 'fields)))) - (if __slot114245 - __slot114245 + (class-slot-offset __klass114234 'super)))) + (if __slot114250 + __slot114250 (let () (declare (not safe)) - (error '"Unknown slot" 'fields))))) - (__methods114236 - (let ((__slot114246 + (error '"Unknown slot" 'super))))) + (__methods114241 + (let ((__slot114251 (let () (declare (not safe)) - (class-slot-offset __klass114229 'methods)))) - (if __slot114246 - __slot114246 + (class-slot-offset __klass114234 'methods)))) + (if __slot114251 + __slot114251 (let () (declare (not safe)) (error '"Unknown slot" 'methods))))) - (__metaclass114237 - (let ((__slot114247 + (__metaclass114242 + (let ((__slot114252 (let () (declare (not safe)) - (class-slot-offset __klass114229 'metaclass)))) - (if __slot114247 - __slot114247 + (class-slot-offset __klass114234 'metaclass)))) + (if __slot114252 + __slot114252 (let () (declare (not safe)) (error '"Unknown slot" 'metaclass))))) - (__slots114238 - (let ((__slot114248 + (__constructor114243 + (let ((__slot114253 (let () (declare (not safe)) - (class-slot-offset __klass114229 'slots)))) - (if __slot114248 - __slot114248 + (class-slot-offset __klass114234 'constructor)))) + (if __slot114253 + __slot114253 (let () (declare (not safe)) - (error '"Unknown slot" 'slots))))) - (__final?114239 - (let ((__slot114249 + (error '"Unknown slot" 'constructor))))) + (__struct?114244 + (let ((__slot114254 (let () (declare (not safe)) - (class-slot-offset __klass114229 'final?)))) - (if __slot114249 - __slot114249 + (class-slot-offset __klass114234 'struct?)))) + (if __slot114254 + __slot114254 (let () (declare (not safe)) - (error '"Unknown slot" 'final?))))) - (__id114240 - (let ((__slot114250 + (error '"Unknown slot" 'struct?))))) + (__precedence-list114245 + (let ((__slot114255 (let () (declare (not safe)) - (class-slot-offset __klass114229 'id)))) - (if __slot114250 - __slot114250 + (class-slot-offset __klass114234 'precedence-list)))) + (if __slot114255 + __slot114255 (let () (declare (not safe)) - (error '"Unknown slot" 'id)))))) - (lambda _g114363_ - (let ((_g114362_ - (let () (declare (not safe)) (##length _g114363_)))) - (cond ((let () (declare (not safe)) (##fx= _g114362_ 8)) - (apply (lambda (_self113940_ - _id113941_ - _super113942_ - _slots113943_ - _ctor-method113944_ - _struct?113945_ - _final?113946_ - _metaclass113947_) - (let _lp113949_ ((_rest113951_ _super113942_)) - (let* ((_rest113952113960_ _rest113951_) - (_else113954113968_ (lambda () '#!void)) - (_K113956113974_ - (lambda (_rest113971_ _super-id113972_) + (error '"Unknown slot" 'precedence-list)))))) + (lambda _g114368_ + (let ((_g114367_ + (let () (declare (not safe)) (##length _g114368_)))) + (cond ((let () (declare (not safe)) (##fx= _g114367_ 8)) + (apply (lambda (_self113945_ + _id113946_ + _super113947_ + _slots113948_ + _ctor-method113949_ + _struct?113950_ + _final?113951_ + _metaclass113952_) + (let _lp113954_ ((_rest113956_ _super113947_)) + (let* ((_rest113957113965_ _rest113956_) + (_else113959113973_ (lambda () '#!void)) + (_K113961113979_ + (lambda (_rest113976_ _super-id113977_) (if (##structure-ref - (let ((__tmp114366 - (let ((__tmp114367 + (let ((__tmp114371 + (let ((__tmp114372 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _id113941_ '())))) + (cons _id113946_ '())))) (declare (not safe)) - (cons '!class __tmp114367)))) + (cons '!class __tmp114372)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#optimizer-resolve-class - __tmp114366 - _super-id113972_)) + __tmp114371 + _super-id113977_)) '8 gxc#!class::t '#f) - (let ((__tmp114364 - (let ((__tmp114365 + (let ((__tmp114369 + (let ((__tmp114370 (let () (declare (not safe)) - (cons _id113941_ + (cons _id113946_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons '!class __tmp114365)))) + (cons '!class __tmp114370)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#raise-compile-error '"cannot extend final class" - __tmp114364 - _super-id113972_)) + __tmp114369 + _super-id113977_)) '#!void) (let () (declare (not safe)) - (_lp113949_ _rest113971_))))) + (_lp113954_ _rest113976_))))) (if (let () (declare (not safe)) - (##pair? _rest113952113960_)) - (let ((_hd113957113977_ + (##pair? _rest113957113965_)) + (let ((_hd113962113982_ (let () (declare (not safe)) - (##car _rest113952113960_))) - (_tl113958113979_ + (##car _rest113957113965_))) + (_tl113963113984_ (let () (declare (not safe)) - (##cdr _rest113952113960_)))) - (let* ((_super-id113982_ - _hd113957113977_) - (_rest113984_ _tl113958113979_)) + (##cdr _rest113957113965_)))) + (let* ((_super-id113987_ + _hd113962113982_) + (_rest113989_ _tl113963113984_)) (declare (not safe)) - (_K113956113974_ - _rest113984_ - _super-id113982_))) + (_K113961113979_ + _rest113989_ + _super-id113987_))) '#!void))) - (let* ((_ctor-method114034_ - (let ((_$e113986_ _ctor-method113944_)) - (if _$e113986_ - _$e113986_ - (let _lp113989_ ((_rest113991_ - _super113942_) - (_method113992_ + (let* ((_ctor-method114039_ + (let ((_$e113991_ _ctor-method113949_)) + (if _$e113991_ + _$e113991_ + (let _lp113994_ ((_rest113996_ + _super113947_) + (_method113997_ '#f)) - (let* ((_rest113993114001_ - _rest113991_) - (_else113995114009_ + (let* ((_rest113998114006_ + _rest113996_) + (_else114000114014_ (lambda () - _method113992_)) - (_K113997114022_ - (lambda (_rest114012_ - _super-id114013_) - (let* ((_klass114015_ - (let ((__tmp114368 + _method113997_)) + (_K114002114027_ + (lambda (_rest114017_ + _super-id114018_) + (let* ((_klass114020_ + (let ((__tmp114373 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp114369 + (let ((__tmp114374 (let () (declare (not safe)) - (cons _id113941_ '())))) + (cons _id113946_ '())))) (declare (not safe)) - (cons '!class __tmp114369)))) + (cons '!class __tmp114374)))) (declare (not safe)) (gxc#optimizer-resolve-class - __tmp114368 - _super-id114013_))) - (_$e114017_ - (##structure-ref _klass114015_ '6 gxc#!class::t '#f))) - (if _$e114017_ - ((lambda (_ctor-method114020_) - (if _method113992_ + __tmp114373 + _super-id114018_))) + (_$e114022_ + (##structure-ref _klass114020_ '6 gxc#!class::t '#f))) + (if _$e114022_ + ((lambda (_ctor-method114025_) + (if _method113997_ (if (let () (declare (not safe)) - (eq? _ctor-method114020_ _method113992_)) + (eq? _ctor-method114025_ _method113997_)) (let () (declare (not safe)) - (_lp113989_ - _rest114012_ - _ctor-method114020_)) - (let ((__tmp114370 - (let ((__tmp114371 + (_lp113994_ + _rest114017_ + _ctor-method114025_)) + (let ((__tmp114375 + (let ((__tmp114376 (let () (declare (not safe)) - (cons _id113941_ '())))) + (cons _id113946_ '())))) (declare (not safe)) - (cons '!class __tmp114371)))) + (cons '!class __tmp114376)))) (declare (not safe)) (gxc#raise-compile-error '"conflicting implicit constructor methods" - __tmp114370 - _method113992_ - _ctor-method114020_))) + __tmp114375 + _method113997_ + _ctor-method114025_))) (let () (declare (not safe)) - (_lp113989_ _rest114012_ _ctor-method114020_)))) - _$e114017_) + (_lp113994_ _rest114017_ _ctor-method114025_)))) + _$e114022_) (let () (declare (not safe)) - (_lp113989_ _rest114012_ _method113992_))))))) + (_lp113994_ _rest114017_ _method113997_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _rest113993114001_)) - (let ((_hd113998114025_ + (##pair? _rest113998114006_)) + (let ((_hd114003114030_ (let () (declare (not safe)) - (##car _rest113993114001_))) - (_tl113999114027_ + (##car _rest113998114006_))) + (_tl114004114032_ (let () (declare (not safe)) - (##cdr _rest113993114001_)))) - (let* ((_super-id114030_ - _hd113998114025_) - (_rest114032_ - _tl113999114027_)) + (##cdr _rest113998114006_)))) + (let* ((_super-id114035_ + _hd114003114030_) + (_rest114037_ + _tl114004114032_)) (declare (not safe)) - (_K113997114022_ - _rest114032_ - _super-id114030_))) + (_K114002114027_ + _rest114037_ + _super-id114035_))) (let () (declare (not safe)) - (_else113995114009_)))))))) - (_g114372_ - (let ((__tmp114377 - (lambda (_klass-id114036_) - (let ((__tmp114378 + (_else114000114014_)))))))) + (_g114377_ + (let ((__tmp114382 + (lambda (_klass-id114041_) + (let ((__tmp114383 (##structure-ref - (let ((__tmp114379 - (let ((__tmp114380 + (let ((__tmp114384 + (let ((__tmp114385 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _id113941_ '())))) + (cons _id113946_ '())))) (declare (not safe)) - (cons '!class __tmp114380)))) + (cons '!class __tmp114385)))) (declare (not safe)) - (gxc#optimizer-resolve-class __tmp114379 _klass-id114036_)) + (gxc#optimizer-resolve-class __tmp114384 _klass-id114041_)) '3 gxc#!class::t '#f))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _klass-id114036_ - __tmp114378)))) - (__tmp114374 - (lambda (_klass-id114038_) + (cons _klass-id114041_ + __tmp114383)))) + (__tmp114379 + (lambda (_klass-id114043_) (##structure-ref - (let ((__tmp114375 - (let ((__tmp114376 + (let ((__tmp114380 + (let ((__tmp114381 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _id113941_ '())))) + (cons _id113946_ '())))) (declare (not safe)) - (cons '!class __tmp114376)))) + (cons '!class __tmp114381)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#optimizer-resolve-class - __tmp114375 - _klass-id114038_)) + __tmp114380 + _klass-id114043_)) '7 gxc#!class::t '#f)))) (declare (not safe)) (c4-linearize '() - _super113942_ + _super113947_ 'get-precedence-list: - __tmp114377 + __tmp114382 'struct: - __tmp114374 + __tmp114379 'eq: eq? 'get-name: identity)))) (begin - (let ((_g114373_ + (let ((_g114378_ (let () (declare (not safe)) - (if (##values? _g114372_) - (##vector-length _g114372_) + (if (##values? _g114377_) + (##vector-length _g114377_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g114373_ 2))) + (##fx= _g114378_ 2))) (error "Context expects 2 values" - _g114373_))) - (let ((_precedence-list114040_ + _g114378_))) + (let ((_precedence-list114045_ (let () (declare (not safe)) - (##vector-ref _g114372_ 0))) - (_base-struct114041_ + (##vector-ref _g114377_ 0))) + (_base-struct114046_ (let () (declare (not safe)) - (##vector-ref _g114372_ 1)))) - (let ((_fields114043_ - (let ((__tmp114381 - (let ((__tmp114382 + (##vector-ref _g114377_ 1)))) + (let ((_fields114048_ + (let ((__tmp114386 + (let ((__tmp114387 (let () (declare (not safe)) - (cons _id113941_ + (cons _id113946_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '!class - __tmp114382)))) + __tmp114387)))) (declare (not safe)) (gxc#compute-class-fields - __tmp114381 - _base-struct114041_ - _precedence-list114040_ - _slots113943_)))) + __tmp114386 + _base-struct114046_ + _precedence-list114045_ + _slots113948_)))) (let () (declare (not safe)) (##unchecked-structure-set! - _self113940_ - _id113941_ - __id114240 - __klass114229 + _self113945_ + _id113946_ + __id114239 + __klass114234 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self113940_ - _super113942_ - __super114232 - __klass114229 + _self113945_ + _super113947_ + __super114240 + __klass114234 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self113940_ - _precedence-list114040_ - __precedence-list114234 - __klass114229 + _self113945_ + _precedence-list114045_ + __precedence-list114245 + __klass114234 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self113940_ - _slots113943_ + _self113945_ + _slots113948_ __slots114238 - __klass114229 + __klass114234 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self113940_ - _fields114043_ - __fields114235 - __klass114229 + _self113945_ + _fields114048_ + __fields114236 + __klass114234 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self113940_ - _ctor-method114034_ - __constructor114231 - __klass114229 + _self113945_ + _ctor-method114039_ + __constructor114243 + __klass114234 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self113940_ - _struct?113945_ - __struct?114233 - __klass114229 + _self113945_ + _struct?113950_ + __struct?114244 + __klass114234 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self113940_ - _final?113946_ - __final?114239 - __klass114229 + _self113945_ + _final?113951_ + __final?114237 + __klass114234 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self113940_ - _metaclass113947_ - __metaclass114237 - __klass114229 + _self113945_ + _metaclass113952_ + __metaclass114242 + __klass114234 '#f))))))) - _g114363_)) - ((let () (declare (not safe)) (##fx= _g114362_ 11)) - (apply (lambda (_self114046_ - _id114047_ - _super114048_ - _precedence-list114049_ - _slots114050_ - _fields114051_ - _constructor114052_ - _struct?114053_ - _final?114054_ - _metaclass114055_ - _methods114056_) + _g114368_)) + ((let () (declare (not safe)) (##fx= _g114367_ 11)) + (apply (lambda (_self114051_ + _id114052_ + _super114053_ + _precedence-list114054_ + _slots114055_ + _fields114056_ + _constructor114057_ + _struct?114058_ + _final?114059_ + _metaclass114060_ + _methods114061_) (let () (declare (not safe)) (##unchecked-structure-set! - _self114046_ - _id114047_ - __id114240 - __klass114229 + _self114051_ + _id114052_ + __id114239 + __klass114234 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self114046_ - _super114048_ - __super114232 - __klass114229 + _self114051_ + _super114053_ + __super114240 + __klass114234 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self114046_ - _precedence-list114049_ - __precedence-list114234 - __klass114229 + _self114051_ + _precedence-list114054_ + __precedence-list114245 + __klass114234 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self114046_ - _slots114050_ + _self114051_ + _slots114055_ __slots114238 - __klass114229 + __klass114234 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self114046_ - _fields114051_ - __fields114235 - __klass114229 + _self114051_ + _fields114056_ + __fields114236 + __klass114234 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self114046_ - _constructor114052_ - __constructor114231 - __klass114229 + _self114051_ + _constructor114057_ + __constructor114243 + __klass114234 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self114046_ - _struct?114053_ - __struct?114233 - __klass114229 + _self114051_ + _struct?114058_ + __struct?114244 + __klass114234 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self114046_ - _final?114054_ - __final?114239 - __klass114229 + _self114051_ + _final?114059_ + __final?114237 + __klass114234 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self114046_ - _metaclass114055_ - __metaclass114237 - __klass114229 + _self114051_ + _metaclass114060_ + __metaclass114242 + __klass114234 '#f)) - (if _methods114056_ - (let ((__tmp114383 + (if _methods114061_ + (let ((__tmp114388 (let () (declare (not safe)) (list->hash-table-eq - _methods114056_)))) + _methods114061_)))) (declare (not safe)) (##unchecked-structure-set! - _self114046_ - __tmp114383 - __methods114236 - __klass114229 + _self114051_ + __tmp114388 + __methods114241 + __klass114234 '#f)) '#!void)) - _g114363_)) + _g114368_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g114363_)))))))) + _g114368_)))))))) (let () (declare (not safe)) (bind-specializer! gxc#!class:::init! gxc#!class:::init!::specialize)) @@ -2005,203 +2005,203 @@ (declare (not safe)) (bind-method!__% gxc#!class::t ':init! gxc#!class:::init! '#f)) (define gxc#compute-class-fields - (lambda (_where113792_ - _base-struct113793_ - _precedence-list113794_ - _direct-slots113795_) - (let* ((_base-fields113797_ - (if _base-struct113793_ + (lambda (_where113797_ + _base-struct113798_ + _precedence-list113799_ + _direct-slots113800_) + (let* ((_base-fields113802_ + (if _base-struct113798_ (##structure-ref (let () (declare (not safe)) (gxc#optimizer-resolve-class - _where113792_ - _base-struct113793_)) + _where113797_ + _base-struct113798_)) '5 gxc#!class::t '#f) '())) - (_r-fields113799_ (reverse _base-fields113797_)) - (_seen-slots113807_ - (let ((_tab113801_ + (_r-fields113804_ (reverse _base-fields113802_)) + (_seen-slots113812_ + (let ((_tab113806_ (let () (declare (not safe)) (make-hash-table-eq)))) (for-each - (lambda (_g113802113804_) + (lambda (_g113807113809_) (let () (declare (not safe)) - (hash-put! _tab113801_ _g113802113804_ '#t))) - _base-fields113797_) - _tab113801_)) - (_process-slot113811_ - (lambda (_slot113809_) + (hash-put! _tab113806_ _g113807113809_ '#t))) + _base-fields113802_) + _tab113806_)) + (_process-slot113816_ + (lambda (_slot113814_) (if (let () (declare (not safe)) - (hash-get _seen-slots113807_ _slot113809_)) + (hash-get _seen-slots113812_ _slot113814_)) '#!void (begin (let () (declare (not safe)) - (hash-put! _seen-slots113807_ _slot113809_ '#t)) - (set! _r-fields113799_ + (hash-put! _seen-slots113812_ _slot113814_ '#t)) + (set! _r-fields113804_ (let () (declare (not safe)) - (cons _slot113809_ _r-fields113799_)))))))) + (cons _slot113814_ _r-fields113804_)))))))) (for-each - (lambda (_mixin113814_) - (let ((_klass113816_ + (lambda (_mixin113819_) + (let ((_klass113821_ (let () (declare (not safe)) (gxc#optimizer-resolve-class - _where113792_ - _mixin113814_)))) - (if (##structure-ref _klass113816_ '7 gxc#!class::t '#f) + _where113797_ + _mixin113819_)))) + (if (##structure-ref _klass113821_ '7 gxc#!class::t '#f) '#!void (for-each - _process-slot113811_ - (##structure-ref _klass113816_ '5 gxc#!class::t '#f))))) - _precedence-list113794_) - (for-each _process-slot113811_ _direct-slots113795_) - (reverse _r-fields113799_)))) + _process-slot113816_ + (##structure-ref _klass113821_ '5 gxc#!class::t '#f))))) + _precedence-list113799_) + (for-each _process-slot113816_ _direct-slots113800_) + (reverse _r-fields113804_)))) (define gxc#!class-slot->field-offset - (lambda (_klass113751_ _slot113752_) - (let _lp113754_ ((_rest113756_ - (##structure-ref _klass113751_ '5 gxc#!class::t '#f)) - (_offset113757_ '1)) - (let* ((_rest113758113766_ _rest113756_) - (_else113760113774_ + (lambda (_klass113756_ _slot113757_) + (let _lp113759_ ((_rest113761_ + (##structure-ref _klass113756_ '5 gxc#!class::t '#f)) + (_offset113762_ '1)) + (let* ((_rest113763113771_ _rest113761_) + (_else113765113779_ (lambda () - (let ((__tmp114385 - (##structure-ref _klass113751_ '1 gxc#!type::t '#f)) - (__tmp114384 + (let ((__tmp114390 + (##structure-ref _klass113756_ '1 gxc#!type::t '#f)) + (__tmp114389 (##structure-ref - _klass113751_ + _klass113756_ '5 gxc#!class::t '#f))) (declare (not safe)) (gxc#raise-compile-error '"unknown class slot" - __tmp114385 - __tmp114384 - _slot113752_)))) - (_K113762113780_ - (lambda (_rest113777_ _s113778_) + __tmp114390 + __tmp114389 + _slot113757_)))) + (_K113767113785_ + (lambda (_rest113782_ _s113783_) (if (let () (declare (not safe)) - (eq? _s113778_ _slot113752_)) - _offset113757_ - (let ((__tmp114386 + (eq? _s113783_ _slot113757_)) + _offset113762_ + (let ((__tmp114391 (let () (declare (not safe)) - (fx+ _offset113757_ '1)))) + (fx+ _offset113762_ '1)))) (declare (not safe)) - (_lp113754_ _rest113777_ __tmp114386)))))) - (if (let () (declare (not safe)) (##pair? _rest113758113766_)) - (let ((_hd113763113783_ + (_lp113759_ _rest113782_ __tmp114391)))))) + (if (let () (declare (not safe)) (##pair? _rest113763113771_)) + (let ((_hd113768113788_ (let () (declare (not safe)) - (##car _rest113758113766_))) - (_tl113764113785_ + (##car _rest113763113771_))) + (_tl113769113790_ (let () (declare (not safe)) - (##cdr _rest113758113766_)))) - (let* ((_s113788_ _hd113763113783_) - (_rest113790_ _tl113764113785_)) + (##cdr _rest113763113771_)))) + (let* ((_s113793_ _hd113768113788_) + (_rest113795_ _tl113769113790_)) (declare (not safe)) - (_K113762113780_ _rest113790_ _s113788_))) - (let () (declare (not safe)) (_else113760113774_))))))) + (_K113767113785_ _rest113795_ _s113793_))) + (let () (declare (not safe)) (_else113765113779_))))))) (define gxc#!class-slot-find-struct - (lambda (_klass113709_ _slot113710_) + (lambda (_klass113714_ _slot113715_) (if (let () (declare (not safe)) - (gxc#!class-struct-slot? _klass113709_ _slot113710_)) - _klass113709_ - (let _lp113712_ ((_rest113714_ + (gxc#!class-struct-slot? _klass113714_ _slot113715_)) + _klass113714_ + (let _lp113717_ ((_rest113719_ (##structure-ref - _klass113709_ + _klass113714_ '3 gxc#!class::t '#f))) - (let* ((_rest113715113723_ _rest113714_) - (_else113717113731_ (lambda () '#f)) - (_K113719113739_ - (lambda (_rest113734_ _super113735_) - (let ((_super-class113737_ - (let ((__tmp114387 - (let ((__tmp114388 - (let ((__tmp114390 + (let* ((_rest113720113728_ _rest113719_) + (_else113722113736_ (lambda () '#f)) + (_K113724113744_ + (lambda (_rest113739_ _super113740_) + (let ((_super-class113742_ + (let ((__tmp114392 + (let ((__tmp114393 + (let ((__tmp114395 (##structure-ref - _klass113709_ + _klass113714_ '1 gxc#!type::t '#f)) - (__tmp114389 + (__tmp114394 (let () (declare (not safe)) - (cons _slot113710_ + (cons _slot113715_ '())))) (declare (not safe)) - (cons __tmp114390 - __tmp114389)))) + (cons __tmp114395 + __tmp114394)))) (declare (not safe)) (cons '!class-slot-find-struct - __tmp114388)))) + __tmp114393)))) (declare (not safe)) (gxc#optimizer-resolve-class - __tmp114387 - _super113735_)))) + __tmp114392 + _super113740_)))) (if (let () (declare (not safe)) (gxc#!class-struct-slot? - _super-class113737_ - _slot113710_)) - _super-class113737_ + _super-class113742_ + _slot113715_)) + _super-class113742_ (let () (declare (not safe)) - (_lp113712_ _rest113734_))))))) - (if (let () (declare (not safe)) (##pair? _rest113715113723_)) - (let ((_hd113720113742_ + (_lp113717_ _rest113739_))))))) + (if (let () (declare (not safe)) (##pair? _rest113720113728_)) + (let ((_hd113725113747_ (let () (declare (not safe)) - (##car _rest113715113723_))) - (_tl113721113744_ + (##car _rest113720113728_))) + (_tl113726113749_ (let () (declare (not safe)) - (##cdr _rest113715113723_)))) - (let* ((_super113747_ _hd113720113742_) - (_rest113749_ _tl113721113744_)) + (##cdr _rest113720113728_)))) + (let* ((_super113752_ _hd113725113747_) + (_rest113754_ _tl113726113749_)) (declare (not safe)) - (_K113719113739_ _rest113749_ _super113747_))) - (let () (declare (not safe)) (_else113717113731_)))))))) + (_K113724113744_ _rest113754_ _super113752_))) + (let () (declare (not safe)) (_else113722113736_)))))))) (define gxc#!class-struct-slot? - (lambda (_klass113706_ _slot113707_) - (if (##structure-ref _klass113706_ '7 gxc#!class::t '#f) - (memq _slot113707_ - (##structure-ref _klass113706_ '5 gxc#!class::t '#f)) + (lambda (_klass113711_ _slot113712_) + (if (##structure-ref _klass113711_ '7 gxc#!class::t '#f) + (memq _slot113712_ + (##structure-ref _klass113711_ '5 gxc#!class::t '#f)) '#f))) (define gxc#!predicate:::init! - (lambda (_self113703_ _id113704_) - (##structure-set! _self113703_ _id113704_ '1 gxc#!type::t '#f))) + (lambda (_self113708_ _id113709_) + (##structure-set! _self113708_ _id113709_ '1 gxc#!type::t '#f))) (define gxc#!predicate:::init!::specialize - (lambda (__klass114251 __method-table114252) - (let ((__id114253 - (let ((__slot114254 + (lambda (__klass114256 __method-table114257) + (let ((__id114258 + (let ((__slot114259 (let () (declare (not safe)) - (class-slot-offset __klass114251 'id)))) - (if __slot114254 - __slot114254 + (class-slot-offset __klass114256 'id)))) + (if __slot114259 + __slot114259 (let () (declare (not safe)) (error '"Unknown slot" 'id)))))) - (lambda (_self113703_ _id113704_) + (lambda (_self113708_ _id113709_) (let () (declare (not safe)) (##unchecked-structure-set! - _self113703_ - _id113704_ - __id114253 - __klass114251 + _self113708_ + _id113709_ + __id114258 + __klass114256 '#f)))))) (let () (declare (not safe)) @@ -2212,28 +2212,28 @@ (declare (not safe)) (bind-method!__% gxc#!predicate::t ':init! gxc#!predicate:::init! '#f)) (define gxc#!constructor:::init! - (lambda (_self113578_ _id113579_) - (##structure-set! _self113578_ _id113579_ '1 gxc#!type::t '#f))) + (lambda (_self113583_ _id113584_) + (##structure-set! _self113583_ _id113584_ '1 gxc#!type::t '#f))) (define gxc#!constructor:::init!::specialize - (lambda (__klass114255 __method-table114256) - (let ((__id114257 - (let ((__slot114258 + (lambda (__klass114260 __method-table114261) + (let ((__id114262 + (let ((__slot114263 (let () (declare (not safe)) - (class-slot-offset __klass114255 'id)))) - (if __slot114258 - __slot114258 + (class-slot-offset __klass114260 'id)))) + (if __slot114263 + __slot114263 (let () (declare (not safe)) (error '"Unknown slot" 'id)))))) - (lambda (_self113578_ _id113579_) + (lambda (_self113583_ _id113584_) (let () (declare (not safe)) (##unchecked-structure-set! - _self113578_ - _id113579_ - __id114257 - __klass114255 + _self113583_ + _id113584_ + __id114262 + __klass114260 '#f)))))) (let () (declare (not safe)) @@ -2248,71 +2248,71 @@ gxc#!constructor:::init! '#f)) (define gxc#!accessor:::init! - (lambda (_self113451_ _id113452_ _slot113453_ _checked?113454_) - (##structure-set! _self113451_ _id113452_ '1 gxc#!type::t '#f) - (##structure-set! _self113451_ _slot113453_ '2 gxc#!accessor::t '#f) + (lambda (_self113456_ _id113457_ _slot113458_ _checked?113459_) + (##structure-set! _self113456_ _id113457_ '1 gxc#!type::t '#f) + (##structure-set! _self113456_ _slot113458_ '2 gxc#!accessor::t '#f) (##structure-set! - _self113451_ - _checked?113454_ + _self113456_ + _checked?113459_ '3 gxc#!accessor::t '#f))) (define gxc#!accessor:::init!::specialize - (lambda (__klass114259 __method-table114260) - (let ((__checked?114261 - (let ((__slot114264 + (lambda (__klass114264 __method-table114265) + (let ((__id114266 + (let ((__slot114269 (let () (declare (not safe)) - (class-slot-offset __klass114259 'checked?)))) - (if __slot114264 - __slot114264 + (class-slot-offset __klass114264 'id)))) + (if __slot114269 + __slot114269 (let () (declare (not safe)) - (error '"Unknown slot" 'checked?))))) - (__slot114262 - (let ((__slot114265 + (error '"Unknown slot" 'id))))) + (__checked?114267 + (let ((__slot114270 (let () (declare (not safe)) - (class-slot-offset __klass114259 'slot)))) - (if __slot114265 - __slot114265 + (class-slot-offset __klass114264 'checked?)))) + (if __slot114270 + __slot114270 (let () (declare (not safe)) - (error '"Unknown slot" 'slot))))) - (__id114263 - (let ((__slot114266 + (error '"Unknown slot" 'checked?))))) + (__slot114268 + (let ((__slot114271 (let () (declare (not safe)) - (class-slot-offset __klass114259 'id)))) - (if __slot114266 - __slot114266 + (class-slot-offset __klass114264 'slot)))) + (if __slot114271 + __slot114271 (let () (declare (not safe)) - (error '"Unknown slot" 'id)))))) - (lambda (_self113451_ _id113452_ _slot113453_ _checked?113454_) + (error '"Unknown slot" 'slot)))))) + (lambda (_self113456_ _id113457_ _slot113458_ _checked?113459_) (let () (declare (not safe)) (##unchecked-structure-set! - _self113451_ - _id113452_ - __id114263 - __klass114259 + _self113456_ + _id113457_ + __id114266 + __klass114264 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self113451_ - _slot113453_ - __slot114262 - __klass114259 + _self113456_ + _slot113458_ + __slot114268 + __klass114264 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self113451_ - _checked?113454_ - __checked?114261 - __klass114259 + _self113456_ + _checked?113459_ + __checked?114267 + __klass114264 '#f)))))) (let () (declare (not safe)) @@ -2323,71 +2323,71 @@ (declare (not safe)) (bind-method!__% gxc#!accessor::t ':init! gxc#!accessor:::init! '#f)) (define gxc#!mutator:::init! - (lambda (_self113324_ _id113325_ _slot113326_ _checked?113327_) - (##structure-set! _self113324_ _id113325_ '1 gxc#!type::t '#f) - (##structure-set! _self113324_ _slot113326_ '2 gxc#!mutator::t '#f) + (lambda (_self113329_ _id113330_ _slot113331_ _checked?113332_) + (##structure-set! _self113329_ _id113330_ '1 gxc#!type::t '#f) + (##structure-set! _self113329_ _slot113331_ '2 gxc#!mutator::t '#f) (##structure-set! - _self113324_ - _checked?113327_ + _self113329_ + _checked?113332_ '3 gxc#!mutator::t '#f))) (define gxc#!mutator:::init!::specialize - (lambda (__klass114267 __method-table114268) - (let ((__checked?114269 - (let ((__slot114272 + (lambda (__klass114272 __method-table114273) + (let ((__id114274 + (let ((__slot114277 (let () (declare (not safe)) - (class-slot-offset __klass114267 'checked?)))) - (if __slot114272 - __slot114272 + (class-slot-offset __klass114272 'id)))) + (if __slot114277 + __slot114277 (let () (declare (not safe)) - (error '"Unknown slot" 'checked?))))) - (__slot114270 - (let ((__slot114273 + (error '"Unknown slot" 'id))))) + (__checked?114275 + (let ((__slot114278 (let () (declare (not safe)) - (class-slot-offset __klass114267 'slot)))) - (if __slot114273 - __slot114273 + (class-slot-offset __klass114272 'checked?)))) + (if __slot114278 + __slot114278 (let () (declare (not safe)) - (error '"Unknown slot" 'slot))))) - (__id114271 - (let ((__slot114274 + (error '"Unknown slot" 'checked?))))) + (__slot114276 + (let ((__slot114279 (let () (declare (not safe)) - (class-slot-offset __klass114267 'id)))) - (if __slot114274 - __slot114274 + (class-slot-offset __klass114272 'slot)))) + (if __slot114279 + __slot114279 (let () (declare (not safe)) - (error '"Unknown slot" 'id)))))) - (lambda (_self113324_ _id113325_ _slot113326_ _checked?113327_) + (error '"Unknown slot" 'slot)))))) + (lambda (_self113329_ _id113330_ _slot113331_ _checked?113332_) (let () (declare (not safe)) (##unchecked-structure-set! - _self113324_ - _id113325_ - __id114271 - __klass114267 + _self113329_ + _id113330_ + __id114274 + __klass114272 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self113324_ - _slot113326_ - __slot114270 - __klass114267 + _self113329_ + _slot113331_ + __slot114276 + __klass114272 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self113324_ - _checked?113327_ - __checked?114269 - __klass114267 + _self113329_ + _checked?113332_ + __checked?114275 + __klass114272 '#f)))))) (let () (declare (not safe)) @@ -2398,349 +2398,349 @@ (declare (not safe)) (bind-method!__% gxc#!mutator::t ':init! gxc#!mutator:::init! '#f)) (define gxc#!lambda:::init!__% - (lambda (_self113168_ - _id113169_ - _arity113170_ - _dispatch113171_ - _inline113172_ - _typedecl113173_) - (if (let ((__tmp114397 + (lambda (_self113173_ + _id113174_ + _arity113175_ + _dispatch113176_ + _inline113177_ + _typedecl113178_) + (if (let ((__tmp114402 (let () (declare (not safe)) - (##structure-length _self113168_)))) + (##structure-length _self113173_)))) (declare (not safe)) - (##fx< '5 __tmp114397)) + (##fx< '5 __tmp114402)) (begin - (let ((__tmp114392 + (let ((__tmp114397 (let () (declare (not safe)) - (##structure-type _self113168_)))) + (##structure-type _self113173_)))) (declare (not safe)) (##unchecked-structure-set! - _self113168_ - _id113169_ + _self113173_ + _id113174_ '1 - __tmp114392 + __tmp114397 '#f)) - (let ((__tmp114393 + (let ((__tmp114398 (let () (declare (not safe)) - (##structure-type _self113168_)))) + (##structure-type _self113173_)))) (declare (not safe)) (##unchecked-structure-set! - _self113168_ - _arity113170_ + _self113173_ + _arity113175_ '2 - __tmp114393 + __tmp114398 '#f)) - (let ((__tmp114394 + (let ((__tmp114399 (let () (declare (not safe)) - (##structure-type _self113168_)))) + (##structure-type _self113173_)))) (declare (not safe)) (##unchecked-structure-set! - _self113168_ - _dispatch113171_ + _self113173_ + _dispatch113176_ '3 - __tmp114394 + __tmp114399 '#f)) - (let ((__tmp114395 + (let ((__tmp114400 (let () (declare (not safe)) - (##structure-type _self113168_)))) + (##structure-type _self113173_)))) (declare (not safe)) (##unchecked-structure-set! - _self113168_ - _inline113172_ + _self113173_ + _inline113177_ '4 - __tmp114395 + __tmp114400 '#f)) - (let ((__tmp114396 + (let ((__tmp114401 (let () (declare (not safe)) - (##structure-type _self113168_)))) + (##structure-type _self113173_)))) (declare (not safe)) (##unchecked-structure-set! - _self113168_ - _typedecl113173_ + _self113173_ + _typedecl113178_ '5 - __tmp114396 + __tmp114401 '#f))) - (let ((__tmp114391 + (let ((__tmp114396 (let () (declare (not safe)) - (##vector-length _self113168_)))) + (##vector-length _self113173_)))) (declare (not safe)) (error '"struct-instance-init!: too many arguments for struct" - _self113168_ + _self113173_ '5 - __tmp114391))))) + __tmp114396))))) (define gxc#!lambda:::init!__0 - (lambda (_self113178_ _id113179_ _arity113180_ _dispatch113181_) - (let* ((_inline113183_ '#f) (_typedecl113185_ '#f)) - (if (let ((__tmp114404 + (lambda (_self113183_ _id113184_ _arity113185_ _dispatch113186_) + (let* ((_inline113188_ '#f) (_typedecl113190_ '#f)) + (if (let ((__tmp114409 (let () (declare (not safe)) - (##structure-length _self113178_)))) + (##structure-length _self113183_)))) (declare (not safe)) - (##fx< '5 __tmp114404)) + (##fx< '5 __tmp114409)) (begin - (let ((__tmp114399 + (let ((__tmp114404 (let () (declare (not safe)) - (##structure-type _self113178_)))) + (##structure-type _self113183_)))) (declare (not safe)) (##unchecked-structure-set! - _self113178_ - _id113179_ + _self113183_ + _id113184_ '1 - __tmp114399 + __tmp114404 '#f)) - (let ((__tmp114400 + (let ((__tmp114405 (let () (declare (not safe)) - (##structure-type _self113178_)))) + (##structure-type _self113183_)))) (declare (not safe)) (##unchecked-structure-set! - _self113178_ - _arity113180_ + _self113183_ + _arity113185_ '2 - __tmp114400 + __tmp114405 '#f)) - (let ((__tmp114401 + (let ((__tmp114406 (let () (declare (not safe)) - (##structure-type _self113178_)))) + (##structure-type _self113183_)))) (declare (not safe)) (##unchecked-structure-set! - _self113178_ - _dispatch113181_ + _self113183_ + _dispatch113186_ '3 - __tmp114401 + __tmp114406 '#f)) - (let ((__tmp114402 + (let ((__tmp114407 (let () (declare (not safe)) - (##structure-type _self113178_)))) + (##structure-type _self113183_)))) (declare (not safe)) (##unchecked-structure-set! - _self113178_ - _inline113183_ + _self113183_ + _inline113188_ '4 - __tmp114402 + __tmp114407 '#f)) - (let ((__tmp114403 + (let ((__tmp114408 (let () (declare (not safe)) - (##structure-type _self113178_)))) + (##structure-type _self113183_)))) (declare (not safe)) (##unchecked-structure-set! - _self113178_ - _typedecl113185_ + _self113183_ + _typedecl113190_ '5 - __tmp114403 + __tmp114408 '#f))) - (let ((__tmp114398 + (let ((__tmp114403 (let () (declare (not safe)) - (##vector-length _self113178_)))) + (##vector-length _self113183_)))) (declare (not safe)) (error '"struct-instance-init!: too many arguments for struct" - _self113178_ + _self113183_ '5 - __tmp114398)))))) + __tmp114403)))))) (define gxc#!lambda:::init!__1 - (lambda (_self113187_ - _id113188_ - _arity113189_ - _dispatch113190_ - _inline113191_) - (let ((_typedecl113193_ '#f)) - (if (let ((__tmp114411 + (lambda (_self113192_ + _id113193_ + _arity113194_ + _dispatch113195_ + _inline113196_) + (let ((_typedecl113198_ '#f)) + (if (let ((__tmp114416 (let () (declare (not safe)) - (##structure-length _self113187_)))) + (##structure-length _self113192_)))) (declare (not safe)) - (##fx< '5 __tmp114411)) + (##fx< '5 __tmp114416)) (begin - (let ((__tmp114406 + (let ((__tmp114411 (let () (declare (not safe)) - (##structure-type _self113187_)))) + (##structure-type _self113192_)))) (declare (not safe)) (##unchecked-structure-set! - _self113187_ - _id113188_ + _self113192_ + _id113193_ '1 - __tmp114406 + __tmp114411 '#f)) - (let ((__tmp114407 + (let ((__tmp114412 (let () (declare (not safe)) - (##structure-type _self113187_)))) + (##structure-type _self113192_)))) (declare (not safe)) (##unchecked-structure-set! - _self113187_ - _arity113189_ + _self113192_ + _arity113194_ '2 - __tmp114407 + __tmp114412 '#f)) - (let ((__tmp114408 + (let ((__tmp114413 (let () (declare (not safe)) - (##structure-type _self113187_)))) + (##structure-type _self113192_)))) (declare (not safe)) (##unchecked-structure-set! - _self113187_ - _dispatch113190_ + _self113192_ + _dispatch113195_ '3 - __tmp114408 + __tmp114413 '#f)) - (let ((__tmp114409 + (let ((__tmp114414 (let () (declare (not safe)) - (##structure-type _self113187_)))) + (##structure-type _self113192_)))) (declare (not safe)) (##unchecked-structure-set! - _self113187_ - _inline113191_ + _self113192_ + _inline113196_ '4 - __tmp114409 + __tmp114414 '#f)) - (let ((__tmp114410 + (let ((__tmp114415 (let () (declare (not safe)) - (##structure-type _self113187_)))) + (##structure-type _self113192_)))) (declare (not safe)) (##unchecked-structure-set! - _self113187_ - _typedecl113193_ + _self113192_ + _typedecl113198_ '5 - __tmp114410 + __tmp114415 '#f))) - (let ((__tmp114405 + (let ((__tmp114410 (let () (declare (not safe)) - (##vector-length _self113187_)))) + (##vector-length _self113192_)))) (declare (not safe)) (error '"struct-instance-init!: too many arguments for struct" - _self113187_ + _self113192_ '5 - __tmp114405)))))) + __tmp114410)))))) (define gxc#!lambda:::init! - (lambda _g114413_ - (let ((_g114412_ (let () (declare (not safe)) (##length _g114413_)))) - (cond ((let () (declare (not safe)) (##fx= _g114412_ 4)) - (apply (lambda (_self113178_ - _id113179_ - _arity113180_ - _dispatch113181_) + (lambda _g114418_ + (let ((_g114417_ (let () (declare (not safe)) (##length _g114418_)))) + (cond ((let () (declare (not safe)) (##fx= _g114417_ 4)) + (apply (lambda (_self113183_ + _id113184_ + _arity113185_ + _dispatch113186_) (let () (declare (not safe)) (gxc#!lambda:::init!__0 - _self113178_ - _id113179_ - _arity113180_ - _dispatch113181_))) - _g114413_)) - ((let () (declare (not safe)) (##fx= _g114412_ 5)) - (apply (lambda (_self113187_ - _id113188_ - _arity113189_ - _dispatch113190_ - _inline113191_) + _self113183_ + _id113184_ + _arity113185_ + _dispatch113186_))) + _g114418_)) + ((let () (declare (not safe)) (##fx= _g114417_ 5)) + (apply (lambda (_self113192_ + _id113193_ + _arity113194_ + _dispatch113195_ + _inline113196_) (let () (declare (not safe)) (gxc#!lambda:::init!__1 - _self113187_ - _id113188_ - _arity113189_ - _dispatch113190_ - _inline113191_))) - _g114413_)) - ((let () (declare (not safe)) (##fx= _g114412_ 6)) - (apply (lambda (_self113195_ - _id113196_ - _arity113197_ - _dispatch113198_ - _inline113199_ - _typedecl113200_) - (if (let ((__tmp114420 + _self113192_ + _id113193_ + _arity113194_ + _dispatch113195_ + _inline113196_))) + _g114418_)) + ((let () (declare (not safe)) (##fx= _g114417_ 6)) + (apply (lambda (_self113200_ + _id113201_ + _arity113202_ + _dispatch113203_ + _inline113204_ + _typedecl113205_) + (if (let ((__tmp114425 (let () (declare (not safe)) - (##structure-length _self113195_)))) + (##structure-length _self113200_)))) (declare (not safe)) - (##fx< '5 __tmp114420)) + (##fx< '5 __tmp114425)) (begin - (let ((__tmp114415 + (let ((__tmp114420 (let () (declare (not safe)) - (##structure-type _self113195_)))) + (##structure-type _self113200_)))) (declare (not safe)) (##unchecked-structure-set! - _self113195_ - _id113196_ + _self113200_ + _id113201_ '1 - __tmp114415 + __tmp114420 '#f)) - (let ((__tmp114416 + (let ((__tmp114421 (let () (declare (not safe)) - (##structure-type _self113195_)))) + (##structure-type _self113200_)))) (declare (not safe)) (##unchecked-structure-set! - _self113195_ - _arity113197_ + _self113200_ + _arity113202_ '2 - __tmp114416 + __tmp114421 '#f)) - (let ((__tmp114417 + (let ((__tmp114422 (let () (declare (not safe)) - (##structure-type _self113195_)))) + (##structure-type _self113200_)))) (declare (not safe)) (##unchecked-structure-set! - _self113195_ - _dispatch113198_ + _self113200_ + _dispatch113203_ '3 - __tmp114417 + __tmp114422 '#f)) - (let ((__tmp114418 + (let ((__tmp114423 (let () (declare (not safe)) - (##structure-type _self113195_)))) + (##structure-type _self113200_)))) (declare (not safe)) (##unchecked-structure-set! - _self113195_ - _inline113199_ + _self113200_ + _inline113204_ '4 - __tmp114418 + __tmp114423 '#f)) - (let ((__tmp114419 + (let ((__tmp114424 (let () (declare (not safe)) - (##structure-type _self113195_)))) + (##structure-type _self113200_)))) (declare (not safe)) (##unchecked-structure-set! - _self113195_ - _typedecl113200_ + _self113200_ + _typedecl113205_ '5 - __tmp114419 + __tmp114424 '#f))) - (let ((__tmp114414 + (let ((__tmp114419 (let () (declare (not safe)) - (##vector-length _self113195_)))) + (##vector-length _self113200_)))) (declare (not safe)) (error '"struct-instance-init!: too many arguments for struct" - _self113195_ + _self113200_ '5 - __tmp114414)))) - _g114413_)) + __tmp114419)))) + _g114418_)) (else (##raise-wrong-number-of-arguments-exception gxc#!lambda:::init! - _g114413_)))))) + _g114418_)))))) (let () (declare (not safe)) (bind-method!__% gxc#!lambda::t ':init! gxc#!lambda:::init! '#f)) @@ -2753,8 +2753,8 @@ gxc#!primitive-lambda:::init! '#f)) (define gxc#!primitive-case-lambda:::init! - (lambda (_self112920_ . _args112921_) - (apply struct-instance-init! _self112920_ _args112921_))) + (lambda (_self112925_ . _args112926_) + (apply struct-instance-init! _self112925_ _args112926_))) (let () (declare (not safe)) (bind-method!__% @@ -2763,64 +2763,64 @@ gxc#!primitive-case-lambda:::init! '#f)) (define gxc#!type-vtab - (lambda (_type112795_) + (lambda (_type112800_) (if (let () (declare (not safe)) - (##structure-instance-of? _type112795_ 'gxc#!class::t)) + (##structure-instance-of? _type112800_ 'gxc#!class::t)) (let () (declare (not safe)) - (gxc#!class-method-table _type112795_)) + (gxc#!class-method-table _type112800_)) '#f))) (define gxc#!class-method-table - (lambda (_klass112788_) - (let ((_$e112790_ - (##structure-ref _klass112788_ '10 gxc#!class::t '#f))) - (if _$e112790_ - _$e112790_ - (let ((_tab112793_ + (lambda (_klass112793_) + (let ((_$e112795_ + (##structure-ref _klass112793_ '10 gxc#!class::t '#f))) + (if _$e112795_ + _$e112795_ + (let ((_tab112798_ (let () (declare (not safe)) (make-hash-table-eq)))) (##structure-set! - _klass112788_ - _tab112793_ + _klass112793_ + _tab112798_ '10 gxc#!class::t '#f) - _tab112793_))))) + _tab112798_))))) (define gxc#!class-lookup-method - (lambda (_klass112779_ _method112780_) - (let ((_tab112781112783_ - (##structure-ref _klass112779_ '10 gxc#!class::t '#f))) - (if _tab112781112783_ - (let ((_tab112786_ _tab112781112783_)) + (lambda (_klass112784_ _method112785_) + (let ((_tab112786112788_ + (##structure-ref _klass112784_ '10 gxc#!class::t '#f))) + (if _tab112786112788_ + (let ((_tab112791_ _tab112786112788_)) (declare (not safe)) - (hash-get _tab112786_ _method112780_)) + (hash-get _tab112791_ _method112785_)) '#f)))) (define gxc#!type-lookup-method - (lambda (_type112776_ _method112777_) + (lambda (_type112781_ _method112782_) (if (let () (declare (not safe)) - (##structure-instance-of? _type112776_ 'gxc#!class::t)) + (##structure-instance-of? _type112781_ 'gxc#!class::t)) (let () (declare (not safe)) - (gxc#!class-lookup-method _type112776_ _method112777_)) + (gxc#!class-lookup-method _type112781_ _method112782_)) '#f))) (define gxc#optimizer-declare-type!__% - (lambda (_sym112760_ _type112761_ _local?112762_) + (lambda (_sym112765_ _type112766_ _local?112767_) (if (let () (declare (not safe)) - (##structure-instance-of? _type112761_ 'gxc#!type::t)) + (##structure-instance-of? _type112766_ 'gxc#!type::t)) '#!void (let () (declare (not safe)) (error '"bad declaration: expected !type" - _sym112760_ - _type112761_))) - (let ((__tmp114421 - (let () (declare (not safe)) (struct->list _type112761_)))) + _sym112765_ + _type112766_))) + (let ((__tmp114426 + (let () (declare (not safe)) (struct->list _type112766_)))) (declare (not safe)) - (gxc#verbose '"declare-type " _sym112760_ '" " __tmp114421)) - (let ((__tmp114422 - (if _local?112762_ + (gxc#verbose '"declare-type " _sym112765_ '" " __tmp114426)) + (let ((__tmp114427 + (if _local?112767_ (gxc#current-compile-local-type) (##structure-ref (gxc#current-compile-optimizer-info) @@ -2828,44 +2828,44 @@ gxc#optimizer-info::t '#f)))) (declare (not safe)) - (hash-put! __tmp114422 _sym112760_ _type112761_)))) + (hash-put! __tmp114427 _sym112765_ _type112766_)))) (define gxc#optimizer-declare-type!__0 - (lambda (_sym112767_ _type112768_) - (let ((_local?112770_ '#f)) + (lambda (_sym112772_ _type112773_) + (let ((_local?112775_ '#f)) (declare (not safe)) (gxc#optimizer-declare-type!__% - _sym112767_ - _type112768_ - _local?112770_)))) + _sym112772_ + _type112773_ + _local?112775_)))) (define gxc#optimizer-declare-type! - (lambda _g114424_ - (let ((_g114423_ (let () (declare (not safe)) (##length _g114424_)))) - (cond ((let () (declare (not safe)) (##fx= _g114423_ 2)) - (apply (lambda (_sym112767_ _type112768_) + (lambda _g114429_ + (let ((_g114428_ (let () (declare (not safe)) (##length _g114429_)))) + (cond ((let () (declare (not safe)) (##fx= _g114428_ 2)) + (apply (lambda (_sym112772_ _type112773_) (let () (declare (not safe)) (gxc#optimizer-declare-type!__0 - _sym112767_ - _type112768_))) - _g114424_)) - ((let () (declare (not safe)) (##fx= _g114423_ 3)) - (apply (lambda (_sym112772_ _type112773_ _local?112774_) + _sym112772_ + _type112773_))) + _g114429_)) + ((let () (declare (not safe)) (##fx= _g114428_ 3)) + (apply (lambda (_sym112777_ _type112778_ _local?112779_) (let () (declare (not safe)) (gxc#optimizer-declare-type!__% - _sym112772_ - _type112773_ - _local?112774_))) - _g114424_)) + _sym112777_ + _type112778_ + _local?112779_))) + _g114429_)) (else (##raise-wrong-number-of-arguments-exception gxc#optimizer-declare-type! - _g114424_)))))) + _g114429_)))))) (define gxc#optimizer-clear-type!__% - (lambda (_sym112746_ _local?112747_) - (let () (declare (not safe)) (gxc#verbose '"clear-type " _sym112746_)) - (let ((__tmp114425 - (if _local?112747_ + (lambda (_sym112751_ _local?112752_) + (let () (declare (not safe)) (gxc#verbose '"clear-type " _sym112751_)) + (let ((__tmp114430 + (if _local?112752_ (gxc#current-compile-local-type) (##structure-ref (gxc#current-compile-optimizer-info) @@ -2873,33 +2873,33 @@ gxc#optimizer-info::t '#f)))) (declare (not safe)) - (hash-remove! __tmp114425 _sym112746_)))) + (hash-remove! __tmp114430 _sym112751_)))) (define gxc#optimizer-clear-type!__0 - (lambda (_sym112752_) - (let ((_local?112754_ '#f)) + (lambda (_sym112757_) + (let ((_local?112759_ '#f)) (declare (not safe)) - (gxc#optimizer-clear-type!__% _sym112752_ _local?112754_)))) + (gxc#optimizer-clear-type!__% _sym112757_ _local?112759_)))) (define gxc#optimizer-clear-type! - (lambda _g114427_ - (let ((_g114426_ (let () (declare (not safe)) (##length _g114427_)))) - (cond ((let () (declare (not safe)) (##fx= _g114426_ 1)) - (apply (lambda (_sym112752_) + (lambda _g114432_ + (let ((_g114431_ (let () (declare (not safe)) (##length _g114432_)))) + (cond ((let () (declare (not safe)) (##fx= _g114431_ 1)) + (apply (lambda (_sym112757_) (let () (declare (not safe)) - (gxc#optimizer-clear-type!__0 _sym112752_))) - _g114427_)) - ((let () (declare (not safe)) (##fx= _g114426_ 2)) - (apply (lambda (_sym112756_ _local?112757_) + (gxc#optimizer-clear-type!__0 _sym112757_))) + _g114432_)) + ((let () (declare (not safe)) (##fx= _g114431_ 2)) + (apply (lambda (_sym112761_ _local?112762_) (let () (declare (not safe)) (gxc#optimizer-clear-type!__% - _sym112756_ - _local?112757_))) - _g114427_)) + _sym112761_ + _local?112762_))) + _g114432_)) (else (##raise-wrong-number-of-arguments-exception gxc#optimizer-clear-type! - _g114427_)))))) + _g114432_)))))) (define gxc#optimizer-declare-method!__% (lambda (_type-t112719_ _method112720_ _sym112721_ _rebind?112722_) (let* ((_type112724_ @@ -2910,60 +2910,70 @@ (let () (declare (not safe)) (gxc#!type-vtab _type112724_)))) (if _$e112726_ ((lambda (_vtab112729_) - (if (let () - (declare (not safe)) - (hash-key? _vtab112729_ _method112720_)) - (if _rebind?112722_ - (begin - (let () - (declare (not safe)) - (gxc#verbose - '"declare-method: rebind existing method" - _type-t112719_ - '" " - _method112720_)) - (let () - (declare (not safe)) - (hash-put! - _vtab112729_ - _method112720_ - _sym112721_))) - (let ((__tmp114432 - (let ((__tmp114433 - (let ((__tmp114434 - (let ((__tmp114435 - (let () - (declare (not safe)) - (cons _sym112721_ - '())))) - (declare (not safe)) - (cons _method112720_ - __tmp114435)))) - (declare (not safe)) - (cons _type-t112719_ __tmp114434)))) + (let ((_$e112731_ + (let () + (declare (not safe)) + (hash-get _vtab112729_ _method112720_)))) + (if _$e112731_ + ((lambda (_existing112734_) + (if _rebind?112722_ + (begin + (let () (declare (not safe)) - (cons 'bind-method! __tmp114433)))) + (gxc#verbose + '"declare-method: rebind existing method" + _type-t112719_ + '" " + _method112720_)) + (let () + (declare (not safe)) + (hash-put! + _vtab112729_ + _method112720_ + _sym112721_))) + (if (let () + (declare (not safe)) + (eq? _existing112734_ _sym112721_)) + '#!void + (let ((__tmp114437 + (let ((__tmp114438 + (let ((__tmp114439 + (let ((__tmp114440 + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (cons _sym112721_ '())))) + (declare (not safe)) + (cons _method112720_ __tmp114440)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons _type-t112719_ + __tmp114439)))) + (declare (not safe)) + (cons 'bind-method! __tmp114438)))) + (declare (not safe)) + (gxc#raise-compile-error + '"declare-method: duplicate method declaration" + __tmp114437 + _method112720_))))) + _$e112731_) + (begin + (let () (declare (not safe)) - (gxc#raise-compile-error - '"declare-method: duplicate method declaration" - __tmp114432 - _method112720_))) - (begin - (let () - (declare (not safe)) - (gxc#verbose - '"declare-method " - _type-t112719_ - '" " - _method112720_ - '" => " - _sym112721_)) - (let () - (declare (not safe)) - (hash-put! - _vtab112729_ - _method112720_ - _sym112721_))))) + (gxc#verbose + '"declare-method " + _type-t112719_ + '" " + _method112720_ + '" => " + _sym112721_)) + (let () + (declare (not safe)) + (hash-put! + _vtab112729_ + _method112720_ + _sym112721_)))))) _$e112726_) (if (let () (declare (not safe)) (not _type112724_)) (let () @@ -2971,62 +2981,62 @@ (gxc#verbose '"declare-method: unknown type " _type-t112719_)) - (let ((__tmp114428 - (let ((__tmp114429 - (let ((__tmp114430 - (let ((__tmp114431 + (let ((__tmp114433 + (let ((__tmp114434 + (let ((__tmp114435 + (let ((__tmp114436 (let () (declare (not safe)) (cons _method112720_ '())))) (declare (not safe)) - (cons _sym112721_ __tmp114431)))) + (cons _sym112721_ __tmp114436)))) (declare (not safe)) - (cons _type-t112719_ __tmp114430)))) + (cons _type-t112719_ __tmp114435)))) (declare (not safe)) - (cons 'bind-method! __tmp114429)))) + (cons 'bind-method! __tmp114434)))) (declare (not safe)) (gxc#raise-compile-error '"declare-method: bad method declaration; no method table" - __tmp114428 + __tmp114433 _type112724_))))))) (define gxc#optimizer-declare-method!__0 - (lambda (_type-t112734_ _method112735_ _sym112736_) - (let ((_rebind?112738_ '#f)) + (lambda (_type-t112739_ _method112740_ _sym112741_) + (let ((_rebind?112743_ '#f)) (declare (not safe)) (gxc#optimizer-declare-method!__% - _type-t112734_ - _method112735_ - _sym112736_ - _rebind?112738_)))) + _type-t112739_ + _method112740_ + _sym112741_ + _rebind?112743_)))) (define gxc#optimizer-declare-method! - (lambda _g114437_ - (let ((_g114436_ (let () (declare (not safe)) (##length _g114437_)))) - (cond ((let () (declare (not safe)) (##fx= _g114436_ 3)) - (apply (lambda (_type-t112734_ _method112735_ _sym112736_) + (lambda _g114442_ + (let ((_g114441_ (let () (declare (not safe)) (##length _g114442_)))) + (cond ((let () (declare (not safe)) (##fx= _g114441_ 3)) + (apply (lambda (_type-t112739_ _method112740_ _sym112741_) (let () (declare (not safe)) (gxc#optimizer-declare-method!__0 - _type-t112734_ - _method112735_ - _sym112736_))) - _g114437_)) - ((let () (declare (not safe)) (##fx= _g114436_ 4)) - (apply (lambda (_type-t112740_ - _method112741_ - _sym112742_ - _rebind?112743_) + _type-t112739_ + _method112740_ + _sym112741_))) + _g114442_)) + ((let () (declare (not safe)) (##fx= _g114441_ 4)) + (apply (lambda (_type-t112745_ + _method112746_ + _sym112747_ + _rebind?112748_) (let () (declare (not safe)) (gxc#optimizer-declare-method!__% - _type-t112740_ - _method112741_ - _sym112742_ - _rebind?112743_))) - _g114437_)) + _type-t112745_ + _method112746_ + _sym112747_ + _rebind?112748_))) + _g114442_)) (else (##raise-wrong-number-of-arguments-exception gxc#optimizer-declare-method! - _g114437_)))))) + _g114442_)))))) (define gxc#optimizer-lookup-type (lambda (_sym112707_) (let ((_$e112715_ @@ -3038,14 +3048,14 @@ '#f)))) (if _$e112715_ _$e112715_ - (let ((__tmp114438 + (let ((__tmp114443 (##structure-ref (gxc#current-compile-optimizer-info) '1 gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-get __tmp114438 _sym112707_)))))) + (hash-get __tmp114443 _sym112707_)))))) (define gxc#optimizer-resolve-type (lambda (_sym112699_) (let ((_type112700112702_ @@ -3057,10 +3067,10 @@ (if (let () (declare (not safe)) (##structure-instance-of? _type112705_ 'gxc#!alias::t)) - (let ((__tmp114439 + (let ((__tmp114444 (##structure-ref _type112705_ '1 gxc#!type::t '#f))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp114439)) + (gxc#optimizer-resolve-type __tmp114444)) _type112705_)) '#f)))) (define gxc#optimizer-resolve-class @@ -3092,35 +3102,35 @@ _klass-id112692_)))))) (define gxc#optimizer-lookup-method (lambda (_type-t112688_ _method112689_) - (let ((__tmp114440 + (let ((__tmp114445 (let () (declare (not safe)) (gxc#optimizer-resolve-type _type-t112688_)))) (declare (not safe)) - (gxc#!type-lookup-method __tmp114440 _method112689_)))) + (gxc#!type-lookup-method __tmp114445 _method112689_)))) (define gxc#optimizer-top-level-method! (lambda (_sym112686_) (let () (declare (not safe)) (gxc#verbose '"top-level method: " _sym112686_)) - (let ((__tmp114441 + (let ((__tmp114446 (##structure-ref (gxc#current-compile-optimizer-info) '3 gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-put! __tmp114441 _sym112686_ '#t)))) + (hash-put! __tmp114446 _sym112686_ '#t)))) (define gxc#optimizer-top-level-method? (lambda (_sym112684_) - (let ((__tmp114442 + (let ((__tmp114447 (##structure-ref (gxc#current-compile-optimizer-info) '3 gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-get __tmp114442 _sym112684_)))) + (hash-get __tmp114447 _sym112684_)))) (define gxc#identifier-symbol (lambda (_stx112682_) (if (let () diff --git a/src/bootstrap/gerbil/compiler/optimize-base__1.scm b/src/bootstrap/gerbil/compiler/optimize-base__1.scm index 0e60edc3..d10f2c58 100644 --- a/src/bootstrap/gerbil/compiler/optimize-base__1.scm +++ b/src/bootstrap/gerbil/compiler/optimize-base__1.scm @@ -1,1602 +1,1602 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gxc[1]#_g114444_| + (define |gxc[1]#_g114449_| (##structure gx#syntax-quote::t 'optimizer-info::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114446_| + (define |gxc[1]#_g114451_| (##structure gx#syntax-quote::t 'make-optimizer-info #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114448_| + (define |gxc[1]#_g114453_| (##structure gx#syntax-quote::t 'optimizer-info? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114454_| + (define |gxc[1]#_g114459_| (##structure gx#syntax-quote::t 'optimizer-info-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114457_| + (define |gxc[1]#_g114462_| (##structure gx#syntax-quote::t 'optimizer-info-ssxi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114460_| + (define |gxc[1]#_g114465_| (##structure gx#syntax-quote::t 'optimizer-info-type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114466_| + (define |gxc[1]#_g114471_| (##structure gx#syntax-quote::t 'optimizer-info-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114469_| + (define |gxc[1]#_g114474_| (##structure gx#syntax-quote::t 'optimizer-info-ssxi-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114472_| + (define |gxc[1]#_g114477_| (##structure gx#syntax-quote::t 'optimizer-info-type-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114478_| + (define |gxc[1]#_g114483_| (##structure gx#syntax-quote::t '&optimizer-info-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114481_| + (define |gxc[1]#_g114486_| (##structure gx#syntax-quote::t '&optimizer-info-ssxi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114484_| + (define |gxc[1]#_g114489_| (##structure gx#syntax-quote::t '&optimizer-info-type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114490_| + (define |gxc[1]#_g114495_| (##structure gx#syntax-quote::t '&optimizer-info-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114493_| + (define |gxc[1]#_g114498_| (##structure gx#syntax-quote::t '&optimizer-info-ssxi-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114496_| + (define |gxc[1]#_g114501_| (##structure gx#syntax-quote::t '&optimizer-info-type-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114498_| + (define |gxc[1]#_g114503_| (##structure gx#syntax-quote::t '!type::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114500_| + (define |gxc[1]#_g114505_| (##structure gx#syntax-quote::t 'make-!type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114502_| + (define |gxc[1]#_g114507_| (##structure gx#syntax-quote::t '!type? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114506_| + (define |gxc[1]#_g114511_| (##structure gx#syntax-quote::t '!type-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114510_| + (define |gxc[1]#_g114515_| (##structure gx#syntax-quote::t '!type-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114514_| + (define |gxc[1]#_g114519_| (##structure gx#syntax-quote::t '&!type-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114518_| + (define |gxc[1]#_g114523_| (##structure gx#syntax-quote::t '&!type-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114521_| + (define |gxc[1]#_g114526_| (##structure gx#syntax-quote::t '!type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114523_| + (define |gxc[1]#_g114528_| (##structure gx#syntax-quote::t '!alias::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114525_| + (define |gxc[1]#_g114530_| (##structure gx#syntax-quote::t 'make-!alias #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114527_| + (define |gxc[1]#_g114532_| (##structure gx#syntax-quote::t '!alias? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114531_| + (define |gxc[1]#_g114536_| (##structure gx#syntax-quote::t '!alias-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114535_| + (define |gxc[1]#_g114540_| (##structure gx#syntax-quote::t '!alias-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114539_| + (define |gxc[1]#_g114544_| (##structure gx#syntax-quote::t '&!alias-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114543_| + (define |gxc[1]#_g114548_| (##structure gx#syntax-quote::t '&!alias-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114547_| + (define |gxc[1]#_g114552_| (##structure gx#syntax-quote::t '!procedure::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114549_| + (define |gxc[1]#_g114554_| (##structure gx#syntax-quote::t 'make-!procedure #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114551_| + (define |gxc[1]#_g114556_| (##structure gx#syntax-quote::t '!procedure? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114555_| + (define |gxc[1]#_g114560_| (##structure gx#syntax-quote::t '!procedure-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114559_| + (define |gxc[1]#_g114564_| (##structure gx#syntax-quote::t '!procedure-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114563_| + (define |gxc[1]#_g114568_| (##structure gx#syntax-quote::t '&!procedure-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114567_| + (define |gxc[1]#_g114572_| (##structure gx#syntax-quote::t '&!procedure-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114571_| + (define |gxc[1]#_g114576_| (##structure gx#syntax-quote::t '!class::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114573_| + (define |gxc[1]#_g114578_| (##structure gx#syntax-quote::t 'make-!class #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114575_| + (define |gxc[1]#_g114580_| (##structure gx#syntax-quote::t '!class? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114588_| + (define |gxc[1]#_g114593_| (##structure gx#syntax-quote::t '!class-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114591_| + (define |gxc[1]#_g114596_| (##structure gx#syntax-quote::t '!class-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114594_| + (define |gxc[1]#_g114599_| (##structure gx#syntax-quote::t '!class-metaclass #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114597_| + (define |gxc[1]#_g114602_| (##structure gx#syntax-quote::t '!class-final? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114600_| + (define |gxc[1]#_g114605_| (##structure gx#syntax-quote::t '!class-struct? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114603_| + (define |gxc[1]#_g114608_| (##structure gx#syntax-quote::t '!class-constructor #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114606_| + (define |gxc[1]#_g114611_| (##structure gx#syntax-quote::t '!class-fields #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114609_| + (define |gxc[1]#_g114614_| (##structure gx#syntax-quote::t '!class-slots #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114612_| + (define |gxc[1]#_g114617_| (##structure gx#syntax-quote::t '!class-precedence-list #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114615_| + (define |gxc[1]#_g114620_| (##structure gx#syntax-quote::t '!class-super #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114628_| + (define |gxc[1]#_g114633_| (##structure gx#syntax-quote::t '!class-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114631_| + (define |gxc[1]#_g114636_| (##structure gx#syntax-quote::t '!class-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114634_| + (define |gxc[1]#_g114639_| (##structure gx#syntax-quote::t '!class-metaclass-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114637_| + (define |gxc[1]#_g114642_| (##structure gx#syntax-quote::t '!class-final?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114640_| + (define |gxc[1]#_g114645_| (##structure gx#syntax-quote::t '!class-struct?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114643_| + (define |gxc[1]#_g114648_| (##structure gx#syntax-quote::t '!class-constructor-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114646_| + (define |gxc[1]#_g114651_| (##structure gx#syntax-quote::t '!class-fields-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114649_| + (define |gxc[1]#_g114654_| (##structure gx#syntax-quote::t '!class-slots-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114652_| + (define |gxc[1]#_g114657_| (##structure gx#syntax-quote::t '!class-precedence-list-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114655_| + (define |gxc[1]#_g114660_| (##structure gx#syntax-quote::t '!class-super-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114668_| + (define |gxc[1]#_g114673_| (##structure gx#syntax-quote::t '&!class-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114671_| + (define |gxc[1]#_g114676_| (##structure gx#syntax-quote::t '&!class-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114674_| + (define |gxc[1]#_g114679_| (##structure gx#syntax-quote::t '&!class-metaclass #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114677_| + (define |gxc[1]#_g114682_| (##structure gx#syntax-quote::t '&!class-final? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114680_| + (define |gxc[1]#_g114685_| (##structure gx#syntax-quote::t '&!class-struct? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114683_| + (define |gxc[1]#_g114688_| (##structure gx#syntax-quote::t '&!class-constructor #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114686_| + (define |gxc[1]#_g114691_| (##structure gx#syntax-quote::t '&!class-fields #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114689_| + (define |gxc[1]#_g114694_| (##structure gx#syntax-quote::t '&!class-slots #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114692_| + (define |gxc[1]#_g114697_| (##structure gx#syntax-quote::t '&!class-precedence-list #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114695_| + (define |gxc[1]#_g114700_| (##structure gx#syntax-quote::t '&!class-super #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114708_| + (define |gxc[1]#_g114713_| (##structure gx#syntax-quote::t '&!class-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114711_| + (define |gxc[1]#_g114716_| (##structure gx#syntax-quote::t '&!class-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114714_| + (define |gxc[1]#_g114719_| (##structure gx#syntax-quote::t '&!class-metaclass-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114717_| + (define |gxc[1]#_g114722_| (##structure gx#syntax-quote::t '&!class-final?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114720_| + (define |gxc[1]#_g114725_| (##structure gx#syntax-quote::t '&!class-struct?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114723_| + (define |gxc[1]#_g114728_| (##structure gx#syntax-quote::t '&!class-constructor-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114726_| + (define |gxc[1]#_g114731_| (##structure gx#syntax-quote::t '&!class-fields-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114729_| + (define |gxc[1]#_g114734_| (##structure gx#syntax-quote::t '&!class-slots-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114732_| + (define |gxc[1]#_g114737_| (##structure gx#syntax-quote::t '&!class-precedence-list-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114735_| + (define |gxc[1]#_g114740_| (##structure gx#syntax-quote::t '&!class-super-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114738_| + (define |gxc[1]#_g114743_| (##structure gx#syntax-quote::t '!procedure #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114740_| + (define |gxc[1]#_g114745_| (##structure gx#syntax-quote::t '!predicate::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114742_| + (define |gxc[1]#_g114747_| (##structure gx#syntax-quote::t 'make-!predicate #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114744_| + (define |gxc[1]#_g114749_| (##structure gx#syntax-quote::t '!predicate? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114748_| + (define |gxc[1]#_g114753_| (##structure gx#syntax-quote::t '!predicate-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114752_| + (define |gxc[1]#_g114757_| (##structure gx#syntax-quote::t '!predicate-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114756_| + (define |gxc[1]#_g114761_| (##structure gx#syntax-quote::t '&!predicate-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114760_| + (define |gxc[1]#_g114765_| (##structure gx#syntax-quote::t '&!predicate-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114764_| + (define |gxc[1]#_g114769_| (##structure gx#syntax-quote::t '!constructor::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114766_| + (define |gxc[1]#_g114771_| (##structure gx#syntax-quote::t 'make-!constructor #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114768_| + (define |gxc[1]#_g114773_| (##structure gx#syntax-quote::t '!constructor? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114772_| + (define |gxc[1]#_g114777_| (##structure gx#syntax-quote::t '!constructor-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114776_| + (define |gxc[1]#_g114781_| (##structure gx#syntax-quote::t '!constructor-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114780_| + (define |gxc[1]#_g114785_| (##structure gx#syntax-quote::t '&!constructor-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114784_| + (define |gxc[1]#_g114789_| (##structure gx#syntax-quote::t '&!constructor-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114788_| + (define |gxc[1]#_g114793_| (##structure gx#syntax-quote::t '!accessor::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114790_| + (define |gxc[1]#_g114795_| (##structure gx#syntax-quote::t 'make-!accessor #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114792_| + (define |gxc[1]#_g114797_| (##structure gx#syntax-quote::t '!accessor? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114798_| + (define |gxc[1]#_g114803_| (##structure gx#syntax-quote::t '!accessor-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114801_| + (define |gxc[1]#_g114806_| (##structure gx#syntax-quote::t '!accessor-checked? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114804_| + (define |gxc[1]#_g114809_| (##structure gx#syntax-quote::t '!accessor-slot #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114810_| + (define |gxc[1]#_g114815_| (##structure gx#syntax-quote::t '!accessor-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114813_| + (define |gxc[1]#_g114818_| (##structure gx#syntax-quote::t '!accessor-checked?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114816_| + (define |gxc[1]#_g114821_| (##structure gx#syntax-quote::t '!accessor-slot-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114822_| + (define |gxc[1]#_g114827_| (##structure gx#syntax-quote::t '&!accessor-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114825_| + (define |gxc[1]#_g114830_| (##structure gx#syntax-quote::t '&!accessor-checked? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114828_| + (define |gxc[1]#_g114833_| (##structure gx#syntax-quote::t '&!accessor-slot #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114834_| + (define |gxc[1]#_g114839_| (##structure gx#syntax-quote::t '&!accessor-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114837_| + (define |gxc[1]#_g114842_| (##structure gx#syntax-quote::t '&!accessor-checked?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114840_| + (define |gxc[1]#_g114845_| (##structure gx#syntax-quote::t '&!accessor-slot-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114844_| + (define |gxc[1]#_g114849_| (##structure gx#syntax-quote::t '!mutator::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114846_| + (define |gxc[1]#_g114851_| (##structure gx#syntax-quote::t 'make-!mutator #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114848_| + (define |gxc[1]#_g114853_| (##structure gx#syntax-quote::t '!mutator? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114854_| + (define |gxc[1]#_g114859_| (##structure gx#syntax-quote::t '!mutator-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114857_| + (define |gxc[1]#_g114862_| (##structure gx#syntax-quote::t '!mutator-checked? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114860_| + (define |gxc[1]#_g114865_| (##structure gx#syntax-quote::t '!mutator-slot #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114866_| + (define |gxc[1]#_g114871_| (##structure gx#syntax-quote::t '!mutator-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114869_| + (define |gxc[1]#_g114874_| (##structure gx#syntax-quote::t '!mutator-checked?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114872_| + (define |gxc[1]#_g114877_| (##structure gx#syntax-quote::t '!mutator-slot-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114878_| + (define |gxc[1]#_g114883_| (##structure gx#syntax-quote::t '&!mutator-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114881_| + (define |gxc[1]#_g114886_| (##structure gx#syntax-quote::t '&!mutator-checked? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114884_| + (define |gxc[1]#_g114889_| (##structure gx#syntax-quote::t '&!mutator-slot #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114890_| + (define |gxc[1]#_g114895_| (##structure gx#syntax-quote::t '&!mutator-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114893_| + (define |gxc[1]#_g114898_| (##structure gx#syntax-quote::t '&!mutator-checked?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114896_| + (define |gxc[1]#_g114901_| (##structure gx#syntax-quote::t '&!mutator-slot-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114900_| + (define |gxc[1]#_g114905_| (##structure gx#syntax-quote::t '!lambda::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114902_| + (define |gxc[1]#_g114907_| (##structure gx#syntax-quote::t 'make-!lambda #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114904_| + (define |gxc[1]#_g114909_| (##structure gx#syntax-quote::t '!lambda? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114912_| + (define |gxc[1]#_g114917_| (##structure gx#syntax-quote::t '!lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114915_| + (define |gxc[1]#_g114920_| (##structure gx#syntax-quote::t '!lambda-inline-typedecl #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114918_| + (define |gxc[1]#_g114923_| (##structure gx#syntax-quote::t '!lambda-inline #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114921_| + (define |gxc[1]#_g114926_| (##structure gx#syntax-quote::t '!lambda-dispatch #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114924_| + (define |gxc[1]#_g114929_| (##structure gx#syntax-quote::t '!lambda-arity #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114932_| + (define |gxc[1]#_g114937_| (##structure gx#syntax-quote::t '!lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114935_| + (define |gxc[1]#_g114940_| (##structure gx#syntax-quote::t '!lambda-inline-typedecl-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114938_| + (define |gxc[1]#_g114943_| (##structure gx#syntax-quote::t '!lambda-inline-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114941_| + (define |gxc[1]#_g114946_| (##structure gx#syntax-quote::t '!lambda-dispatch-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114944_| + (define |gxc[1]#_g114949_| (##structure gx#syntax-quote::t '!lambda-arity-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114952_| + (define |gxc[1]#_g114957_| (##structure gx#syntax-quote::t '&!lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114955_| + (define |gxc[1]#_g114960_| (##structure gx#syntax-quote::t '&!lambda-inline-typedecl #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114958_| + (define |gxc[1]#_g114963_| (##structure gx#syntax-quote::t '&!lambda-inline #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114961_| + (define |gxc[1]#_g114966_| (##structure gx#syntax-quote::t '&!lambda-dispatch #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114964_| + (define |gxc[1]#_g114969_| (##structure gx#syntax-quote::t '&!lambda-arity #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114972_| + (define |gxc[1]#_g114977_| (##structure gx#syntax-quote::t '&!lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114975_| + (define |gxc[1]#_g114980_| (##structure gx#syntax-quote::t '&!lambda-inline-typedecl-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114978_| + (define |gxc[1]#_g114983_| (##structure gx#syntax-quote::t '&!lambda-inline-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114981_| + (define |gxc[1]#_g114986_| (##structure gx#syntax-quote::t '&!lambda-dispatch-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114984_| + (define |gxc[1]#_g114989_| (##structure gx#syntax-quote::t '&!lambda-arity-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114988_| + (define |gxc[1]#_g114993_| (##structure gx#syntax-quote::t '!case-lambda::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114990_| + (define |gxc[1]#_g114995_| (##structure gx#syntax-quote::t 'make-!case-lambda #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114992_| + (define |gxc[1]#_g114997_| (##structure gx#syntax-quote::t '!case-lambda? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g114997_| + (define |gxc[1]#_g115002_| (##structure gx#syntax-quote::t '!case-lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115000_| + (define |gxc[1]#_g115005_| (##structure gx#syntax-quote::t '!case-lambda-clauses #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115005_| + (define |gxc[1]#_g115010_| (##structure gx#syntax-quote::t '!case-lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115008_| + (define |gxc[1]#_g115013_| (##structure gx#syntax-quote::t '!case-lambda-clauses-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115013_| + (define |gxc[1]#_g115018_| (##structure gx#syntax-quote::t '&!case-lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115016_| + (define |gxc[1]#_g115021_| (##structure gx#syntax-quote::t '&!case-lambda-clauses #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115021_| + (define |gxc[1]#_g115026_| (##structure gx#syntax-quote::t '&!case-lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115024_| + (define |gxc[1]#_g115029_| (##structure gx#syntax-quote::t '&!case-lambda-clauses-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115028_| + (define |gxc[1]#_g115033_| (##structure gx#syntax-quote::t '!kw-lambda::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115030_| + (define |gxc[1]#_g115035_| (##structure gx#syntax-quote::t 'make-!kw-lambda #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115032_| + (define |gxc[1]#_g115037_| (##structure gx#syntax-quote::t '!kw-lambda? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115038_| + (define |gxc[1]#_g115043_| (##structure gx#syntax-quote::t '!kw-lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115041_| + (define |gxc[1]#_g115046_| (##structure gx#syntax-quote::t '!kw-lambda-dispatch #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115044_| + (define |gxc[1]#_g115049_| (##structure gx#syntax-quote::t '!kw-lambda-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115050_| + (define |gxc[1]#_g115055_| (##structure gx#syntax-quote::t '!kw-lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115053_| + (define |gxc[1]#_g115058_| (##structure gx#syntax-quote::t '!kw-lambda-dispatch-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115056_| + (define |gxc[1]#_g115061_| (##structure gx#syntax-quote::t '!kw-lambda-table-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115062_| + (define |gxc[1]#_g115067_| (##structure gx#syntax-quote::t '&!kw-lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115065_| + (define |gxc[1]#_g115070_| (##structure gx#syntax-quote::t '&!kw-lambda-dispatch #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115068_| + (define |gxc[1]#_g115073_| (##structure gx#syntax-quote::t '&!kw-lambda-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115074_| + (define |gxc[1]#_g115079_| (##structure gx#syntax-quote::t '&!kw-lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115077_| + (define |gxc[1]#_g115082_| (##structure gx#syntax-quote::t '&!kw-lambda-dispatch-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115080_| + (define |gxc[1]#_g115085_| (##structure gx#syntax-quote::t '&!kw-lambda-table-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115084_| + (define |gxc[1]#_g115089_| (##structure gx#syntax-quote::t '!kw-lambda-primary::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115086_| + (define |gxc[1]#_g115091_| (##structure gx#syntax-quote::t 'make-!kw-lambda-primary #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115088_| + (define |gxc[1]#_g115093_| (##structure gx#syntax-quote::t '!kw-lambda-primary? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115094_| + (define |gxc[1]#_g115099_| (##structure gx#syntax-quote::t '!kw-lambda-primary-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115097_| + (define |gxc[1]#_g115102_| (##structure gx#syntax-quote::t '!kw-lambda-primary-main #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115100_| + (define |gxc[1]#_g115105_| (##structure gx#syntax-quote::t '!kw-lambda-primary-keys #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115106_| + (define |gxc[1]#_g115111_| (##structure gx#syntax-quote::t '!kw-lambda-primary-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115109_| + (define |gxc[1]#_g115114_| (##structure gx#syntax-quote::t '!kw-lambda-primary-main-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115112_| + (define |gxc[1]#_g115117_| (##structure gx#syntax-quote::t '!kw-lambda-primary-keys-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115118_| + (define |gxc[1]#_g115123_| (##structure gx#syntax-quote::t '&!kw-lambda-primary-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115121_| + (define |gxc[1]#_g115126_| (##structure gx#syntax-quote::t '&!kw-lambda-primary-main #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115124_| + (define |gxc[1]#_g115129_| (##structure gx#syntax-quote::t '&!kw-lambda-primary-keys #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115130_| + (define |gxc[1]#_g115135_| (##structure gx#syntax-quote::t '&!kw-lambda-primary-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115133_| + (define |gxc[1]#_g115138_| (##structure gx#syntax-quote::t '&!kw-lambda-primary-main-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115136_| + (define |gxc[1]#_g115141_| (##structure gx#syntax-quote::t '&!kw-lambda-primary-keys-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115138_| + (define |gxc[1]#_g115143_| (##structure gx#syntax-quote::t '!primitive::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115140_| + (define |gxc[1]#_g115145_| (##structure gx#syntax-quote::t 'make-!primitive #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115142_| + (define |gxc[1]#_g115147_| (##structure gx#syntax-quote::t '!primitive? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115146_| + (define |gxc[1]#_g115151_| (##structure gx#syntax-quote::t '!lambda #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115148_| + (define |gxc[1]#_g115153_| (##structure gx#syntax-quote::t '!primitive #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115150_| + (define |gxc[1]#_g115155_| (##structure gx#syntax-quote::t '!primitive-lambda::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115152_| + (define |gxc[1]#_g115157_| (##structure gx#syntax-quote::t 'make-!primitive-lambda #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115154_| + (define |gxc[1]#_g115159_| (##structure gx#syntax-quote::t '!primitive-lambda? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115162_| + (define |gxc[1]#_g115167_| (##structure gx#syntax-quote::t '!primitive-lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115165_| + (define |gxc[1]#_g115170_| (##structure gx#syntax-quote::t '!primitive-lambda-inline-typedecl #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115168_| + (define |gxc[1]#_g115173_| (##structure gx#syntax-quote::t '!primitive-lambda-inline #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115171_| + (define |gxc[1]#_g115176_| (##structure gx#syntax-quote::t '!primitive-lambda-dispatch #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115174_| + (define |gxc[1]#_g115179_| (##structure gx#syntax-quote::t '!primitive-lambda-arity #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115182_| + (define |gxc[1]#_g115187_| (##structure gx#syntax-quote::t '!primitive-lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115185_| + (define |gxc[1]#_g115190_| (##structure gx#syntax-quote::t '!primitive-lambda-inline-typedecl-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115188_| + (define |gxc[1]#_g115193_| (##structure gx#syntax-quote::t '!primitive-lambda-inline-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115191_| + (define |gxc[1]#_g115196_| (##structure gx#syntax-quote::t '!primitive-lambda-dispatch-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115194_| + (define |gxc[1]#_g115199_| (##structure gx#syntax-quote::t '!primitive-lambda-arity-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115202_| + (define |gxc[1]#_g115207_| (##structure gx#syntax-quote::t '&!primitive-lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115205_| + (define |gxc[1]#_g115210_| (##structure gx#syntax-quote::t '&!primitive-lambda-inline-typedecl #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115208_| + (define |gxc[1]#_g115213_| (##structure gx#syntax-quote::t '&!primitive-lambda-inline #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115211_| + (define |gxc[1]#_g115216_| (##structure gx#syntax-quote::t '&!primitive-lambda-dispatch #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115214_| + (define |gxc[1]#_g115219_| (##structure gx#syntax-quote::t '&!primitive-lambda-arity #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115222_| + (define |gxc[1]#_g115227_| (##structure gx#syntax-quote::t '&!primitive-lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115225_| + (define |gxc[1]#_g115230_| (##structure gx#syntax-quote::t '&!primitive-lambda-inline-typedecl-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115228_| + (define |gxc[1]#_g115233_| (##structure gx#syntax-quote::t '&!primitive-lambda-inline-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115231_| + (define |gxc[1]#_g115236_| (##structure gx#syntax-quote::t '&!primitive-lambda-dispatch-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115234_| + (define |gxc[1]#_g115239_| (##structure gx#syntax-quote::t '&!primitive-lambda-arity-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115238_| + (define |gxc[1]#_g115243_| (##structure gx#syntax-quote::t '!case-lambda #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115241_| + (define |gxc[1]#_g115246_| (##structure gx#syntax-quote::t '!primitive-case-lambda::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115243_| + (define |gxc[1]#_g115248_| (##structure gx#syntax-quote::t 'make-!primitive-case-lambda #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115245_| + (define |gxc[1]#_g115250_| (##structure gx#syntax-quote::t '!primitive-case-lambda? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115250_| + (define |gxc[1]#_g115255_| (##structure gx#syntax-quote::t '!primitive-case-lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115253_| + (define |gxc[1]#_g115258_| (##structure gx#syntax-quote::t '!primitive-case-lambda-clauses #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115258_| + (define |gxc[1]#_g115263_| (##structure gx#syntax-quote::t '!primitive-case-lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115261_| + (define |gxc[1]#_g115266_| (##structure gx#syntax-quote::t '!primitive-case-lambda-clauses-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115266_| + (define |gxc[1]#_g115271_| (##structure gx#syntax-quote::t '&!primitive-case-lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115269_| + (define |gxc[1]#_g115274_| (##structure gx#syntax-quote::t '&!primitive-case-lambda-clauses #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115274_| + (define |gxc[1]#_g115279_| (##structure gx#syntax-quote::t '&!primitive-case-lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115277_| + (define |gxc[1]#_g115282_| (##structure gx#syntax-quote::t '&!primitive-case-lambda-clauses-set! @@ -1605,7 +1605,7 @@ '())) (begin (define |gxc[:0:]#optimizer-info| - (let ((__obj114275 + (let ((__obj114280 (let () (declare (not safe)) (##structure @@ -1628,7 +1628,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114275 + __obj114280 'gxc#optimizer-info::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1636,7 +1636,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114275 + __obj114280 'optimizer-info '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1644,7 +1644,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114275 + __obj114280 '(type ssxi methods) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1652,7 +1652,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114275 + __obj114280 '() '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1660,7 +1660,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114275 + __obj114280 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1668,7 +1668,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114275 + __obj114280 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1676,7 +1676,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114275 + __obj114280 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1684,150 +1684,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114275 + __obj114280 ':init! '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114443 |gxc[1]#_g114444_|)) + (let ((__tmp114448 |gxc[1]#_g114449_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114275 - __tmp114443 + __obj114280 + __tmp114448 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114445 |gxc[1]#_g114446_|)) + (let ((__tmp114450 |gxc[1]#_g114451_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114275 - __tmp114445 + __obj114280 + __tmp114450 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114447 |gxc[1]#_g114448_|)) + (let ((__tmp114452 |gxc[1]#_g114453_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114275 - __tmp114447 + __obj114280 + __tmp114452 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114449 - (let ((__tmp114458 - (let ((__tmp114459 |gxc[1]#_g114460_|)) + (let ((__tmp114454 + (let ((__tmp114463 + (let ((__tmp114464 |gxc[1]#_g114465_|)) (declare (not safe)) - (cons 'type __tmp114459))) - (__tmp114450 - (let ((__tmp114455 - (let ((__tmp114456 |gxc[1]#_g114457_|)) + (cons 'type __tmp114464))) + (__tmp114455 + (let ((__tmp114460 + (let ((__tmp114461 |gxc[1]#_g114462_|)) (declare (not safe)) - (cons 'ssxi __tmp114456))) - (__tmp114451 - (let ((__tmp114452 - (let ((__tmp114453 |gxc[1]#_g114454_|)) + (cons 'ssxi __tmp114461))) + (__tmp114456 + (let ((__tmp114457 + (let ((__tmp114458 |gxc[1]#_g114459_|)) (declare (not safe)) - (cons 'methods __tmp114453)))) + (cons 'methods __tmp114458)))) (declare (not safe)) - (cons __tmp114452 '())))) + (cons __tmp114457 '())))) (declare (not safe)) - (cons __tmp114455 __tmp114451)))) + (cons __tmp114460 __tmp114456)))) (declare (not safe)) - (cons __tmp114458 __tmp114450)))) + (cons __tmp114463 __tmp114455)))) (declare (not safe)) (##unchecked-structure-set! - __obj114275 - __tmp114449 + __obj114280 + __tmp114454 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114461 - (let ((__tmp114470 - (let ((__tmp114471 |gxc[1]#_g114472_|)) + (let ((__tmp114466 + (let ((__tmp114475 + (let ((__tmp114476 |gxc[1]#_g114477_|)) (declare (not safe)) - (cons 'type __tmp114471))) - (__tmp114462 - (let ((__tmp114467 - (let ((__tmp114468 |gxc[1]#_g114469_|)) + (cons 'type __tmp114476))) + (__tmp114467 + (let ((__tmp114472 + (let ((__tmp114473 |gxc[1]#_g114474_|)) (declare (not safe)) - (cons 'ssxi __tmp114468))) - (__tmp114463 - (let ((__tmp114464 - (let ((__tmp114465 |gxc[1]#_g114466_|)) + (cons 'ssxi __tmp114473))) + (__tmp114468 + (let ((__tmp114469 + (let ((__tmp114470 |gxc[1]#_g114471_|)) (declare (not safe)) - (cons 'methods __tmp114465)))) + (cons 'methods __tmp114470)))) (declare (not safe)) - (cons __tmp114464 '())))) + (cons __tmp114469 '())))) (declare (not safe)) - (cons __tmp114467 __tmp114463)))) + (cons __tmp114472 __tmp114468)))) (declare (not safe)) - (cons __tmp114470 __tmp114462)))) + (cons __tmp114475 __tmp114467)))) (declare (not safe)) (##unchecked-structure-set! - __obj114275 - __tmp114461 + __obj114280 + __tmp114466 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114473 - (let ((__tmp114482 - (let ((__tmp114483 |gxc[1]#_g114484_|)) + (let ((__tmp114478 + (let ((__tmp114487 + (let ((__tmp114488 |gxc[1]#_g114489_|)) (declare (not safe)) - (cons 'type __tmp114483))) - (__tmp114474 - (let ((__tmp114479 - (let ((__tmp114480 |gxc[1]#_g114481_|)) + (cons 'type __tmp114488))) + (__tmp114479 + (let ((__tmp114484 + (let ((__tmp114485 |gxc[1]#_g114486_|)) (declare (not safe)) - (cons 'ssxi __tmp114480))) - (__tmp114475 - (let ((__tmp114476 - (let ((__tmp114477 |gxc[1]#_g114478_|)) + (cons 'ssxi __tmp114485))) + (__tmp114480 + (let ((__tmp114481 + (let ((__tmp114482 |gxc[1]#_g114483_|)) (declare (not safe)) - (cons 'methods __tmp114477)))) + (cons 'methods __tmp114482)))) (declare (not safe)) - (cons __tmp114476 '())))) + (cons __tmp114481 '())))) (declare (not safe)) - (cons __tmp114479 __tmp114475)))) + (cons __tmp114484 __tmp114480)))) (declare (not safe)) - (cons __tmp114482 __tmp114474)))) + (cons __tmp114487 __tmp114479)))) (declare (not safe)) (##unchecked-structure-set! - __obj114275 - __tmp114473 + __obj114280 + __tmp114478 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114485 - (let ((__tmp114494 - (let ((__tmp114495 |gxc[1]#_g114496_|)) + (let ((__tmp114490 + (let ((__tmp114499 + (let ((__tmp114500 |gxc[1]#_g114501_|)) (declare (not safe)) - (cons 'type __tmp114495))) - (__tmp114486 - (let ((__tmp114491 - (let ((__tmp114492 |gxc[1]#_g114493_|)) + (cons 'type __tmp114500))) + (__tmp114491 + (let ((__tmp114496 + (let ((__tmp114497 |gxc[1]#_g114498_|)) (declare (not safe)) - (cons 'ssxi __tmp114492))) - (__tmp114487 - (let ((__tmp114488 - (let ((__tmp114489 |gxc[1]#_g114490_|)) + (cons 'ssxi __tmp114497))) + (__tmp114492 + (let ((__tmp114493 + (let ((__tmp114494 |gxc[1]#_g114495_|)) (declare (not safe)) - (cons 'methods __tmp114489)))) + (cons 'methods __tmp114494)))) (declare (not safe)) - (cons __tmp114488 '())))) + (cons __tmp114493 '())))) (declare (not safe)) - (cons __tmp114491 __tmp114487)))) + (cons __tmp114496 __tmp114492)))) (declare (not safe)) - (cons __tmp114494 __tmp114486)))) + (cons __tmp114499 __tmp114491)))) (declare (not safe)) (##unchecked-structure-set! - __obj114275 - __tmp114485 + __obj114280 + __tmp114490 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj114275)) + __obj114280)) (define |gxc[:0:]#!type| - (let ((__obj114276 + (let ((__obj114281 (let () (declare (not safe)) (##structure @@ -1850,7 +1850,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114276 + __obj114281 'gxc#!type::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1858,7 +1858,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114276 + __obj114281 '!type '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1866,7 +1866,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114276 + __obj114281 '(id) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1874,7 +1874,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114276 + __obj114281 '() '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1882,7 +1882,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114276 + __obj114281 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1890,7 +1890,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114276 + __obj114281 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1898,7 +1898,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114276 + __obj114281 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -1906,94 +1906,94 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114276 + __obj114281 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114497 |gxc[1]#_g114498_|)) + (let ((__tmp114502 |gxc[1]#_g114503_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114276 - __tmp114497 + __obj114281 + __tmp114502 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114499 |gxc[1]#_g114500_|)) + (let ((__tmp114504 |gxc[1]#_g114505_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114276 - __tmp114499 + __obj114281 + __tmp114504 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114501 |gxc[1]#_g114502_|)) + (let ((__tmp114506 |gxc[1]#_g114507_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114276 - __tmp114501 + __obj114281 + __tmp114506 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114503 - (let ((__tmp114504 - (let ((__tmp114505 |gxc[1]#_g114506_|)) + (let ((__tmp114508 + (let ((__tmp114509 + (let ((__tmp114510 |gxc[1]#_g114511_|)) (declare (not safe)) - (cons 'id __tmp114505)))) + (cons 'id __tmp114510)))) (declare (not safe)) - (cons __tmp114504 '())))) + (cons __tmp114509 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114276 - __tmp114503 + __obj114281 + __tmp114508 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114507 - (let ((__tmp114508 - (let ((__tmp114509 |gxc[1]#_g114510_|)) + (let ((__tmp114512 + (let ((__tmp114513 + (let ((__tmp114514 |gxc[1]#_g114515_|)) (declare (not safe)) - (cons 'id __tmp114509)))) + (cons 'id __tmp114514)))) (declare (not safe)) - (cons __tmp114508 '())))) + (cons __tmp114513 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114276 - __tmp114507 + __obj114281 + __tmp114512 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114511 - (let ((__tmp114512 - (let ((__tmp114513 |gxc[1]#_g114514_|)) + (let ((__tmp114516 + (let ((__tmp114517 + (let ((__tmp114518 |gxc[1]#_g114519_|)) (declare (not safe)) - (cons 'id __tmp114513)))) + (cons 'id __tmp114518)))) (declare (not safe)) - (cons __tmp114512 '())))) + (cons __tmp114517 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114276 - __tmp114511 + __obj114281 + __tmp114516 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114515 - (let ((__tmp114516 - (let ((__tmp114517 |gxc[1]#_g114518_|)) + (let ((__tmp114520 + (let ((__tmp114521 + (let ((__tmp114522 |gxc[1]#_g114523_|)) (declare (not safe)) - (cons 'id __tmp114517)))) + (cons 'id __tmp114522)))) (declare (not safe)) - (cons __tmp114516 '())))) + (cons __tmp114521 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114276 - __tmp114515 + __obj114281 + __tmp114520 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj114276)) + __obj114281)) (define |gxc[:0:]#!alias| - (let ((__obj114277 + (let ((__obj114282 (let () (declare (not safe)) (##structure @@ -2016,7 +2016,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114277 + __obj114282 'gxc#!alias::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2024,7 +2024,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114277 + __obj114282 '!alias '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2032,26 +2032,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114277 + __obj114282 '() '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114519 - (let ((__tmp114520 |gxc[1]#_g114521_|)) + (let ((__tmp114524 + (let ((__tmp114525 |gxc[1]#_g114526_|)) (declare (not safe)) - (cons __tmp114520 '())))) + (cons __tmp114525 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114277 - __tmp114519 + __obj114282 + __tmp114524 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114277 + __obj114282 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2059,7 +2059,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114277 + __obj114282 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2067,7 +2067,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114277 + __obj114282 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2075,94 +2075,94 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114277 + __obj114282 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114522 |gxc[1]#_g114523_|)) + (let ((__tmp114527 |gxc[1]#_g114528_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114277 - __tmp114522 + __obj114282 + __tmp114527 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114524 |gxc[1]#_g114525_|)) + (let ((__tmp114529 |gxc[1]#_g114530_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114277 - __tmp114524 + __obj114282 + __tmp114529 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114526 |gxc[1]#_g114527_|)) + (let ((__tmp114531 |gxc[1]#_g114532_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114277 - __tmp114526 + __obj114282 + __tmp114531 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114528 - (let ((__tmp114529 - (let ((__tmp114530 |gxc[1]#_g114531_|)) + (let ((__tmp114533 + (let ((__tmp114534 + (let ((__tmp114535 |gxc[1]#_g114536_|)) (declare (not safe)) - (cons 'id __tmp114530)))) + (cons 'id __tmp114535)))) (declare (not safe)) - (cons __tmp114529 '())))) + (cons __tmp114534 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114277 - __tmp114528 + __obj114282 + __tmp114533 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114532 - (let ((__tmp114533 - (let ((__tmp114534 |gxc[1]#_g114535_|)) + (let ((__tmp114537 + (let ((__tmp114538 + (let ((__tmp114539 |gxc[1]#_g114540_|)) (declare (not safe)) - (cons 'id __tmp114534)))) + (cons 'id __tmp114539)))) (declare (not safe)) - (cons __tmp114533 '())))) + (cons __tmp114538 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114277 - __tmp114532 + __obj114282 + __tmp114537 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114536 - (let ((__tmp114537 - (let ((__tmp114538 |gxc[1]#_g114539_|)) + (let ((__tmp114541 + (let ((__tmp114542 + (let ((__tmp114543 |gxc[1]#_g114544_|)) (declare (not safe)) - (cons 'id __tmp114538)))) + (cons 'id __tmp114543)))) (declare (not safe)) - (cons __tmp114537 '())))) + (cons __tmp114542 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114277 - __tmp114536 + __obj114282 + __tmp114541 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114540 - (let ((__tmp114541 - (let ((__tmp114542 |gxc[1]#_g114543_|)) + (let ((__tmp114545 + (let ((__tmp114546 + (let ((__tmp114547 |gxc[1]#_g114548_|)) (declare (not safe)) - (cons 'id __tmp114542)))) + (cons 'id __tmp114547)))) (declare (not safe)) - (cons __tmp114541 '())))) + (cons __tmp114546 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114277 - __tmp114540 + __obj114282 + __tmp114545 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj114277)) + __obj114282)) (define |gxc[:0:]#!procedure| - (let ((__obj114278 + (let ((__obj114283 (let () (declare (not safe)) (##structure @@ -2185,7 +2185,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114278 + __obj114283 'gxc#!procedure::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2193,7 +2193,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114278 + __obj114283 '!procedure '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2201,26 +2201,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114278 + __obj114283 '() '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114544 - (let ((__tmp114545 |gxc[1]#_g114521_|)) + (let ((__tmp114549 + (let ((__tmp114550 |gxc[1]#_g114526_|)) (declare (not safe)) - (cons __tmp114545 '())))) + (cons __tmp114550 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114278 - __tmp114544 + __obj114283 + __tmp114549 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114278 + __obj114283 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2228,7 +2228,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114278 + __obj114283 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2236,7 +2236,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114278 + __obj114283 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2244,94 +2244,94 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114278 + __obj114283 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114546 |gxc[1]#_g114547_|)) + (let ((__tmp114551 |gxc[1]#_g114552_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114278 - __tmp114546 + __obj114283 + __tmp114551 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114548 |gxc[1]#_g114549_|)) + (let ((__tmp114553 |gxc[1]#_g114554_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114278 - __tmp114548 + __obj114283 + __tmp114553 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114550 |gxc[1]#_g114551_|)) + (let ((__tmp114555 |gxc[1]#_g114556_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114278 - __tmp114550 + __obj114283 + __tmp114555 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114552 - (let ((__tmp114553 - (let ((__tmp114554 |gxc[1]#_g114555_|)) + (let ((__tmp114557 + (let ((__tmp114558 + (let ((__tmp114559 |gxc[1]#_g114560_|)) (declare (not safe)) - (cons 'id __tmp114554)))) + (cons 'id __tmp114559)))) (declare (not safe)) - (cons __tmp114553 '())))) + (cons __tmp114558 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114278 - __tmp114552 + __obj114283 + __tmp114557 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114556 - (let ((__tmp114557 - (let ((__tmp114558 |gxc[1]#_g114559_|)) + (let ((__tmp114561 + (let ((__tmp114562 + (let ((__tmp114563 |gxc[1]#_g114564_|)) (declare (not safe)) - (cons 'id __tmp114558)))) + (cons 'id __tmp114563)))) (declare (not safe)) - (cons __tmp114557 '())))) + (cons __tmp114562 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114278 - __tmp114556 + __obj114283 + __tmp114561 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114560 - (let ((__tmp114561 - (let ((__tmp114562 |gxc[1]#_g114563_|)) + (let ((__tmp114565 + (let ((__tmp114566 + (let ((__tmp114567 |gxc[1]#_g114568_|)) (declare (not safe)) - (cons 'id __tmp114562)))) + (cons 'id __tmp114567)))) (declare (not safe)) - (cons __tmp114561 '())))) + (cons __tmp114566 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114278 - __tmp114560 + __obj114283 + __tmp114565 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114564 - (let ((__tmp114565 - (let ((__tmp114566 |gxc[1]#_g114567_|)) + (let ((__tmp114569 + (let ((__tmp114570 + (let ((__tmp114571 |gxc[1]#_g114572_|)) (declare (not safe)) - (cons 'id __tmp114566)))) + (cons 'id __tmp114571)))) (declare (not safe)) - (cons __tmp114565 '())))) + (cons __tmp114570 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114278 - __tmp114564 + __obj114283 + __tmp114569 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj114278)) + __obj114283)) (define |gxc[:0:]#!class| - (let ((__obj114279 + (let ((__obj114284 (let () (declare (not safe)) (##structure @@ -2354,7 +2354,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114279 + __obj114284 'gxc#!class::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2362,7 +2362,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114279 + __obj114284 '!class '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2370,7 +2370,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114279 + __obj114284 '(super precedence-list slots fields @@ -2382,21 +2382,21 @@ '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114568 - (let ((__tmp114569 |gxc[1]#_g114521_|)) + (let ((__tmp114573 + (let ((__tmp114574 |gxc[1]#_g114526_|)) (declare (not safe)) - (cons __tmp114569 '())))) + (cons __tmp114574 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114279 - __tmp114568 + __obj114284 + __tmp114573 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114279 + __obj114284 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2404,7 +2404,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114279 + __obj114284 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2412,7 +2412,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114279 + __obj114284 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2420,382 +2420,382 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114279 + __obj114284 ':init! '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114570 |gxc[1]#_g114571_|)) + (let ((__tmp114575 |gxc[1]#_g114576_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114279 - __tmp114570 + __obj114284 + __tmp114575 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114572 |gxc[1]#_g114573_|)) + (let ((__tmp114577 |gxc[1]#_g114578_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114279 - __tmp114572 + __obj114284 + __tmp114577 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114574 |gxc[1]#_g114575_|)) + (let ((__tmp114579 |gxc[1]#_g114580_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114279 - __tmp114574 + __obj114284 + __tmp114579 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114576 - (let ((__tmp114613 - (let ((__tmp114614 |gxc[1]#_g114615_|)) + (let ((__tmp114581 + (let ((__tmp114618 + (let ((__tmp114619 |gxc[1]#_g114620_|)) (declare (not safe)) - (cons 'super __tmp114614))) - (__tmp114577 - (let ((__tmp114610 - (let ((__tmp114611 |gxc[1]#_g114612_|)) + (cons 'super __tmp114619))) + (__tmp114582 + (let ((__tmp114615 + (let ((__tmp114616 |gxc[1]#_g114617_|)) (declare (not safe)) - (cons 'precedence-list __tmp114611))) - (__tmp114578 - (let ((__tmp114607 - (let ((__tmp114608 |gxc[1]#_g114609_|)) + (cons 'precedence-list __tmp114616))) + (__tmp114583 + (let ((__tmp114612 + (let ((__tmp114613 |gxc[1]#_g114614_|)) (declare (not safe)) - (cons 'slots __tmp114608))) - (__tmp114579 - (let ((__tmp114604 - (let ((__tmp114605 - |gxc[1]#_g114606_|)) + (cons 'slots __tmp114613))) + (__tmp114584 + (let ((__tmp114609 + (let ((__tmp114610 + |gxc[1]#_g114611_|)) (declare (not safe)) - (cons 'fields __tmp114605))) - (__tmp114580 - (let ((__tmp114601 - (let ((__tmp114602 - |gxc[1]#_g114603_|)) + (cons 'fields __tmp114610))) + (__tmp114585 + (let ((__tmp114606 + (let ((__tmp114607 + |gxc[1]#_g114608_|)) (declare (not safe)) (cons 'constructor - __tmp114602))) - (__tmp114581 - (let ((__tmp114598 - (let ((__tmp114599 - |gxc[1]#_g114600_|)) + __tmp114607))) + (__tmp114586 + (let ((__tmp114603 + (let ((__tmp114604 + |gxc[1]#_g114605_|)) (declare (not safe)) (cons 'struct? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp114599))) - (__tmp114582 - (let ((__tmp114595 - (let ((__tmp114596 |gxc[1]#_g114597_|)) + __tmp114604))) + (__tmp114587 + (let ((__tmp114600 + (let ((__tmp114601 |gxc[1]#_g114602_|)) (declare (not safe)) - (cons 'final? __tmp114596))) - (__tmp114583 - (let ((__tmp114592 - (let ((__tmp114593 |gxc[1]#_g114594_|)) + (cons 'final? __tmp114601))) + (__tmp114588 + (let ((__tmp114597 + (let ((__tmp114598 |gxc[1]#_g114599_|)) (declare (not safe)) - (cons 'metaclass __tmp114593))) - (__tmp114584 - (let ((__tmp114589 - (let ((__tmp114590 |gxc[1]#_g114591_|)) + (cons 'metaclass __tmp114598))) + (__tmp114589 + (let ((__tmp114594 + (let ((__tmp114595 |gxc[1]#_g114596_|)) (declare (not safe)) - (cons 'methods __tmp114590))) - (__tmp114585 - (let ((__tmp114586 - (let ((__tmp114587 - |gxc[1]#_g114588_|)) + (cons 'methods __tmp114595))) + (__tmp114590 + (let ((__tmp114591 + (let ((__tmp114592 + |gxc[1]#_g114593_|)) (declare (not safe)) - (cons 'id __tmp114587)))) + (cons 'id __tmp114592)))) (declare (not safe)) - (cons __tmp114586 '())))) + (cons __tmp114591 '())))) (declare (not safe)) - (cons __tmp114589 __tmp114585)))) + (cons __tmp114594 __tmp114590)))) (declare (not safe)) - (cons __tmp114592 __tmp114584)))) + (cons __tmp114597 __tmp114589)))) (declare (not safe)) - (cons __tmp114595 __tmp114583)))) + (cons __tmp114600 __tmp114588)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp114598 - __tmp114582)))) + (cons __tmp114603 + __tmp114587)))) (declare (not safe)) - (cons __tmp114601 __tmp114581)))) + (cons __tmp114606 __tmp114586)))) (declare (not safe)) - (cons __tmp114604 __tmp114580)))) + (cons __tmp114609 __tmp114585)))) (declare (not safe)) - (cons __tmp114607 __tmp114579)))) + (cons __tmp114612 __tmp114584)))) (declare (not safe)) - (cons __tmp114610 __tmp114578)))) + (cons __tmp114615 __tmp114583)))) (declare (not safe)) - (cons __tmp114613 __tmp114577)))) + (cons __tmp114618 __tmp114582)))) (declare (not safe)) (##unchecked-structure-set! - __obj114279 - __tmp114576 + __obj114284 + __tmp114581 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114616 - (let ((__tmp114653 - (let ((__tmp114654 |gxc[1]#_g114655_|)) + (let ((__tmp114621 + (let ((__tmp114658 + (let ((__tmp114659 |gxc[1]#_g114660_|)) (declare (not safe)) - (cons 'super __tmp114654))) - (__tmp114617 - (let ((__tmp114650 - (let ((__tmp114651 |gxc[1]#_g114652_|)) + (cons 'super __tmp114659))) + (__tmp114622 + (let ((__tmp114655 + (let ((__tmp114656 |gxc[1]#_g114657_|)) (declare (not safe)) - (cons 'precedence-list __tmp114651))) - (__tmp114618 - (let ((__tmp114647 - (let ((__tmp114648 |gxc[1]#_g114649_|)) + (cons 'precedence-list __tmp114656))) + (__tmp114623 + (let ((__tmp114652 + (let ((__tmp114653 |gxc[1]#_g114654_|)) (declare (not safe)) - (cons 'slots __tmp114648))) - (__tmp114619 - (let ((__tmp114644 - (let ((__tmp114645 - |gxc[1]#_g114646_|)) + (cons 'slots __tmp114653))) + (__tmp114624 + (let ((__tmp114649 + (let ((__tmp114650 + |gxc[1]#_g114651_|)) (declare (not safe)) - (cons 'fields __tmp114645))) - (__tmp114620 - (let ((__tmp114641 - (let ((__tmp114642 - |gxc[1]#_g114643_|)) + (cons 'fields __tmp114650))) + (__tmp114625 + (let ((__tmp114646 + (let ((__tmp114647 + |gxc[1]#_g114648_|)) (declare (not safe)) (cons 'constructor - __tmp114642))) - (__tmp114621 - (let ((__tmp114638 - (let ((__tmp114639 - |gxc[1]#_g114640_|)) + __tmp114647))) + (__tmp114626 + (let ((__tmp114643 + (let ((__tmp114644 + |gxc[1]#_g114645_|)) (declare (not safe)) (cons 'struct? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp114639))) - (__tmp114622 - (let ((__tmp114635 - (let ((__tmp114636 |gxc[1]#_g114637_|)) + __tmp114644))) + (__tmp114627 + (let ((__tmp114640 + (let ((__tmp114641 |gxc[1]#_g114642_|)) (declare (not safe)) - (cons 'final? __tmp114636))) - (__tmp114623 - (let ((__tmp114632 - (let ((__tmp114633 |gxc[1]#_g114634_|)) + (cons 'final? __tmp114641))) + (__tmp114628 + (let ((__tmp114637 + (let ((__tmp114638 |gxc[1]#_g114639_|)) (declare (not safe)) - (cons 'metaclass __tmp114633))) - (__tmp114624 - (let ((__tmp114629 - (let ((__tmp114630 |gxc[1]#_g114631_|)) + (cons 'metaclass __tmp114638))) + (__tmp114629 + (let ((__tmp114634 + (let ((__tmp114635 |gxc[1]#_g114636_|)) (declare (not safe)) - (cons 'methods __tmp114630))) - (__tmp114625 - (let ((__tmp114626 - (let ((__tmp114627 - |gxc[1]#_g114628_|)) + (cons 'methods __tmp114635))) + (__tmp114630 + (let ((__tmp114631 + (let ((__tmp114632 + |gxc[1]#_g114633_|)) (declare (not safe)) - (cons 'id __tmp114627)))) + (cons 'id __tmp114632)))) (declare (not safe)) - (cons __tmp114626 '())))) + (cons __tmp114631 '())))) (declare (not safe)) - (cons __tmp114629 __tmp114625)))) + (cons __tmp114634 __tmp114630)))) (declare (not safe)) - (cons __tmp114632 __tmp114624)))) + (cons __tmp114637 __tmp114629)))) (declare (not safe)) - (cons __tmp114635 __tmp114623)))) + (cons __tmp114640 __tmp114628)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp114638 - __tmp114622)))) + (cons __tmp114643 + __tmp114627)))) (declare (not safe)) - (cons __tmp114641 __tmp114621)))) + (cons __tmp114646 __tmp114626)))) (declare (not safe)) - (cons __tmp114644 __tmp114620)))) + (cons __tmp114649 __tmp114625)))) (declare (not safe)) - (cons __tmp114647 __tmp114619)))) + (cons __tmp114652 __tmp114624)))) (declare (not safe)) - (cons __tmp114650 __tmp114618)))) + (cons __tmp114655 __tmp114623)))) (declare (not safe)) - (cons __tmp114653 __tmp114617)))) + (cons __tmp114658 __tmp114622)))) (declare (not safe)) (##unchecked-structure-set! - __obj114279 - __tmp114616 + __obj114284 + __tmp114621 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114656 - (let ((__tmp114693 - (let ((__tmp114694 |gxc[1]#_g114695_|)) + (let ((__tmp114661 + (let ((__tmp114698 + (let ((__tmp114699 |gxc[1]#_g114700_|)) (declare (not safe)) - (cons 'super __tmp114694))) - (__tmp114657 - (let ((__tmp114690 - (let ((__tmp114691 |gxc[1]#_g114692_|)) + (cons 'super __tmp114699))) + (__tmp114662 + (let ((__tmp114695 + (let ((__tmp114696 |gxc[1]#_g114697_|)) (declare (not safe)) - (cons 'precedence-list __tmp114691))) - (__tmp114658 - (let ((__tmp114687 - (let ((__tmp114688 |gxc[1]#_g114689_|)) + (cons 'precedence-list __tmp114696))) + (__tmp114663 + (let ((__tmp114692 + (let ((__tmp114693 |gxc[1]#_g114694_|)) (declare (not safe)) - (cons 'slots __tmp114688))) - (__tmp114659 - (let ((__tmp114684 - (let ((__tmp114685 - |gxc[1]#_g114686_|)) + (cons 'slots __tmp114693))) + (__tmp114664 + (let ((__tmp114689 + (let ((__tmp114690 + |gxc[1]#_g114691_|)) (declare (not safe)) - (cons 'fields __tmp114685))) - (__tmp114660 - (let ((__tmp114681 - (let ((__tmp114682 - |gxc[1]#_g114683_|)) + (cons 'fields __tmp114690))) + (__tmp114665 + (let ((__tmp114686 + (let ((__tmp114687 + |gxc[1]#_g114688_|)) (declare (not safe)) (cons 'constructor - __tmp114682))) - (__tmp114661 - (let ((__tmp114678 - (let ((__tmp114679 - |gxc[1]#_g114680_|)) + __tmp114687))) + (__tmp114666 + (let ((__tmp114683 + (let ((__tmp114684 + |gxc[1]#_g114685_|)) (declare (not safe)) (cons 'struct? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp114679))) - (__tmp114662 - (let ((__tmp114675 - (let ((__tmp114676 |gxc[1]#_g114677_|)) + __tmp114684))) + (__tmp114667 + (let ((__tmp114680 + (let ((__tmp114681 |gxc[1]#_g114682_|)) (declare (not safe)) - (cons 'final? __tmp114676))) - (__tmp114663 - (let ((__tmp114672 - (let ((__tmp114673 |gxc[1]#_g114674_|)) + (cons 'final? __tmp114681))) + (__tmp114668 + (let ((__tmp114677 + (let ((__tmp114678 |gxc[1]#_g114679_|)) (declare (not safe)) - (cons 'metaclass __tmp114673))) - (__tmp114664 - (let ((__tmp114669 - (let ((__tmp114670 |gxc[1]#_g114671_|)) + (cons 'metaclass __tmp114678))) + (__tmp114669 + (let ((__tmp114674 + (let ((__tmp114675 |gxc[1]#_g114676_|)) (declare (not safe)) - (cons 'methods __tmp114670))) - (__tmp114665 - (let ((__tmp114666 - (let ((__tmp114667 - |gxc[1]#_g114668_|)) + (cons 'methods __tmp114675))) + (__tmp114670 + (let ((__tmp114671 + (let ((__tmp114672 + |gxc[1]#_g114673_|)) (declare (not safe)) - (cons 'id __tmp114667)))) + (cons 'id __tmp114672)))) (declare (not safe)) - (cons __tmp114666 '())))) + (cons __tmp114671 '())))) (declare (not safe)) - (cons __tmp114669 __tmp114665)))) + (cons __tmp114674 __tmp114670)))) (declare (not safe)) - (cons __tmp114672 __tmp114664)))) + (cons __tmp114677 __tmp114669)))) (declare (not safe)) - (cons __tmp114675 __tmp114663)))) + (cons __tmp114680 __tmp114668)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp114678 - __tmp114662)))) + (cons __tmp114683 + __tmp114667)))) (declare (not safe)) - (cons __tmp114681 __tmp114661)))) + (cons __tmp114686 __tmp114666)))) (declare (not safe)) - (cons __tmp114684 __tmp114660)))) + (cons __tmp114689 __tmp114665)))) (declare (not safe)) - (cons __tmp114687 __tmp114659)))) + (cons __tmp114692 __tmp114664)))) (declare (not safe)) - (cons __tmp114690 __tmp114658)))) + (cons __tmp114695 __tmp114663)))) (declare (not safe)) - (cons __tmp114693 __tmp114657)))) + (cons __tmp114698 __tmp114662)))) (declare (not safe)) (##unchecked-structure-set! - __obj114279 - __tmp114656 + __obj114284 + __tmp114661 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114696 - (let ((__tmp114733 - (let ((__tmp114734 |gxc[1]#_g114735_|)) + (let ((__tmp114701 + (let ((__tmp114738 + (let ((__tmp114739 |gxc[1]#_g114740_|)) (declare (not safe)) - (cons 'super __tmp114734))) - (__tmp114697 - (let ((__tmp114730 - (let ((__tmp114731 |gxc[1]#_g114732_|)) + (cons 'super __tmp114739))) + (__tmp114702 + (let ((__tmp114735 + (let ((__tmp114736 |gxc[1]#_g114737_|)) (declare (not safe)) - (cons 'precedence-list __tmp114731))) - (__tmp114698 - (let ((__tmp114727 - (let ((__tmp114728 |gxc[1]#_g114729_|)) + (cons 'precedence-list __tmp114736))) + (__tmp114703 + (let ((__tmp114732 + (let ((__tmp114733 |gxc[1]#_g114734_|)) (declare (not safe)) - (cons 'slots __tmp114728))) - (__tmp114699 - (let ((__tmp114724 - (let ((__tmp114725 - |gxc[1]#_g114726_|)) + (cons 'slots __tmp114733))) + (__tmp114704 + (let ((__tmp114729 + (let ((__tmp114730 + |gxc[1]#_g114731_|)) (declare (not safe)) - (cons 'fields __tmp114725))) - (__tmp114700 - (let ((__tmp114721 - (let ((__tmp114722 - |gxc[1]#_g114723_|)) + (cons 'fields __tmp114730))) + (__tmp114705 + (let ((__tmp114726 + (let ((__tmp114727 + |gxc[1]#_g114728_|)) (declare (not safe)) (cons 'constructor - __tmp114722))) - (__tmp114701 - (let ((__tmp114718 - (let ((__tmp114719 - |gxc[1]#_g114720_|)) + __tmp114727))) + (__tmp114706 + (let ((__tmp114723 + (let ((__tmp114724 + |gxc[1]#_g114725_|)) (declare (not safe)) (cons 'struct? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp114719))) - (__tmp114702 - (let ((__tmp114715 - (let ((__tmp114716 |gxc[1]#_g114717_|)) + __tmp114724))) + (__tmp114707 + (let ((__tmp114720 + (let ((__tmp114721 |gxc[1]#_g114722_|)) (declare (not safe)) - (cons 'final? __tmp114716))) - (__tmp114703 - (let ((__tmp114712 - (let ((__tmp114713 |gxc[1]#_g114714_|)) + (cons 'final? __tmp114721))) + (__tmp114708 + (let ((__tmp114717 + (let ((__tmp114718 |gxc[1]#_g114719_|)) (declare (not safe)) - (cons 'metaclass __tmp114713))) - (__tmp114704 - (let ((__tmp114709 - (let ((__tmp114710 |gxc[1]#_g114711_|)) + (cons 'metaclass __tmp114718))) + (__tmp114709 + (let ((__tmp114714 + (let ((__tmp114715 |gxc[1]#_g114716_|)) (declare (not safe)) - (cons 'methods __tmp114710))) - (__tmp114705 - (let ((__tmp114706 - (let ((__tmp114707 - |gxc[1]#_g114708_|)) + (cons 'methods __tmp114715))) + (__tmp114710 + (let ((__tmp114711 + (let ((__tmp114712 + |gxc[1]#_g114713_|)) (declare (not safe)) - (cons 'id __tmp114707)))) + (cons 'id __tmp114712)))) (declare (not safe)) - (cons __tmp114706 '())))) + (cons __tmp114711 '())))) (declare (not safe)) - (cons __tmp114709 __tmp114705)))) + (cons __tmp114714 __tmp114710)))) (declare (not safe)) - (cons __tmp114712 __tmp114704)))) + (cons __tmp114717 __tmp114709)))) (declare (not safe)) - (cons __tmp114715 __tmp114703)))) + (cons __tmp114720 __tmp114708)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp114718 - __tmp114702)))) + (cons __tmp114723 + __tmp114707)))) (declare (not safe)) - (cons __tmp114721 __tmp114701)))) + (cons __tmp114726 __tmp114706)))) (declare (not safe)) - (cons __tmp114724 __tmp114700)))) + (cons __tmp114729 __tmp114705)))) (declare (not safe)) - (cons __tmp114727 __tmp114699)))) + (cons __tmp114732 __tmp114704)))) (declare (not safe)) - (cons __tmp114730 __tmp114698)))) + (cons __tmp114735 __tmp114703)))) (declare (not safe)) - (cons __tmp114733 __tmp114697)))) + (cons __tmp114738 __tmp114702)))) (declare (not safe)) (##unchecked-structure-set! - __obj114279 - __tmp114696 + __obj114284 + __tmp114701 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj114279)) + __obj114284)) (define |gxc[:0:]#!predicate| - (let ((__obj114280 + (let ((__obj114285 (let () (declare (not safe)) (##structure @@ -2818,7 +2818,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114280 + __obj114285 'gxc#!predicate::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2826,7 +2826,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114280 + __obj114285 '!predicate '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2834,26 +2834,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114280 + __obj114285 '() '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114736 - (let ((__tmp114737 |gxc[1]#_g114738_|)) + (let ((__tmp114741 + (let ((__tmp114742 |gxc[1]#_g114743_|)) (declare (not safe)) - (cons __tmp114737 '())))) + (cons __tmp114742 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114280 - __tmp114736 + __obj114285 + __tmp114741 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114280 + __obj114285 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2861,7 +2861,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114280 + __obj114285 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2869,7 +2869,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114280 + __obj114285 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2877,94 +2877,94 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114280 + __obj114285 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114739 |gxc[1]#_g114740_|)) + (let ((__tmp114744 |gxc[1]#_g114745_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114280 - __tmp114739 + __obj114285 + __tmp114744 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114741 |gxc[1]#_g114742_|)) + (let ((__tmp114746 |gxc[1]#_g114747_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114280 - __tmp114741 + __obj114285 + __tmp114746 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114743 |gxc[1]#_g114744_|)) + (let ((__tmp114748 |gxc[1]#_g114749_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114280 - __tmp114743 + __obj114285 + __tmp114748 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114745 - (let ((__tmp114746 - (let ((__tmp114747 |gxc[1]#_g114748_|)) + (let ((__tmp114750 + (let ((__tmp114751 + (let ((__tmp114752 |gxc[1]#_g114753_|)) (declare (not safe)) - (cons 'id __tmp114747)))) + (cons 'id __tmp114752)))) (declare (not safe)) - (cons __tmp114746 '())))) + (cons __tmp114751 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114280 - __tmp114745 + __obj114285 + __tmp114750 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114749 - (let ((__tmp114750 - (let ((__tmp114751 |gxc[1]#_g114752_|)) + (let ((__tmp114754 + (let ((__tmp114755 + (let ((__tmp114756 |gxc[1]#_g114757_|)) (declare (not safe)) - (cons 'id __tmp114751)))) + (cons 'id __tmp114756)))) (declare (not safe)) - (cons __tmp114750 '())))) + (cons __tmp114755 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114280 - __tmp114749 + __obj114285 + __tmp114754 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114753 - (let ((__tmp114754 - (let ((__tmp114755 |gxc[1]#_g114756_|)) + (let ((__tmp114758 + (let ((__tmp114759 + (let ((__tmp114760 |gxc[1]#_g114761_|)) (declare (not safe)) - (cons 'id __tmp114755)))) + (cons 'id __tmp114760)))) (declare (not safe)) - (cons __tmp114754 '())))) + (cons __tmp114759 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114280 - __tmp114753 + __obj114285 + __tmp114758 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114757 - (let ((__tmp114758 - (let ((__tmp114759 |gxc[1]#_g114760_|)) + (let ((__tmp114762 + (let ((__tmp114763 + (let ((__tmp114764 |gxc[1]#_g114765_|)) (declare (not safe)) - (cons 'id __tmp114759)))) + (cons 'id __tmp114764)))) (declare (not safe)) - (cons __tmp114758 '())))) + (cons __tmp114763 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114280 - __tmp114757 + __obj114285 + __tmp114762 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj114280)) + __obj114285)) (define |gxc[:0:]#!constructor| - (let ((__obj114281 + (let ((__obj114286 (let () (declare (not safe)) (##structure @@ -2987,7 +2987,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114281 + __obj114286 'gxc#!constructor::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -2995,7 +2995,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114281 + __obj114286 '!constructor '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3003,26 +3003,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114281 + __obj114286 '() '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114761 - (let ((__tmp114762 |gxc[1]#_g114738_|)) + (let ((__tmp114766 + (let ((__tmp114767 |gxc[1]#_g114743_|)) (declare (not safe)) - (cons __tmp114762 '())))) + (cons __tmp114767 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114281 - __tmp114761 + __obj114286 + __tmp114766 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114281 + __obj114286 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3030,7 +3030,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114281 + __obj114286 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3038,7 +3038,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114281 + __obj114286 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3046,94 +3046,94 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114281 + __obj114286 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114763 |gxc[1]#_g114764_|)) + (let ((__tmp114768 |gxc[1]#_g114769_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114281 - __tmp114763 + __obj114286 + __tmp114768 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114765 |gxc[1]#_g114766_|)) + (let ((__tmp114770 |gxc[1]#_g114771_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114281 - __tmp114765 + __obj114286 + __tmp114770 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114767 |gxc[1]#_g114768_|)) + (let ((__tmp114772 |gxc[1]#_g114773_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114281 - __tmp114767 + __obj114286 + __tmp114772 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114769 - (let ((__tmp114770 - (let ((__tmp114771 |gxc[1]#_g114772_|)) + (let ((__tmp114774 + (let ((__tmp114775 + (let ((__tmp114776 |gxc[1]#_g114777_|)) (declare (not safe)) - (cons 'id __tmp114771)))) + (cons 'id __tmp114776)))) (declare (not safe)) - (cons __tmp114770 '())))) + (cons __tmp114775 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114281 - __tmp114769 + __obj114286 + __tmp114774 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114773 - (let ((__tmp114774 - (let ((__tmp114775 |gxc[1]#_g114776_|)) + (let ((__tmp114778 + (let ((__tmp114779 + (let ((__tmp114780 |gxc[1]#_g114781_|)) (declare (not safe)) - (cons 'id __tmp114775)))) + (cons 'id __tmp114780)))) (declare (not safe)) - (cons __tmp114774 '())))) + (cons __tmp114779 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114281 - __tmp114773 + __obj114286 + __tmp114778 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114777 - (let ((__tmp114778 - (let ((__tmp114779 |gxc[1]#_g114780_|)) + (let ((__tmp114782 + (let ((__tmp114783 + (let ((__tmp114784 |gxc[1]#_g114785_|)) (declare (not safe)) - (cons 'id __tmp114779)))) + (cons 'id __tmp114784)))) (declare (not safe)) - (cons __tmp114778 '())))) + (cons __tmp114783 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114281 - __tmp114777 + __obj114286 + __tmp114782 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114781 - (let ((__tmp114782 - (let ((__tmp114783 |gxc[1]#_g114784_|)) + (let ((__tmp114786 + (let ((__tmp114787 + (let ((__tmp114788 |gxc[1]#_g114789_|)) (declare (not safe)) - (cons 'id __tmp114783)))) + (cons 'id __tmp114788)))) (declare (not safe)) - (cons __tmp114782 '())))) + (cons __tmp114787 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114281 - __tmp114781 + __obj114286 + __tmp114786 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj114281)) + __obj114286)) (define |gxc[:0:]#!accessor| - (let ((__obj114282 + (let ((__obj114287 (let () (declare (not safe)) (##structure @@ -3156,7 +3156,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114282 + __obj114287 'gxc#!accessor::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3164,7 +3164,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114282 + __obj114287 '!accessor '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3172,26 +3172,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114282 + __obj114287 '(slot checked?) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114785 - (let ((__tmp114786 |gxc[1]#_g114738_|)) + (let ((__tmp114790 + (let ((__tmp114791 |gxc[1]#_g114743_|)) (declare (not safe)) - (cons __tmp114786 '())))) + (cons __tmp114791 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114282 - __tmp114785 + __obj114287 + __tmp114790 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114282 + __obj114287 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3199,7 +3199,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114282 + __obj114287 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3207,7 +3207,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114282 + __obj114287 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3215,150 +3215,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114282 + __obj114287 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114787 |gxc[1]#_g114788_|)) + (let ((__tmp114792 |gxc[1]#_g114793_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114282 - __tmp114787 + __obj114287 + __tmp114792 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114789 |gxc[1]#_g114790_|)) + (let ((__tmp114794 |gxc[1]#_g114795_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114282 - __tmp114789 + __obj114287 + __tmp114794 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114791 |gxc[1]#_g114792_|)) + (let ((__tmp114796 |gxc[1]#_g114797_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114282 - __tmp114791 + __obj114287 + __tmp114796 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114793 - (let ((__tmp114802 - (let ((__tmp114803 |gxc[1]#_g114804_|)) + (let ((__tmp114798 + (let ((__tmp114807 + (let ((__tmp114808 |gxc[1]#_g114809_|)) (declare (not safe)) - (cons 'slot __tmp114803))) - (__tmp114794 - (let ((__tmp114799 - (let ((__tmp114800 |gxc[1]#_g114801_|)) + (cons 'slot __tmp114808))) + (__tmp114799 + (let ((__tmp114804 + (let ((__tmp114805 |gxc[1]#_g114806_|)) (declare (not safe)) - (cons 'checked? __tmp114800))) - (__tmp114795 - (let ((__tmp114796 - (let ((__tmp114797 |gxc[1]#_g114798_|)) + (cons 'checked? __tmp114805))) + (__tmp114800 + (let ((__tmp114801 + (let ((__tmp114802 |gxc[1]#_g114803_|)) (declare (not safe)) - (cons 'id __tmp114797)))) + (cons 'id __tmp114802)))) (declare (not safe)) - (cons __tmp114796 '())))) + (cons __tmp114801 '())))) (declare (not safe)) - (cons __tmp114799 __tmp114795)))) + (cons __tmp114804 __tmp114800)))) (declare (not safe)) - (cons __tmp114802 __tmp114794)))) + (cons __tmp114807 __tmp114799)))) (declare (not safe)) (##unchecked-structure-set! - __obj114282 - __tmp114793 + __obj114287 + __tmp114798 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114805 - (let ((__tmp114814 - (let ((__tmp114815 |gxc[1]#_g114816_|)) + (let ((__tmp114810 + (let ((__tmp114819 + (let ((__tmp114820 |gxc[1]#_g114821_|)) (declare (not safe)) - (cons 'slot __tmp114815))) - (__tmp114806 - (let ((__tmp114811 - (let ((__tmp114812 |gxc[1]#_g114813_|)) + (cons 'slot __tmp114820))) + (__tmp114811 + (let ((__tmp114816 + (let ((__tmp114817 |gxc[1]#_g114818_|)) (declare (not safe)) - (cons 'checked? __tmp114812))) - (__tmp114807 - (let ((__tmp114808 - (let ((__tmp114809 |gxc[1]#_g114810_|)) + (cons 'checked? __tmp114817))) + (__tmp114812 + (let ((__tmp114813 + (let ((__tmp114814 |gxc[1]#_g114815_|)) (declare (not safe)) - (cons 'id __tmp114809)))) + (cons 'id __tmp114814)))) (declare (not safe)) - (cons __tmp114808 '())))) + (cons __tmp114813 '())))) (declare (not safe)) - (cons __tmp114811 __tmp114807)))) + (cons __tmp114816 __tmp114812)))) (declare (not safe)) - (cons __tmp114814 __tmp114806)))) + (cons __tmp114819 __tmp114811)))) (declare (not safe)) (##unchecked-structure-set! - __obj114282 - __tmp114805 + __obj114287 + __tmp114810 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114817 - (let ((__tmp114826 - (let ((__tmp114827 |gxc[1]#_g114828_|)) + (let ((__tmp114822 + (let ((__tmp114831 + (let ((__tmp114832 |gxc[1]#_g114833_|)) (declare (not safe)) - (cons 'slot __tmp114827))) - (__tmp114818 - (let ((__tmp114823 - (let ((__tmp114824 |gxc[1]#_g114825_|)) + (cons 'slot __tmp114832))) + (__tmp114823 + (let ((__tmp114828 + (let ((__tmp114829 |gxc[1]#_g114830_|)) (declare (not safe)) - (cons 'checked? __tmp114824))) - (__tmp114819 - (let ((__tmp114820 - (let ((__tmp114821 |gxc[1]#_g114822_|)) + (cons 'checked? __tmp114829))) + (__tmp114824 + (let ((__tmp114825 + (let ((__tmp114826 |gxc[1]#_g114827_|)) (declare (not safe)) - (cons 'id __tmp114821)))) + (cons 'id __tmp114826)))) (declare (not safe)) - (cons __tmp114820 '())))) + (cons __tmp114825 '())))) (declare (not safe)) - (cons __tmp114823 __tmp114819)))) + (cons __tmp114828 __tmp114824)))) (declare (not safe)) - (cons __tmp114826 __tmp114818)))) + (cons __tmp114831 __tmp114823)))) (declare (not safe)) (##unchecked-structure-set! - __obj114282 - __tmp114817 + __obj114287 + __tmp114822 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114829 - (let ((__tmp114838 - (let ((__tmp114839 |gxc[1]#_g114840_|)) + (let ((__tmp114834 + (let ((__tmp114843 + (let ((__tmp114844 |gxc[1]#_g114845_|)) (declare (not safe)) - (cons 'slot __tmp114839))) - (__tmp114830 - (let ((__tmp114835 - (let ((__tmp114836 |gxc[1]#_g114837_|)) + (cons 'slot __tmp114844))) + (__tmp114835 + (let ((__tmp114840 + (let ((__tmp114841 |gxc[1]#_g114842_|)) (declare (not safe)) - (cons 'checked? __tmp114836))) - (__tmp114831 - (let ((__tmp114832 - (let ((__tmp114833 |gxc[1]#_g114834_|)) + (cons 'checked? __tmp114841))) + (__tmp114836 + (let ((__tmp114837 + (let ((__tmp114838 |gxc[1]#_g114839_|)) (declare (not safe)) - (cons 'id __tmp114833)))) + (cons 'id __tmp114838)))) (declare (not safe)) - (cons __tmp114832 '())))) + (cons __tmp114837 '())))) (declare (not safe)) - (cons __tmp114835 __tmp114831)))) + (cons __tmp114840 __tmp114836)))) (declare (not safe)) - (cons __tmp114838 __tmp114830)))) + (cons __tmp114843 __tmp114835)))) (declare (not safe)) (##unchecked-structure-set! - __obj114282 - __tmp114829 + __obj114287 + __tmp114834 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj114282)) + __obj114287)) (define |gxc[:0:]#!mutator| - (let ((__obj114283 + (let ((__obj114288 (let () (declare (not safe)) (##structure @@ -3381,7 +3381,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114283 + __obj114288 'gxc#!mutator::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3389,7 +3389,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114283 + __obj114288 '!mutator '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3397,26 +3397,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114283 + __obj114288 '(slot checked?) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114841 - (let ((__tmp114842 |gxc[1]#_g114738_|)) + (let ((__tmp114846 + (let ((__tmp114847 |gxc[1]#_g114743_|)) (declare (not safe)) - (cons __tmp114842 '())))) + (cons __tmp114847 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114283 - __tmp114841 + __obj114288 + __tmp114846 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114283 + __obj114288 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3424,7 +3424,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114283 + __obj114288 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3432,7 +3432,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114283 + __obj114288 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3440,150 +3440,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114283 + __obj114288 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114843 |gxc[1]#_g114844_|)) + (let ((__tmp114848 |gxc[1]#_g114849_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114283 - __tmp114843 + __obj114288 + __tmp114848 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114845 |gxc[1]#_g114846_|)) + (let ((__tmp114850 |gxc[1]#_g114851_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114283 - __tmp114845 + __obj114288 + __tmp114850 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114847 |gxc[1]#_g114848_|)) + (let ((__tmp114852 |gxc[1]#_g114853_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114283 - __tmp114847 + __obj114288 + __tmp114852 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114849 - (let ((__tmp114858 - (let ((__tmp114859 |gxc[1]#_g114860_|)) + (let ((__tmp114854 + (let ((__tmp114863 + (let ((__tmp114864 |gxc[1]#_g114865_|)) (declare (not safe)) - (cons 'slot __tmp114859))) - (__tmp114850 - (let ((__tmp114855 - (let ((__tmp114856 |gxc[1]#_g114857_|)) + (cons 'slot __tmp114864))) + (__tmp114855 + (let ((__tmp114860 + (let ((__tmp114861 |gxc[1]#_g114862_|)) (declare (not safe)) - (cons 'checked? __tmp114856))) - (__tmp114851 - (let ((__tmp114852 - (let ((__tmp114853 |gxc[1]#_g114854_|)) + (cons 'checked? __tmp114861))) + (__tmp114856 + (let ((__tmp114857 + (let ((__tmp114858 |gxc[1]#_g114859_|)) (declare (not safe)) - (cons 'id __tmp114853)))) + (cons 'id __tmp114858)))) (declare (not safe)) - (cons __tmp114852 '())))) + (cons __tmp114857 '())))) (declare (not safe)) - (cons __tmp114855 __tmp114851)))) + (cons __tmp114860 __tmp114856)))) (declare (not safe)) - (cons __tmp114858 __tmp114850)))) + (cons __tmp114863 __tmp114855)))) (declare (not safe)) (##unchecked-structure-set! - __obj114283 - __tmp114849 + __obj114288 + __tmp114854 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114861 - (let ((__tmp114870 - (let ((__tmp114871 |gxc[1]#_g114872_|)) + (let ((__tmp114866 + (let ((__tmp114875 + (let ((__tmp114876 |gxc[1]#_g114877_|)) (declare (not safe)) - (cons 'slot __tmp114871))) - (__tmp114862 - (let ((__tmp114867 - (let ((__tmp114868 |gxc[1]#_g114869_|)) + (cons 'slot __tmp114876))) + (__tmp114867 + (let ((__tmp114872 + (let ((__tmp114873 |gxc[1]#_g114874_|)) (declare (not safe)) - (cons 'checked? __tmp114868))) - (__tmp114863 - (let ((__tmp114864 - (let ((__tmp114865 |gxc[1]#_g114866_|)) + (cons 'checked? __tmp114873))) + (__tmp114868 + (let ((__tmp114869 + (let ((__tmp114870 |gxc[1]#_g114871_|)) (declare (not safe)) - (cons 'id __tmp114865)))) + (cons 'id __tmp114870)))) (declare (not safe)) - (cons __tmp114864 '())))) + (cons __tmp114869 '())))) (declare (not safe)) - (cons __tmp114867 __tmp114863)))) + (cons __tmp114872 __tmp114868)))) (declare (not safe)) - (cons __tmp114870 __tmp114862)))) + (cons __tmp114875 __tmp114867)))) (declare (not safe)) (##unchecked-structure-set! - __obj114283 - __tmp114861 + __obj114288 + __tmp114866 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114873 - (let ((__tmp114882 - (let ((__tmp114883 |gxc[1]#_g114884_|)) + (let ((__tmp114878 + (let ((__tmp114887 + (let ((__tmp114888 |gxc[1]#_g114889_|)) (declare (not safe)) - (cons 'slot __tmp114883))) - (__tmp114874 - (let ((__tmp114879 - (let ((__tmp114880 |gxc[1]#_g114881_|)) + (cons 'slot __tmp114888))) + (__tmp114879 + (let ((__tmp114884 + (let ((__tmp114885 |gxc[1]#_g114886_|)) (declare (not safe)) - (cons 'checked? __tmp114880))) - (__tmp114875 - (let ((__tmp114876 - (let ((__tmp114877 |gxc[1]#_g114878_|)) + (cons 'checked? __tmp114885))) + (__tmp114880 + (let ((__tmp114881 + (let ((__tmp114882 |gxc[1]#_g114883_|)) (declare (not safe)) - (cons 'id __tmp114877)))) + (cons 'id __tmp114882)))) (declare (not safe)) - (cons __tmp114876 '())))) + (cons __tmp114881 '())))) (declare (not safe)) - (cons __tmp114879 __tmp114875)))) + (cons __tmp114884 __tmp114880)))) (declare (not safe)) - (cons __tmp114882 __tmp114874)))) + (cons __tmp114887 __tmp114879)))) (declare (not safe)) (##unchecked-structure-set! - __obj114283 - __tmp114873 + __obj114288 + __tmp114878 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114885 - (let ((__tmp114894 - (let ((__tmp114895 |gxc[1]#_g114896_|)) + (let ((__tmp114890 + (let ((__tmp114899 + (let ((__tmp114900 |gxc[1]#_g114901_|)) (declare (not safe)) - (cons 'slot __tmp114895))) - (__tmp114886 - (let ((__tmp114891 - (let ((__tmp114892 |gxc[1]#_g114893_|)) + (cons 'slot __tmp114900))) + (__tmp114891 + (let ((__tmp114896 + (let ((__tmp114897 |gxc[1]#_g114898_|)) (declare (not safe)) - (cons 'checked? __tmp114892))) - (__tmp114887 - (let ((__tmp114888 - (let ((__tmp114889 |gxc[1]#_g114890_|)) + (cons 'checked? __tmp114897))) + (__tmp114892 + (let ((__tmp114893 + (let ((__tmp114894 |gxc[1]#_g114895_|)) (declare (not safe)) - (cons 'id __tmp114889)))) + (cons 'id __tmp114894)))) (declare (not safe)) - (cons __tmp114888 '())))) + (cons __tmp114893 '())))) (declare (not safe)) - (cons __tmp114891 __tmp114887)))) + (cons __tmp114896 __tmp114892)))) (declare (not safe)) - (cons __tmp114894 __tmp114886)))) + (cons __tmp114899 __tmp114891)))) (declare (not safe)) (##unchecked-structure-set! - __obj114283 - __tmp114885 + __obj114288 + __tmp114890 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj114283)) + __obj114288)) (define |gxc[:0:]#!lambda| - (let ((__obj114284 + (let ((__obj114289 (let () (declare (not safe)) (##structure @@ -3606,7 +3606,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114284 + __obj114289 'gxc#!lambda::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3614,7 +3614,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114284 + __obj114289 '!lambda '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3622,26 +3622,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114284 + __obj114289 '(arity dispatch inline inline-typedecl) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114897 - (let ((__tmp114898 |gxc[1]#_g114738_|)) + (let ((__tmp114902 + (let ((__tmp114903 |gxc[1]#_g114743_|)) (declare (not safe)) - (cons __tmp114898 '())))) + (cons __tmp114903 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114284 - __tmp114897 + __obj114289 + __tmp114902 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114284 + __obj114289 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3649,7 +3649,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114284 + __obj114289 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3657,7 +3657,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114284 + __obj114289 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3665,218 +3665,218 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114284 + __obj114289 ':init! '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114899 |gxc[1]#_g114900_|)) + (let ((__tmp114904 |gxc[1]#_g114905_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114284 - __tmp114899 + __obj114289 + __tmp114904 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114901 |gxc[1]#_g114902_|)) + (let ((__tmp114906 |gxc[1]#_g114907_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114284 - __tmp114901 + __obj114289 + __tmp114906 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114903 |gxc[1]#_g114904_|)) + (let ((__tmp114908 |gxc[1]#_g114909_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114284 - __tmp114903 + __obj114289 + __tmp114908 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114905 - (let ((__tmp114922 - (let ((__tmp114923 |gxc[1]#_g114924_|)) + (let ((__tmp114910 + (let ((__tmp114927 + (let ((__tmp114928 |gxc[1]#_g114929_|)) (declare (not safe)) - (cons 'arity __tmp114923))) - (__tmp114906 - (let ((__tmp114919 - (let ((__tmp114920 |gxc[1]#_g114921_|)) + (cons 'arity __tmp114928))) + (__tmp114911 + (let ((__tmp114924 + (let ((__tmp114925 |gxc[1]#_g114926_|)) (declare (not safe)) - (cons 'dispatch __tmp114920))) - (__tmp114907 - (let ((__tmp114916 - (let ((__tmp114917 |gxc[1]#_g114918_|)) + (cons 'dispatch __tmp114925))) + (__tmp114912 + (let ((__tmp114921 + (let ((__tmp114922 |gxc[1]#_g114923_|)) (declare (not safe)) - (cons 'inline __tmp114917))) - (__tmp114908 - (let ((__tmp114913 - (let ((__tmp114914 - |gxc[1]#_g114915_|)) + (cons 'inline __tmp114922))) + (__tmp114913 + (let ((__tmp114918 + (let ((__tmp114919 + |gxc[1]#_g114920_|)) (declare (not safe)) (cons 'inline-typedecl - __tmp114914))) - (__tmp114909 - (let ((__tmp114910 - (let ((__tmp114911 - |gxc[1]#_g114912_|)) + __tmp114919))) + (__tmp114914 + (let ((__tmp114915 + (let ((__tmp114916 + |gxc[1]#_g114917_|)) (declare (not safe)) - (cons 'id __tmp114911)))) + (cons 'id __tmp114916)))) (declare (not safe)) - (cons __tmp114910 '())))) + (cons __tmp114915 '())))) (declare (not safe)) - (cons __tmp114913 __tmp114909)))) + (cons __tmp114918 __tmp114914)))) (declare (not safe)) - (cons __tmp114916 __tmp114908)))) + (cons __tmp114921 __tmp114913)))) (declare (not safe)) - (cons __tmp114919 __tmp114907)))) + (cons __tmp114924 __tmp114912)))) (declare (not safe)) - (cons __tmp114922 __tmp114906)))) + (cons __tmp114927 __tmp114911)))) (declare (not safe)) (##unchecked-structure-set! - __obj114284 - __tmp114905 + __obj114289 + __tmp114910 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114925 - (let ((__tmp114942 - (let ((__tmp114943 |gxc[1]#_g114944_|)) + (let ((__tmp114930 + (let ((__tmp114947 + (let ((__tmp114948 |gxc[1]#_g114949_|)) (declare (not safe)) - (cons 'arity __tmp114943))) - (__tmp114926 - (let ((__tmp114939 - (let ((__tmp114940 |gxc[1]#_g114941_|)) + (cons 'arity __tmp114948))) + (__tmp114931 + (let ((__tmp114944 + (let ((__tmp114945 |gxc[1]#_g114946_|)) (declare (not safe)) - (cons 'dispatch __tmp114940))) - (__tmp114927 - (let ((__tmp114936 - (let ((__tmp114937 |gxc[1]#_g114938_|)) + (cons 'dispatch __tmp114945))) + (__tmp114932 + (let ((__tmp114941 + (let ((__tmp114942 |gxc[1]#_g114943_|)) (declare (not safe)) - (cons 'inline __tmp114937))) - (__tmp114928 - (let ((__tmp114933 - (let ((__tmp114934 - |gxc[1]#_g114935_|)) + (cons 'inline __tmp114942))) + (__tmp114933 + (let ((__tmp114938 + (let ((__tmp114939 + |gxc[1]#_g114940_|)) (declare (not safe)) (cons 'inline-typedecl - __tmp114934))) - (__tmp114929 - (let ((__tmp114930 - (let ((__tmp114931 - |gxc[1]#_g114932_|)) + __tmp114939))) + (__tmp114934 + (let ((__tmp114935 + (let ((__tmp114936 + |gxc[1]#_g114937_|)) (declare (not safe)) - (cons 'id __tmp114931)))) + (cons 'id __tmp114936)))) (declare (not safe)) - (cons __tmp114930 '())))) + (cons __tmp114935 '())))) (declare (not safe)) - (cons __tmp114933 __tmp114929)))) + (cons __tmp114938 __tmp114934)))) (declare (not safe)) - (cons __tmp114936 __tmp114928)))) + (cons __tmp114941 __tmp114933)))) (declare (not safe)) - (cons __tmp114939 __tmp114927)))) + (cons __tmp114944 __tmp114932)))) (declare (not safe)) - (cons __tmp114942 __tmp114926)))) + (cons __tmp114947 __tmp114931)))) (declare (not safe)) (##unchecked-structure-set! - __obj114284 - __tmp114925 + __obj114289 + __tmp114930 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114945 - (let ((__tmp114962 - (let ((__tmp114963 |gxc[1]#_g114964_|)) + (let ((__tmp114950 + (let ((__tmp114967 + (let ((__tmp114968 |gxc[1]#_g114969_|)) (declare (not safe)) - (cons 'arity __tmp114963))) - (__tmp114946 - (let ((__tmp114959 - (let ((__tmp114960 |gxc[1]#_g114961_|)) + (cons 'arity __tmp114968))) + (__tmp114951 + (let ((__tmp114964 + (let ((__tmp114965 |gxc[1]#_g114966_|)) (declare (not safe)) - (cons 'dispatch __tmp114960))) - (__tmp114947 - (let ((__tmp114956 - (let ((__tmp114957 |gxc[1]#_g114958_|)) + (cons 'dispatch __tmp114965))) + (__tmp114952 + (let ((__tmp114961 + (let ((__tmp114962 |gxc[1]#_g114963_|)) (declare (not safe)) - (cons 'inline __tmp114957))) - (__tmp114948 - (let ((__tmp114953 - (let ((__tmp114954 - |gxc[1]#_g114955_|)) + (cons 'inline __tmp114962))) + (__tmp114953 + (let ((__tmp114958 + (let ((__tmp114959 + |gxc[1]#_g114960_|)) (declare (not safe)) (cons 'inline-typedecl - __tmp114954))) - (__tmp114949 - (let ((__tmp114950 - (let ((__tmp114951 - |gxc[1]#_g114952_|)) + __tmp114959))) + (__tmp114954 + (let ((__tmp114955 + (let ((__tmp114956 + |gxc[1]#_g114957_|)) (declare (not safe)) - (cons 'id __tmp114951)))) + (cons 'id __tmp114956)))) (declare (not safe)) - (cons __tmp114950 '())))) + (cons __tmp114955 '())))) (declare (not safe)) - (cons __tmp114953 __tmp114949)))) + (cons __tmp114958 __tmp114954)))) (declare (not safe)) - (cons __tmp114956 __tmp114948)))) + (cons __tmp114961 __tmp114953)))) (declare (not safe)) - (cons __tmp114959 __tmp114947)))) + (cons __tmp114964 __tmp114952)))) (declare (not safe)) - (cons __tmp114962 __tmp114946)))) + (cons __tmp114967 __tmp114951)))) (declare (not safe)) (##unchecked-structure-set! - __obj114284 - __tmp114945 + __obj114289 + __tmp114950 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114965 - (let ((__tmp114982 - (let ((__tmp114983 |gxc[1]#_g114984_|)) + (let ((__tmp114970 + (let ((__tmp114987 + (let ((__tmp114988 |gxc[1]#_g114989_|)) (declare (not safe)) - (cons 'arity __tmp114983))) - (__tmp114966 - (let ((__tmp114979 - (let ((__tmp114980 |gxc[1]#_g114981_|)) + (cons 'arity __tmp114988))) + (__tmp114971 + (let ((__tmp114984 + (let ((__tmp114985 |gxc[1]#_g114986_|)) (declare (not safe)) - (cons 'dispatch __tmp114980))) - (__tmp114967 - (let ((__tmp114976 - (let ((__tmp114977 |gxc[1]#_g114978_|)) + (cons 'dispatch __tmp114985))) + (__tmp114972 + (let ((__tmp114981 + (let ((__tmp114982 |gxc[1]#_g114983_|)) (declare (not safe)) - (cons 'inline __tmp114977))) - (__tmp114968 - (let ((__tmp114973 - (let ((__tmp114974 - |gxc[1]#_g114975_|)) + (cons 'inline __tmp114982))) + (__tmp114973 + (let ((__tmp114978 + (let ((__tmp114979 + |gxc[1]#_g114980_|)) (declare (not safe)) (cons 'inline-typedecl - __tmp114974))) - (__tmp114969 - (let ((__tmp114970 - (let ((__tmp114971 - |gxc[1]#_g114972_|)) + __tmp114979))) + (__tmp114974 + (let ((__tmp114975 + (let ((__tmp114976 + |gxc[1]#_g114977_|)) (declare (not safe)) - (cons 'id __tmp114971)))) + (cons 'id __tmp114976)))) (declare (not safe)) - (cons __tmp114970 '())))) + (cons __tmp114975 '())))) (declare (not safe)) - (cons __tmp114973 __tmp114969)))) + (cons __tmp114978 __tmp114974)))) (declare (not safe)) - (cons __tmp114976 __tmp114968)))) + (cons __tmp114981 __tmp114973)))) (declare (not safe)) - (cons __tmp114979 __tmp114967)))) + (cons __tmp114984 __tmp114972)))) (declare (not safe)) - (cons __tmp114982 __tmp114966)))) + (cons __tmp114987 __tmp114971)))) (declare (not safe)) (##unchecked-structure-set! - __obj114284 - __tmp114965 + __obj114289 + __tmp114970 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj114284)) + __obj114289)) (define |gxc[:0:]#!case-lambda| - (let ((__obj114285 + (let ((__obj114290 (let () (declare (not safe)) (##structure @@ -3899,7 +3899,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114285 + __obj114290 'gxc#!case-lambda::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3907,7 +3907,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114285 + __obj114290 '!case-lambda '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3915,26 +3915,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114285 + __obj114290 '(clauses) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114985 - (let ((__tmp114986 |gxc[1]#_g114738_|)) + (let ((__tmp114990 + (let ((__tmp114991 |gxc[1]#_g114743_|)) (declare (not safe)) - (cons __tmp114986 '())))) + (cons __tmp114991 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114285 - __tmp114985 + __obj114290 + __tmp114990 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114285 + __obj114290 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3942,7 +3942,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114285 + __obj114290 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3950,7 +3950,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114285 + __obj114290 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -3958,122 +3958,122 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114285 + __obj114290 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114987 |gxc[1]#_g114988_|)) + (let ((__tmp114992 |gxc[1]#_g114993_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114285 - __tmp114987 + __obj114290 + __tmp114992 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114989 |gxc[1]#_g114990_|)) + (let ((__tmp114994 |gxc[1]#_g114995_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114285 - __tmp114989 + __obj114290 + __tmp114994 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114991 |gxc[1]#_g114992_|)) + (let ((__tmp114996 |gxc[1]#_g114997_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114285 - __tmp114991 + __obj114290 + __tmp114996 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp114993 - (let ((__tmp114998 - (let ((__tmp114999 |gxc[1]#_g115000_|)) + (let ((__tmp114998 + (let ((__tmp115003 + (let ((__tmp115004 |gxc[1]#_g115005_|)) (declare (not safe)) - (cons 'clauses __tmp114999))) - (__tmp114994 - (let ((__tmp114995 - (let ((__tmp114996 |gxc[1]#_g114997_|)) + (cons 'clauses __tmp115004))) + (__tmp114999 + (let ((__tmp115000 + (let ((__tmp115001 |gxc[1]#_g115002_|)) (declare (not safe)) - (cons 'id __tmp114996)))) + (cons 'id __tmp115001)))) (declare (not safe)) - (cons __tmp114995 '())))) + (cons __tmp115000 '())))) (declare (not safe)) - (cons __tmp114998 __tmp114994)))) + (cons __tmp115003 __tmp114999)))) (declare (not safe)) (##unchecked-structure-set! - __obj114285 - __tmp114993 + __obj114290 + __tmp114998 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115001 - (let ((__tmp115006 - (let ((__tmp115007 |gxc[1]#_g115008_|)) + (let ((__tmp115006 + (let ((__tmp115011 + (let ((__tmp115012 |gxc[1]#_g115013_|)) (declare (not safe)) - (cons 'clauses __tmp115007))) - (__tmp115002 - (let ((__tmp115003 - (let ((__tmp115004 |gxc[1]#_g115005_|)) + (cons 'clauses __tmp115012))) + (__tmp115007 + (let ((__tmp115008 + (let ((__tmp115009 |gxc[1]#_g115010_|)) (declare (not safe)) - (cons 'id __tmp115004)))) + (cons 'id __tmp115009)))) (declare (not safe)) - (cons __tmp115003 '())))) + (cons __tmp115008 '())))) (declare (not safe)) - (cons __tmp115006 __tmp115002)))) + (cons __tmp115011 __tmp115007)))) (declare (not safe)) (##unchecked-structure-set! - __obj114285 - __tmp115001 + __obj114290 + __tmp115006 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115009 - (let ((__tmp115014 - (let ((__tmp115015 |gxc[1]#_g115016_|)) + (let ((__tmp115014 + (let ((__tmp115019 + (let ((__tmp115020 |gxc[1]#_g115021_|)) (declare (not safe)) - (cons 'clauses __tmp115015))) - (__tmp115010 - (let ((__tmp115011 - (let ((__tmp115012 |gxc[1]#_g115013_|)) + (cons 'clauses __tmp115020))) + (__tmp115015 + (let ((__tmp115016 + (let ((__tmp115017 |gxc[1]#_g115018_|)) (declare (not safe)) - (cons 'id __tmp115012)))) + (cons 'id __tmp115017)))) (declare (not safe)) - (cons __tmp115011 '())))) + (cons __tmp115016 '())))) (declare (not safe)) - (cons __tmp115014 __tmp115010)))) + (cons __tmp115019 __tmp115015)))) (declare (not safe)) (##unchecked-structure-set! - __obj114285 - __tmp115009 + __obj114290 + __tmp115014 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115017 - (let ((__tmp115022 - (let ((__tmp115023 |gxc[1]#_g115024_|)) + (let ((__tmp115022 + (let ((__tmp115027 + (let ((__tmp115028 |gxc[1]#_g115029_|)) (declare (not safe)) - (cons 'clauses __tmp115023))) - (__tmp115018 - (let ((__tmp115019 - (let ((__tmp115020 |gxc[1]#_g115021_|)) + (cons 'clauses __tmp115028))) + (__tmp115023 + (let ((__tmp115024 + (let ((__tmp115025 |gxc[1]#_g115026_|)) (declare (not safe)) - (cons 'id __tmp115020)))) + (cons 'id __tmp115025)))) (declare (not safe)) - (cons __tmp115019 '())))) + (cons __tmp115024 '())))) (declare (not safe)) - (cons __tmp115022 __tmp115018)))) + (cons __tmp115027 __tmp115023)))) (declare (not safe)) (##unchecked-structure-set! - __obj114285 - __tmp115017 + __obj114290 + __tmp115022 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj114285)) + __obj114290)) (define |gxc[:0:]#!kw-lambda| - (let ((__obj114286 + (let ((__obj114291 (let () (declare (not safe)) (##structure @@ -4096,7 +4096,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114286 + __obj114291 'gxc#!kw-lambda::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4104,7 +4104,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114286 + __obj114291 '!kw-lambda '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4112,26 +4112,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114286 + __obj114291 '(table dispatch) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115025 - (let ((__tmp115026 |gxc[1]#_g114738_|)) + (let ((__tmp115030 + (let ((__tmp115031 |gxc[1]#_g114743_|)) (declare (not safe)) - (cons __tmp115026 '())))) + (cons __tmp115031 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114286 - __tmp115025 + __obj114291 + __tmp115030 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114286 + __obj114291 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4139,7 +4139,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114286 + __obj114291 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4147,7 +4147,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114286 + __obj114291 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4155,150 +4155,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114286 + __obj114291 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115027 |gxc[1]#_g115028_|)) + (let ((__tmp115032 |gxc[1]#_g115033_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114286 - __tmp115027 + __obj114291 + __tmp115032 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115029 |gxc[1]#_g115030_|)) + (let ((__tmp115034 |gxc[1]#_g115035_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114286 - __tmp115029 + __obj114291 + __tmp115034 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115031 |gxc[1]#_g115032_|)) + (let ((__tmp115036 |gxc[1]#_g115037_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114286 - __tmp115031 + __obj114291 + __tmp115036 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115033 - (let ((__tmp115042 - (let ((__tmp115043 |gxc[1]#_g115044_|)) + (let ((__tmp115038 + (let ((__tmp115047 + (let ((__tmp115048 |gxc[1]#_g115049_|)) (declare (not safe)) - (cons 'table __tmp115043))) - (__tmp115034 - (let ((__tmp115039 - (let ((__tmp115040 |gxc[1]#_g115041_|)) + (cons 'table __tmp115048))) + (__tmp115039 + (let ((__tmp115044 + (let ((__tmp115045 |gxc[1]#_g115046_|)) (declare (not safe)) - (cons 'dispatch __tmp115040))) - (__tmp115035 - (let ((__tmp115036 - (let ((__tmp115037 |gxc[1]#_g115038_|)) + (cons 'dispatch __tmp115045))) + (__tmp115040 + (let ((__tmp115041 + (let ((__tmp115042 |gxc[1]#_g115043_|)) (declare (not safe)) - (cons 'id __tmp115037)))) + (cons 'id __tmp115042)))) (declare (not safe)) - (cons __tmp115036 '())))) + (cons __tmp115041 '())))) (declare (not safe)) - (cons __tmp115039 __tmp115035)))) + (cons __tmp115044 __tmp115040)))) (declare (not safe)) - (cons __tmp115042 __tmp115034)))) + (cons __tmp115047 __tmp115039)))) (declare (not safe)) (##unchecked-structure-set! - __obj114286 - __tmp115033 + __obj114291 + __tmp115038 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115045 - (let ((__tmp115054 - (let ((__tmp115055 |gxc[1]#_g115056_|)) + (let ((__tmp115050 + (let ((__tmp115059 + (let ((__tmp115060 |gxc[1]#_g115061_|)) (declare (not safe)) - (cons 'table __tmp115055))) - (__tmp115046 - (let ((__tmp115051 - (let ((__tmp115052 |gxc[1]#_g115053_|)) + (cons 'table __tmp115060))) + (__tmp115051 + (let ((__tmp115056 + (let ((__tmp115057 |gxc[1]#_g115058_|)) (declare (not safe)) - (cons 'dispatch __tmp115052))) - (__tmp115047 - (let ((__tmp115048 - (let ((__tmp115049 |gxc[1]#_g115050_|)) + (cons 'dispatch __tmp115057))) + (__tmp115052 + (let ((__tmp115053 + (let ((__tmp115054 |gxc[1]#_g115055_|)) (declare (not safe)) - (cons 'id __tmp115049)))) + (cons 'id __tmp115054)))) (declare (not safe)) - (cons __tmp115048 '())))) + (cons __tmp115053 '())))) (declare (not safe)) - (cons __tmp115051 __tmp115047)))) + (cons __tmp115056 __tmp115052)))) (declare (not safe)) - (cons __tmp115054 __tmp115046)))) + (cons __tmp115059 __tmp115051)))) (declare (not safe)) (##unchecked-structure-set! - __obj114286 - __tmp115045 + __obj114291 + __tmp115050 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115057 - (let ((__tmp115066 - (let ((__tmp115067 |gxc[1]#_g115068_|)) + (let ((__tmp115062 + (let ((__tmp115071 + (let ((__tmp115072 |gxc[1]#_g115073_|)) (declare (not safe)) - (cons 'table __tmp115067))) - (__tmp115058 - (let ((__tmp115063 - (let ((__tmp115064 |gxc[1]#_g115065_|)) + (cons 'table __tmp115072))) + (__tmp115063 + (let ((__tmp115068 + (let ((__tmp115069 |gxc[1]#_g115070_|)) (declare (not safe)) - (cons 'dispatch __tmp115064))) - (__tmp115059 - (let ((__tmp115060 - (let ((__tmp115061 |gxc[1]#_g115062_|)) + (cons 'dispatch __tmp115069))) + (__tmp115064 + (let ((__tmp115065 + (let ((__tmp115066 |gxc[1]#_g115067_|)) (declare (not safe)) - (cons 'id __tmp115061)))) + (cons 'id __tmp115066)))) (declare (not safe)) - (cons __tmp115060 '())))) + (cons __tmp115065 '())))) (declare (not safe)) - (cons __tmp115063 __tmp115059)))) + (cons __tmp115068 __tmp115064)))) (declare (not safe)) - (cons __tmp115066 __tmp115058)))) + (cons __tmp115071 __tmp115063)))) (declare (not safe)) (##unchecked-structure-set! - __obj114286 - __tmp115057 + __obj114291 + __tmp115062 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115069 - (let ((__tmp115078 - (let ((__tmp115079 |gxc[1]#_g115080_|)) + (let ((__tmp115074 + (let ((__tmp115083 + (let ((__tmp115084 |gxc[1]#_g115085_|)) (declare (not safe)) - (cons 'table __tmp115079))) - (__tmp115070 - (let ((__tmp115075 - (let ((__tmp115076 |gxc[1]#_g115077_|)) + (cons 'table __tmp115084))) + (__tmp115075 + (let ((__tmp115080 + (let ((__tmp115081 |gxc[1]#_g115082_|)) (declare (not safe)) - (cons 'dispatch __tmp115076))) - (__tmp115071 - (let ((__tmp115072 - (let ((__tmp115073 |gxc[1]#_g115074_|)) + (cons 'dispatch __tmp115081))) + (__tmp115076 + (let ((__tmp115077 + (let ((__tmp115078 |gxc[1]#_g115079_|)) (declare (not safe)) - (cons 'id __tmp115073)))) + (cons 'id __tmp115078)))) (declare (not safe)) - (cons __tmp115072 '())))) + (cons __tmp115077 '())))) (declare (not safe)) - (cons __tmp115075 __tmp115071)))) + (cons __tmp115080 __tmp115076)))) (declare (not safe)) - (cons __tmp115078 __tmp115070)))) + (cons __tmp115083 __tmp115075)))) (declare (not safe)) (##unchecked-structure-set! - __obj114286 - __tmp115069 + __obj114291 + __tmp115074 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj114286)) + __obj114291)) (define |gxc[:0:]#!kw-lambda-primary| - (let ((__obj114287 + (let ((__obj114292 (let () (declare (not safe)) (##structure @@ -4321,7 +4321,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114287 + __obj114292 'gxc#!kw-lambda-primary::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4329,7 +4329,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114287 + __obj114292 '!kw-lambda-primary '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4337,26 +4337,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114287 + __obj114292 '(keys main) '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115081 - (let ((__tmp115082 |gxc[1]#_g114738_|)) + (let ((__tmp115086 + (let ((__tmp115087 |gxc[1]#_g114743_|)) (declare (not safe)) - (cons __tmp115082 '())))) + (cons __tmp115087 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114287 - __tmp115081 + __obj114292 + __tmp115086 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114287 + __obj114292 '#t '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4364,7 +4364,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114287 + __obj114292 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4372,7 +4372,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114287 + __obj114292 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4380,150 +4380,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114287 + __obj114292 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115083 |gxc[1]#_g115084_|)) + (let ((__tmp115088 |gxc[1]#_g115089_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114287 - __tmp115083 + __obj114292 + __tmp115088 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115085 |gxc[1]#_g115086_|)) + (let ((__tmp115090 |gxc[1]#_g115091_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114287 - __tmp115085 + __obj114292 + __tmp115090 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115087 |gxc[1]#_g115088_|)) + (let ((__tmp115092 |gxc[1]#_g115093_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114287 - __tmp115087 + __obj114292 + __tmp115092 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115089 - (let ((__tmp115098 - (let ((__tmp115099 |gxc[1]#_g115100_|)) + (let ((__tmp115094 + (let ((__tmp115103 + (let ((__tmp115104 |gxc[1]#_g115105_|)) (declare (not safe)) - (cons 'keys __tmp115099))) - (__tmp115090 - (let ((__tmp115095 - (let ((__tmp115096 |gxc[1]#_g115097_|)) + (cons 'keys __tmp115104))) + (__tmp115095 + (let ((__tmp115100 + (let ((__tmp115101 |gxc[1]#_g115102_|)) (declare (not safe)) - (cons 'main __tmp115096))) - (__tmp115091 - (let ((__tmp115092 - (let ((__tmp115093 |gxc[1]#_g115094_|)) + (cons 'main __tmp115101))) + (__tmp115096 + (let ((__tmp115097 + (let ((__tmp115098 |gxc[1]#_g115099_|)) (declare (not safe)) - (cons 'id __tmp115093)))) + (cons 'id __tmp115098)))) (declare (not safe)) - (cons __tmp115092 '())))) + (cons __tmp115097 '())))) (declare (not safe)) - (cons __tmp115095 __tmp115091)))) + (cons __tmp115100 __tmp115096)))) (declare (not safe)) - (cons __tmp115098 __tmp115090)))) + (cons __tmp115103 __tmp115095)))) (declare (not safe)) (##unchecked-structure-set! - __obj114287 - __tmp115089 + __obj114292 + __tmp115094 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115101 - (let ((__tmp115110 - (let ((__tmp115111 |gxc[1]#_g115112_|)) + (let ((__tmp115106 + (let ((__tmp115115 + (let ((__tmp115116 |gxc[1]#_g115117_|)) (declare (not safe)) - (cons 'keys __tmp115111))) - (__tmp115102 - (let ((__tmp115107 - (let ((__tmp115108 |gxc[1]#_g115109_|)) + (cons 'keys __tmp115116))) + (__tmp115107 + (let ((__tmp115112 + (let ((__tmp115113 |gxc[1]#_g115114_|)) (declare (not safe)) - (cons 'main __tmp115108))) - (__tmp115103 - (let ((__tmp115104 - (let ((__tmp115105 |gxc[1]#_g115106_|)) + (cons 'main __tmp115113))) + (__tmp115108 + (let ((__tmp115109 + (let ((__tmp115110 |gxc[1]#_g115111_|)) (declare (not safe)) - (cons 'id __tmp115105)))) + (cons 'id __tmp115110)))) (declare (not safe)) - (cons __tmp115104 '())))) + (cons __tmp115109 '())))) (declare (not safe)) - (cons __tmp115107 __tmp115103)))) + (cons __tmp115112 __tmp115108)))) (declare (not safe)) - (cons __tmp115110 __tmp115102)))) + (cons __tmp115115 __tmp115107)))) (declare (not safe)) (##unchecked-structure-set! - __obj114287 - __tmp115101 + __obj114292 + __tmp115106 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115113 - (let ((__tmp115122 - (let ((__tmp115123 |gxc[1]#_g115124_|)) + (let ((__tmp115118 + (let ((__tmp115127 + (let ((__tmp115128 |gxc[1]#_g115129_|)) (declare (not safe)) - (cons 'keys __tmp115123))) - (__tmp115114 - (let ((__tmp115119 - (let ((__tmp115120 |gxc[1]#_g115121_|)) + (cons 'keys __tmp115128))) + (__tmp115119 + (let ((__tmp115124 + (let ((__tmp115125 |gxc[1]#_g115126_|)) (declare (not safe)) - (cons 'main __tmp115120))) - (__tmp115115 - (let ((__tmp115116 - (let ((__tmp115117 |gxc[1]#_g115118_|)) + (cons 'main __tmp115125))) + (__tmp115120 + (let ((__tmp115121 + (let ((__tmp115122 |gxc[1]#_g115123_|)) (declare (not safe)) - (cons 'id __tmp115117)))) + (cons 'id __tmp115122)))) (declare (not safe)) - (cons __tmp115116 '())))) + (cons __tmp115121 '())))) (declare (not safe)) - (cons __tmp115119 __tmp115115)))) + (cons __tmp115124 __tmp115120)))) (declare (not safe)) - (cons __tmp115122 __tmp115114)))) + (cons __tmp115127 __tmp115119)))) (declare (not safe)) (##unchecked-structure-set! - __obj114287 - __tmp115113 + __obj114292 + __tmp115118 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115125 - (let ((__tmp115134 - (let ((__tmp115135 |gxc[1]#_g115136_|)) + (let ((__tmp115130 + (let ((__tmp115139 + (let ((__tmp115140 |gxc[1]#_g115141_|)) (declare (not safe)) - (cons 'keys __tmp115135))) - (__tmp115126 - (let ((__tmp115131 - (let ((__tmp115132 |gxc[1]#_g115133_|)) + (cons 'keys __tmp115140))) + (__tmp115131 + (let ((__tmp115136 + (let ((__tmp115137 |gxc[1]#_g115138_|)) (declare (not safe)) - (cons 'main __tmp115132))) - (__tmp115127 - (let ((__tmp115128 - (let ((__tmp115129 |gxc[1]#_g115130_|)) + (cons 'main __tmp115137))) + (__tmp115132 + (let ((__tmp115133 + (let ((__tmp115134 |gxc[1]#_g115135_|)) (declare (not safe)) - (cons 'id __tmp115129)))) + (cons 'id __tmp115134)))) (declare (not safe)) - (cons __tmp115128 '())))) + (cons __tmp115133 '())))) (declare (not safe)) - (cons __tmp115131 __tmp115127)))) + (cons __tmp115136 __tmp115132)))) (declare (not safe)) - (cons __tmp115134 __tmp115126)))) + (cons __tmp115139 __tmp115131)))) (declare (not safe)) (##unchecked-structure-set! - __obj114287 - __tmp115125 + __obj114292 + __tmp115130 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj114287)) + __obj114292)) (define |gxc[:0:]#!primitive| - (let ((__obj114288 + (let ((__obj114293 (let () (declare (not safe)) (##structure @@ -4546,7 +4546,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114288 + __obj114293 'gxc#!primitive::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4554,7 +4554,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114288 + __obj114293 '!primitive '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4562,7 +4562,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114288 + __obj114293 '() '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4570,7 +4570,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114288 + __obj114293 '() '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4578,7 +4578,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114288 + __obj114293 '#f '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4586,7 +4586,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114288 + __obj114293 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4594,7 +4594,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114288 + __obj114293 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4602,39 +4602,39 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114288 + __obj114293 '#f '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115137 |gxc[1]#_g115138_|)) + (let ((__tmp115142 |gxc[1]#_g115143_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114288 - __tmp115137 + __obj114293 + __tmp115142 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115139 |gxc[1]#_g115140_|)) + (let ((__tmp115144 |gxc[1]#_g115145_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114288 - __tmp115139 + __obj114293 + __tmp115144 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115141 |gxc[1]#_g115142_|)) + (let ((__tmp115146 |gxc[1]#_g115147_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114288 - __tmp115141 + __obj114293 + __tmp115146 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114288 + __obj114293 '() '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4642,7 +4642,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114288 + __obj114293 '() '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4650,7 +4650,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114288 + __obj114293 '() '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4658,14 +4658,14 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114288 + __obj114293 '() '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj114288)) + __obj114293)) (define |gxc[:0:]#!primitive-lambda| - (let ((__obj114289 + (let ((__obj114294 (let () (declare (not safe)) (##structure @@ -4688,7 +4688,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114289 + __obj114294 'gxc#!primitive-lambda::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4696,7 +4696,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114289 + __obj114294 '!primitive-lambda '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4704,30 +4704,30 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114289 + __obj114294 '() '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115143 - (let ((__tmp115147 |gxc[1]#_g115148_|) - (__tmp115144 - (let ((__tmp115145 |gxc[1]#_g115146_|)) + (let ((__tmp115148 + (let ((__tmp115152 |gxc[1]#_g115153_|) + (__tmp115149 + (let ((__tmp115150 |gxc[1]#_g115151_|)) (declare (not safe)) - (cons __tmp115145 '())))) + (cons __tmp115150 '())))) (declare (not safe)) - (cons __tmp115147 __tmp115144)))) + (cons __tmp115152 __tmp115149)))) (declare (not safe)) (##unchecked-structure-set! - __obj114289 - __tmp115143 + __obj114294 + __tmp115148 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114289 + __obj114294 '#f '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4735,7 +4735,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114289 + __obj114294 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4743,7 +4743,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114289 + __obj114294 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4751,218 +4751,218 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114289 + __obj114294 ':init! '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115149 |gxc[1]#_g115150_|)) + (let ((__tmp115154 |gxc[1]#_g115155_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114289 - __tmp115149 + __obj114294 + __tmp115154 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115151 |gxc[1]#_g115152_|)) + (let ((__tmp115156 |gxc[1]#_g115157_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114289 - __tmp115151 + __obj114294 + __tmp115156 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115153 |gxc[1]#_g115154_|)) + (let ((__tmp115158 |gxc[1]#_g115159_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114289 - __tmp115153 + __obj114294 + __tmp115158 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115155 - (let ((__tmp115172 - (let ((__tmp115173 |gxc[1]#_g115174_|)) + (let ((__tmp115160 + (let ((__tmp115177 + (let ((__tmp115178 |gxc[1]#_g115179_|)) (declare (not safe)) - (cons 'arity __tmp115173))) - (__tmp115156 - (let ((__tmp115169 - (let ((__tmp115170 |gxc[1]#_g115171_|)) + (cons 'arity __tmp115178))) + (__tmp115161 + (let ((__tmp115174 + (let ((__tmp115175 |gxc[1]#_g115176_|)) (declare (not safe)) - (cons 'dispatch __tmp115170))) - (__tmp115157 - (let ((__tmp115166 - (let ((__tmp115167 |gxc[1]#_g115168_|)) + (cons 'dispatch __tmp115175))) + (__tmp115162 + (let ((__tmp115171 + (let ((__tmp115172 |gxc[1]#_g115173_|)) (declare (not safe)) - (cons 'inline __tmp115167))) - (__tmp115158 - (let ((__tmp115163 - (let ((__tmp115164 - |gxc[1]#_g115165_|)) + (cons 'inline __tmp115172))) + (__tmp115163 + (let ((__tmp115168 + (let ((__tmp115169 + |gxc[1]#_g115170_|)) (declare (not safe)) (cons 'inline-typedecl - __tmp115164))) - (__tmp115159 - (let ((__tmp115160 - (let ((__tmp115161 - |gxc[1]#_g115162_|)) + __tmp115169))) + (__tmp115164 + (let ((__tmp115165 + (let ((__tmp115166 + |gxc[1]#_g115167_|)) (declare (not safe)) - (cons 'id __tmp115161)))) + (cons 'id __tmp115166)))) (declare (not safe)) - (cons __tmp115160 '())))) + (cons __tmp115165 '())))) (declare (not safe)) - (cons __tmp115163 __tmp115159)))) + (cons __tmp115168 __tmp115164)))) (declare (not safe)) - (cons __tmp115166 __tmp115158)))) + (cons __tmp115171 __tmp115163)))) (declare (not safe)) - (cons __tmp115169 __tmp115157)))) + (cons __tmp115174 __tmp115162)))) (declare (not safe)) - (cons __tmp115172 __tmp115156)))) + (cons __tmp115177 __tmp115161)))) (declare (not safe)) (##unchecked-structure-set! - __obj114289 - __tmp115155 + __obj114294 + __tmp115160 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115175 - (let ((__tmp115192 - (let ((__tmp115193 |gxc[1]#_g115194_|)) + (let ((__tmp115180 + (let ((__tmp115197 + (let ((__tmp115198 |gxc[1]#_g115199_|)) (declare (not safe)) - (cons 'arity __tmp115193))) - (__tmp115176 - (let ((__tmp115189 - (let ((__tmp115190 |gxc[1]#_g115191_|)) + (cons 'arity __tmp115198))) + (__tmp115181 + (let ((__tmp115194 + (let ((__tmp115195 |gxc[1]#_g115196_|)) (declare (not safe)) - (cons 'dispatch __tmp115190))) - (__tmp115177 - (let ((__tmp115186 - (let ((__tmp115187 |gxc[1]#_g115188_|)) + (cons 'dispatch __tmp115195))) + (__tmp115182 + (let ((__tmp115191 + (let ((__tmp115192 |gxc[1]#_g115193_|)) (declare (not safe)) - (cons 'inline __tmp115187))) - (__tmp115178 - (let ((__tmp115183 - (let ((__tmp115184 - |gxc[1]#_g115185_|)) + (cons 'inline __tmp115192))) + (__tmp115183 + (let ((__tmp115188 + (let ((__tmp115189 + |gxc[1]#_g115190_|)) (declare (not safe)) (cons 'inline-typedecl - __tmp115184))) - (__tmp115179 - (let ((__tmp115180 - (let ((__tmp115181 - |gxc[1]#_g115182_|)) + __tmp115189))) + (__tmp115184 + (let ((__tmp115185 + (let ((__tmp115186 + |gxc[1]#_g115187_|)) (declare (not safe)) - (cons 'id __tmp115181)))) + (cons 'id __tmp115186)))) (declare (not safe)) - (cons __tmp115180 '())))) + (cons __tmp115185 '())))) (declare (not safe)) - (cons __tmp115183 __tmp115179)))) + (cons __tmp115188 __tmp115184)))) (declare (not safe)) - (cons __tmp115186 __tmp115178)))) + (cons __tmp115191 __tmp115183)))) (declare (not safe)) - (cons __tmp115189 __tmp115177)))) + (cons __tmp115194 __tmp115182)))) (declare (not safe)) - (cons __tmp115192 __tmp115176)))) + (cons __tmp115197 __tmp115181)))) (declare (not safe)) (##unchecked-structure-set! - __obj114289 - __tmp115175 + __obj114294 + __tmp115180 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115195 - (let ((__tmp115212 - (let ((__tmp115213 |gxc[1]#_g115214_|)) + (let ((__tmp115200 + (let ((__tmp115217 + (let ((__tmp115218 |gxc[1]#_g115219_|)) (declare (not safe)) - (cons 'arity __tmp115213))) - (__tmp115196 - (let ((__tmp115209 - (let ((__tmp115210 |gxc[1]#_g115211_|)) + (cons 'arity __tmp115218))) + (__tmp115201 + (let ((__tmp115214 + (let ((__tmp115215 |gxc[1]#_g115216_|)) (declare (not safe)) - (cons 'dispatch __tmp115210))) - (__tmp115197 - (let ((__tmp115206 - (let ((__tmp115207 |gxc[1]#_g115208_|)) + (cons 'dispatch __tmp115215))) + (__tmp115202 + (let ((__tmp115211 + (let ((__tmp115212 |gxc[1]#_g115213_|)) (declare (not safe)) - (cons 'inline __tmp115207))) - (__tmp115198 - (let ((__tmp115203 - (let ((__tmp115204 - |gxc[1]#_g115205_|)) + (cons 'inline __tmp115212))) + (__tmp115203 + (let ((__tmp115208 + (let ((__tmp115209 + |gxc[1]#_g115210_|)) (declare (not safe)) (cons 'inline-typedecl - __tmp115204))) - (__tmp115199 - (let ((__tmp115200 - (let ((__tmp115201 - |gxc[1]#_g115202_|)) + __tmp115209))) + (__tmp115204 + (let ((__tmp115205 + (let ((__tmp115206 + |gxc[1]#_g115207_|)) (declare (not safe)) - (cons 'id __tmp115201)))) + (cons 'id __tmp115206)))) (declare (not safe)) - (cons __tmp115200 '())))) + (cons __tmp115205 '())))) (declare (not safe)) - (cons __tmp115203 __tmp115199)))) + (cons __tmp115208 __tmp115204)))) (declare (not safe)) - (cons __tmp115206 __tmp115198)))) + (cons __tmp115211 __tmp115203)))) (declare (not safe)) - (cons __tmp115209 __tmp115197)))) + (cons __tmp115214 __tmp115202)))) (declare (not safe)) - (cons __tmp115212 __tmp115196)))) + (cons __tmp115217 __tmp115201)))) (declare (not safe)) (##unchecked-structure-set! - __obj114289 - __tmp115195 + __obj114294 + __tmp115200 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115215 - (let ((__tmp115232 - (let ((__tmp115233 |gxc[1]#_g115234_|)) + (let ((__tmp115220 + (let ((__tmp115237 + (let ((__tmp115238 |gxc[1]#_g115239_|)) (declare (not safe)) - (cons 'arity __tmp115233))) - (__tmp115216 - (let ((__tmp115229 - (let ((__tmp115230 |gxc[1]#_g115231_|)) + (cons 'arity __tmp115238))) + (__tmp115221 + (let ((__tmp115234 + (let ((__tmp115235 |gxc[1]#_g115236_|)) (declare (not safe)) - (cons 'dispatch __tmp115230))) - (__tmp115217 - (let ((__tmp115226 - (let ((__tmp115227 |gxc[1]#_g115228_|)) + (cons 'dispatch __tmp115235))) + (__tmp115222 + (let ((__tmp115231 + (let ((__tmp115232 |gxc[1]#_g115233_|)) (declare (not safe)) - (cons 'inline __tmp115227))) - (__tmp115218 - (let ((__tmp115223 - (let ((__tmp115224 - |gxc[1]#_g115225_|)) + (cons 'inline __tmp115232))) + (__tmp115223 + (let ((__tmp115228 + (let ((__tmp115229 + |gxc[1]#_g115230_|)) (declare (not safe)) (cons 'inline-typedecl - __tmp115224))) - (__tmp115219 - (let ((__tmp115220 - (let ((__tmp115221 - |gxc[1]#_g115222_|)) + __tmp115229))) + (__tmp115224 + (let ((__tmp115225 + (let ((__tmp115226 + |gxc[1]#_g115227_|)) (declare (not safe)) - (cons 'id __tmp115221)))) + (cons 'id __tmp115226)))) (declare (not safe)) - (cons __tmp115220 '())))) + (cons __tmp115225 '())))) (declare (not safe)) - (cons __tmp115223 __tmp115219)))) + (cons __tmp115228 __tmp115224)))) (declare (not safe)) - (cons __tmp115226 __tmp115218)))) + (cons __tmp115231 __tmp115223)))) (declare (not safe)) - (cons __tmp115229 __tmp115217)))) + (cons __tmp115234 __tmp115222)))) (declare (not safe)) - (cons __tmp115232 __tmp115216)))) + (cons __tmp115237 __tmp115221)))) (declare (not safe)) (##unchecked-structure-set! - __obj114289 - __tmp115215 + __obj114294 + __tmp115220 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj114289)) + __obj114294)) (define |gxc[:0:]#!primitive-case-lambda| - (let ((__obj114290 + (let ((__obj114295 (let () (declare (not safe)) (##structure @@ -4985,7 +4985,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114290 + __obj114295 'gxc#!primitive-case-lambda::t '1 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -4993,7 +4993,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114290 + __obj114295 '!primitive-case-lambda '2 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -5001,30 +5001,30 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114290 + __obj114295 '() '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115235 - (let ((__tmp115239 |gxc[1]#_g115148_|) - (__tmp115236 - (let ((__tmp115237 |gxc[1]#_g115238_|)) + (let ((__tmp115240 + (let ((__tmp115244 |gxc[1]#_g115153_|) + (__tmp115241 + (let ((__tmp115242 |gxc[1]#_g115243_|)) (declare (not safe)) - (cons __tmp115237 '())))) + (cons __tmp115242 '())))) (declare (not safe)) - (cons __tmp115239 __tmp115236)))) + (cons __tmp115244 __tmp115241)))) (declare (not safe)) (##unchecked-structure-set! - __obj114290 - __tmp115235 + __obj114295 + __tmp115240 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114290 + __obj114295 '#f '5 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -5032,7 +5032,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114290 + __obj114295 '#f '6 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -5040,7 +5040,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114290 + __obj114295 '#f '7 gerbil/core$<MOP>$<MOP:2>#class-type-info::t @@ -5048,117 +5048,117 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114290 + __obj114295 ':init! '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115240 |gxc[1]#_g115241_|)) + (let ((__tmp115245 |gxc[1]#_g115246_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114290 - __tmp115240 + __obj114295 + __tmp115245 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115242 |gxc[1]#_g115243_|)) + (let ((__tmp115247 |gxc[1]#_g115248_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114290 - __tmp115242 + __obj114295 + __tmp115247 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115244 |gxc[1]#_g115245_|)) + (let ((__tmp115249 |gxc[1]#_g115250_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114290 - __tmp115244 + __obj114295 + __tmp115249 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115246 - (let ((__tmp115251 - (let ((__tmp115252 |gxc[1]#_g115253_|)) + (let ((__tmp115251 + (let ((__tmp115256 + (let ((__tmp115257 |gxc[1]#_g115258_|)) (declare (not safe)) - (cons 'clauses __tmp115252))) - (__tmp115247 - (let ((__tmp115248 - (let ((__tmp115249 |gxc[1]#_g115250_|)) + (cons 'clauses __tmp115257))) + (__tmp115252 + (let ((__tmp115253 + (let ((__tmp115254 |gxc[1]#_g115255_|)) (declare (not safe)) - (cons 'id __tmp115249)))) + (cons 'id __tmp115254)))) (declare (not safe)) - (cons __tmp115248 '())))) + (cons __tmp115253 '())))) (declare (not safe)) - (cons __tmp115251 __tmp115247)))) + (cons __tmp115256 __tmp115252)))) (declare (not safe)) (##unchecked-structure-set! - __obj114290 - __tmp115246 + __obj114295 + __tmp115251 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115254 - (let ((__tmp115259 - (let ((__tmp115260 |gxc[1]#_g115261_|)) + (let ((__tmp115259 + (let ((__tmp115264 + (let ((__tmp115265 |gxc[1]#_g115266_|)) (declare (not safe)) - (cons 'clauses __tmp115260))) - (__tmp115255 - (let ((__tmp115256 - (let ((__tmp115257 |gxc[1]#_g115258_|)) + (cons 'clauses __tmp115265))) + (__tmp115260 + (let ((__tmp115261 + (let ((__tmp115262 |gxc[1]#_g115263_|)) (declare (not safe)) - (cons 'id __tmp115257)))) + (cons 'id __tmp115262)))) (declare (not safe)) - (cons __tmp115256 '())))) + (cons __tmp115261 '())))) (declare (not safe)) - (cons __tmp115259 __tmp115255)))) + (cons __tmp115264 __tmp115260)))) (declare (not safe)) (##unchecked-structure-set! - __obj114290 - __tmp115254 + __obj114295 + __tmp115259 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115262 - (let ((__tmp115267 - (let ((__tmp115268 |gxc[1]#_g115269_|)) + (let ((__tmp115267 + (let ((__tmp115272 + (let ((__tmp115273 |gxc[1]#_g115274_|)) (declare (not safe)) - (cons 'clauses __tmp115268))) - (__tmp115263 - (let ((__tmp115264 - (let ((__tmp115265 |gxc[1]#_g115266_|)) + (cons 'clauses __tmp115273))) + (__tmp115268 + (let ((__tmp115269 + (let ((__tmp115270 |gxc[1]#_g115271_|)) (declare (not safe)) - (cons 'id __tmp115265)))) + (cons 'id __tmp115270)))) (declare (not safe)) - (cons __tmp115264 '())))) + (cons __tmp115269 '())))) (declare (not safe)) - (cons __tmp115267 __tmp115263)))) + (cons __tmp115272 __tmp115268)))) (declare (not safe)) (##unchecked-structure-set! - __obj114290 - __tmp115262 + __obj114295 + __tmp115267 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp115270 - (let ((__tmp115275 - (let ((__tmp115276 |gxc[1]#_g115277_|)) + (let ((__tmp115275 + (let ((__tmp115280 + (let ((__tmp115281 |gxc[1]#_g115282_|)) (declare (not safe)) - (cons 'clauses __tmp115276))) - (__tmp115271 - (let ((__tmp115272 - (let ((__tmp115273 |gxc[1]#_g115274_|)) + (cons 'clauses __tmp115281))) + (__tmp115276 + (let ((__tmp115277 + (let ((__tmp115278 |gxc[1]#_g115279_|)) (declare (not safe)) - (cons 'id __tmp115273)))) + (cons 'id __tmp115278)))) (declare (not safe)) - (cons __tmp115272 '())))) + (cons __tmp115277 '())))) (declare (not safe)) - (cons __tmp115275 __tmp115271)))) + (cons __tmp115280 __tmp115276)))) (declare (not safe)) (##unchecked-structure-set! - __obj114290 - __tmp115270 + __obj114295 + __tmp115275 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - __obj114290)))) + __obj114295)))) diff --git a/src/bootstrap/gerbil/compiler/optimize-call__0.scm b/src/bootstrap/gerbil/compiler/optimize-call__0.scm index df256cd0..679ca672 100644 --- a/src/bootstrap/gerbil/compiler/optimize-call__0.scm +++ b/src/bootstrap/gerbil/compiler/optimize-call__0.scm @@ -1,598 +1,598 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize-call::timestamp 1709229974) + (define gerbil/compiler/optimize-call::timestamp 1709375802) (begin (define gxc#&optimize-call (make-promise (lambda () - (let ((_tbl152583_ + (let ((_tbl152588_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp152878 (force gxc#&basic-xform))) + (let ((__tmp152883 (force gxc#&basic-xform))) (declare (not safe)) - (hash-merge! _tbl152583_ __tmp152878)) + (hash-merge! _tbl152588_ __tmp152883)) (let () (declare (not safe)) - (hash-put! _tbl152583_ '%#call gxc#optimize-call%)) - _tbl152583_)))) + (hash-put! _tbl152588_ '%#call gxc#optimize-call%)) + _tbl152588_)))) (define gxc#apply-optimize-call - (lambda (_stx152566_ . _args152568_) - (let ((__tmp152880 + (lambda (_stx152571_ . _args152573_) + (let ((__tmp152885 (lambda () (declare (not safe)) - (if (null? _args152568_) - (gxc#compile-e__0 _stx152566_) - (let ((_arg1152573_ (car _args152568_)) - (_rest152575_ (cdr _args152568_))) - (if (null? _rest152575_) - (gxc#compile-e__1 _stx152566_ _arg1152573_) - (let ((_arg2152578_ (car _rest152575_)) - (_rest152580_ (cdr _rest152575_))) - (if (null? _rest152580_) + (if (null? _args152573_) + (gxc#compile-e__0 _stx152571_) + (let ((_arg1152578_ (car _args152573_)) + (_rest152580_ (cdr _args152573_))) + (if (null? _rest152580_) + (gxc#compile-e__1 _stx152571_ _arg1152578_) + (let ((_arg2152583_ (car _rest152580_)) + (_rest152585_ (cdr _rest152580_))) + (if (null? _rest152585_) (gxc#compile-e__2 - _stx152566_ - _arg1152573_ - _arg2152578_) + _stx152571_ + _arg1152578_ + _arg2152583_) (apply gxc#compile-e - _stx152566_ - _arg1152573_ - _arg2152578_ - _rest152580_)))))))) - (__tmp152879 (force gxc#&optimize-call))) + _stx152571_ + _arg1152578_ + _arg2152583_ + _rest152585_)))))))) + (__tmp152884 (force gxc#&optimize-call))) (declare (not safe)) (call-with-parameters - __tmp152880 + __tmp152885 gxc#current-compile-methods - __tmp152879)))) + __tmp152884)))) (define gxc#optimize-call% - (lambda (_stx152421_) - (let* ((___stx152628152629_ _stx152421_) - (_g152424152444_ + (lambda (_stx152426_) + (let* ((___stx152633152634_ _stx152426_) + (_g152429152449_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx152628152629_))))) - (let ((___kont152630152631_ - (lambda (_L152488_ _L152489_) - (let* ((_rator-id152507_ + ___stx152633152634_))))) + (let ((___kont152635152636_ + (lambda (_L152493_ _L152494_) + (let* ((_rator-id152512_ (let () (declare (not safe)) - (gxc#identifier-symbol _L152489_))) - (_rator-type152509_ + (gxc#identifier-symbol _L152494_))) + (_rator-type152514_ (let () (declare (not safe)) - (gxc#optimizer-resolve-type _rator-id152507_)))) + (gxc#optimizer-resolve-type _rator-id152512_)))) (if (let () (declare (not safe)) (##structure-instance-of? - _rator-type152509_ + _rator-type152514_ 'gxc#!procedure::t)) (begin - (let ((__tmp152881 + (let ((__tmp152886 (##structure-ref - _rator-type152509_ + _rator-type152514_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#verbose '"optimize-call " - _rator-id152507_ + _rator-id152512_ '" => " - _rator-type152509_ + _rator-type152514_ '" " - __tmp152881)) - (let ((_optimized152512_ - (let ((__method152876 + __tmp152886)) + (let ((_optimized152517_ + (let ((__method152881 (let () (declare (not safe)) (method-ref - _rator-type152509_ + _rator-type152514_ 'optimize-call)))) - (if __method152876 - (__method152876 - _rator-type152509_ - _stx152421_ - _L152488_) + (if __method152881 + (__method152881 + _rator-type152514_ + _stx152426_ + _L152493_) (let () (declare (not safe)) (error '"Missing method" - _rator-type152509_ + _rator-type152514_ 'optimize-call)))))) (if (let () (declare (not safe)) (class-instance? gxc#!primitive::t - _rator-type152509_)) - _optimized152512_ - (let* ((___stx152610152611_ _optimized152512_) - (_g152515152525_ + _rator-type152514_)) + _optimized152517_ + (let* ((___stx152615152616_ _optimized152517_) + (_g152520152530_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx152610152611_))))) - (let ((___kont152612152613_ - (lambda (_L152545_) - (let ((__tmp152882 + ___stx152615152616_))))) + (let ((___kont152617152618_ + (lambda (_L152550_) + (let ((__tmp152887 (let () (declare (not safe)) (cons '%#call-unchecked - _L152545_)))) + _L152550_)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp152882 - _stx152421_)))) - (___kont152614152615_ - (lambda () _optimized152512_))) + __tmp152887 + _stx152426_)))) + (___kont152619152620_ + (lambda () _optimized152517_))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx152610152611_)) - (let ((_e152520152537_ + (gx#stx-pair? ___stx152615152616_)) + (let ((_e152525152542_ (let () (declare (not safe)) (gx#stx-e - ___stx152610152611_)))) - (let ((_tl152518152542_ + ___stx152615152616_)))) + (let ((_tl152523152547_ (let () (declare (not safe)) - (##cdr _e152520152537_))) - (_hd152519152540_ + (##cdr _e152525152542_))) + (_hd152524152545_ (let () (declare (not safe)) - (##car _e152520152537_)))) + (##car _e152525152542_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd152519152540_)) + _hd152524152545_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd152519152540_)) - (___kont152612152613_ - _tl152518152542_) - (___kont152614152615_)) - (___kont152614152615_)))) - (___kont152614152615_))))))) + _hd152524152545_)) + (___kont152617152618_ + _tl152523152547_) + (___kont152619152620_)) + (___kont152619152620_)))) + (___kont152619152620_))))))) (if (let () (declare (not safe)) - (not _rator-type152509_)) + (not _rator-type152514_)) (let () (declare (not safe)) - (gxc#xform-call% _stx152421_)) + (gxc#xform-call% _stx152426_)) (let () (declare (not safe)) (gxc#raise-compile-error '"illegal application; not a procedure" - _stx152421_ - _rator-type152509_))))))) - (___kont152632152633_ + _stx152426_ + _rator-type152514_))))))) + (___kont152637152638_ (lambda () (let () (declare (not safe)) - (gxc#xform-call% _stx152421_))))) + (gxc#xform-call% _stx152426_))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx152628152629_)) - (let ((_e152430152456_ + (gx#stx-pair? ___stx152633152634_)) + (let ((_e152435152461_ (let () (declare (not safe)) - (gx#stx-e ___stx152628152629_)))) - (let ((_tl152428152461_ - (let () (declare (not safe)) (##cdr _e152430152456_))) - (_hd152429152459_ + (gx#stx-e ___stx152633152634_)))) + (let ((_tl152433152466_ + (let () (declare (not safe)) (##cdr _e152435152461_))) + (_hd152434152464_ (let () (declare (not safe)) - (##car _e152430152456_)))) + (##car _e152435152461_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl152428152461_)) - (let ((_e152433152464_ + (gx#stx-pair? _tl152433152466_)) + (let ((_e152438152469_ (let () (declare (not safe)) - (gx#stx-e _tl152428152461_)))) - (let ((_tl152431152469_ + (gx#stx-e _tl152433152466_)))) + (let ((_tl152436152474_ (let () (declare (not safe)) - (##cdr _e152433152464_))) - (_hd152432152467_ + (##cdr _e152438152469_))) + (_hd152437152472_ (let () (declare (not safe)) - (##car _e152433152464_)))) + (##car _e152438152469_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd152432152467_)) - (let ((_e152436152472_ + (gx#stx-pair? _hd152437152472_)) + (let ((_e152441152477_ (let () (declare (not safe)) - (gx#stx-e _hd152432152467_)))) - (let ((_tl152434152477_ + (gx#stx-e _hd152437152472_)))) + (let ((_tl152439152482_ (let () (declare (not safe)) - (##cdr _e152436152472_))) - (_hd152435152475_ + (##cdr _e152441152477_))) + (_hd152440152480_ (let () (declare (not safe)) - (##car _e152436152472_)))) + (##car _e152441152477_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd152435152475_)) + (gx#identifier? _hd152440152480_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd152435152475_)) + _hd152440152480_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl152434152477_)) - (let ((_e152439152480_ + _tl152439152482_)) + (let ((_e152444152485_ (let () (declare (not safe)) (gx#stx-e - _tl152434152477_)))) - (let ((_tl152437152485_ + _tl152439152482_)))) + (let ((_tl152442152490_ (let () (declare (not safe)) - (##cdr _e152439152480_))) - (_hd152438152483_ + (##cdr _e152444152485_))) + (_hd152443152488_ (let () (declare (not safe)) - (##car _e152439152480_)))) + (##car _e152444152485_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl152437152485_)) - (___kont152630152631_ - _tl152431152469_ - _hd152438152483_) - (___kont152632152633_)))) - (___kont152632152633_)) - (___kont152632152633_)) - (___kont152632152633_)))) - (___kont152632152633_)))) - (___kont152632152633_)))) - (___kont152632152633_)))))) + _tl152442152490_)) + (___kont152635152636_ + _tl152436152474_ + _hd152443152488_) + (___kont152637152638_)))) + (___kont152637152638_)) + (___kont152637152638_)) + (___kont152637152638_)))) + (___kont152637152638_)))) + (___kont152637152638_)))) + (___kont152637152638_)))))) (define gxc#!predicate::optimize-call - (lambda (_self152375_ _stx152376_ _args152377_) - (let* ((_g152379152389_ - (lambda (_g152380152386_) + (lambda (_self152380_ _stx152381_ _args152382_) + (let* ((_g152384152394_ + (lambda (_g152385152391_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g152380152386_)))) - (_g152378152418_ - (lambda (_g152380152392_) + _g152385152391_)))) + (_g152383152423_ + (lambda (_g152385152397_) (if (let () (declare (not safe)) - (gx#stx-pair? _g152380152392_)) - (let ((_e152384152394_ + (gx#stx-pair? _g152385152397_)) + (let ((_e152389152399_ (let () (declare (not safe)) - (gx#stx-e _g152380152392_)))) - (let ((_hd152383152397_ + (gx#stx-e _g152385152397_)))) + (let ((_hd152388152402_ (let () (declare (not safe)) - (##car _e152384152394_))) - (_tl152382152399_ + (##car _e152389152399_))) + (_tl152387152404_ (let () (declare (not safe)) - (##cdr _e152384152394_)))) + (##cdr _e152389152399_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl152382152399_)) - ((lambda (_L152402_) - (let* ((_klass152413_ - (let ((__tmp152883 + (gx#stx-null? _tl152387152404_)) + ((lambda (_L152407_) + (let* ((_klass152418_ + (let ((__tmp152888 (##structure-ref - _self152375_ + _self152380_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _stx152376_ - __tmp152883))) - (_object152415_ + _stx152381_ + __tmp152888))) + (_object152420_ (let () (declare (not safe)) - (gxc#compile-e__0 _L152402_)))) + (gxc#compile-e__0 _L152407_)))) (if (##structure-ref - _klass152413_ + _klass152418_ '8 gxc#!class::t '#f) - (let ((__tmp152899 - (let ((__tmp152900 - (let ((__tmp152902 - (let ((__tmp152903 + (let ((__tmp152904 + (let ((__tmp152905 + (let ((__tmp152907 + (let ((__tmp152908 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp152904 + (let ((__tmp152909 (##structure-ref - _klass152413_ + _klass152418_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp152904 '())))) + (cons __tmp152909 '())))) (declare (not safe)) - (cons '%#quote __tmp152903))) - (__tmp152901 - (let () (declare (not safe)) (cons _object152415_ '())))) + (cons '%#quote __tmp152908))) + (__tmp152906 + (let () (declare (not safe)) (cons _object152420_ '())))) (declare (not safe)) - (cons __tmp152902 __tmp152901)))) + (cons __tmp152907 __tmp152906)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#struct-direct-instance? - __tmp152900)))) + __tmp152905)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp152899 - _stx152376_)) + __tmp152904 + _stx152381_)) (if (##structure-ref - _klass152413_ + _klass152418_ '7 gxc#!class::t '#f) - (let ((__tmp152893 - (let ((__tmp152894 - (let ((__tmp152896 - (let ((__tmp152897 + (let ((__tmp152898 + (let ((__tmp152899 + (let ((__tmp152901 + (let ((__tmp152902 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp152898 + (let ((__tmp152903 (##structure-ref - _klass152413_ + _klass152418_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp152898 '())))) + (cons __tmp152903 '())))) (declare (not safe)) - (cons '%#quote __tmp152897))) - (__tmp152895 + (cons '%#quote __tmp152902))) + (__tmp152900 (let () (declare (not safe)) - (cons _object152415_ '())))) + (cons _object152420_ '())))) (declare (not safe)) - (cons __tmp152896 __tmp152895)))) + (cons __tmp152901 __tmp152900)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#struct-instance? - __tmp152894)))) + __tmp152899)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp152893 - _stx152376_)) - (let ((__tmp152884 - (let ((__tmp152885 - (let ((__tmp152891 - (let ((__tmp152892 + __tmp152898 + _stx152381_)) + (let ((__tmp152889 + (let ((__tmp152890 + (let ((__tmp152896 + (let ((__tmp152897 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons 'class-instance? '())))) (declare (not safe)) - (cons '%#ref __tmp152892))) - (__tmp152886 - (let ((__tmp152888 - (let ((__tmp152889 - (let ((__tmp152890 + (cons '%#ref __tmp152897))) + (__tmp152891 + (let ((__tmp152893 + (let ((__tmp152894 + (let ((__tmp152895 (##structure-ref - _self152375_ + _self152380_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp152890 '())))) + (cons __tmp152895 '())))) (declare (not safe)) - (cons '%#ref __tmp152889))) - (__tmp152887 + (cons '%#ref __tmp152894))) + (__tmp152892 (let () (declare (not safe)) - (cons _object152415_ '())))) + (cons _object152420_ '())))) (declare (not safe)) - (cons __tmp152888 __tmp152887)))) + (cons __tmp152893 __tmp152892)))) (declare (not safe)) - (cons __tmp152891 __tmp152886)))) + (cons __tmp152896 __tmp152891)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#call - __tmp152885)))) + __tmp152890)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp152884 - _stx152376_)))))) - _hd152383152397_) + __tmp152889 + _stx152381_)))))) + _hd152388152402_) (let () (declare (not safe)) - (_g152379152389_ _g152380152392_))))) + (_g152384152394_ _g152385152397_))))) (let () (declare (not safe)) - (_g152379152389_ _g152380152392_)))))) + (_g152384152394_ _g152385152397_)))))) (declare (not safe)) - (_g152378152418_ _args152377_)))) + (_g152383152423_ _args152382_)))) (define gxc#!predicate::optimize-call::specialize - (lambda (__klass152585 __method-table152586) - (let ((__id152587 - (let ((__slot152588 + (lambda (__klass152590 __method-table152591) + (let ((__id152592 + (let ((__slot152593 (let () (declare (not safe)) - (class-slot-offset __klass152585 'id)))) - (if __slot152588 - __slot152588 + (class-slot-offset __klass152590 'id)))) + (if __slot152593 + __slot152593 (let () (declare (not safe)) (error '"Unknown slot" 'id)))))) - (lambda (_self152375_ _stx152376_ _args152377_) - (let* ((_g152379152389_ - (lambda (_g152380152386_) + (lambda (_self152380_ _stx152381_ _args152382_) + (let* ((_g152384152394_ + (lambda (_g152385152391_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g152380152386_)))) - (_g152378152418_ - (lambda (_g152380152392_) + _g152385152391_)))) + (_g152383152423_ + (lambda (_g152385152397_) (if (let () (declare (not safe)) - (gx#stx-pair? _g152380152392_)) - (let ((_e152384152394_ + (gx#stx-pair? _g152385152397_)) + (let ((_e152389152399_ (let () (declare (not safe)) - (gx#stx-e _g152380152392_)))) - (let ((_hd152383152397_ + (gx#stx-e _g152385152397_)))) + (let ((_hd152388152402_ (let () (declare (not safe)) - (##car _e152384152394_))) - (_tl152382152399_ + (##car _e152389152399_))) + (_tl152387152404_ (let () (declare (not safe)) - (##cdr _e152384152394_)))) + (##cdr _e152389152399_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl152382152399_)) - ((lambda (_L152402_) - (let* ((_klass152413_ - (let ((__tmp152905 + (gx#stx-null? _tl152387152404_)) + ((lambda (_L152407_) + (let* ((_klass152418_ + (let ((__tmp152910 (let () (declare (not safe)) (##unchecked-structure-ref - _self152375_ - __id152587 - __klass152585 + _self152380_ + __id152592 + __klass152590 '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _stx152376_ - __tmp152905))) - (_object152415_ + _stx152381_ + __tmp152910))) + (_object152420_ (let () (declare (not safe)) - (gxc#compile-e__0 _L152402_)))) + (gxc#compile-e__0 _L152407_)))) (if (##structure-ref - _klass152413_ + _klass152418_ '8 gxc#!class::t '#f) - (let ((__tmp152921 - (let ((__tmp152922 - (let ((__tmp152924 - (let ((__tmp152925 + (let ((__tmp152926 + (let ((__tmp152927 + (let ((__tmp152929 + (let ((__tmp152930 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp152926 + (let ((__tmp152931 (##structure-ref - _klass152413_ + _klass152418_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp152926 '())))) + (cons __tmp152931 '())))) (declare (not safe)) - (cons '%#quote __tmp152925))) - (__tmp152923 + (cons '%#quote __tmp152930))) + (__tmp152928 (let () (declare (not safe)) - (cons _object152415_ '())))) + (cons _object152420_ '())))) (declare (not safe)) - (cons __tmp152924 __tmp152923)))) + (cons __tmp152929 __tmp152928)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#struct-direct-instance? - __tmp152922)))) + __tmp152927)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp152921 - _stx152376_)) + __tmp152926 + _stx152381_)) (if (##structure-ref - _klass152413_ + _klass152418_ '7 gxc#!class::t '#f) - (let ((__tmp152915 - (let ((__tmp152916 - (let ((__tmp152918 + (let ((__tmp152920 + (let ((__tmp152921 + (let ((__tmp152923 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp152919 - (let ((__tmp152920 + (let ((__tmp152924 + (let ((__tmp152925 (##structure-ref - _klass152413_ + _klass152418_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp152920 '())))) + (cons __tmp152925 '())))) (declare (not safe)) - (cons '%#quote __tmp152919))) - (__tmp152917 + (cons '%#quote __tmp152924))) + (__tmp152922 (let () (declare (not safe)) - (cons _object152415_ '())))) + (cons _object152420_ '())))) (declare (not safe)) - (cons __tmp152918 __tmp152917)))) + (cons __tmp152923 __tmp152922)))) (declare (not safe)) - (cons '%#struct-instance? __tmp152916)))) + (cons '%#struct-instance? __tmp152921)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp152915 - _stx152376_)) - (let ((__tmp152906 - (let ((__tmp152907 - (let ((__tmp152913 + __tmp152920 + _stx152381_)) + (let ((__tmp152911 + (let ((__tmp152912 + (let ((__tmp152918 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp152914 + (let ((__tmp152919 (let () (declare (not safe)) (cons 'class-instance? '())))) (declare (not safe)) - (cons '%#ref __tmp152914))) - (__tmp152908 - (let ((__tmp152910 - (let ((__tmp152911 - (let ((__tmp152912 + (cons '%#ref __tmp152919))) + (__tmp152913 + (let ((__tmp152915 + (let ((__tmp152916 + (let ((__tmp152917 (let () (declare (not safe)) (##unchecked-structure-ref - _self152375_ - __id152587 - __klass152585 + _self152380_ + __id152592 + __klass152590 '#f)))) (declare (not safe)) - (cons __tmp152912 '())))) + (cons __tmp152917 '())))) (declare (not safe)) - (cons '%#ref __tmp152911))) - (__tmp152909 + (cons '%#ref __tmp152916))) + (__tmp152914 (let () (declare (not safe)) - (cons _object152415_ '())))) + (cons _object152420_ '())))) (declare (not safe)) - (cons __tmp152910 __tmp152909)))) + (cons __tmp152915 __tmp152914)))) (declare (not safe)) - (cons __tmp152913 __tmp152908)))) + (cons __tmp152918 __tmp152913)))) (declare (not safe)) - (cons '%#call __tmp152907)))) + (cons '%#call __tmp152912)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp152906 - _stx152376_)))))) - _hd152383152397_) + __tmp152911 + _stx152381_)))))) + _hd152388152402_) (let () (declare (not safe)) - (_g152379152389_ _g152380152392_))))) + (_g152384152394_ _g152385152397_))))) (let () (declare (not safe)) - (_g152379152389_ _g152380152392_)))))) + (_g152384152394_ _g152385152397_)))))) (declare (not safe)) - (_g152378152418_ _args152377_)))))) + (_g152383152423_ _args152382_)))))) (let () (declare (not safe)) (bind-specializer! @@ -606,236 +606,236 @@ gxc#!predicate::optimize-call '#f)) (define gxc#!constructor::optimize-call - (lambda (_self152095_ _stx152096_ _args152097_) - (let* ((_klass152099_ - (let ((__tmp152927 - (##structure-ref _self152095_ '1 gxc#!type::t '#f))) + (lambda (_self152100_ _stx152101_ _args152102_) + (let* ((_klass152104_ + (let ((__tmp152932 + (##structure-ref _self152100_ '1 gxc#!type::t '#f))) (declare (not safe)) - (gxc#optimizer-resolve-class _stx152096_ __tmp152927))) - (_fields152101_ - (length (##structure-ref _klass152099_ '5 gxc#!class::t '#f))) - (_args152103_ (map gxc#compile-e _args152097_)) - (_inline-make-object152105_ - (let ((__tmp152928 - (let ((__tmp152934 - (let ((__tmp152935 + (gxc#optimizer-resolve-class _stx152101_ __tmp152932))) + (_fields152106_ + (length (##structure-ref _klass152104_ '5 gxc#!class::t '#f))) + (_args152108_ (map gxc#compile-e _args152102_)) + (_inline-make-object152110_ + (let ((__tmp152933 + (let ((__tmp152939 + (let ((__tmp152940 (let () (declare (not safe)) (cons '##structure '())))) (declare (not safe)) - (cons '%#ref __tmp152935))) - (__tmp152929 - (let ((__tmp152931 - (let ((__tmp152932 - (let ((__tmp152933 + (cons '%#ref __tmp152940))) + (__tmp152934 + (let ((__tmp152936 + (let ((__tmp152937 + (let ((__tmp152938 (##structure-ref - _self152095_ + _self152100_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp152933 '())))) + (cons __tmp152938 '())))) (declare (not safe)) - (cons '%#ref __tmp152932))) - (__tmp152930 + (cons '%#ref __tmp152937))) + (__tmp152935 (let () (declare (not safe)) (make-list__% - _fields152101_ + _fields152106_ '(%#quote #f))))) (declare (not safe)) - (cons __tmp152931 __tmp152930)))) + (cons __tmp152936 __tmp152935)))) (declare (not safe)) - (cons __tmp152934 __tmp152929)))) + (cons __tmp152939 __tmp152934)))) (declare (not safe)) - (cons '%#call __tmp152928)))) - (let ((_$e152108_ - (##structure-ref _klass152099_ '6 gxc#!class::t '#f))) - (if _$e152108_ - ((lambda (_ctor152111_) - (let ((_$obj152113_ - (let ((__tmp153035 (gensym '__obj))) + (cons '%#call __tmp152933)))) + (let ((_$e152113_ + (##structure-ref _klass152104_ '6 gxc#!class::t '#f))) + (if _$e152113_ + ((lambda (_ctor152116_) + (let ((_$obj152118_ + (let ((__tmp153040 (gensym '__obj))) (declare (not safe)) - (make-symbol__0 __tmp153035))) - (_ctor-impl152114_ + (make-symbol__0 __tmp153040))) + (_ctor-impl152119_ (let () (declare (not safe)) (gxc#!class-lookup-method - _klass152099_ - _ctor152111_)))) - (let ((__tmp153036 - (let ((__tmp153037 - (let ((__tmp153105 - (let ((__tmp153106 - (let ((__tmp153108 + _klass152104_ + _ctor152116_)))) + (let ((__tmp153041 + (let ((__tmp153042 + (let ((__tmp153110 + (let ((__tmp153111 + (let ((__tmp153113 (let () (declare (not safe)) - (cons _$obj152113_ + (cons _$obj152118_ '()))) - (__tmp153107 + (__tmp153112 (let () (declare (not safe)) - (cons _inline-make-object152105_ + (cons _inline-make-object152110_ '())))) (declare (not safe)) - (cons __tmp153108 - __tmp153107)))) + (cons __tmp153113 + __tmp153112)))) (declare (not safe)) - (cons __tmp153106 '()))) - (__tmp153038 - (let ((__tmp153039 - (let ((__tmp153040 - (let ((__tmp153044 - (if _ctor-impl152114_ + (cons __tmp153111 '()))) + (__tmp153043 + (let ((__tmp153044 + (let ((__tmp153045 + (let ((__tmp153049 + (if _ctor-impl152119_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp153099 - (let ((__tmp153103 - (let ((__tmp153104 + (let ((__tmp153104 + (let ((__tmp153108 + (let ((__tmp153109 (let () (declare (not safe)) - (cons _ctor-impl152114_ + (cons _ctor-impl152119_ '())))) (declare (not safe)) - (cons '%#ref __tmp153104))) - (__tmp153100 - (let ((__tmp153101 - (let ((__tmp153102 + (cons '%#ref __tmp153109))) + (__tmp153105 + (let ((__tmp153106 + (let ((__tmp153107 (let () (declare (not safe)) - (cons _$obj152113_ + (cons _$obj152118_ '())))) (declare (not safe)) - (cons '%#ref __tmp153102)))) + (cons '%#ref __tmp153107)))) (declare (not safe)) - (cons __tmp153101 _args152103_)))) + (cons __tmp153106 _args152108_)))) (declare (not safe)) - (cons __tmp153103 __tmp153100)))) + (cons __tmp153108 __tmp153105)))) (declare (not safe)) - (cons '%#call __tmp153099)) - (let* ((_$ctor152116_ - (let ((__tmp153045 (gensym '__constructor))) + (cons '%#call __tmp153104)) + (let* ((_$ctor152121_ + (let ((__tmp153050 (gensym '__constructor))) (declare (not safe)) - (make-symbol__0 __tmp153045))) - (__tmp153046 - (let ((__tmp153081 - (let ((__tmp153082 - (let ((__tmp153098 + (make-symbol__0 __tmp153050))) + (__tmp153051 + (let ((__tmp153086 + (let ((__tmp153087 + (let ((__tmp153103 (let () (declare (not safe)) - (cons _$ctor152116_ + (cons _$ctor152121_ '()))) - (__tmp153083 - (let ((__tmp153084 - (let ((__tmp153085 + (__tmp153088 + (let ((__tmp153089 + (let ((__tmp153090 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp153096 - (let ((__tmp153097 + (let ((__tmp153101 + (let ((__tmp153102 (let () (declare (not safe)) (cons 'direct-method-ref '())))) (declare (not safe)) - (cons '%#ref __tmp153097))) - (__tmp153086 - (let ((__tmp153093 - (let ((__tmp153094 - (let ((__tmp153095 + (cons '%#ref __tmp153102))) + (__tmp153091 + (let ((__tmp153098 + (let ((__tmp153099 + (let ((__tmp153100 (##structure-ref - _self152095_ + _self152100_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp153095 '())))) + (cons __tmp153100 '())))) (declare (not safe)) - (cons '%#ref __tmp153094))) - (__tmp153087 - (let ((__tmp153091 - (let ((__tmp153092 + (cons '%#ref __tmp153099))) + (__tmp153092 + (let ((__tmp153096 + (let ((__tmp153097 (let () (declare (not safe)) - (cons _$obj152113_ + (cons _$obj152118_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp153092))) - (__tmp153088 - (let ((__tmp153089 - (let ((__tmp153090 + __tmp153097))) + (__tmp153093 + (let ((__tmp153094 + (let ((__tmp153095 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _ctor152111_ '())))) + (cons _ctor152116_ '())))) (declare (not safe)) - (cons '%#quote __tmp153090)))) + (cons '%#quote __tmp153095)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153089 '())))) + (cons __tmp153094 '())))) (declare (not safe)) - (cons __tmp153091 __tmp153088)))) + (cons __tmp153096 __tmp153093)))) (declare (not safe)) - (cons __tmp153093 __tmp153087)))) + (cons __tmp153098 __tmp153092)))) (declare (not safe)) - (cons __tmp153096 __tmp153086)))) + (cons __tmp153101 __tmp153091)))) (declare (not safe)) - (cons '%#call __tmp153085)))) + (cons '%#call __tmp153090)))) (declare (not safe)) - (cons __tmp153084 '())))) + (cons __tmp153089 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153098 - __tmp153083)))) + (cons __tmp153103 + __tmp153088)))) (declare (not safe)) - (cons __tmp153082 '()))) - (__tmp153047 - (let ((__tmp153048 - (let ((__tmp153049 - (let ((__tmp153079 - (let ((__tmp153080 + (cons __tmp153087 '()))) + (__tmp153052 + (let ((__tmp153053 + (let ((__tmp153054 + (let ((__tmp153084 + (let ((__tmp153085 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _$ctor152116_ '())))) + (cons _$ctor152121_ '())))) (declare (not safe)) - (cons '%#ref __tmp153080))) - (__tmp153050 - (let ((__tmp153072 - (let ((__tmp153073 - (let ((__tmp153077 - (let ((__tmp153078 + (cons '%#ref __tmp153085))) + (__tmp153055 + (let ((__tmp153077 + (let ((__tmp153078 + (let ((__tmp153082 + (let ((__tmp153083 (let () (declare (not safe)) - (cons _$ctor152116_ + (cons _$ctor152121_ '())))) (declare (not safe)) - (cons '%#ref __tmp153078))) - (__tmp153074 - (let ((__tmp153075 - (let ((__tmp153076 + (cons '%#ref __tmp153083))) + (__tmp153079 + (let ((__tmp153080 + (let ((__tmp153081 (let () (declare (not safe)) - (cons _$obj152113_ + (cons _$obj152118_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp153076)))) + __tmp153081)))) (declare (not safe)) - (cons __tmp153075 - _args152103_)))) + (cons __tmp153080 + _args152108_)))) (declare (not safe)) - (cons __tmp153077 __tmp153074)))) + (cons __tmp153082 __tmp153079)))) (declare (not safe)) - (cons '%#call __tmp153073))) - (__tmp153051 - (let ((__tmp153052 - (let ((__tmp153053 - (let ((__tmp153070 - (let ((__tmp153071 + (cons '%#call __tmp153078))) + (__tmp153056 + (let ((__tmp153057 + (let ((__tmp153058 + (let ((__tmp153075 + (let ((__tmp153076 (let () (declare (not safe)) @@ -845,281 +845,281 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp153071))) - (__tmp153054 - (let ((__tmp153068 - (let ((__tmp153069 + __tmp153076))) + (__tmp153059 + (let ((__tmp153073 + (let ((__tmp153074 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons '"missing constructor method implementation" '())))) (declare (not safe)) - (cons '%#quote __tmp153069))) - (__tmp153055 - (let ((__tmp153066 - (let ((__tmp153067 + (cons '%#quote __tmp153074))) + (__tmp153060 + (let ((__tmp153071 + (let ((__tmp153072 (let () (declare (not safe)) (cons 'class: '())))) (declare (not safe)) - (cons '%#quote __tmp153067))) - (__tmp153056 - (let ((__tmp153063 - (let ((__tmp153064 - (let ((__tmp153065 + (cons '%#quote __tmp153072))) + (__tmp153061 + (let ((__tmp153068 + (let ((__tmp153069 + (let ((__tmp153070 (##structure-ref - _self152095_ + _self152100_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp153065 '())))) + (cons __tmp153070 '())))) (declare (not safe)) - (cons '%#ref __tmp153064))) - (__tmp153057 - (let ((__tmp153061 - (let ((__tmp153062 + (cons '%#ref __tmp153069))) + (__tmp153062 + (let ((__tmp153066 + (let ((__tmp153067 (let () (declare (not safe)) (cons 'method: '())))) (declare (not safe)) - (cons '%#quote __tmp153062))) - (__tmp153058 - (let ((__tmp153059 - (let ((__tmp153060 + (cons '%#quote __tmp153067))) + (__tmp153063 + (let ((__tmp153064 + (let ((__tmp153065 (let () (declare (not safe)) - (cons _ctor152111_ + (cons _ctor152116_ '())))) (declare (not safe)) - (cons '%#quote __tmp153060)))) + (cons '%#quote __tmp153065)))) (declare (not safe)) - (cons __tmp153059 '())))) + (cons __tmp153064 '())))) (declare (not safe)) - (cons __tmp153061 __tmp153058)))) + (cons __tmp153066 __tmp153063)))) (declare (not safe)) - (cons __tmp153063 __tmp153057)))) + (cons __tmp153068 __tmp153062)))) (declare (not safe)) - (cons __tmp153066 __tmp153056)))) + (cons __tmp153071 __tmp153061)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153068 - __tmp153055)))) + (cons __tmp153073 + __tmp153060)))) (declare (not safe)) - (cons __tmp153070 __tmp153054)))) + (cons __tmp153075 __tmp153059)))) (declare (not safe)) - (cons '%#call __tmp153053)))) + (cons '%#call __tmp153058)))) (declare (not safe)) - (cons __tmp153052 '())))) + (cons __tmp153057 '())))) (declare (not safe)) - (cons __tmp153072 __tmp153051)))) + (cons __tmp153077 __tmp153056)))) (declare (not safe)) - (cons __tmp153079 __tmp153050)))) + (cons __tmp153084 __tmp153055)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#if __tmp153049)))) + (cons '%#if __tmp153054)))) (declare (not safe)) - (cons __tmp153048 '())))) + (cons __tmp153053 '())))) (declare (not safe)) - (cons __tmp153081 __tmp153047)))) + (cons __tmp153086 __tmp153052)))) (declare (not safe)) - (cons '%#let-values __tmp153046)))) - (__tmp153041 - (let ((__tmp153042 - (let ((__tmp153043 + (cons '%#let-values __tmp153051)))) + (__tmp153046 + (let ((__tmp153047 + (let ((__tmp153048 (let () (declare (not safe)) - (cons _$obj152113_ '())))) + (cons _$obj152118_ '())))) (declare (not safe)) - (cons '%#ref __tmp153043)))) + (cons '%#ref __tmp153048)))) (declare (not safe)) - (cons __tmp153042 '())))) + (cons __tmp153047 '())))) (declare (not safe)) - (cons __tmp153044 __tmp153041)))) + (cons __tmp153049 __tmp153046)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#begin - __tmp153040)))) + __tmp153045)))) (declare (not safe)) - (cons __tmp153039 '())))) + (cons __tmp153044 '())))) (declare (not safe)) - (cons __tmp153105 __tmp153038)))) + (cons __tmp153110 __tmp153043)))) (declare (not safe)) - (cons '%#let-values __tmp153037)))) + (cons '%#let-values __tmp153042)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp153036 _stx152096_)))) - _$e152108_) - (let ((_$e152118_ - (##structure-ref _klass152099_ '9 gxc#!class::t '#f))) - (if _$e152118_ - ((lambda (_metaclass152121_) - (let* ((_$obj152123_ - (let ((__tmp152997 (gensym '__obj))) + (gxc#xform-wrap-source __tmp153041 _stx152101_)))) + _$e152113_) + (let ((_$e152123_ + (##structure-ref _klass152104_ '9 gxc#!class::t '#f))) + (if _$e152123_ + ((lambda (_metaclass152126_) + (let* ((_$obj152128_ + (let ((__tmp153002 (gensym '__obj))) (declare (not safe)) - (make-symbol__0 __tmp152997))) - (_metakons152125_ - (let ((__tmp152998 + (make-symbol__0 __tmp153002))) + (_metakons152130_ + (let ((__tmp153003 (let () (declare (not safe)) (gxc#optimizer-resolve-class - _stx152096_ - _metaclass152121_)))) + _stx152101_ + _metaclass152126_)))) (declare (not safe)) (gxc#!class-lookup-method - __tmp152998 + __tmp153003 'instance-init!)))) - (let ((__tmp152999 - (let ((__tmp153000 - (let ((__tmp153031 - (let ((__tmp153032 - (let ((__tmp153034 + (let ((__tmp153004 + (let ((__tmp153005 + (let ((__tmp153036 + (let ((__tmp153037 + (let ((__tmp153039 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$obj152123_ '()))) - (__tmp153033 + (cons _$obj152128_ '()))) + (__tmp153038 (let () (declare (not safe)) - (cons _inline-make-object152105_ '())))) + (cons _inline-make-object152110_ '())))) (declare (not safe)) - (cons __tmp153034 __tmp153033)))) + (cons __tmp153039 __tmp153038)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153032 '()))) - (__tmp153001 - (let ((__tmp153002 - (let ((__tmp153003 - (let ((__tmp153007 + (cons __tmp153037 '()))) + (__tmp153006 + (let ((__tmp153007 + (let ((__tmp153008 + (let ((__tmp153012 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (if _metakons152125_ - (let ((__tmp153021 - (let ((__tmp153029 - (let ((__tmp153030 + (if _metakons152130_ + (let ((__tmp153026 + (let ((__tmp153034 + (let ((__tmp153035 (let () (declare (not safe)) - (cons _metakons152125_ + (cons _metakons152130_ '())))) (declare (not safe)) - (cons '%#ref __tmp153030))) - (__tmp153022 - (let ((__tmp153026 - (let ((__tmp153027 - (let ((__tmp153028 + (cons '%#ref __tmp153035))) + (__tmp153027 + (let ((__tmp153031 + (let ((__tmp153032 + (let ((__tmp153033 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##structure-ref - _self152095_ + _self152100_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp153028 '())))) + (cons __tmp153033 '())))) (declare (not safe)) - (cons '%#ref __tmp153027))) + (cons '%#ref __tmp153032))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp153023 - (let ((__tmp153024 - (let ((__tmp153025 + (__tmp153028 + (let ((__tmp153029 + (let ((__tmp153030 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _$obj152123_ '())))) + (cons _$obj152128_ '())))) (declare (not safe)) - (cons '%#ref __tmp153025)))) + (cons '%#ref __tmp153030)))) (declare (not safe)) - (cons __tmp153024 _args152103_)))) + (cons __tmp153029 _args152108_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153026 - __tmp153023)))) + (cons __tmp153031 + __tmp153028)))) (declare (not safe)) - (cons __tmp153029 __tmp153022)))) + (cons __tmp153034 __tmp153027)))) (declare (not safe)) - (cons '%#call __tmp153021)) - (let ((__tmp153008 - (let ((__tmp153019 - (let ((__tmp153020 + (cons '%#call __tmp153026)) + (let ((__tmp153013 + (let ((__tmp153024 + (let ((__tmp153025 (let () (declare (not safe)) (cons 'call-method '())))) (declare (not safe)) - (cons '%#ref __tmp153020))) - (__tmp153009 - (let ((__tmp153016 - (let ((__tmp153017 - (let ((__tmp153018 + (cons '%#ref __tmp153025))) + (__tmp153014 + (let ((__tmp153021 + (let ((__tmp153022 + (let ((__tmp153023 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##structure-ref - _self152095_ + _self152100_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp153018 '())))) + (cons __tmp153023 '())))) (declare (not safe)) - (cons '%#ref __tmp153017))) + (cons '%#ref __tmp153022))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp153010 - (let ((__tmp153014 - (let ((__tmp153015 + (__tmp153015 + (let ((__tmp153019 + (let ((__tmp153020 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons 'instance-init! '())))) (declare (not safe)) - (cons '%#quote __tmp153015))) - (__tmp153011 - (let ((__tmp153012 - (let ((__tmp153013 + (cons '%#quote __tmp153020))) + (__tmp153016 + (let ((__tmp153017 + (let ((__tmp153018 (let () (declare (not safe)) - (cons _$obj152123_ '())))) + (cons _$obj152128_ '())))) (declare (not safe)) - (cons '%#ref __tmp153013)))) + (cons '%#ref __tmp153018)))) (declare (not safe)) - (cons __tmp153012 _args152103_)))) + (cons __tmp153017 _args152108_)))) (declare (not safe)) - (cons __tmp153014 __tmp153011)))) + (cons __tmp153019 __tmp153016)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153016 - __tmp153010)))) + (cons __tmp153021 + __tmp153015)))) (declare (not safe)) - (cons __tmp153019 __tmp153009)))) + (cons __tmp153024 __tmp153014)))) (declare (not safe)) - (cons '%#call __tmp153008)))) - (__tmp153004 - (let ((__tmp153005 - (let ((__tmp153006 + (cons '%#call __tmp153013)))) + (__tmp153009 + (let ((__tmp153010 + (let ((__tmp153011 (let () (declare (not safe)) - (cons _$obj152123_ '())))) + (cons _$obj152128_ '())))) (declare (not safe)) - (cons '%#ref __tmp153006)))) + (cons '%#ref __tmp153011)))) (declare (not safe)) - (cons __tmp153005 '())))) + (cons __tmp153010 '())))) (declare (not safe)) - (cons __tmp153007 __tmp153004)))) + (cons __tmp153012 __tmp153009)))) (declare (not safe)) - (cons '%#begin __tmp153003)))) + (cons '%#begin __tmp153008)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153002 '())))) + (cons __tmp153007 '())))) (declare (not safe)) - (cons __tmp153031 __tmp153001)))) + (cons __tmp153036 __tmp153006)))) (declare (not safe)) - (cons '%#let-values __tmp153000)))) + (cons '%#let-values __tmp153005)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp152999 _stx152096_)))) - _$e152118_) - (if (##structure-ref _klass152099_ '7 gxc#!class::t '#f) - (if (fx= (length _args152103_) _fields152101_) - (let ((__tmp152989 - (let ((__tmp152990 - (let ((__tmp152995 - (let ((__tmp152996 + (gxc#xform-wrap-source __tmp153004 _stx152101_)))) + _$e152123_) + (if (##structure-ref _klass152104_ '7 gxc#!class::t '#f) + (if (fx= (length _args152108_) _fields152106_) + (let ((__tmp152994 + (let ((__tmp152995 + (let ((__tmp153000 + (let ((__tmp153001 (let () (declare (not safe)) @@ -1129,897 +1129,897 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp152996))) - (__tmp152991 - (let ((__tmp152992 - (let ((__tmp152993 + __tmp153001))) + (__tmp152996 + (let ((__tmp152997 + (let ((__tmp152998 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp152994 + (let ((__tmp152999 (##structure-ref - _self152095_ + _self152100_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp152994 '())))) + (cons __tmp152999 '())))) (declare (not safe)) - (cons '%#ref __tmp152993)))) + (cons '%#ref __tmp152998)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp152992 - _args152103_)))) + (cons __tmp152997 + _args152108_)))) (declare (not safe)) - (cons __tmp152995 __tmp152991)))) + (cons __tmp153000 __tmp152996)))) (declare (not safe)) - (cons '%#call __tmp152990)))) + (cons '%#call __tmp152995)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp152989 - _stx152096_)) - (let ((__tmp152988 + __tmp152994 + _stx152101_)) + (let ((__tmp152993 (##structure-ref - _self152095_ + _self152100_ '1 gxc#!type::t '#f)) - (__tmp152987 + (__tmp152992 (length (##structure-ref - _klass152099_ + _klass152104_ '5 gxc#!class::t '#f)))) (declare (not safe)) (gxc#raise-compile-error '"illegal struct constructor application; arity mismatch" - _stx152096_ - __tmp152988 - __tmp152987))) - (let ((_$obj152128_ - (let ((__tmp152936 (gensym '__obj))) + _stx152101_ + __tmp152993 + __tmp152992))) + (let ((_$obj152133_ + (let ((__tmp152941 (gensym '__obj))) (declare (not safe)) - (make-symbol__0 __tmp152936)))) - (let _lp152130_ ((_rest152132_ _args152103_) - (_initializers152133_ '())) - (let* ((___stx152666152667_ _rest152132_) - (_g152137152158_ + (make-symbol__0 __tmp152941)))) + (let _lp152135_ ((_rest152137_ _args152108_) + (_initializers152138_ '())) + (let* ((___stx152671152672_ _rest152137_) + (_g152142152163_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx152666152667_))))) - (let ((___kont152668152669_ - (lambda (_L152212_ _L152213_ _L152214_) - (let* ((_slot152245_ + ___stx152671152672_))))) + (let ((___kont152673152674_ + (lambda (_L152217_ _L152218_ _L152219_) + (let* ((_slot152250_ (keyword->symbol (let () (declare (not safe)) - (gx#stx-e _L152214_)))) - (_off152247_ + (gx#stx-e _L152219_)))) + (_off152252_ (let () (declare (not safe)) (gxc#!class-slot->field-offset - _klass152099_ - _slot152245_)))) - (if _off152247_ - (let ((__tmp152938 - (let ((__tmp152939 + _klass152104_ + _slot152250_)))) + (if _off152252_ + (let ((__tmp152943 + (let ((__tmp152944 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _off152247_ _L152213_)))) + (cons _off152252_ _L152218_)))) (declare (not safe)) - (cons __tmp152939 _initializers152133_)))) + (cons __tmp152944 _initializers152138_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp152130_ - _L152212_ - __tmp152938)) - (let ((__tmp152937 + (_lp152135_ + _L152217_ + __tmp152943)) + (let ((__tmp152942 (##structure-ref - _self152095_ + _self152100_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#raise-compile-error '"unknown slot" - _stx152096_ - __tmp152937 - _slot152245_)))))) - (___kont152670152671_ + _stx152101_ + __tmp152942 + _slot152250_)))))) + (___kont152675152676_ (lambda () - (let ((__tmp152940 - (let ((__tmp152941 - (let ((__tmp152964 - (let ((__tmp152965 + (let ((__tmp152945 + (let ((__tmp152946 + (let ((__tmp152969 + (let ((__tmp152970 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp152967 + (let ((__tmp152972 (let () (declare (not safe)) - (cons _$obj152128_ '()))) - (__tmp152966 + (cons _$obj152133_ '()))) + (__tmp152971 (let () (declare (not safe)) - (cons _inline-make-object152105_ '())))) + (cons _inline-make-object152110_ '())))) (declare (not safe)) - (cons __tmp152967 __tmp152966)))) + (cons __tmp152972 __tmp152971)))) (declare (not safe)) - (cons __tmp152965 '()))) - (__tmp152942 - (let ((__tmp152943 - (let ((__tmp152944 - (let ((__tmp152961 - (let ((__tmp152962 - (let ((__tmp152963 + (cons __tmp152970 '()))) + (__tmp152947 + (let ((__tmp152948 + (let ((__tmp152949 + (let ((__tmp152966 + (let ((__tmp152967 + (let ((__tmp152968 (let () (declare (not safe)) - (cons _$obj152128_ + (cons _$obj152133_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp152963)))) + __tmp152968)))) (declare (not safe)) - (cons __tmp152962 '()))) - (__tmp152945 - (let ((__tmp152946 - (lambda (_i152172_ _r152173_) - (let ((__tmp152947 - (let ((__tmp152948 + (cons __tmp152967 '()))) + (__tmp152950 + (let ((__tmp152951 + (lambda (_i152177_ _r152178_) + (let ((__tmp152952 + (let ((__tmp152953 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp152958 - (let ((__tmp152959 - (let ((__tmp152960 + (let ((__tmp152963 + (let ((__tmp152964 + (let ((__tmp152965 (##structure-ref - _self152095_ + _self152100_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp152960 '())))) + (cons __tmp152965 '())))) (declare (not safe)) - (cons '%#ref __tmp152959))) - (__tmp152949 - (let ((__tmp152955 - (let ((__tmp152956 - (let ((__tmp152957 - (car _i152172_))) + (cons '%#ref __tmp152964))) + (__tmp152954 + (let ((__tmp152960 + (let ((__tmp152961 + (let ((__tmp152962 + (car _i152177_))) (declare (not safe)) - (cons __tmp152957 '())))) + (cons __tmp152962 '())))) (declare (not safe)) - (cons '%#quote __tmp152956))) - (__tmp152950 - (let ((__tmp152953 - (let ((__tmp152954 + (cons '%#quote __tmp152961))) + (__tmp152955 + (let ((__tmp152958 + (let ((__tmp152959 (let () (declare (not safe)) - (cons _$obj152128_ + (cons _$obj152133_ '())))) (declare (not safe)) - (cons '%#ref __tmp152954))) - (__tmp152951 - (let ((__tmp152952 - (cdr _i152172_))) + (cons '%#ref __tmp152959))) + (__tmp152956 + (let ((__tmp152957 + (cdr _i152177_))) (declare (not safe)) - (cons __tmp152952 '())))) + (cons __tmp152957 '())))) (declare (not safe)) - (cons __tmp152953 __tmp152951)))) + (cons __tmp152958 __tmp152956)))) (declare (not safe)) - (cons __tmp152955 __tmp152950)))) + (cons __tmp152960 __tmp152955)))) (declare (not safe)) - (cons __tmp152958 __tmp152949)))) + (cons __tmp152963 __tmp152954)))) (declare (not safe)) - (cons '%#struct-unchecked-set! __tmp152948)))) + (cons '%#struct-unchecked-set! __tmp152953)))) (declare (not safe)) - (cons __tmp152947 _r152173_))))) + (cons __tmp152952 _r152178_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldl1 __tmp152946 + (foldl1 __tmp152951 '() - _initializers152133_)))) + _initializers152138_)))) (declare (not safe)) - (foldr1 cons __tmp152961 __tmp152945)))) + (foldr1 cons __tmp152966 __tmp152950)))) (declare (not safe)) - (cons '%#begin __tmp152944)))) + (cons '%#begin __tmp152949)))) (declare (not safe)) - (cons __tmp152943 '())))) + (cons __tmp152948 '())))) (declare (not safe)) - (cons __tmp152964 __tmp152942)))) + (cons __tmp152969 __tmp152947)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#let-values - __tmp152941)))) + __tmp152946)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp152940 - _stx152096_)))) - (___kont152672152673_ + __tmp152945 + _stx152101_)))) + (___kont152677152678_ (lambda () - (let ((__tmp152968 - (let ((__tmp152969 - (let ((__tmp152983 - (let ((__tmp152984 + (let ((__tmp152973 + (let ((__tmp152974 + (let ((__tmp152988 + (let ((__tmp152989 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp152986 + (let ((__tmp152991 (let () (declare (not safe)) - (cons _$obj152128_ '()))) - (__tmp152985 + (cons _$obj152133_ '()))) + (__tmp152990 (let () (declare (not safe)) - (cons _inline-make-object152105_ '())))) + (cons _inline-make-object152110_ '())))) (declare (not safe)) - (cons __tmp152986 __tmp152985)))) + (cons __tmp152991 __tmp152990)))) (declare (not safe)) - (cons __tmp152984 '()))) - (__tmp152970 - (let ((__tmp152971 - (let ((__tmp152972 - (let ((__tmp152976 - (let ((__tmp152977 - (let ((__tmp152981 - (let ((__tmp152982 + (cons __tmp152989 '()))) + (__tmp152975 + (let ((__tmp152976 + (let ((__tmp152977 + (let ((__tmp152981 + (let ((__tmp152982 + (let ((__tmp152986 + (let ((__tmp152987 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (cons 'class-instance-init! '())))) (declare (not safe)) - (cons '%#ref __tmp152982))) - (__tmp152978 - (let ((__tmp152979 - (let ((__tmp152980 + (cons '%#ref __tmp152987))) + (__tmp152983 + (let ((__tmp152984 + (let ((__tmp152985 (let () (declare (not safe)) - (cons _$obj152128_ '())))) + (cons _$obj152133_ '())))) (declare (not safe)) - (cons '%#ref __tmp152980)))) + (cons '%#ref __tmp152985)))) (declare (not safe)) - (cons __tmp152979 _args152103_)))) + (cons __tmp152984 _args152108_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp152981 - __tmp152978)))) + (cons __tmp152986 + __tmp152983)))) (declare (not safe)) - (cons '%#call __tmp152977))) - (__tmp152973 - (let ((__tmp152974 - (let ((__tmp152975 + (cons '%#call __tmp152982))) + (__tmp152978 + (let ((__tmp152979 + (let ((__tmp152980 (let () (declare (not safe)) - (cons _$obj152128_ + (cons _$obj152133_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp152975)))) + __tmp152980)))) (declare (not safe)) - (cons __tmp152974 '())))) + (cons __tmp152979 '())))) (declare (not safe)) - (cons __tmp152976 __tmp152973)))) + (cons __tmp152981 __tmp152978)))) (declare (not safe)) - (cons '%#begin __tmp152972)))) + (cons '%#begin __tmp152977)))) (declare (not safe)) - (cons __tmp152971 '())))) + (cons __tmp152976 '())))) (declare (not safe)) - (cons __tmp152983 __tmp152970)))) + (cons __tmp152988 __tmp152975)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#let-values - __tmp152969)))) + __tmp152974)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp152968 - _stx152096_))))) - (let* ((_g152135152175_ + __tmp152973 + _stx152101_))))) + (let* ((_g152140152180_ (lambda () (if (let () (declare (not safe)) (gx#stx-null? - ___stx152666152667_)) - (___kont152670152671_) - (___kont152672152673_)))) - (___match152703152704_ - (lambda (_e152144152180_ - _hd152143152183_ - _tl152142152185_ - _e152147152188_ - _hd152146152191_ - _tl152145152193_ - _e152150152196_ - _hd152149152199_ - _tl152148152201_ - _e152153152204_ - _hd152152152207_ - _tl152151152209_) - (let ((_L152212_ _tl152151152209_) - (_L152213_ _hd152152152207_) - (_L152214_ _hd152149152199_)) + ___stx152671152672_)) + (___kont152675152676_) + (___kont152677152678_)))) + (___match152708152709_ + (lambda (_e152149152185_ + _hd152148152188_ + _tl152147152190_ + _e152152152193_ + _hd152151152196_ + _tl152150152198_ + _e152155152201_ + _hd152154152204_ + _tl152153152206_ + _e152158152209_ + _hd152157152212_ + _tl152156152214_) + (let ((_L152217_ _tl152156152214_) + (_L152218_ _hd152157152212_) + (_L152219_ _hd152154152204_)) (if (let () (declare (not safe)) (gx#stx-keyword? - _L152214_)) - (___kont152668152669_ - _L152212_ - _L152213_ - _L152214_) - (___kont152672152673_)))))) + _L152219_)) + (___kont152673152674_ + _L152217_ + _L152218_ + _L152219_) + (___kont152677152678_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx152666152667_)) - (let ((_e152144152180_ + (gx#stx-pair? ___stx152671152672_)) + (let ((_e152149152185_ (let () (declare (not safe)) (gx#stx-e - ___stx152666152667_)))) - (let ((_tl152142152185_ + ___stx152671152672_)))) + (let ((_tl152147152190_ (let () (declare (not safe)) - (##cdr _e152144152180_))) - (_hd152143152183_ + (##cdr _e152149152185_))) + (_hd152148152188_ (let () (declare (not safe)) - (##car _e152144152180_)))) + (##car _e152149152185_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd152143152183_)) - (let ((_e152147152188_ + _hd152148152188_)) + (let ((_e152152152193_ (let () (declare (not safe)) (gx#stx-e - _hd152143152183_)))) - (let ((_tl152145152193_ + _hd152148152188_)))) + (let ((_tl152150152198_ (let () (declare (not safe)) - (##cdr _e152147152188_))) - (_hd152146152191_ + (##cdr _e152152152193_))) + (_hd152151152196_ (let () (declare (not safe)) - (##car _e152147152188_)))) + (##car _e152152152193_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd152146152191_)) + _hd152151152196_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd152146152191_)) + _hd152151152196_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl152145152193_)) - (let ((_e152150152196_ + (gx#stx-pair? _tl152150152198_)) + (let ((_e152155152201_ (let () (declare (not safe)) - (gx#stx-e _tl152145152193_)))) - (let ((_tl152148152201_ + (gx#stx-e _tl152150152198_)))) + (let ((_tl152153152206_ (let () (declare (not safe)) - (##cdr _e152150152196_))) - (_hd152149152199_ + (##cdr _e152155152201_))) + (_hd152154152204_ (let () (declare (not safe)) - (##car _e152150152196_)))) + (##car _e152155152201_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl152148152201_)) + (gx#stx-null? _tl152153152206_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl152142152185_)) - (let ((_e152153152204_ + (gx#stx-pair? _tl152147152190_)) + (let ((_e152158152209_ (let () (declare (not safe)) - (gx#stx-e _tl152142152185_)))) - (let ((_tl152151152209_ + (gx#stx-e _tl152147152190_)))) + (let ((_tl152156152214_ (let () (declare (not safe)) - (##cdr _e152153152204_))) - (_hd152152152207_ + (##cdr _e152158152209_))) + (_hd152157152212_ (let () (declare (not safe)) - (##car _e152153152204_)))) - (___match152703152704_ - _e152144152180_ - _hd152143152183_ - _tl152142152185_ - _e152147152188_ - _hd152146152191_ - _tl152145152193_ - _e152150152196_ - _hd152149152199_ - _tl152148152201_ - _e152153152204_ - _hd152152152207_ - _tl152151152209_))) - (___kont152672152673_)) - (___kont152672152673_)))) - (___kont152672152673_)) - (___kont152672152673_)) - (___kont152672152673_)))) + (##car _e152158152209_)))) + (___match152708152709_ + _e152149152185_ + _hd152148152188_ + _tl152147152190_ + _e152152152193_ + _hd152151152196_ + _tl152150152198_ + _e152155152201_ + _hd152154152204_ + _tl152153152206_ + _e152158152209_ + _hd152157152212_ + _tl152156152214_))) + (___kont152677152678_)) + (___kont152677152678_)))) + (___kont152677152678_)) + (___kont152677152678_)) + (___kont152677152678_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont152672152673_)))) + (___kont152677152678_)))) (let () (declare (not safe)) - (_g152135152175_)))))))))))))))) + (_g152140152180_)))))))))))))))) (define gxc#!constructor::optimize-call::specialize - (lambda (__klass152589 __method-table152590) - (let ((__id152591 - (let ((__slot152592 + (lambda (__klass152594 __method-table152595) + (let ((__id152596 + (let ((__slot152597 (let () (declare (not safe)) - (class-slot-offset __klass152589 'id)))) - (if __slot152592 - __slot152592 + (class-slot-offset __klass152594 'id)))) + (if __slot152597 + __slot152597 (let () (declare (not safe)) (error '"Unknown slot" 'id)))))) - (lambda (_self152095_ _stx152096_ _args152097_) - (let* ((_klass152099_ - (let ((__tmp153109 + (lambda (_self152100_ _stx152101_ _args152102_) + (let* ((_klass152104_ + (let ((__tmp153114 (let () (declare (not safe)) (##unchecked-structure-ref - _self152095_ - __id152591 - __klass152589 + _self152100_ + __id152596 + __klass152594 '#f)))) (declare (not safe)) - (gxc#optimizer-resolve-class _stx152096_ __tmp153109))) - (_fields152101_ + (gxc#optimizer-resolve-class _stx152101_ __tmp153114))) + (_fields152106_ (length (##structure-ref - _klass152099_ + _klass152104_ '5 gxc#!class::t '#f))) - (_args152103_ (map gxc#compile-e _args152097_)) - (_inline-make-object152105_ - (let ((__tmp153110 - (let ((__tmp153116 - (let ((__tmp153117 + (_args152108_ (map gxc#compile-e _args152102_)) + (_inline-make-object152110_ + (let ((__tmp153115 + (let ((__tmp153121 + (let ((__tmp153122 (let () (declare (not safe)) (cons '##structure '())))) (declare (not safe)) - (cons '%#ref __tmp153117))) - (__tmp153111 - (let ((__tmp153113 - (let ((__tmp153114 - (let ((__tmp153115 + (cons '%#ref __tmp153122))) + (__tmp153116 + (let ((__tmp153118 + (let ((__tmp153119 + (let ((__tmp153120 (let () (declare (not safe)) (##unchecked-structure-ref - _self152095_ - __id152591 - __klass152589 + _self152100_ + __id152596 + __klass152594 '#f)))) (declare (not safe)) - (cons __tmp153115 '())))) + (cons __tmp153120 '())))) (declare (not safe)) - (cons '%#ref __tmp153114))) - (__tmp153112 + (cons '%#ref __tmp153119))) + (__tmp153117 (let () (declare (not safe)) (make-list__% - _fields152101_ + _fields152106_ '(%#quote #f))))) (declare (not safe)) - (cons __tmp153113 __tmp153112)))) + (cons __tmp153118 __tmp153117)))) (declare (not safe)) - (cons __tmp153116 __tmp153111)))) + (cons __tmp153121 __tmp153116)))) (declare (not safe)) - (cons '%#call __tmp153110)))) - (let ((_$e152108_ - (##structure-ref _klass152099_ '6 gxc#!class::t '#f))) - (if _$e152108_ - ((lambda (_ctor152111_) - (let ((_$obj152113_ - (let ((__tmp153217 (gensym '__obj))) + (cons '%#call __tmp153115)))) + (let ((_$e152113_ + (##structure-ref _klass152104_ '6 gxc#!class::t '#f))) + (if _$e152113_ + ((lambda (_ctor152116_) + (let ((_$obj152118_ + (let ((__tmp153222 (gensym '__obj))) (declare (not safe)) - (make-symbol__0 __tmp153217))) - (_ctor-impl152114_ + (make-symbol__0 __tmp153222))) + (_ctor-impl152119_ (let () (declare (not safe)) (gxc#!class-lookup-method - _klass152099_ - _ctor152111_)))) - (let ((__tmp153218 - (let ((__tmp153219 - (let ((__tmp153287 - (let ((__tmp153288 - (let ((__tmp153290 + _klass152104_ + _ctor152116_)))) + (let ((__tmp153223 + (let ((__tmp153224 + (let ((__tmp153292 + (let ((__tmp153293 + (let ((__tmp153295 (let () (declare (not safe)) - (cons _$obj152113_ + (cons _$obj152118_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) - (__tmp153289 + (__tmp153294 (let () (declare (not safe)) - (cons _inline-make-object152105_ '())))) + (cons _inline-make-object152110_ '())))) (declare (not safe)) - (cons __tmp153290 __tmp153289)))) + (cons __tmp153295 __tmp153294)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153288 '()))) - (__tmp153220 - (let ((__tmp153221 - (let ((__tmp153222 - (let ((__tmp153226 + (cons __tmp153293 '()))) + (__tmp153225 + (let ((__tmp153226 + (let ((__tmp153227 + (let ((__tmp153231 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (if _ctor-impl152114_ - (let ((__tmp153281 - (let ((__tmp153285 - (let ((__tmp153286 + (if _ctor-impl152119_ + (let ((__tmp153286 + (let ((__tmp153290 + (let ((__tmp153291 (let () (declare (not safe)) - (cons _ctor-impl152114_ + (cons _ctor-impl152119_ '())))) (declare (not safe)) - (cons '%#ref __tmp153286))) - (__tmp153282 - (let ((__tmp153283 - (let ((__tmp153284 + (cons '%#ref __tmp153291))) + (__tmp153287 + (let ((__tmp153288 + (let ((__tmp153289 (let () (declare (not safe)) - (cons _$obj152113_ + (cons _$obj152118_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons '%#ref __tmp153284)))) + (cons '%#ref __tmp153289)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153283 - _args152103_)))) + (cons __tmp153288 + _args152108_)))) (declare (not safe)) - (cons __tmp153285 __tmp153282)))) + (cons __tmp153290 __tmp153287)))) (declare (not safe)) - (cons '%#call __tmp153281)) - (let* ((_$ctor152116_ - (let ((__tmp153227 + (cons '%#call __tmp153286)) + (let* ((_$ctor152121_ + (let ((__tmp153232 (gensym '__constructor))) (declare (not safe)) - (make-symbol__0 __tmp153227))) - (__tmp153228 - (let ((__tmp153263 - (let ((__tmp153264 - (let ((__tmp153280 + (make-symbol__0 __tmp153232))) + (__tmp153233 + (let ((__tmp153268 + (let ((__tmp153269 + (let ((__tmp153285 (let () (declare (not safe)) - (cons _$ctor152116_ + (cons _$ctor152121_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) - (__tmp153265 - (let ((__tmp153266 - (let ((__tmp153267 - (let ((__tmp153278 - (let ((__tmp153279 + (__tmp153270 + (let ((__tmp153271 + (let ((__tmp153272 + (let ((__tmp153283 + (let ((__tmp153284 (let () (declare (not safe)) (cons 'direct-method-ref '())))) (declare (not safe)) - (cons '%#ref __tmp153279))) - (__tmp153268 - (let ((__tmp153275 - (let ((__tmp153276 - (let ((__tmp153277 + (cons '%#ref __tmp153284))) + (__tmp153273 + (let ((__tmp153280 + (let ((__tmp153281 + (let ((__tmp153282 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##unchecked-structure-ref - _self152095_ - __id152591 - __klass152589 + _self152100_ + __id152596 + __klass152594 '#f)))) (declare (not safe)) - (cons __tmp153277 '())))) + (cons __tmp153282 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#ref __tmp153276))) - (__tmp153269 - (let ((__tmp153273 - (let ((__tmp153274 + (cons '%#ref __tmp153281))) + (__tmp153274 + (let ((__tmp153278 + (let ((__tmp153279 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$obj152113_ '())))) + (cons _$obj152118_ '())))) (declare (not safe)) - (cons '%#ref __tmp153274))) - (__tmp153270 - (let ((__tmp153271 - (let ((__tmp153272 + (cons '%#ref __tmp153279))) + (__tmp153275 + (let ((__tmp153276 + (let ((__tmp153277 (let () (declare (not safe)) - (cons _ctor152111_ '())))) + (cons _ctor152116_ '())))) (declare (not safe)) - (cons '%#quote __tmp153272)))) + (cons '%#quote __tmp153277)))) (declare (not safe)) - (cons __tmp153271 '())))) + (cons __tmp153276 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153273 - __tmp153270)))) + (cons __tmp153278 + __tmp153275)))) (declare (not safe)) - (cons __tmp153275 __tmp153269)))) + (cons __tmp153280 __tmp153274)))) (declare (not safe)) - (cons __tmp153278 __tmp153268)))) + (cons __tmp153283 __tmp153273)))) (declare (not safe)) - (cons '%#call __tmp153267)))) + (cons '%#call __tmp153272)))) (declare (not safe)) - (cons __tmp153266 '())))) + (cons __tmp153271 '())))) (declare (not safe)) - (cons __tmp153280 __tmp153265)))) + (cons __tmp153285 __tmp153270)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153264 '()))) - (__tmp153229 - (let ((__tmp153230 - (let ((__tmp153231 - (let ((__tmp153261 + (cons __tmp153269 '()))) + (__tmp153234 + (let ((__tmp153235 + (let ((__tmp153236 + (let ((__tmp153266 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp153262 + (let ((__tmp153267 (let () (declare (not safe)) - (cons _$ctor152116_ '())))) + (cons _$ctor152121_ '())))) (declare (not safe)) - (cons '%#ref __tmp153262))) - (__tmp153232 - (let ((__tmp153254 - (let ((__tmp153255 - (let ((__tmp153259 - (let ((__tmp153260 + (cons '%#ref __tmp153267))) + (__tmp153237 + (let ((__tmp153259 + (let ((__tmp153260 + (let ((__tmp153264 + (let ((__tmp153265 (let () (declare (not safe)) - (cons _$ctor152116_ + (cons _$ctor152121_ '())))) (declare (not safe)) - (cons '%#ref __tmp153260))) - (__tmp153256 - (let ((__tmp153257 - (let ((__tmp153258 + (cons '%#ref __tmp153265))) + (__tmp153261 + (let ((__tmp153262 + (let ((__tmp153263 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$obj152113_ '())))) + (cons _$obj152118_ '())))) (declare (not safe)) - (cons '%#ref __tmp153258)))) + (cons '%#ref __tmp153263)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153257 - _args152103_)))) + (cons __tmp153262 + _args152108_)))) (declare (not safe)) - (cons __tmp153259 __tmp153256)))) + (cons __tmp153264 __tmp153261)))) (declare (not safe)) - (cons '%#call __tmp153255))) - (__tmp153233 - (let ((__tmp153234 - (let ((__tmp153235 - (let ((__tmp153252 - (let ((__tmp153253 + (cons '%#call __tmp153260))) + (__tmp153238 + (let ((__tmp153239 + (let ((__tmp153240 + (let ((__tmp153257 + (let ((__tmp153258 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons 'error '())))) (declare (not safe)) - (cons '%#ref __tmp153253))) - (__tmp153236 - (let ((__tmp153250 - (let ((__tmp153251 + (cons '%#ref __tmp153258))) + (__tmp153241 + (let ((__tmp153255 + (let ((__tmp153256 (let () (declare (not safe)) (cons '"missing constructor method implementation" '())))) (declare (not safe)) - (cons '%#quote __tmp153251))) - (__tmp153237 - (let ((__tmp153248 - (let ((__tmp153249 + (cons '%#quote __tmp153256))) + (__tmp153242 + (let ((__tmp153253 + (let ((__tmp153254 (let () (declare (not safe)) (cons 'class: '())))) (declare (not safe)) - (cons '%#quote __tmp153249))) - (__tmp153238 - (let ((__tmp153245 - (let ((__tmp153246 - (let ((__tmp153247 + (cons '%#quote __tmp153254))) + (__tmp153243 + (let ((__tmp153250 + (let ((__tmp153251 + (let ((__tmp153252 (let () (declare (not safe)) (##unchecked-structure-ref - _self152095_ - __id152591 - __klass152589 + _self152100_ + __id152596 + __klass152594 '#f)))) (declare (not safe)) - (cons __tmp153247 '())))) + (cons __tmp153252 '())))) (declare (not safe)) - (cons '%#ref __tmp153246))) - (__tmp153239 - (let ((__tmp153243 - (let ((__tmp153244 + (cons '%#ref __tmp153251))) + (__tmp153244 + (let ((__tmp153248 + (let ((__tmp153249 (let () (declare (not safe)) (cons 'method: '())))) (declare (not safe)) - (cons '%#quote __tmp153244))) - (__tmp153240 - (let ((__tmp153241 - (let ((__tmp153242 + (cons '%#quote __tmp153249))) + (__tmp153245 + (let ((__tmp153246 + (let ((__tmp153247 (let () (declare (not safe)) - (cons _ctor152111_ + (cons _ctor152116_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#quote - __tmp153242)))) + __tmp153247)))) (declare (not safe)) - (cons __tmp153241 '())))) + (cons __tmp153246 '())))) (declare (not safe)) - (cons __tmp153243 __tmp153240)))) + (cons __tmp153248 __tmp153245)))) (declare (not safe)) - (cons __tmp153245 __tmp153239)))) + (cons __tmp153250 __tmp153244)))) (declare (not safe)) - (cons __tmp153248 __tmp153238)))) + (cons __tmp153253 __tmp153243)))) (declare (not safe)) - (cons __tmp153250 __tmp153237)))) + (cons __tmp153255 __tmp153242)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153252 - __tmp153236)))) + (cons __tmp153257 + __tmp153241)))) (declare (not safe)) - (cons '%#call __tmp153235)))) + (cons '%#call __tmp153240)))) (declare (not safe)) - (cons __tmp153234 '())))) + (cons __tmp153239 '())))) (declare (not safe)) - (cons __tmp153254 __tmp153233)))) + (cons __tmp153259 __tmp153238)))) (declare (not safe)) - (cons __tmp153261 __tmp153232)))) + (cons __tmp153266 __tmp153237)))) (declare (not safe)) - (cons '%#if __tmp153231)))) + (cons '%#if __tmp153236)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153230 '())))) + (cons __tmp153235 '())))) (declare (not safe)) - (cons __tmp153263 __tmp153229)))) + (cons __tmp153268 __tmp153234)))) (declare (not safe)) - (cons '%#let-values __tmp153228)))) - (__tmp153223 - (let ((__tmp153224 - (let ((__tmp153225 + (cons '%#let-values __tmp153233)))) + (__tmp153228 + (let ((__tmp153229 + (let ((__tmp153230 (let () (declare (not safe)) - (cons _$obj152113_ '())))) + (cons _$obj152118_ '())))) (declare (not safe)) - (cons '%#ref __tmp153225)))) + (cons '%#ref __tmp153230)))) (declare (not safe)) - (cons __tmp153224 '())))) + (cons __tmp153229 '())))) (declare (not safe)) - (cons __tmp153226 __tmp153223)))) + (cons __tmp153231 __tmp153228)))) (declare (not safe)) - (cons '%#begin __tmp153222)))) + (cons '%#begin __tmp153227)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153221 '())))) + (cons __tmp153226 '())))) (declare (not safe)) - (cons __tmp153287 __tmp153220)))) + (cons __tmp153292 __tmp153225)))) (declare (not safe)) - (cons '%#let-values __tmp153219)))) + (cons '%#let-values __tmp153224)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp153218 _stx152096_)))) - _$e152108_) - (let ((_$e152118_ + (gxc#xform-wrap-source __tmp153223 _stx152101_)))) + _$e152113_) + (let ((_$e152123_ (##structure-ref - _klass152099_ + _klass152104_ '9 gxc#!class::t '#f))) - (if _$e152118_ - ((lambda (_metaclass152121_) - (let* ((_$obj152123_ - (let ((__tmp153179 (gensym '__obj))) + (if _$e152123_ + ((lambda (_metaclass152126_) + (let* ((_$obj152128_ + (let ((__tmp153184 (gensym '__obj))) (declare (not safe)) - (make-symbol__0 __tmp153179))) - (_metakons152125_ - (let ((__tmp153180 + (make-symbol__0 __tmp153184))) + (_metakons152130_ + (let ((__tmp153185 (let () (declare (not safe)) (gxc#optimizer-resolve-class - _stx152096_ - _metaclass152121_)))) + _stx152101_ + _metaclass152126_)))) (declare (not safe)) (gxc#!class-lookup-method - __tmp153180 + __tmp153185 'instance-init!)))) - (let ((__tmp153181 - (let ((__tmp153182 - (let ((__tmp153213 - (let ((__tmp153214 - (let ((__tmp153216 + (let ((__tmp153186 + (let ((__tmp153187 + (let ((__tmp153218 + (let ((__tmp153219 + (let ((__tmp153221 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _$obj152123_ '()))) - (__tmp153215 + (cons _$obj152128_ '()))) + (__tmp153220 (let () (declare (not safe)) - (cons _inline-make-object152105_ '())))) + (cons _inline-make-object152110_ '())))) (declare (not safe)) - (cons __tmp153216 __tmp153215)))) + (cons __tmp153221 __tmp153220)))) (declare (not safe)) - (cons __tmp153214 '()))) + (cons __tmp153219 '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp153183 - (let ((__tmp153184 - (let ((__tmp153185 + (__tmp153188 + (let ((__tmp153189 + (let ((__tmp153190 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp153189 - (if _metakons152125_ - (let ((__tmp153203 - (let ((__tmp153211 - (let ((__tmp153212 + (let ((__tmp153194 + (if _metakons152130_ + (let ((__tmp153208 + (let ((__tmp153216 + (let ((__tmp153217 (let () (declare (not safe)) - (cons _metakons152125_ + (cons _metakons152130_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp153212))) - (__tmp153204 - (let ((__tmp153208 - (let ((__tmp153209 + __tmp153217))) + (__tmp153209 + (let ((__tmp153213 + (let ((__tmp153214 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp153210 + (let ((__tmp153215 (let () (declare (not safe)) (##unchecked-structure-ref - _self152095_ - __id152591 - __klass152589 + _self152100_ + __id152596 + __klass152594 '#f)))) (declare (not safe)) - (cons __tmp153210 '())))) + (cons __tmp153215 '())))) (declare (not safe)) - (cons '%#ref __tmp153209))) - (__tmp153205 - (let ((__tmp153206 - (let ((__tmp153207 + (cons '%#ref __tmp153214))) + (__tmp153210 + (let ((__tmp153211 + (let ((__tmp153212 (let () (declare (not safe)) - (cons _$obj152123_ '())))) + (cons _$obj152128_ '())))) (declare (not safe)) - (cons '%#ref __tmp153207)))) + (cons '%#ref __tmp153212)))) (declare (not safe)) - (cons __tmp153206 _args152103_)))) + (cons __tmp153211 _args152108_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153208 - __tmp153205)))) + (cons __tmp153213 + __tmp153210)))) (declare (not safe)) - (cons __tmp153211 __tmp153204)))) + (cons __tmp153216 __tmp153209)))) (declare (not safe)) - (cons '%#call __tmp153203)) - (let ((__tmp153190 - (let ((__tmp153201 - (let ((__tmp153202 + (cons '%#call __tmp153208)) + (let ((__tmp153195 + (let ((__tmp153206 + (let ((__tmp153207 (let () (declare (not safe)) @@ -2029,526 +2029,526 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp153202))) - (__tmp153191 - (let ((__tmp153198 - (let ((__tmp153199 + __tmp153207))) + (__tmp153196 + (let ((__tmp153203 + (let ((__tmp153204 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp153200 + (let ((__tmp153205 (let () (declare (not safe)) (##unchecked-structure-ref - _self152095_ - __id152591 - __klass152589 + _self152100_ + __id152596 + __klass152594 '#f)))) (declare (not safe)) - (cons __tmp153200 '())))) + (cons __tmp153205 '())))) (declare (not safe)) - (cons '%#ref __tmp153199))) - (__tmp153192 - (let ((__tmp153196 - (let ((__tmp153197 + (cons '%#ref __tmp153204))) + (__tmp153197 + (let ((__tmp153201 + (let ((__tmp153202 (let () (declare (not safe)) (cons 'instance-init! '())))) (declare (not safe)) - (cons '%#quote __tmp153197))) - (__tmp153193 - (let ((__tmp153194 - (let ((__tmp153195 + (cons '%#quote __tmp153202))) + (__tmp153198 + (let ((__tmp153199 + (let ((__tmp153200 (let () (declare (not safe)) - (cons _$obj152123_ '())))) + (cons _$obj152128_ '())))) (declare (not safe)) - (cons '%#ref __tmp153195)))) + (cons '%#ref __tmp153200)))) (declare (not safe)) - (cons __tmp153194 _args152103_)))) + (cons __tmp153199 _args152108_)))) (declare (not safe)) - (cons __tmp153196 __tmp153193)))) + (cons __tmp153201 __tmp153198)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153198 - __tmp153192)))) + (cons __tmp153203 + __tmp153197)))) (declare (not safe)) - (cons __tmp153201 __tmp153191)))) + (cons __tmp153206 __tmp153196)))) (declare (not safe)) - (cons '%#call __tmp153190)))) - (__tmp153186 - (let ((__tmp153187 - (let ((__tmp153188 + (cons '%#call __tmp153195)))) + (__tmp153191 + (let ((__tmp153192 + (let ((__tmp153193 (let () (declare (not safe)) - (cons _$obj152123_ '())))) + (cons _$obj152128_ '())))) (declare (not safe)) - (cons '%#ref __tmp153188)))) + (cons '%#ref __tmp153193)))) (declare (not safe)) - (cons __tmp153187 '())))) + (cons __tmp153192 '())))) (declare (not safe)) - (cons __tmp153189 __tmp153186)))) + (cons __tmp153194 __tmp153191)))) (declare (not safe)) - (cons '%#begin __tmp153185)))) + (cons '%#begin __tmp153190)))) (declare (not safe)) - (cons __tmp153184 '())))) + (cons __tmp153189 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153213 - __tmp153183)))) + (cons __tmp153218 + __tmp153188)))) (declare (not safe)) - (cons '%#let-values __tmp153182)))) + (cons '%#let-values __tmp153187)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp153181 - _stx152096_)))) - _$e152118_) + __tmp153186 + _stx152101_)))) + _$e152123_) (if (##structure-ref - _klass152099_ + _klass152104_ '7 gxc#!class::t '#f) - (if (fx= (length _args152103_) _fields152101_) - (let ((__tmp153171 - (let ((__tmp153172 - (let ((__tmp153177 - (let ((__tmp153178 + (if (fx= (length _args152108_) _fields152106_) + (let ((__tmp153176 + (let ((__tmp153177 + (let ((__tmp153182 + (let ((__tmp153183 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons '##structure '())))) (declare (not safe)) - (cons '%#ref __tmp153178))) - (__tmp153173 - (let ((__tmp153174 - (let ((__tmp153175 - (let ((__tmp153176 + (cons '%#ref __tmp153183))) + (__tmp153178 + (let ((__tmp153179 + (let ((__tmp153180 + (let ((__tmp153181 (let () (declare (not safe)) (##unchecked-structure-ref - _self152095_ - __id152591 - __klass152589 + _self152100_ + __id152596 + __klass152594 '#f)))) (declare (not safe)) - (cons __tmp153176 '())))) + (cons __tmp153181 '())))) (declare (not safe)) - (cons '%#ref __tmp153175)))) + (cons '%#ref __tmp153180)))) (declare (not safe)) - (cons __tmp153174 _args152103_)))) + (cons __tmp153179 _args152108_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153177 - __tmp153173)))) + (cons __tmp153182 + __tmp153178)))) (declare (not safe)) - (cons '%#call __tmp153172)))) + (cons '%#call __tmp153177)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp153171 - _stx152096_)) - (let ((__tmp153170 + __tmp153176 + _stx152101_)) + (let ((__tmp153175 (let () (declare (not safe)) (##unchecked-structure-ref - _self152095_ - __id152591 - __klass152589 + _self152100_ + __id152596 + __klass152594 '#f))) - (__tmp153169 + (__tmp153174 (length (##structure-ref - _klass152099_ + _klass152104_ '5 gxc#!class::t '#f)))) (declare (not safe)) (gxc#raise-compile-error '"illegal struct constructor application; arity mismatch" - _stx152096_ - __tmp153170 - __tmp153169))) - (let ((_$obj152128_ - (let ((__tmp153118 (gensym '__obj))) + _stx152101_ + __tmp153175 + __tmp153174))) + (let ((_$obj152133_ + (let ((__tmp153123 (gensym '__obj))) (declare (not safe)) - (make-symbol__0 __tmp153118)))) - (let _lp152130_ ((_rest152132_ _args152103_) - (_initializers152133_ '())) - (let* ((___stx152708152709_ _rest152132_) - (_g152137152158_ + (make-symbol__0 __tmp153123)))) + (let _lp152135_ ((_rest152137_ _args152108_) + (_initializers152138_ '())) + (let* ((___stx152713152714_ _rest152137_) + (_g152142152163_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx152708152709_))))) - (let ((___kont152710152711_ - (lambda (_L152212_ - _L152213_ - _L152214_) - (let* ((_slot152245_ + ___stx152713152714_))))) + (let ((___kont152715152716_ + (lambda (_L152217_ + _L152218_ + _L152219_) + (let* ((_slot152250_ (keyword->symbol (let () (declare (not safe)) - (gx#stx-e _L152214_)))) - (_off152247_ + (gx#stx-e _L152219_)))) + (_off152252_ (let () (declare (not safe)) (gxc#!class-slot->field-offset - _klass152099_ - _slot152245_)))) - (if _off152247_ - (let ((__tmp153120 - (let ((__tmp153121 + _klass152104_ + _slot152250_)))) + (if _off152252_ + (let ((__tmp153125 + (let ((__tmp153126 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _off152247_ _L152213_)))) + (cons _off152252_ _L152218_)))) (declare (not safe)) - (cons __tmp153121 _initializers152133_)))) + (cons __tmp153126 _initializers152138_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp152130_ - _L152212_ - __tmp153120)) - (let ((__tmp153119 + (_lp152135_ + _L152217_ + __tmp153125)) + (let ((__tmp153124 (let () (declare (not safe)) (##unchecked-structure-ref - _self152095_ - __id152591 - __klass152589 + _self152100_ + __id152596 + __klass152594 '#f)))) (declare (not safe)) (gxc#raise-compile-error '"unknown slot" - _stx152096_ - __tmp153119 - _slot152245_)))))) - (___kont152712152713_ + _stx152101_ + __tmp153124 + _slot152250_)))))) + (___kont152717152718_ (lambda () - (let ((__tmp153122 - (let ((__tmp153123 - (let ((__tmp153146 + (let ((__tmp153127 + (let ((__tmp153128 + (let ((__tmp153151 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp153147 - (let ((__tmp153149 + (let ((__tmp153152 + (let ((__tmp153154 (let () (declare (not safe)) - (cons _$obj152128_ '()))) - (__tmp153148 + (cons _$obj152133_ '()))) + (__tmp153153 (let () (declare (not safe)) - (cons _inline-make-object152105_ + (cons _inline-make-object152110_ '())))) (declare (not safe)) - (cons __tmp153149 __tmp153148)))) + (cons __tmp153154 __tmp153153)))) (declare (not safe)) - (cons __tmp153147 '()))) - (__tmp153124 - (let ((__tmp153125 - (let ((__tmp153126 - (let ((__tmp153143 - (let ((__tmp153144 - (let ((__tmp153145 + (cons __tmp153152 '()))) + (__tmp153129 + (let ((__tmp153130 + (let ((__tmp153131 + (let ((__tmp153148 + (let ((__tmp153149 + (let ((__tmp153150 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$obj152128_ '())))) + (cons _$obj152133_ '())))) (declare (not safe)) - (cons '%#ref __tmp153145)))) + (cons '%#ref __tmp153150)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153144 '()))) - (__tmp153127 - (let ((__tmp153128 - (lambda (_i152172_ - _r152173_) - (let ((__tmp153129 - (let ((__tmp153130 + (cons __tmp153149 '()))) + (__tmp153132 + (let ((__tmp153133 + (lambda (_i152177_ + _r152178_) + (let ((__tmp153134 + (let ((__tmp153135 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp153140 - (let ((__tmp153141 - (let ((__tmp153142 + (let ((__tmp153145 + (let ((__tmp153146 + (let ((__tmp153147 (let () (declare (not safe)) (##unchecked-structure-ref - _self152095_ - __id152591 - __klass152589 + _self152100_ + __id152596 + __klass152594 '#f)))) (declare (not safe)) - (cons __tmp153142 '())))) + (cons __tmp153147 '())))) (declare (not safe)) - (cons '%#ref __tmp153141))) - (__tmp153131 - (let ((__tmp153137 - (let ((__tmp153138 - (let ((__tmp153139 - (car _i152172_))) + (cons '%#ref __tmp153146))) + (__tmp153136 + (let ((__tmp153142 + (let ((__tmp153143 + (let ((__tmp153144 + (car _i152177_))) (declare (not safe)) - (cons __tmp153139 '())))) + (cons __tmp153144 '())))) (declare (not safe)) - (cons '%#quote __tmp153138))) - (__tmp153132 - (let ((__tmp153135 - (let ((__tmp153136 + (cons '%#quote __tmp153143))) + (__tmp153137 + (let ((__tmp153140 + (let ((__tmp153141 (let () (declare (not safe)) - (cons _$obj152128_ + (cons _$obj152133_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp153136))) - (__tmp153133 - (let ((__tmp153134 - (cdr _i152172_))) + __tmp153141))) + (__tmp153138 + (let ((__tmp153139 + (cdr _i152177_))) (declare (not safe)) - (cons __tmp153134 '())))) + (cons __tmp153139 '())))) (declare (not safe)) - (cons __tmp153135 __tmp153133)))) + (cons __tmp153140 __tmp153138)))) (declare (not safe)) - (cons __tmp153137 __tmp153132)))) + (cons __tmp153142 __tmp153137)))) (declare (not safe)) - (cons __tmp153140 __tmp153131)))) + (cons __tmp153145 __tmp153136)))) (declare (not safe)) - (cons '%#struct-unchecked-set! __tmp153130)))) + (cons '%#struct-unchecked-set! __tmp153135)))) (declare (not safe)) - (cons __tmp153129 _r152173_))))) + (cons __tmp153134 _r152178_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldl1 __tmp153128 + (foldl1 __tmp153133 '() - _initializers152133_)))) + _initializers152138_)))) (declare (not safe)) (foldr1 cons - __tmp153143 - __tmp153127)))) + __tmp153148 + __tmp153132)))) (declare (not safe)) - (cons '%#begin __tmp153126)))) + (cons '%#begin __tmp153131)))) (declare (not safe)) - (cons __tmp153125 '())))) + (cons __tmp153130 '())))) (declare (not safe)) - (cons __tmp153146 __tmp153124)))) + (cons __tmp153151 __tmp153129)))) (declare (not safe)) - (cons '%#let-values __tmp153123)))) + (cons '%#let-values __tmp153128)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp153122 - _stx152096_)))) - (___kont152714152715_ + __tmp153127 + _stx152101_)))) + (___kont152719152720_ (lambda () - (let ((__tmp153150 - (let ((__tmp153151 - (let ((__tmp153165 + (let ((__tmp153155 + (let ((__tmp153156 + (let ((__tmp153170 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp153166 - (let ((__tmp153168 + (let ((__tmp153171 + (let ((__tmp153173 (let () (declare (not safe)) - (cons _$obj152128_ '()))) - (__tmp153167 + (cons _$obj152133_ '()))) + (__tmp153172 (let () (declare (not safe)) - (cons _inline-make-object152105_ + (cons _inline-make-object152110_ '())))) (declare (not safe)) - (cons __tmp153168 __tmp153167)))) + (cons __tmp153173 __tmp153172)))) (declare (not safe)) - (cons __tmp153166 '()))) - (__tmp153152 - (let ((__tmp153153 - (let ((__tmp153154 - (let ((__tmp153158 - (let ((__tmp153159 - (let ((__tmp153163 - (let ((__tmp153164 + (cons __tmp153171 '()))) + (__tmp153157 + (let ((__tmp153158 + (let ((__tmp153159 + (let ((__tmp153163 + (let ((__tmp153164 + (let ((__tmp153168 + (let ((__tmp153169 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons 'class-instance-init! '())))) (declare (not safe)) - (cons '%#ref __tmp153164))) - (__tmp153160 - (let ((__tmp153161 - (let ((__tmp153162 + (cons '%#ref __tmp153169))) + (__tmp153165 + (let ((__tmp153166 + (let ((__tmp153167 (let () (declare (not safe)) - (cons _$obj152128_ '())))) + (cons _$obj152133_ '())))) (declare (not safe)) - (cons '%#ref __tmp153162)))) + (cons '%#ref __tmp153167)))) (declare (not safe)) - (cons __tmp153161 _args152103_)))) + (cons __tmp153166 _args152108_)))) (declare (not safe)) - (cons __tmp153163 __tmp153160)))) + (cons __tmp153168 __tmp153165)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#call __tmp153159))) - (__tmp153155 - (let ((__tmp153156 - (let ((__tmp153157 + (cons '%#call __tmp153164))) + (__tmp153160 + (let ((__tmp153161 + (let ((__tmp153162 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$obj152128_ '())))) + (cons _$obj152133_ '())))) (declare (not safe)) - (cons '%#ref __tmp153157)))) + (cons '%#ref __tmp153162)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153156 '())))) + (cons __tmp153161 '())))) (declare (not safe)) - (cons __tmp153158 __tmp153155)))) + (cons __tmp153163 __tmp153160)))) (declare (not safe)) - (cons '%#begin __tmp153154)))) + (cons '%#begin __tmp153159)))) (declare (not safe)) - (cons __tmp153153 '())))) + (cons __tmp153158 '())))) (declare (not safe)) - (cons __tmp153165 __tmp153152)))) + (cons __tmp153170 __tmp153157)))) (declare (not safe)) - (cons '%#let-values __tmp153151)))) + (cons '%#let-values __tmp153156)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp153150 - _stx152096_))))) - (let* ((_g152135152175_ + __tmp153155 + _stx152101_))))) + (let* ((_g152140152180_ (lambda () (if (let () (declare (not safe)) (gx#stx-null? - ___stx152708152709_)) - (___kont152712152713_) - (___kont152714152715_)))) - (___match152745152746_ - (lambda (_e152144152180_ - _hd152143152183_ - _tl152142152185_ - _e152147152188_ - _hd152146152191_ - _tl152145152193_ - _e152150152196_ - _hd152149152199_ - _tl152148152201_ - _e152153152204_ - _hd152152152207_ - _tl152151152209_) - (let ((_L152212_ - _tl152151152209_) - (_L152213_ - _hd152152152207_) - (_L152214_ - _hd152149152199_)) + ___stx152713152714_)) + (___kont152717152718_) + (___kont152719152720_)))) + (___match152750152751_ + (lambda (_e152149152185_ + _hd152148152188_ + _tl152147152190_ + _e152152152193_ + _hd152151152196_ + _tl152150152198_ + _e152155152201_ + _hd152154152204_ + _tl152153152206_ + _e152158152209_ + _hd152157152212_ + _tl152156152214_) + (let ((_L152217_ + _tl152156152214_) + (_L152218_ + _hd152157152212_) + (_L152219_ + _hd152154152204_)) (if (let () (declare (not safe)) (gx#stx-keyword? - _L152214_)) - (___kont152710152711_ - _L152212_ - _L152213_ - _L152214_) - (___kont152714152715_)))))) + _L152219_)) + (___kont152715152716_ + _L152217_ + _L152218_ + _L152219_) + (___kont152719152720_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx152708152709_)) - (let ((_e152144152180_ + ___stx152713152714_)) + (let ((_e152149152185_ (let () (declare (not safe)) (gx#stx-e - ___stx152708152709_)))) - (let ((_tl152142152185_ + ___stx152713152714_)))) + (let ((_tl152147152190_ (let () (declare (not safe)) - (##cdr _e152144152180_))) - (_hd152143152183_ + (##cdr _e152149152185_))) + (_hd152148152188_ (let () (declare (not safe)) - (##car _e152144152180_)))) + (##car _e152149152185_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd152143152183_)) - (let ((_e152147152188_ + _hd152148152188_)) + (let ((_e152152152193_ (let () (declare (not safe)) (gx#stx-e - _hd152143152183_)))) - (let ((_tl152145152193_ + _hd152148152188_)))) + (let ((_tl152150152198_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e152147152188_))) - (_hd152146152191_ - (let () (declare (not safe)) (##car _e152147152188_)))) + (##cdr _e152152152193_))) + (_hd152151152196_ + (let () (declare (not safe)) (##car _e152152152193_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd152146152191_)) + (gx#identifier? _hd152151152196_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd152146152191_)) + (gx#stx-eq? '%#quote _hd152151152196_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl152145152193_)) - (let ((_e152150152196_ + (gx#stx-pair? _tl152150152198_)) + (let ((_e152155152201_ (let () (declare (not safe)) - (gx#stx-e _tl152145152193_)))) - (let ((_tl152148152201_ + (gx#stx-e _tl152150152198_)))) + (let ((_tl152153152206_ (let () (declare (not safe)) - (##cdr _e152150152196_))) - (_hd152149152199_ + (##cdr _e152155152201_))) + (_hd152154152204_ (let () (declare (not safe)) - (##car _e152150152196_)))) + (##car _e152155152201_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl152148152201_)) + (gx#stx-null? _tl152153152206_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl152142152185_)) - (let ((_e152153152204_ + (gx#stx-pair? _tl152147152190_)) + (let ((_e152158152209_ (let () (declare (not safe)) - (gx#stx-e _tl152142152185_)))) - (let ((_tl152151152209_ + (gx#stx-e _tl152147152190_)))) + (let ((_tl152156152214_ (let () (declare (not safe)) - (##cdr _e152153152204_))) - (_hd152152152207_ + (##cdr _e152158152209_))) + (_hd152157152212_ (let () (declare (not safe)) - (##car _e152153152204_)))) - (___match152745152746_ - _e152144152180_ - _hd152143152183_ - _tl152142152185_ - _e152147152188_ - _hd152146152191_ - _tl152145152193_ - _e152150152196_ - _hd152149152199_ - _tl152148152201_ - _e152153152204_ - _hd152152152207_ - _tl152151152209_))) - (___kont152714152715_)) - (___kont152714152715_)))) - (___kont152714152715_)) - (___kont152714152715_)) - (___kont152714152715_)))) + (##car _e152158152209_)))) + (___match152750152751_ + _e152149152185_ + _hd152148152188_ + _tl152147152190_ + _e152152152193_ + _hd152151152196_ + _tl152150152198_ + _e152155152201_ + _hd152154152204_ + _tl152153152206_ + _e152158152209_ + _hd152157152212_ + _tl152156152214_))) + (___kont152719152720_)) + (___kont152719152720_)))) + (___kont152719152720_)) + (___kont152719152720_)) + (___kont152719152720_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont152714152715_)))) + (___kont152719152720_)))) (let () (declare (not safe)) - (_g152135152175_)))))))))))))))))) + (_g152140152180_)))))))))))))))))) (let () (declare (not safe)) (bind-specializer! @@ -2562,954 +2562,954 @@ gxc#!constructor::optimize-call '#f)) (define gxc#!accessor::optimize-call - (lambda (_self151918_ _stx151919_ _args151920_) - (let* ((_g151922151932_ - (lambda (_g151923151929_) + (lambda (_self151923_ _stx151924_ _args151925_) + (let* ((_g151927151937_ + (lambda (_g151928151934_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g151923151929_)))) - (_g151921151970_ - (lambda (_g151923151935_) + _g151928151934_)))) + (_g151926151975_ + (lambda (_g151928151940_) (if (let () (declare (not safe)) - (gx#stx-pair? _g151923151935_)) - (let ((_e151927151937_ + (gx#stx-pair? _g151928151940_)) + (let ((_e151932151942_ (let () (declare (not safe)) - (gx#stx-e _g151923151935_)))) - (let ((_hd151926151940_ + (gx#stx-e _g151928151940_)))) + (let ((_hd151931151945_ (let () (declare (not safe)) - (##car _e151927151937_))) - (_tl151925151942_ + (##car _e151932151942_))) + (_tl151930151947_ (let () (declare (not safe)) - (##cdr _e151927151937_)))) + (##cdr _e151932151942_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl151925151942_)) - ((lambda (_L151945_) - (let* ((_klass151956_ - (let ((__tmp153291 + (gx#stx-null? _tl151930151947_)) + ((lambda (_L151950_) + (let* ((_klass151961_ + (let ((__tmp153296 (##structure-ref - _self151918_ + _self151923_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _stx151919_ - __tmp153291))) - (_field151958_ - (let ((__tmp153292 + _stx151924_ + __tmp153296))) + (_field151963_ + (let ((__tmp153297 (##structure-ref - _self151918_ + _self151923_ '2 gxc#!accessor::t '#f))) (declare (not safe)) (gxc#!class-slot->field-offset - _klass151956_ - __tmp153292))) - (_object151960_ + _klass151961_ + __tmp153297))) + (_object151965_ (let () (declare (not safe)) - (gxc#compile-e__0 _L151945_)))) + (gxc#compile-e__0 _L151950_)))) (if (##structure-ref - _klass151956_ + _klass151961_ '8 gxc#!class::t '#f) - (let ((__tmp153369 - (let ((__tmp153378 + (let ((__tmp153374 + (let ((__tmp153383 (if (##structure-ref - _self151918_ + _self151923_ '3 gxc#!accessor::t '#f) '%#struct-direct-ref '%#struct-unchecked-ref)) - (__tmp153370 - (let ((__tmp153375 - (let ((__tmp153376 + (__tmp153375 + (let ((__tmp153380 + (let ((__tmp153381 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp153377 + (let ((__tmp153382 (##structure-ref - _self151918_ + _self151923_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp153377 '())))) + (cons __tmp153382 '())))) (declare (not safe)) - (cons '%#ref __tmp153376))) - (__tmp153371 - (let ((__tmp153373 - (let ((__tmp153374 + (cons '%#ref __tmp153381))) + (__tmp153376 + (let ((__tmp153378 + (let ((__tmp153379 (let () (declare (not safe)) - (cons _field151958_ '())))) + (cons _field151963_ '())))) (declare (not safe)) - (cons '%#quote __tmp153374))) - (__tmp153372 + (cons '%#quote __tmp153379))) + (__tmp153377 (let () (declare (not safe)) - (cons _object151960_ '())))) + (cons _object151965_ '())))) (declare (not safe)) - (cons __tmp153373 __tmp153372)))) + (cons __tmp153378 __tmp153377)))) (declare (not safe)) - (cons __tmp153375 __tmp153371)))) + (cons __tmp153380 __tmp153376)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153378 - __tmp153370)))) + (cons __tmp153383 + __tmp153375)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp153369 - _stx151919_)) + __tmp153374 + _stx151924_)) (if (##structure-ref - _klass151956_ + _klass151961_ '7 gxc#!class::t '#f) - (let ((__tmp153359 - (let ((__tmp153368 + (let ((__tmp153364 + (let ((__tmp153373 (if (##structure-ref - _self151918_ + _self151923_ '3 gxc#!accessor::t '#f) '%#struct-ref '%#struct-unchecked-ref)) - (__tmp153360 - (let ((__tmp153365 - (let ((__tmp153366 + (__tmp153365 + (let ((__tmp153370 + (let ((__tmp153371 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp153367 + (let ((__tmp153372 (##structure-ref - _self151918_ + _self151923_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp153367 '())))) + (cons __tmp153372 '())))) (declare (not safe)) - (cons '%#ref __tmp153366))) - (__tmp153361 - (let ((__tmp153363 - (let ((__tmp153364 + (cons '%#ref __tmp153371))) + (__tmp153366 + (let ((__tmp153368 + (let ((__tmp153369 (let () (declare (not safe)) - (cons _field151958_ '())))) + (cons _field151963_ '())))) (declare (not safe)) - (cons '%#quote __tmp153364))) - (__tmp153362 + (cons '%#quote __tmp153369))) + (__tmp153367 (let () (declare (not safe)) - (cons _object151960_ '())))) + (cons _object151965_ '())))) (declare (not safe)) - (cons __tmp153363 __tmp153362)))) + (cons __tmp153368 __tmp153367)))) (declare (not safe)) - (cons __tmp153365 __tmp153361)))) + (cons __tmp153370 __tmp153366)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153368 - __tmp153360)))) + (cons __tmp153373 + __tmp153365)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp153359 - _stx151919_)) - (let ((_$e151963_ - (let ((__tmp153293 + __tmp153364 + _stx151924_)) + (let ((_$e151968_ + (let ((__tmp153298 (##structure-ref - _self151918_ + _self151923_ '2 gxc#!accessor::t '#f))) (declare (not safe)) (gxc#!class-slot-find-struct - _klass151956_ - __tmp153293)))) - (if _$e151963_ - ((lambda (_klass151966_) - (let ((__tmp153349 - (let ((__tmp153358 + _klass151961_ + __tmp153298)))) + (if _$e151968_ + ((lambda (_klass151971_) + (let ((__tmp153354 + (let ((__tmp153363 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (if (##structure-ref - _self151918_ + _self151923_ '3 gxc#!accessor::t '#f) '%#struct-ref '%#struct-unchecked-ref)) - (__tmp153350 - (let ((__tmp153355 - (let ((__tmp153356 - (let ((__tmp153357 + (__tmp153355 + (let ((__tmp153360 + (let ((__tmp153361 + (let ((__tmp153362 (##structure-ref - _self151918_ + _self151923_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp153357 '())))) + (cons __tmp153362 '())))) (declare (not safe)) - (cons '%#ref __tmp153356))) - (__tmp153351 - (let ((__tmp153353 - (let ((__tmp153354 + (cons '%#ref __tmp153361))) + (__tmp153356 + (let ((__tmp153358 + (let ((__tmp153359 (let () (declare (not safe)) - (cons _field151958_ '())))) + (cons _field151963_ '())))) (declare (not safe)) - (cons '%#quote __tmp153354))) - (__tmp153352 + (cons '%#quote __tmp153359))) + (__tmp153357 (let () (declare (not safe)) - (cons _object151960_ '())))) + (cons _object151965_ '())))) (declare (not safe)) - (cons __tmp153353 __tmp153352)))) + (cons __tmp153358 __tmp153357)))) (declare (not safe)) - (cons __tmp153355 __tmp153351)))) + (cons __tmp153360 __tmp153356)))) (declare (not safe)) - (cons __tmp153358 __tmp153350)))) + (cons __tmp153363 __tmp153355)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp153349 _stx151919_))) + (gxc#xform-wrap-source __tmp153354 _stx151924_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _$e151963_) + _$e151968_) (if (##structure-ref - _self151918_ + _self151923_ '3 gxc#!accessor::t '#f) - (let ((__tmp153303 - (let* ((_$obj151968_ + (let ((__tmp153308 + (let* ((_$obj151973_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp153304 (gensym '__obj))) + (let ((__tmp153309 (gensym '__obj))) (declare (not safe)) - (make-symbol__0 __tmp153304))) - (__tmp153305 - (let ((__tmp153345 - (let ((__tmp153346 - (let ((__tmp153348 + (make-symbol__0 __tmp153309))) + (__tmp153310 + (let ((__tmp153350 + (let ((__tmp153351 + (let ((__tmp153353 (let () (declare (not safe)) - (cons _$obj151968_ '()))) - (__tmp153347 + (cons _$obj151973_ '()))) + (__tmp153352 (let () (declare (not safe)) - (cons _object151960_ '())))) + (cons _object151965_ '())))) (declare (not safe)) - (cons __tmp153348 __tmp153347)))) + (cons __tmp153353 __tmp153352)))) (declare (not safe)) - (cons __tmp153346 '()))) - (__tmp153306 - (let ((__tmp153307 - (let ((__tmp153308 - (let ((__tmp153337 - (let ((__tmp153338 - (let ((__tmp153342 + (cons __tmp153351 '()))) + (__tmp153311 + (let ((__tmp153312 + (let ((__tmp153313 + (let ((__tmp153342 + (let ((__tmp153343 + (let ((__tmp153347 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp153343 - (let ((__tmp153344 + (let ((__tmp153348 + (let ((__tmp153349 (##structure-ref - _klass151956_ + _klass151961_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp153344 '())))) + (cons __tmp153349 '())))) (declare (not safe)) - (cons '%#quote __tmp153343))) - (__tmp153339 - (let ((__tmp153340 - (let ((__tmp153341 + (cons '%#quote __tmp153348))) + (__tmp153344 + (let ((__tmp153345 + (let ((__tmp153346 (let () (declare (not safe)) - (cons _$obj151968_ '())))) + (cons _$obj151973_ '())))) (declare (not safe)) - (cons '%#ref __tmp153341)))) + (cons '%#ref __tmp153346)))) (declare (not safe)) - (cons __tmp153340 '())))) + (cons __tmp153345 '())))) (declare (not safe)) - (cons __tmp153342 __tmp153339)))) + (cons __tmp153347 __tmp153344)))) (declare (not safe)) - (cons '%#struct-direct-instance? __tmp153338))) - (__tmp153309 - (let ((__tmp153326 - (let ((__tmp153327 - (let ((__tmp153334 - (let ((__tmp153335 - (let ((__tmp153336 + (cons '%#struct-direct-instance? __tmp153343))) + (__tmp153314 + (let ((__tmp153331 + (let ((__tmp153332 + (let ((__tmp153339 + (let ((__tmp153340 + (let ((__tmp153341 (##structure-ref - _self151918_ + _self151923_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp153336 '())))) + (cons __tmp153341 '())))) (declare (not safe)) - (cons '%#ref __tmp153335))) - (__tmp153328 - (let ((__tmp153332 - (let ((__tmp153333 + (cons '%#ref __tmp153340))) + (__tmp153333 + (let ((__tmp153337 + (let ((__tmp153338 (let () (declare (not safe)) - (cons _field151958_ + (cons _field151963_ '())))) (declare (not safe)) - (cons '%#quote __tmp153333))) - (__tmp153329 - (let ((__tmp153330 - (let ((__tmp153331 + (cons '%#quote __tmp153338))) + (__tmp153334 + (let ((__tmp153335 + (let ((__tmp153336 (let () (declare (not safe)) - (cons _$obj151968_ + (cons _$obj151973_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp153331)))) + __tmp153336)))) (declare (not safe)) - (cons __tmp153330 '())))) + (cons __tmp153335 '())))) (declare (not safe)) - (cons __tmp153332 __tmp153329)))) + (cons __tmp153337 __tmp153334)))) (declare (not safe)) - (cons __tmp153334 __tmp153328)))) + (cons __tmp153339 __tmp153333)))) (declare (not safe)) - (cons '%#struct-unchecked-ref __tmp153327))) - (__tmp153310 - (let ((__tmp153311 - (let ((__tmp153312 - (let ((__tmp153324 - (let ((__tmp153325 + (cons '%#struct-unchecked-ref __tmp153332))) + (__tmp153315 + (let ((__tmp153316 + (let ((__tmp153317 + (let ((__tmp153329 + (let ((__tmp153330 (let () (declare (not safe)) (cons 'class-slot-ref '())))) (declare (not safe)) - (cons '%#ref __tmp153325))) - (__tmp153313 - (let ((__tmp153321 - (let ((__tmp153322 - (let ((__tmp153323 + (cons '%#ref __tmp153330))) + (__tmp153318 + (let ((__tmp153326 + (let ((__tmp153327 + (let ((__tmp153328 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##structure-ref _self151918_ '1 gxc#!type::t '#f))) + (##structure-ref _self151923_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp153323 '())))) + (cons __tmp153328 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp153322))) - (__tmp153314 - (let ((__tmp153319 - (let ((__tmp153320 + __tmp153327))) + (__tmp153319 + (let ((__tmp153324 + (let ((__tmp153325 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _$obj151968_ '())))) + (cons _$obj151973_ '())))) (declare (not safe)) - (cons '%#ref __tmp153320))) - (__tmp153315 - (let ((__tmp153316 - (let ((__tmp153317 - (let ((__tmp153318 + (cons '%#ref __tmp153325))) + (__tmp153320 + (let ((__tmp153321 + (let ((__tmp153322 + (let ((__tmp153323 (##structure-ref - _self151918_ + _self151923_ '2 gxc#!accessor::t '#f))) (declare (not safe)) - (cons __tmp153318 '())))) + (cons __tmp153323 '())))) (declare (not safe)) - (cons '%#quote __tmp153317)))) + (cons '%#quote __tmp153322)))) (declare (not safe)) - (cons __tmp153316 '())))) + (cons __tmp153321 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153319 - __tmp153315)))) + (cons __tmp153324 + __tmp153320)))) (declare (not safe)) - (cons __tmp153321 __tmp153314)))) + (cons __tmp153326 __tmp153319)))) (declare (not safe)) - (cons __tmp153324 __tmp153313)))) + (cons __tmp153329 __tmp153318)))) (declare (not safe)) - (cons '%#call __tmp153312)))) + (cons '%#call __tmp153317)))) (declare (not safe)) - (cons __tmp153311 '())))) + (cons __tmp153316 '())))) (declare (not safe)) - (cons __tmp153326 __tmp153310)))) + (cons __tmp153331 __tmp153315)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153337 - __tmp153309)))) + (cons __tmp153342 + __tmp153314)))) (declare (not safe)) - (cons '%#if __tmp153308)))) + (cons '%#if __tmp153313)))) (declare (not safe)) - (cons __tmp153307 '())))) + (cons __tmp153312 '())))) (declare (not safe)) - (cons __tmp153345 __tmp153306)))) + (cons __tmp153350 __tmp153311)))) (declare (not safe)) - (cons '%#let-values __tmp153305)))) + (cons '%#let-values __tmp153310)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp153303 _stx151919_)) + (gxc#xform-wrap-source __tmp153308 _stx151924_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp153294 - (let ((__tmp153295 + (let ((__tmp153299 + (let ((__tmp153300 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp153301 - (let ((__tmp153302 + (let ((__tmp153306 + (let ((__tmp153307 (let () (declare (not safe)) (cons 'unchecked-slot-ref '())))) (declare (not safe)) - (cons '%#ref __tmp153302))) - (__tmp153296 - (let ((__tmp153297 - (let ((__tmp153298 - (let ((__tmp153299 - (let ((__tmp153300 + (cons '%#ref __tmp153307))) + (__tmp153301 + (let ((__tmp153302 + (let ((__tmp153303 + (let ((__tmp153304 + (let ((__tmp153305 (##structure-ref - _self151918_ + _self151923_ '2 gxc#!accessor::t '#f))) (declare (not safe)) - (cons __tmp153300 + (cons __tmp153305 '())))) (declare (not safe)) (cons '%#quote - __tmp153299)))) + __tmp153304)))) (declare (not safe)) - (cons __tmp153298 '())))) + (cons __tmp153303 '())))) (declare (not safe)) - (cons _object151960_ __tmp153297)))) + (cons _object151965_ __tmp153302)))) (declare (not safe)) - (cons __tmp153301 __tmp153296)))) + (cons __tmp153306 __tmp153301)))) (declare (not safe)) - (cons '%#call __tmp153295)))) + (cons '%#call __tmp153300)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp153294 _stx151919_))))))))) + (gxc#xform-wrap-source __tmp153299 _stx151924_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd151926151940_) + _hd151931151945_) (let () (declare (not safe)) - (_g151922151932_ _g151923151935_))))) + (_g151927151937_ _g151928151940_))))) (let () (declare (not safe)) - (_g151922151932_ _g151923151935_)))))) + (_g151927151937_ _g151928151940_)))))) (declare (not safe)) - (_g151921151970_ _args151920_)))) + (_g151926151975_ _args151925_)))) (define gxc#!accessor::optimize-call::specialize - (lambda (__klass152593 __method-table152594) - (let ((__checked?152595 - (let ((__slot152598 + (lambda (__klass152598 __method-table152599) + (let ((__id152600 + (let ((__slot152603 (let () (declare (not safe)) - (class-slot-offset __klass152593 'checked?)))) - (if __slot152598 - __slot152598 + (class-slot-offset __klass152598 'id)))) + (if __slot152603 + __slot152603 (let () (declare (not safe)) - (error '"Unknown slot" 'checked?))))) - (__slot152596 - (let ((__slot152599 + (error '"Unknown slot" 'id))))) + (__checked?152601 + (let ((__slot152604 (let () (declare (not safe)) - (class-slot-offset __klass152593 'slot)))) - (if __slot152599 - __slot152599 + (class-slot-offset __klass152598 'checked?)))) + (if __slot152604 + __slot152604 (let () (declare (not safe)) - (error '"Unknown slot" 'slot))))) - (__id152597 - (let ((__slot152600 + (error '"Unknown slot" 'checked?))))) + (__slot152602 + (let ((__slot152605 (let () (declare (not safe)) - (class-slot-offset __klass152593 'id)))) - (if __slot152600 - __slot152600 + (class-slot-offset __klass152598 'slot)))) + (if __slot152605 + __slot152605 (let () (declare (not safe)) - (error '"Unknown slot" 'id)))))) - (lambda (_self151918_ _stx151919_ _args151920_) - (let* ((_g151922151932_ - (lambda (_g151923151929_) + (error '"Unknown slot" 'slot)))))) + (lambda (_self151923_ _stx151924_ _args151925_) + (let* ((_g151927151937_ + (lambda (_g151928151934_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g151923151929_)))) - (_g151921151970_ - (lambda (_g151923151935_) + _g151928151934_)))) + (_g151926151975_ + (lambda (_g151928151940_) (if (let () (declare (not safe)) - (gx#stx-pair? _g151923151935_)) - (let ((_e151927151937_ + (gx#stx-pair? _g151928151940_)) + (let ((_e151932151942_ (let () (declare (not safe)) - (gx#stx-e _g151923151935_)))) - (let ((_hd151926151940_ + (gx#stx-e _g151928151940_)))) + (let ((_hd151931151945_ (let () (declare (not safe)) - (##car _e151927151937_))) - (_tl151925151942_ + (##car _e151932151942_))) + (_tl151930151947_ (let () (declare (not safe)) - (##cdr _e151927151937_)))) + (##cdr _e151932151942_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl151925151942_)) - ((lambda (_L151945_) - (let* ((_klass151956_ - (let ((__tmp153379 + (gx#stx-null? _tl151930151947_)) + ((lambda (_L151950_) + (let* ((_klass151961_ + (let ((__tmp153384 (let () (declare (not safe)) (##unchecked-structure-ref - _self151918_ - __id152597 - __klass152593 + _self151923_ + __id152600 + __klass152598 '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _stx151919_ - __tmp153379))) - (_field151958_ - (let ((__tmp153380 + _stx151924_ + __tmp153384))) + (_field151963_ + (let ((__tmp153385 (let () (declare (not safe)) (##unchecked-structure-ref - _self151918_ - __slot152596 - __klass152593 + _self151923_ + __slot152602 + __klass152598 '#f)))) (declare (not safe)) (gxc#!class-slot->field-offset - _klass151956_ - __tmp153380))) - (_object151960_ + _klass151961_ + __tmp153385))) + (_object151965_ (let () (declare (not safe)) - (gxc#compile-e__0 _L151945_)))) + (gxc#compile-e__0 _L151950_)))) (if (##structure-ref - _klass151956_ + _klass151961_ '8 gxc#!class::t '#f) - (let ((__tmp153457 - (let ((__tmp153466 + (let ((__tmp153462 + (let ((__tmp153471 (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##unchecked-structure-ref - _self151918_ - __checked?152595 - __klass152593 + _self151923_ + __checked?152601 + __klass152598 '#f)) '%#struct-direct-ref '%#struct-unchecked-ref)) - (__tmp153458 - (let ((__tmp153463 - (let ((__tmp153464 - (let ((__tmp153465 + (__tmp153463 + (let ((__tmp153468 + (let ((__tmp153469 + (let ((__tmp153470 (let () (declare (not safe)) (##unchecked-structure-ref - _self151918_ - __id152597 - __klass152593 + _self151923_ + __id152600 + __klass152598 '#f)))) (declare (not safe)) - (cons __tmp153465 '())))) + (cons __tmp153470 '())))) (declare (not safe)) - (cons '%#ref __tmp153464))) - (__tmp153459 - (let ((__tmp153461 - (let ((__tmp153462 + (cons '%#ref __tmp153469))) + (__tmp153464 + (let ((__tmp153466 + (let ((__tmp153467 (let () (declare (not safe)) - (cons _field151958_ '())))) + (cons _field151963_ '())))) (declare (not safe)) - (cons '%#quote __tmp153462))) - (__tmp153460 + (cons '%#quote __tmp153467))) + (__tmp153465 (let () (declare (not safe)) - (cons _object151960_ '())))) + (cons _object151965_ '())))) (declare (not safe)) - (cons __tmp153461 __tmp153460)))) + (cons __tmp153466 __tmp153465)))) (declare (not safe)) - (cons __tmp153463 __tmp153459)))) + (cons __tmp153468 __tmp153464)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153466 - __tmp153458)))) + (cons __tmp153471 + __tmp153463)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp153457 - _stx151919_)) + __tmp153462 + _stx151924_)) (if (##structure-ref - _klass151956_ + _klass151961_ '7 gxc#!class::t '#f) - (let ((__tmp153447 - (let ((__tmp153456 + (let ((__tmp153452 + (let ((__tmp153461 (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _self151918_ - __checked?152595 - __klass152593 + _self151923_ + __checked?152601 + __klass152598 '#f)) '%#struct-ref '%#struct-unchecked-ref)) - (__tmp153448 - (let ((__tmp153453 - (let ((__tmp153454 - (let ((__tmp153455 + (__tmp153453 + (let ((__tmp153458 + (let ((__tmp153459 + (let ((__tmp153460 (let () (declare (not safe)) (##unchecked-structure-ref - _self151918_ - __id152597 - __klass152593 + _self151923_ + __id152600 + __klass152598 '#f)))) (declare (not safe)) - (cons __tmp153455 '())))) + (cons __tmp153460 '())))) (declare (not safe)) - (cons '%#ref __tmp153454))) - (__tmp153449 - (let ((__tmp153451 - (let ((__tmp153452 + (cons '%#ref __tmp153459))) + (__tmp153454 + (let ((__tmp153456 + (let ((__tmp153457 (let () (declare (not safe)) - (cons _field151958_ '())))) + (cons _field151963_ '())))) (declare (not safe)) - (cons '%#quote __tmp153452))) - (__tmp153450 + (cons '%#quote __tmp153457))) + (__tmp153455 (let () (declare (not safe)) - (cons _object151960_ '())))) + (cons _object151965_ '())))) (declare (not safe)) - (cons __tmp153451 __tmp153450)))) + (cons __tmp153456 __tmp153455)))) (declare (not safe)) - (cons __tmp153453 __tmp153449)))) + (cons __tmp153458 __tmp153454)))) (declare (not safe)) - (cons __tmp153456 __tmp153448)))) + (cons __tmp153461 __tmp153453)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp153447 - _stx151919_)) - (let ((_$e151963_ - (let ((__tmp153381 + __tmp153452 + _stx151924_)) + (let ((_$e151968_ + (let ((__tmp153386 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##unchecked-structure-ref - _self151918_ - __slot152596 - __klass152593 + _self151923_ + __slot152602 + __klass152598 '#f)))) (declare (not safe)) - (gxc#!class-slot-find-struct _klass151956_ __tmp153381)))) + (gxc#!class-slot-find-struct _klass151961_ __tmp153386)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _$e151963_ - ((lambda (_klass151966_) - (let ((__tmp153437 - (let ((__tmp153446 + (if _$e151968_ + ((lambda (_klass151971_) + (let ((__tmp153442 + (let ((__tmp153451 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (if (let () (declare (not safe)) (##unchecked-structure-ref - _self151918_ - __checked?152595 - __klass152593 + _self151923_ + __checked?152601 + __klass152598 '#f)) '%#struct-ref '%#struct-unchecked-ref)) - (__tmp153438 - (let ((__tmp153443 - (let ((__tmp153444 - (let ((__tmp153445 + (__tmp153443 + (let ((__tmp153448 + (let ((__tmp153449 + (let ((__tmp153450 (let () (declare (not safe)) (##unchecked-structure-ref - _self151918_ - __id152597 - __klass152593 + _self151923_ + __id152600 + __klass152598 '#f)))) (declare (not safe)) - (cons __tmp153445 '())))) + (cons __tmp153450 '())))) (declare (not safe)) - (cons '%#ref __tmp153444))) - (__tmp153439 - (let ((__tmp153441 - (let ((__tmp153442 + (cons '%#ref __tmp153449))) + (__tmp153444 + (let ((__tmp153446 + (let ((__tmp153447 (let () (declare (not safe)) - (cons _field151958_ + (cons _field151963_ '())))) (declare (not safe)) - (cons '%#quote __tmp153442))) - (__tmp153440 + (cons '%#quote __tmp153447))) + (__tmp153445 (let () (declare (not safe)) - (cons _object151960_ '())))) + (cons _object151965_ '())))) (declare (not safe)) - (cons __tmp153441 __tmp153440)))) + (cons __tmp153446 __tmp153445)))) (declare (not safe)) - (cons __tmp153443 __tmp153439)))) + (cons __tmp153448 __tmp153444)))) (declare (not safe)) - (cons __tmp153446 __tmp153438)))) + (cons __tmp153451 __tmp153443)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp153437 _stx151919_))) - _$e151963_) + (gxc#xform-wrap-source __tmp153442 _stx151924_))) + _$e151968_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##unchecked-structure-ref - _self151918_ - __checked?152595 - __klass152593 + _self151923_ + __checked?152601 + __klass152598 '#f)) - (let ((__tmp153391 - (let* ((_$obj151968_ + (let ((__tmp153396 + (let* ((_$obj151973_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp153392 (gensym '__obj))) + (let ((__tmp153397 (gensym '__obj))) (declare (not safe)) - (make-symbol__0 __tmp153392))) - (__tmp153393 - (let ((__tmp153433 - (let ((__tmp153434 - (let ((__tmp153436 + (make-symbol__0 __tmp153397))) + (__tmp153398 + (let ((__tmp153438 + (let ((__tmp153439 + (let ((__tmp153441 (let () (declare (not safe)) - (cons _$obj151968_ + (cons _$obj151973_ '()))) - (__tmp153435 + (__tmp153440 (let () (declare (not safe)) - (cons _object151960_ + (cons _object151965_ '())))) (declare (not safe)) - (cons __tmp153436 - __tmp153435)))) + (cons __tmp153441 + __tmp153440)))) (declare (not safe)) - (cons __tmp153434 '()))) - (__tmp153394 - (let ((__tmp153395 - (let ((__tmp153396 - (let ((__tmp153425 - (let ((__tmp153426 + (cons __tmp153439 '()))) + (__tmp153399 + (let ((__tmp153400 + (let ((__tmp153401 + (let ((__tmp153430 + (let ((__tmp153431 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp153430 - (let ((__tmp153431 - (let ((__tmp153432 + (let ((__tmp153435 + (let ((__tmp153436 + (let ((__tmp153437 (##structure-ref - _klass151956_ + _klass151961_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp153432 '())))) + (cons __tmp153437 '())))) (declare (not safe)) - (cons '%#quote __tmp153431))) - (__tmp153427 - (let ((__tmp153428 - (let ((__tmp153429 + (cons '%#quote __tmp153436))) + (__tmp153432 + (let ((__tmp153433 + (let ((__tmp153434 (let () (declare (not safe)) - (cons _$obj151968_ '())))) + (cons _$obj151973_ '())))) (declare (not safe)) - (cons '%#ref __tmp153429)))) + (cons '%#ref __tmp153434)))) (declare (not safe)) - (cons __tmp153428 '())))) + (cons __tmp153433 '())))) (declare (not safe)) - (cons __tmp153430 __tmp153427)))) + (cons __tmp153435 __tmp153432)))) (declare (not safe)) - (cons '%#struct-direct-instance? __tmp153426))) - (__tmp153397 - (let ((__tmp153414 - (let ((__tmp153415 - (let ((__tmp153422 - (let ((__tmp153423 - (let ((__tmp153424 + (cons '%#struct-direct-instance? __tmp153431))) + (__tmp153402 + (let ((__tmp153419 + (let ((__tmp153420 + (let ((__tmp153427 + (let ((__tmp153428 + (let ((__tmp153429 (let () (declare (not safe)) (##unchecked-structure-ref - _self151918_ - __id152597 - __klass152593 + _self151923_ + __id152600 + __klass152598 '#f)))) (declare (not safe)) - (cons __tmp153424 '())))) + (cons __tmp153429 '())))) (declare (not safe)) - (cons '%#ref __tmp153423))) - (__tmp153416 - (let ((__tmp153420 - (let ((__tmp153421 + (cons '%#ref __tmp153428))) + (__tmp153421 + (let ((__tmp153425 + (let ((__tmp153426 (let () (declare (not safe)) - (cons _field151958_ + (cons _field151963_ '())))) (declare (not safe)) - (cons '%#quote __tmp153421))) - (__tmp153417 - (let ((__tmp153418 - (let ((__tmp153419 + (cons '%#quote __tmp153426))) + (__tmp153422 + (let ((__tmp153423 + (let ((__tmp153424 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$obj151968_ '())))) + (cons _$obj151973_ '())))) (declare (not safe)) - (cons '%#ref __tmp153419)))) + (cons '%#ref __tmp153424)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153418 '())))) + (cons __tmp153423 '())))) (declare (not safe)) - (cons __tmp153420 __tmp153417)))) + (cons __tmp153425 __tmp153422)))) (declare (not safe)) - (cons __tmp153422 __tmp153416)))) + (cons __tmp153427 __tmp153421)))) (declare (not safe)) - (cons '%#struct-unchecked-ref __tmp153415))) - (__tmp153398 - (let ((__tmp153399 - (let ((__tmp153400 - (let ((__tmp153412 - (let ((__tmp153413 + (cons '%#struct-unchecked-ref __tmp153420))) + (__tmp153403 + (let ((__tmp153404 + (let ((__tmp153405 + (let ((__tmp153417 + (let ((__tmp153418 (let () (declare (not safe)) (cons 'class-slot-ref '())))) (declare (not safe)) - (cons '%#ref __tmp153413))) - (__tmp153401 - (let ((__tmp153409 - (let ((__tmp153410 - (let ((__tmp153411 + (cons '%#ref __tmp153418))) + (__tmp153406 + (let ((__tmp153414 + (let ((__tmp153415 + (let ((__tmp153416 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (##unchecked-structure-ref - _self151918_ - __id152597 - __klass152593 + _self151923_ + __id152600 + __klass152598 '#f)))) (declare (not safe)) - (cons __tmp153411 '())))) + (cons __tmp153416 '())))) (declare (not safe)) - (cons '%#ref __tmp153410))) - (__tmp153402 - (let ((__tmp153407 - (let ((__tmp153408 + (cons '%#ref __tmp153415))) + (__tmp153407 + (let ((__tmp153412 + (let ((__tmp153413 (let () (declare (not safe)) - (cons _$obj151968_ '())))) + (cons _$obj151973_ '())))) (declare (not safe)) - (cons '%#ref __tmp153408))) - (__tmp153403 - (let ((__tmp153404 - (let ((__tmp153405 - (let ((__tmp153406 + (cons '%#ref __tmp153413))) + (__tmp153408 + (let ((__tmp153409 + (let ((__tmp153410 + (let ((__tmp153411 (let () (declare (not safe)) (##unchecked-structure-ref - _self151918_ - __slot152596 - __klass152593 + _self151923_ + __slot152602 + __klass152598 '#f)))) (declare (not safe)) - (cons __tmp153406 '())))) + (cons __tmp153411 '())))) (declare (not safe)) - (cons '%#quote __tmp153405)))) + (cons '%#quote __tmp153410)))) (declare (not safe)) - (cons __tmp153404 '())))) + (cons __tmp153409 '())))) (declare (not safe)) - (cons __tmp153407 __tmp153403)))) + (cons __tmp153412 __tmp153408)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153409 - __tmp153402)))) + (cons __tmp153414 + __tmp153407)))) (declare (not safe)) - (cons __tmp153412 __tmp153401)))) + (cons __tmp153417 __tmp153406)))) (declare (not safe)) - (cons '%#call __tmp153400)))) + (cons '%#call __tmp153405)))) (declare (not safe)) - (cons __tmp153399 '())))) + (cons __tmp153404 '())))) (declare (not safe)) - (cons __tmp153414 __tmp153398)))) + (cons __tmp153419 __tmp153403)))) (declare (not safe)) - (cons __tmp153425 __tmp153397)))) + (cons __tmp153430 __tmp153402)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#if __tmp153396)))) + (cons '%#if __tmp153401)))) (declare (not safe)) - (cons __tmp153395 '())))) + (cons __tmp153400 '())))) (declare (not safe)) - (cons __tmp153433 __tmp153394)))) + (cons __tmp153438 __tmp153399)))) (declare (not safe)) - (cons '%#let-values __tmp153393)))) + (cons '%#let-values __tmp153398)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp153391 _stx151919_)) - (let ((__tmp153382 - (let ((__tmp153383 - (let ((__tmp153389 - (let ((__tmp153390 + (gxc#xform-wrap-source __tmp153396 _stx151924_)) + (let ((__tmp153387 + (let ((__tmp153388 + (let ((__tmp153394 + (let ((__tmp153395 (let () (declare (not safe)) (cons 'unchecked-slot-ref '())))) (declare (not safe)) - (cons '%#ref __tmp153390))) - (__tmp153384 - (let ((__tmp153385 - (let ((__tmp153386 - (let ((__tmp153387 - (let ((__tmp153388 + (cons '%#ref __tmp153395))) + (__tmp153389 + (let ((__tmp153390 + (let ((__tmp153391 + (let ((__tmp153392 + (let ((__tmp153393 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (##unchecked-structure-ref - _self151918_ - __slot152596 - __klass152593 + _self151923_ + __slot152602 + __klass152598 '#f)))) (declare (not safe)) - (cons __tmp153388 '())))) + (cons __tmp153393 '())))) (declare (not safe)) - (cons '%#quote __tmp153387)))) + (cons '%#quote __tmp153392)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153386 '())))) + (cons __tmp153391 '())))) (declare (not safe)) - (cons _object151960_ __tmp153385)))) + (cons _object151965_ __tmp153390)))) (declare (not safe)) - (cons __tmp153389 __tmp153384)))) + (cons __tmp153394 __tmp153389)))) (declare (not safe)) - (cons '%#call __tmp153383)))) + (cons '%#call __tmp153388)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp153382 _stx151919_))))))))) + (gxc#xform-wrap-source __tmp153387 _stx151924_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd151926151940_) + _hd151931151945_) (let () (declare (not safe)) - (_g151922151932_ _g151923151935_))))) + (_g151927151937_ _g151928151940_))))) (let () (declare (not safe)) - (_g151922151932_ _g151923151935_)))))) + (_g151927151937_ _g151928151940_)))))) (declare (not safe)) - (_g151921151970_ _args151920_)))))) + (_g151926151975_ _args151925_)))))) (let () (declare (not safe)) (bind-specializer! @@ -3523,363 +3523,363 @@ gxc#!accessor::optimize-call '#f)) (define gxc#!mutator::optimize-call - (lambda (_self151723_ _stx151724_ _args151725_) - (let* ((_g151727151741_ - (lambda (_g151728151738_) + (lambda (_self151728_ _stx151729_ _args151730_) + (let* ((_g151732151746_ + (lambda (_g151733151743_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g151728151738_)))) - (_g151726151793_ - (lambda (_g151728151744_) + _g151733151743_)))) + (_g151731151798_ + (lambda (_g151733151749_) (if (let () (declare (not safe)) - (gx#stx-pair? _g151728151744_)) - (let ((_e151733151746_ + (gx#stx-pair? _g151733151749_)) + (let ((_e151738151751_ (let () (declare (not safe)) - (gx#stx-e _g151728151744_)))) - (let ((_hd151732151749_ + (gx#stx-e _g151733151749_)))) + (let ((_hd151737151754_ (let () (declare (not safe)) - (##car _e151733151746_))) - (_tl151731151751_ + (##car _e151738151751_))) + (_tl151736151756_ (let () (declare (not safe)) - (##cdr _e151733151746_)))) + (##cdr _e151738151751_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl151731151751_)) - (let ((_e151736151754_ + (gx#stx-pair? _tl151736151756_)) + (let ((_e151741151759_ (let () (declare (not safe)) - (gx#stx-e _tl151731151751_)))) - (let ((_hd151735151757_ + (gx#stx-e _tl151736151756_)))) + (let ((_hd151740151762_ (let () (declare (not safe)) - (##car _e151736151754_))) - (_tl151734151759_ + (##car _e151741151759_))) + (_tl151739151764_ (let () (declare (not safe)) - (##cdr _e151736151754_)))) + (##cdr _e151741151759_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl151734151759_)) - ((lambda (_L151762_ _L151763_) - (let* ((_klass151777_ - (let ((__tmp153467 + (gx#stx-null? _tl151739151764_)) + ((lambda (_L151767_ _L151768_) + (let* ((_klass151782_ + (let ((__tmp153472 (##structure-ref - _self151723_ + _self151728_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _stx151724_ - __tmp153467))) - (_field151779_ - (let ((__tmp153468 + _stx151729_ + __tmp153472))) + (_field151784_ + (let ((__tmp153473 (##structure-ref - _self151723_ + _self151728_ '2 gxc#!mutator::t '#f))) (declare (not safe)) (gxc#!class-slot->field-offset - _klass151777_ - __tmp153468))) - (_object151781_ + _klass151782_ + __tmp153473))) + (_object151786_ (let () (declare (not safe)) (gxc#compile-e__0 - _L151763_))) - (_value151783_ + _L151768_))) + (_value151788_ (let () (declare (not safe)) (gxc#compile-e__0 - _L151762_)))) + _L151767_)))) (if (##structure-ref - _klass151777_ + _klass151782_ '8 gxc#!class::t '#f) - (let ((__tmp153550 - (let ((__tmp153560 + (let ((__tmp153555 + (let ((__tmp153565 (if (##structure-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _self151723_ + _self151728_ '3 gxc#!mutator::t '#f) '%#struct-direct-set! '%#struct-unchecked-set!)) - (__tmp153551 - (let ((__tmp153557 - (let ((__tmp153558 - (let ((__tmp153559 + (__tmp153556 + (let ((__tmp153562 + (let ((__tmp153563 + (let ((__tmp153564 (##structure-ref - _self151723_ + _self151728_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp153559 '())))) + (cons __tmp153564 '())))) (declare (not safe)) - (cons '%#ref __tmp153558))) - (__tmp153552 - (let ((__tmp153555 - (let ((__tmp153556 + (cons '%#ref __tmp153563))) + (__tmp153557 + (let ((__tmp153560 + (let ((__tmp153561 (let () (declare (not safe)) - (cons _field151779_ '())))) + (cons _field151784_ '())))) (declare (not safe)) - (cons '%#quote __tmp153556))) - (__tmp153553 - (let ((__tmp153554 + (cons '%#quote __tmp153561))) + (__tmp153558 + (let ((__tmp153559 (let () (declare (not safe)) - (cons _value151783_ '())))) + (cons _value151788_ '())))) (declare (not safe)) - (cons _object151781_ __tmp153554)))) + (cons _object151786_ __tmp153559)))) (declare (not safe)) - (cons __tmp153555 __tmp153553)))) + (cons __tmp153560 __tmp153558)))) (declare (not safe)) - (cons __tmp153557 __tmp153552)))) + (cons __tmp153562 __tmp153557)))) (declare (not safe)) - (cons __tmp153560 __tmp153551)))) + (cons __tmp153565 __tmp153556)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp153550 - _stx151724_)) + __tmp153555 + _stx151729_)) (if (##structure-ref - _klass151777_ + _klass151782_ '7 gxc#!class::t '#f) - (let ((__tmp153539 - (let ((__tmp153549 + (let ((__tmp153544 + (let ((__tmp153554 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (if (##structure-ref - _self151723_ + _self151728_ '3 gxc#!mutator::t '#f) '%#struct-set! '%#struct-unchecked-set!)) - (__tmp153540 - (let ((__tmp153546 - (let ((__tmp153547 - (let ((__tmp153548 + (__tmp153545 + (let ((__tmp153551 + (let ((__tmp153552 + (let ((__tmp153553 (##structure-ref - _self151723_ + _self151728_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp153548 '())))) + (cons __tmp153553 '())))) (declare (not safe)) - (cons '%#ref __tmp153547))) - (__tmp153541 - (let ((__tmp153544 - (let ((__tmp153545 + (cons '%#ref __tmp153552))) + (__tmp153546 + (let ((__tmp153549 + (let ((__tmp153550 (let () (declare (not safe)) - (cons _field151779_ '())))) + (cons _field151784_ '())))) (declare (not safe)) - (cons '%#quote __tmp153545))) - (__tmp153542 - (let ((__tmp153543 + (cons '%#quote __tmp153550))) + (__tmp153547 + (let ((__tmp153548 (let () (declare (not safe)) - (cons _value151783_ '())))) + (cons _value151788_ '())))) (declare (not safe)) - (cons _object151781_ __tmp153543)))) + (cons _object151786_ __tmp153548)))) (declare (not safe)) - (cons __tmp153544 __tmp153542)))) + (cons __tmp153549 __tmp153547)))) (declare (not safe)) - (cons __tmp153546 __tmp153541)))) + (cons __tmp153551 __tmp153546)))) (declare (not safe)) - (cons __tmp153549 __tmp153540)))) + (cons __tmp153554 __tmp153545)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp153539 - _stx151724_)) - (let ((_$e151786_ - (let ((__tmp153469 + __tmp153544 + _stx151729_)) + (let ((_$e151791_ + (let ((__tmp153474 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##structure-ref - _self151723_ + _self151728_ '2 gxc#!mutator::t '#f))) (declare (not safe)) - (gxc#!class-slot-find-struct _klass151777_ __tmp153469)))) + (gxc#!class-slot-find-struct _klass151782_ __tmp153474)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _$e151786_ - ((lambda (_klass151789_) - (let ((__tmp153528 + (if _$e151791_ + ((lambda (_klass151794_) + (let ((__tmp153533 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp153538 + (let ((__tmp153543 (if (##structure-ref - _self151723_ + _self151728_ '3 gxc#!mutator::t '#f) '%#struct-set! '%#struct-unchecked-set!)) - (__tmp153529 - (let ((__tmp153535 - (let ((__tmp153536 - (let ((__tmp153537 + (__tmp153534 + (let ((__tmp153540 + (let ((__tmp153541 + (let ((__tmp153542 (##structure-ref - _self151723_ + _self151728_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp153537 '())))) + (cons __tmp153542 '())))) (declare (not safe)) - (cons '%#ref __tmp153536))) - (__tmp153530 - (let ((__tmp153533 - (let ((__tmp153534 + (cons '%#ref __tmp153541))) + (__tmp153535 + (let ((__tmp153538 + (let ((__tmp153539 (let () (declare (not safe)) - (cons _field151779_ + (cons _field151784_ '())))) (declare (not safe)) - (cons '%#quote __tmp153534))) - (__tmp153531 - (let ((__tmp153532 + (cons '%#quote __tmp153539))) + (__tmp153536 + (let ((__tmp153537 (let () (declare (not safe)) - (cons _value151783_ + (cons _value151788_ '())))) (declare (not safe)) - (cons _object151781_ - __tmp153532)))) + (cons _object151786_ + __tmp153537)))) (declare (not safe)) - (cons __tmp153533 __tmp153531)))) + (cons __tmp153538 __tmp153536)))) (declare (not safe)) - (cons __tmp153535 __tmp153530)))) + (cons __tmp153540 __tmp153535)))) (declare (not safe)) - (cons __tmp153538 __tmp153529)))) + (cons __tmp153543 __tmp153534)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp153528 _stx151724_))) - _$e151786_) - (if (##structure-ref _self151723_ '3 gxc#!mutator::t '#f) - (let ((__tmp153480 - (let* ((_$obj151791_ - (let ((__tmp153481 (gensym '__obj))) + (gxc#xform-wrap-source __tmp153533 _stx151729_))) + _$e151791_) + (if (##structure-ref _self151728_ '3 gxc#!mutator::t '#f) + (let ((__tmp153485 + (let* ((_$obj151796_ + (let ((__tmp153486 (gensym '__obj))) (declare (not safe)) - (make-symbol__0 __tmp153481))) - (__tmp153482 - (let ((__tmp153524 - (let ((__tmp153525 - (let ((__tmp153527 + (make-symbol__0 __tmp153486))) + (__tmp153487 + (let ((__tmp153529 + (let ((__tmp153530 + (let ((__tmp153532 (let () (declare (not safe)) - (cons _$obj151791_ + (cons _$obj151796_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) - (__tmp153526 - (let () (declare (not safe)) (cons _object151781_ '())))) + (__tmp153531 + (let () (declare (not safe)) (cons _object151786_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153527 - __tmp153526)))) + (cons __tmp153532 + __tmp153531)))) (declare (not safe)) - (cons __tmp153525 '()))) - (__tmp153483 - (let ((__tmp153484 - (let ((__tmp153485 - (let ((__tmp153516 - (let ((__tmp153517 + (cons __tmp153530 '()))) + (__tmp153488 + (let ((__tmp153489 + (let ((__tmp153490 + (let ((__tmp153521 + (let ((__tmp153522 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp153521 - (let ((__tmp153522 - (let ((__tmp153523 + (let ((__tmp153526 + (let ((__tmp153527 + (let ((__tmp153528 (##structure-ref - _klass151777_ + _klass151782_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp153523 '())))) + (cons __tmp153528 '())))) (declare (not safe)) - (cons '%#quote __tmp153522))) - (__tmp153518 - (let ((__tmp153519 - (let ((__tmp153520 + (cons '%#quote __tmp153527))) + (__tmp153523 + (let ((__tmp153524 + (let ((__tmp153525 (let () (declare (not safe)) - (cons _$obj151791_ + (cons _$obj151796_ '())))) (declare (not safe)) - (cons '%#ref __tmp153520)))) + (cons '%#ref __tmp153525)))) (declare (not safe)) - (cons __tmp153519 '())))) + (cons __tmp153524 '())))) (declare (not safe)) - (cons __tmp153521 __tmp153518)))) + (cons __tmp153526 __tmp153523)))) (declare (not safe)) - (cons '%#struct-direct-instance? __tmp153517))) - (__tmp153486 - (let ((__tmp153504 - (let ((__tmp153505 - (let ((__tmp153513 - (let ((__tmp153514 - (let ((__tmp153515 + (cons '%#struct-direct-instance? __tmp153522))) + (__tmp153491 + (let ((__tmp153509 + (let ((__tmp153510 + (let ((__tmp153518 + (let ((__tmp153519 + (let ((__tmp153520 (##structure-ref - _self151723_ + _self151728_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp153515 '())))) + (cons __tmp153520 '())))) (declare (not safe)) - (cons '%#ref __tmp153514))) - (__tmp153506 - (let ((__tmp153511 - (let ((__tmp153512 + (cons '%#ref __tmp153519))) + (__tmp153511 + (let ((__tmp153516 + (let ((__tmp153517 (let () (declare (not safe)) - (cons _field151779_ + (cons _field151784_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons '%#quote __tmp153512))) + (cons '%#quote __tmp153517))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp153507 - (let ((__tmp153509 - (let ((__tmp153510 + (__tmp153512 + (let ((__tmp153514 + (let ((__tmp153515 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _$obj151791_ '())))) + (cons _$obj151796_ '())))) (declare (not safe)) - (cons '%#ref __tmp153510))) - (__tmp153508 - (let () (declare (not safe)) (cons _value151783_ '())))) + (cons '%#ref __tmp153515))) + (__tmp153513 + (let () (declare (not safe)) (cons _value151788_ '())))) (declare (not safe)) - (cons __tmp153509 __tmp153508)))) + (cons __tmp153514 __tmp153513)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153511 - __tmp153507)))) + (cons __tmp153516 + __tmp153512)))) (declare (not safe)) - (cons __tmp153513 __tmp153506)))) + (cons __tmp153518 __tmp153511)))) (declare (not safe)) - (cons '%#struct-unchecked-set! __tmp153505))) - (__tmp153487 - (let ((__tmp153488 - (let ((__tmp153489 - (let ((__tmp153502 - (let ((__tmp153503 + (cons '%#struct-unchecked-set! __tmp153510))) + (__tmp153492 + (let ((__tmp153493 + (let ((__tmp153494 + (let ((__tmp153507 + (let ((__tmp153508 (let () (declare (not safe)) @@ -3887,684 +3887,684 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons '%#ref __tmp153503))) + (cons '%#ref __tmp153508))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp153490 - (let ((__tmp153499 - (let ((__tmp153500 + (__tmp153495 + (let ((__tmp153504 + (let ((__tmp153505 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp153501 + (let ((__tmp153506 (##structure-ref - _self151723_ + _self151728_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp153501 '())))) + (cons __tmp153506 '())))) (declare (not safe)) - (cons '%#ref __tmp153500))) - (__tmp153491 - (let ((__tmp153497 - (let ((__tmp153498 + (cons '%#ref __tmp153505))) + (__tmp153496 + (let ((__tmp153502 + (let ((__tmp153503 (let () (declare (not safe)) - (cons _$obj151791_ '())))) + (cons _$obj151796_ '())))) (declare (not safe)) - (cons '%#ref __tmp153498))) - (__tmp153492 - (let ((__tmp153494 - (let ((__tmp153495 - (let ((__tmp153496 + (cons '%#ref __tmp153503))) + (__tmp153497 + (let ((__tmp153499 + (let ((__tmp153500 + (let ((__tmp153501 (##structure-ref - _self151723_ + _self151728_ '2 gxc#!mutator::t '#f))) (declare (not safe)) - (cons __tmp153496 '())))) + (cons __tmp153501 '())))) (declare (not safe)) - (cons '%#quote __tmp153495))) - (__tmp153493 + (cons '%#quote __tmp153500))) + (__tmp153498 (let () (declare (not safe)) - (cons _value151783_ '())))) + (cons _value151788_ '())))) (declare (not safe)) - (cons __tmp153494 __tmp153493)))) + (cons __tmp153499 __tmp153498)))) (declare (not safe)) - (cons __tmp153497 __tmp153492)))) + (cons __tmp153502 __tmp153497)))) (declare (not safe)) - (cons __tmp153499 __tmp153491)))) + (cons __tmp153504 __tmp153496)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153502 - __tmp153490)))) + (cons __tmp153507 + __tmp153495)))) (declare (not safe)) - (cons '%#call __tmp153489)))) + (cons '%#call __tmp153494)))) (declare (not safe)) - (cons __tmp153488 '())))) + (cons __tmp153493 '())))) (declare (not safe)) - (cons __tmp153504 __tmp153487)))) + (cons __tmp153509 __tmp153492)))) (declare (not safe)) - (cons __tmp153516 __tmp153486)))) + (cons __tmp153521 __tmp153491)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#if __tmp153485)))) + (cons '%#if __tmp153490)))) (declare (not safe)) - (cons __tmp153484 '())))) + (cons __tmp153489 '())))) (declare (not safe)) - (cons __tmp153524 __tmp153483)))) + (cons __tmp153529 __tmp153488)))) (declare (not safe)) - (cons '%#let-values __tmp153482)))) + (cons '%#let-values __tmp153487)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp153480 _stx151724_)) - (let ((__tmp153470 - (let ((__tmp153471 - (let ((__tmp153478 - (let ((__tmp153479 + (gxc#xform-wrap-source __tmp153485 _stx151729_)) + (let ((__tmp153475 + (let ((__tmp153476 + (let ((__tmp153483 + (let ((__tmp153484 (let () (declare (not safe)) (cons 'unchecked-slot-set! '())))) (declare (not safe)) - (cons '%#ref __tmp153479))) - (__tmp153472 - (let ((__tmp153473 - (let ((__tmp153475 - (let ((__tmp153476 - (let ((__tmp153477 + (cons '%#ref __tmp153484))) + (__tmp153477 + (let ((__tmp153478 + (let ((__tmp153480 + (let ((__tmp153481 + (let ((__tmp153482 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##structure-ref - _self151723_ + _self151728_ '2 gxc#!mutator::t '#f))) (declare (not safe)) - (cons __tmp153477 '())))) + (cons __tmp153482 '())))) (declare (not safe)) - (cons '%#quote __tmp153476))) - (__tmp153474 - (let () (declare (not safe)) (cons _value151783_ '())))) + (cons '%#quote __tmp153481))) + (__tmp153479 + (let () (declare (not safe)) (cons _value151788_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153475 - __tmp153474)))) + (cons __tmp153480 + __tmp153479)))) (declare (not safe)) - (cons _object151781_ - __tmp153473)))) + (cons _object151786_ + __tmp153478)))) (declare (not safe)) - (cons __tmp153478 __tmp153472)))) + (cons __tmp153483 __tmp153477)))) (declare (not safe)) - (cons '%#call __tmp153471)))) + (cons '%#call __tmp153476)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp153470 _stx151724_))))))))) + (gxc#xform-wrap-source __tmp153475 _stx151729_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd151735151757_ - _hd151732151749_) + _hd151740151762_ + _hd151737151754_) (let () (declare (not safe)) - (_g151727151741_ _g151728151744_))))) + (_g151732151746_ _g151733151749_))))) (let () (declare (not safe)) - (_g151727151741_ _g151728151744_))))) + (_g151732151746_ _g151733151749_))))) (let () (declare (not safe)) - (_g151727151741_ _g151728151744_)))))) + (_g151732151746_ _g151733151749_)))))) (declare (not safe)) - (_g151726151793_ _args151725_)))) + (_g151731151798_ _args151730_)))) (define gxc#!mutator::optimize-call::specialize - (lambda (__klass152601 __method-table152602) - (let ((__checked?152603 - (let ((__slot152606 + (lambda (__klass152606 __method-table152607) + (let ((__id152608 + (let ((__slot152611 (let () (declare (not safe)) - (class-slot-offset __klass152601 'checked?)))) - (if __slot152606 - __slot152606 + (class-slot-offset __klass152606 'id)))) + (if __slot152611 + __slot152611 (let () (declare (not safe)) - (error '"Unknown slot" 'checked?))))) - (__slot152604 - (let ((__slot152607 + (error '"Unknown slot" 'id))))) + (__checked?152609 + (let ((__slot152612 (let () (declare (not safe)) - (class-slot-offset __klass152601 'slot)))) - (if __slot152607 - __slot152607 + (class-slot-offset __klass152606 'checked?)))) + (if __slot152612 + __slot152612 (let () (declare (not safe)) - (error '"Unknown slot" 'slot))))) - (__id152605 - (let ((__slot152608 + (error '"Unknown slot" 'checked?))))) + (__slot152610 + (let ((__slot152613 (let () (declare (not safe)) - (class-slot-offset __klass152601 'id)))) - (if __slot152608 - __slot152608 + (class-slot-offset __klass152606 'slot)))) + (if __slot152613 + __slot152613 (let () (declare (not safe)) - (error '"Unknown slot" 'id)))))) - (lambda (_self151723_ _stx151724_ _args151725_) - (let* ((_g151727151741_ - (lambda (_g151728151738_) + (error '"Unknown slot" 'slot)))))) + (lambda (_self151728_ _stx151729_ _args151730_) + (let* ((_g151732151746_ + (lambda (_g151733151743_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g151728151738_)))) - (_g151726151793_ - (lambda (_g151728151744_) + _g151733151743_)))) + (_g151731151798_ + (lambda (_g151733151749_) (if (let () (declare (not safe)) - (gx#stx-pair? _g151728151744_)) - (let ((_e151733151746_ + (gx#stx-pair? _g151733151749_)) + (let ((_e151738151751_ (let () (declare (not safe)) - (gx#stx-e _g151728151744_)))) - (let ((_hd151732151749_ + (gx#stx-e _g151733151749_)))) + (let ((_hd151737151754_ (let () (declare (not safe)) - (##car _e151733151746_))) - (_tl151731151751_ + (##car _e151738151751_))) + (_tl151736151756_ (let () (declare (not safe)) - (##cdr _e151733151746_)))) + (##cdr _e151738151751_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl151731151751_)) - (let ((_e151736151754_ + (gx#stx-pair? _tl151736151756_)) + (let ((_e151741151759_ (let () (declare (not safe)) - (gx#stx-e _tl151731151751_)))) - (let ((_hd151735151757_ + (gx#stx-e _tl151736151756_)))) + (let ((_hd151740151762_ (let () (declare (not safe)) - (##car _e151736151754_))) - (_tl151734151759_ + (##car _e151741151759_))) + (_tl151739151764_ (let () (declare (not safe)) - (##cdr _e151736151754_)))) + (##cdr _e151741151759_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl151734151759_)) - ((lambda (_L151762_ _L151763_) - (let* ((_klass151777_ - (let ((__tmp153561 + (gx#stx-null? _tl151739151764_)) + ((lambda (_L151767_ _L151768_) + (let* ((_klass151782_ + (let ((__tmp153566 (let () (declare (not safe)) (##unchecked-structure-ref - _self151723_ - __id152605 - __klass152601 + _self151728_ + __id152608 + __klass152606 '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _stx151724_ - __tmp153561))) - (_field151779_ - (let ((__tmp153562 + _stx151729_ + __tmp153566))) + (_field151784_ + (let ((__tmp153567 (let () (declare (not safe)) (##unchecked-structure-ref - _self151723_ - __slot152604 - __klass152601 + _self151728_ + __slot152610 + __klass152606 '#f)))) (declare (not safe)) (gxc#!class-slot->field-offset - _klass151777_ - __tmp153562))) - (_object151781_ + _klass151782_ + __tmp153567))) + (_object151786_ (let () (declare (not safe)) (gxc#compile-e__0 - _L151763_))) - (_value151783_ + _L151768_))) + (_value151788_ (let () (declare (not safe)) (gxc#compile-e__0 - _L151762_)))) + _L151767_)))) (if (##structure-ref - _klass151777_ + _klass151782_ '8 gxc#!class::t '#f) - (let ((__tmp153644 - (let ((__tmp153654 + (let ((__tmp153649 + (let ((__tmp153659 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (if (let () (declare (not safe)) (##unchecked-structure-ref - _self151723_ - __checked?152603 - __klass152601 + _self151728_ + __checked?152609 + __klass152606 '#f)) '%#struct-direct-set! '%#struct-unchecked-set!)) - (__tmp153645 - (let ((__tmp153651 - (let ((__tmp153652 - (let ((__tmp153653 + (__tmp153650 + (let ((__tmp153656 + (let ((__tmp153657 + (let ((__tmp153658 (let () (declare (not safe)) (##unchecked-structure-ref - _self151723_ - __id152605 - __klass152601 + _self151728_ + __id152608 + __klass152606 '#f)))) (declare (not safe)) - (cons __tmp153653 '())))) + (cons __tmp153658 '())))) (declare (not safe)) - (cons '%#ref __tmp153652))) - (__tmp153646 - (let ((__tmp153649 - (let ((__tmp153650 + (cons '%#ref __tmp153657))) + (__tmp153651 + (let ((__tmp153654 + (let ((__tmp153655 (let () (declare (not safe)) - (cons _field151779_ '())))) + (cons _field151784_ '())))) (declare (not safe)) - (cons '%#quote __tmp153650))) - (__tmp153647 - (let ((__tmp153648 + (cons '%#quote __tmp153655))) + (__tmp153652 + (let ((__tmp153653 (let () (declare (not safe)) - (cons _value151783_ '())))) + (cons _value151788_ '())))) (declare (not safe)) - (cons _object151781_ __tmp153648)))) + (cons _object151786_ __tmp153653)))) (declare (not safe)) - (cons __tmp153649 __tmp153647)))) + (cons __tmp153654 __tmp153652)))) (declare (not safe)) - (cons __tmp153651 __tmp153646)))) + (cons __tmp153656 __tmp153651)))) (declare (not safe)) - (cons __tmp153654 __tmp153645)))) + (cons __tmp153659 __tmp153650)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp153644 - _stx151724_)) + __tmp153649 + _stx151729_)) (if (##structure-ref - _klass151777_ + _klass151782_ '7 gxc#!class::t '#f) - (let ((__tmp153633 - (let ((__tmp153643 + (let ((__tmp153638 + (let ((__tmp153648 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (if (let () (declare (not safe)) (##unchecked-structure-ref - _self151723_ - __checked?152603 - __klass152601 + _self151728_ + __checked?152609 + __klass152606 '#f)) '%#struct-set! '%#struct-unchecked-set!)) - (__tmp153634 - (let ((__tmp153640 - (let ((__tmp153641 - (let ((__tmp153642 + (__tmp153639 + (let ((__tmp153645 + (let ((__tmp153646 + (let ((__tmp153647 (let () (declare (not safe)) (##unchecked-structure-ref - _self151723_ - __id152605 - __klass152601 + _self151728_ + __id152608 + __klass152606 '#f)))) (declare (not safe)) - (cons __tmp153642 '())))) + (cons __tmp153647 '())))) (declare (not safe)) - (cons '%#ref __tmp153641))) - (__tmp153635 - (let ((__tmp153638 - (let ((__tmp153639 + (cons '%#ref __tmp153646))) + (__tmp153640 + (let ((__tmp153643 + (let ((__tmp153644 (let () (declare (not safe)) - (cons _field151779_ '())))) + (cons _field151784_ '())))) (declare (not safe)) - (cons '%#quote __tmp153639))) - (__tmp153636 - (let ((__tmp153637 + (cons '%#quote __tmp153644))) + (__tmp153641 + (let ((__tmp153642 (let () (declare (not safe)) - (cons _value151783_ '())))) + (cons _value151788_ '())))) (declare (not safe)) - (cons _object151781_ - __tmp153637)))) + (cons _object151786_ + __tmp153642)))) (declare (not safe)) - (cons __tmp153638 __tmp153636)))) + (cons __tmp153643 __tmp153641)))) (declare (not safe)) - (cons __tmp153640 __tmp153635)))) + (cons __tmp153645 __tmp153640)))) (declare (not safe)) - (cons __tmp153643 __tmp153634)))) + (cons __tmp153648 __tmp153639)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp153633 _stx151724_)) - (let ((_$e151786_ - (let ((__tmp153563 + (gxc#xform-wrap-source __tmp153638 _stx151729_)) + (let ((_$e151791_ + (let ((__tmp153568 (let () (declare (not safe)) (##unchecked-structure-ref - _self151723_ - __slot152604 - __klass152601 + _self151728_ + __slot152610 + __klass152606 '#f)))) (declare (not safe)) (gxc#!class-slot-find-struct - _klass151777_ - __tmp153563)))) - (if _$e151786_ - ((lambda (_klass151789_) - (let ((__tmp153622 - (let ((__tmp153632 + _klass151782_ + __tmp153568)))) + (if _$e151791_ + ((lambda (_klass151794_) + (let ((__tmp153627 + (let ((__tmp153637 (if (let () (declare (not safe)) (##unchecked-structure-ref - _self151723_ - __checked?152603 - __klass152601 + _self151728_ + __checked?152609 + __klass152606 '#f)) '%#struct-set! '%#struct-unchecked-set!)) - (__tmp153623 - (let ((__tmp153629 - (let ((__tmp153630 - (let ((__tmp153631 + (__tmp153628 + (let ((__tmp153634 + (let ((__tmp153635 + (let ((__tmp153636 (let () (declare (not safe)) (##unchecked-structure-ref - _self151723_ - __id152605 - __klass152601 + _self151728_ + __id152608 + __klass152606 '#f)))) (declare (not safe)) - (cons __tmp153631 '())))) + (cons __tmp153636 '())))) (declare (not safe)) - (cons '%#ref __tmp153630))) - (__tmp153624 - (let ((__tmp153627 - (let ((__tmp153628 + (cons '%#ref __tmp153635))) + (__tmp153629 + (let ((__tmp153632 + (let ((__tmp153633 (let () (declare (not safe)) - (cons _field151779_ + (cons _field151784_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons '%#quote __tmp153628))) + (cons '%#quote __tmp153633))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp153625 - (let ((__tmp153626 + (__tmp153630 + (let ((__tmp153631 (let () (declare (not safe)) - (cons _value151783_ + (cons _value151788_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons _object151781_ __tmp153626)))) + (cons _object151786_ __tmp153631)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153627 - __tmp153625)))) + (cons __tmp153632 + __tmp153630)))) (declare (not safe)) - (cons __tmp153629 __tmp153624)))) + (cons __tmp153634 __tmp153629)))) (declare (not safe)) - (cons __tmp153632 __tmp153623)))) + (cons __tmp153637 __tmp153628)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp153622 _stx151724_))) - _$e151786_) + (gxc#xform-wrap-source __tmp153627 _stx151729_))) + _$e151791_) (if (let () (declare (not safe)) (##unchecked-structure-ref - _self151723_ - __checked?152603 - __klass152601 + _self151728_ + __checked?152609 + __klass152606 '#f)) - (let ((__tmp153574 - (let* ((_$obj151791_ - (let ((__tmp153575 (gensym '__obj))) + (let ((__tmp153579 + (let* ((_$obj151796_ + (let ((__tmp153580 (gensym '__obj))) (declare (not safe)) - (make-symbol__0 __tmp153575))) - (__tmp153576 - (let ((__tmp153618 - (let ((__tmp153619 - (let ((__tmp153621 + (make-symbol__0 __tmp153580))) + (__tmp153581 + (let ((__tmp153623 + (let ((__tmp153624 + (let ((__tmp153626 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$obj151791_ '()))) - (__tmp153620 - (let () (declare (not safe)) (cons _object151781_ '())))) + (cons _$obj151796_ '()))) + (__tmp153625 + (let () (declare (not safe)) (cons _object151786_ '())))) (declare (not safe)) - (cons __tmp153621 __tmp153620)))) + (cons __tmp153626 __tmp153625)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153619 '()))) - (__tmp153577 - (let ((__tmp153578 - (let ((__tmp153579 - (let ((__tmp153610 + (cons __tmp153624 '()))) + (__tmp153582 + (let ((__tmp153583 + (let ((__tmp153584 + (let ((__tmp153615 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp153611 - (let ((__tmp153615 - (let ((__tmp153616 - (let ((__tmp153617 + (let ((__tmp153616 + (let ((__tmp153620 + (let ((__tmp153621 + (let ((__tmp153622 (##structure-ref - _klass151777_ + _klass151782_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp153617 '())))) + (cons __tmp153622 '())))) (declare (not safe)) - (cons '%#quote __tmp153616))) - (__tmp153612 - (let ((__tmp153613 - (let ((__tmp153614 + (cons '%#quote __tmp153621))) + (__tmp153617 + (let ((__tmp153618 + (let ((__tmp153619 (let () (declare (not safe)) - (cons _$obj151791_ + (cons _$obj151796_ '())))) (declare (not safe)) - (cons '%#ref __tmp153614)))) + (cons '%#ref __tmp153619)))) (declare (not safe)) - (cons __tmp153613 '())))) + (cons __tmp153618 '())))) (declare (not safe)) - (cons __tmp153615 __tmp153612)))) + (cons __tmp153620 __tmp153617)))) (declare (not safe)) - (cons '%#struct-direct-instance? __tmp153611))) - (__tmp153580 - (let ((__tmp153598 - (let ((__tmp153599 - (let ((__tmp153607 - (let ((__tmp153608 - (let ((__tmp153609 + (cons '%#struct-direct-instance? __tmp153616))) + (__tmp153585 + (let ((__tmp153603 + (let ((__tmp153604 + (let ((__tmp153612 + (let ((__tmp153613 + (let ((__tmp153614 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _self151723_ - __id152605 - __klass152601 + _self151728_ + __id152608 + __klass152606 '#f)))) (declare (not safe)) - (cons __tmp153609 '())))) + (cons __tmp153614 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#ref __tmp153608))) - (__tmp153600 - (let ((__tmp153605 - (let ((__tmp153606 + (cons '%#ref __tmp153613))) + (__tmp153605 + (let ((__tmp153610 + (let ((__tmp153611 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _field151779_ '())))) + (cons _field151784_ '())))) (declare (not safe)) - (cons '%#quote __tmp153606))) - (__tmp153601 - (let ((__tmp153603 - (let ((__tmp153604 + (cons '%#quote __tmp153611))) + (__tmp153606 + (let ((__tmp153608 + (let ((__tmp153609 (let () (declare (not safe)) - (cons _$obj151791_ '())))) + (cons _$obj151796_ '())))) (declare (not safe)) - (cons '%#ref __tmp153604))) - (__tmp153602 - (let () (declare (not safe)) (cons _value151783_ '())))) + (cons '%#ref __tmp153609))) + (__tmp153607 + (let () (declare (not safe)) (cons _value151788_ '())))) (declare (not safe)) - (cons __tmp153603 __tmp153602)))) + (cons __tmp153608 __tmp153607)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153605 - __tmp153601)))) + (cons __tmp153610 + __tmp153606)))) (declare (not safe)) - (cons __tmp153607 __tmp153600)))) + (cons __tmp153612 __tmp153605)))) (declare (not safe)) (cons '%#struct-unchecked-set! - __tmp153599))) - (__tmp153581 - (let ((__tmp153582 - (let ((__tmp153583 - (let ((__tmp153596 - (let ((__tmp153597 + __tmp153604))) + (__tmp153586 + (let ((__tmp153587 + (let ((__tmp153588 + (let ((__tmp153601 + (let ((__tmp153602 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (cons 'class-slot-set! '())))) (declare (not safe)) - (cons '%#ref __tmp153597))) - (__tmp153584 - (let ((__tmp153593 - (let ((__tmp153594 - (let ((__tmp153595 + (cons '%#ref __tmp153602))) + (__tmp153589 + (let ((__tmp153598 + (let ((__tmp153599 + (let ((__tmp153600 (let () (declare (not safe)) (##unchecked-structure-ref - _self151723_ - __id152605 - __klass152601 + _self151728_ + __id152608 + __klass152606 '#f)))) (declare (not safe)) - (cons __tmp153595 '())))) + (cons __tmp153600 '())))) (declare (not safe)) - (cons '%#ref __tmp153594))) - (__tmp153585 - (let ((__tmp153591 - (let ((__tmp153592 + (cons '%#ref __tmp153599))) + (__tmp153590 + (let ((__tmp153596 + (let ((__tmp153597 (let () (declare (not safe)) - (cons _$obj151791_ '())))) + (cons _$obj151796_ '())))) (declare (not safe)) - (cons '%#ref __tmp153592))) - (__tmp153586 - (let ((__tmp153588 - (let ((__tmp153589 - (let ((__tmp153590 + (cons '%#ref __tmp153597))) + (__tmp153591 + (let ((__tmp153593 + (let ((__tmp153594 + (let ((__tmp153595 (let () (declare (not safe)) (##unchecked-structure-ref - _self151723_ - __slot152604 - __klass152601 + _self151728_ + __slot152610 + __klass152606 '#f)))) (declare (not safe)) - (cons __tmp153590 '())))) + (cons __tmp153595 '())))) (declare (not safe)) - (cons '%#quote __tmp153589))) - (__tmp153587 + (cons '%#quote __tmp153594))) + (__tmp153592 (let () (declare (not safe)) - (cons _value151783_ '())))) + (cons _value151788_ '())))) (declare (not safe)) - (cons __tmp153588 __tmp153587)))) + (cons __tmp153593 __tmp153592)))) (declare (not safe)) - (cons __tmp153591 __tmp153586)))) + (cons __tmp153596 __tmp153591)))) (declare (not safe)) - (cons __tmp153593 __tmp153585)))) + (cons __tmp153598 __tmp153590)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153596 - __tmp153584)))) + (cons __tmp153601 + __tmp153589)))) (declare (not safe)) - (cons '%#call __tmp153583)))) + (cons '%#call __tmp153588)))) (declare (not safe)) - (cons __tmp153582 '())))) + (cons __tmp153587 '())))) (declare (not safe)) - (cons __tmp153598 __tmp153581)))) + (cons __tmp153603 __tmp153586)))) (declare (not safe)) - (cons __tmp153610 __tmp153580)))) + (cons __tmp153615 __tmp153585)))) (declare (not safe)) - (cons '%#if __tmp153579)))) + (cons '%#if __tmp153584)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153578 '())))) + (cons __tmp153583 '())))) (declare (not safe)) - (cons __tmp153618 __tmp153577)))) + (cons __tmp153623 __tmp153582)))) (declare (not safe)) - (cons '%#let-values __tmp153576)))) + (cons '%#let-values __tmp153581)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp153574 _stx151724_)) - (let ((__tmp153564 - (let ((__tmp153565 - (let ((__tmp153572 - (let ((__tmp153573 + (gxc#xform-wrap-source __tmp153579 _stx151729_)) + (let ((__tmp153569 + (let ((__tmp153570 + (let ((__tmp153577 + (let ((__tmp153578 (let () (declare (not safe)) (cons 'unchecked-slot-set! '())))) (declare (not safe)) - (cons '%#ref __tmp153573))) - (__tmp153566 - (let ((__tmp153567 - (let ((__tmp153569 - (let ((__tmp153570 + (cons '%#ref __tmp153578))) + (__tmp153571 + (let ((__tmp153572 + (let ((__tmp153574 + (let ((__tmp153575 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp153571 + (let ((__tmp153576 (let () (declare (not safe)) (##unchecked-structure-ref - _self151723_ - __slot152604 - __klass152601 + _self151728_ + __slot152610 + __klass152606 '#f)))) (declare (not safe)) - (cons __tmp153571 '())))) + (cons __tmp153576 '())))) (declare (not safe)) - (cons '%#quote __tmp153570))) - (__tmp153568 - (let () (declare (not safe)) (cons _value151783_ '())))) + (cons '%#quote __tmp153575))) + (__tmp153573 + (let () (declare (not safe)) (cons _value151788_ '())))) (declare (not safe)) - (cons __tmp153569 __tmp153568)))) + (cons __tmp153574 __tmp153573)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _object151781_ - __tmp153567)))) + (cons _object151786_ + __tmp153572)))) (declare (not safe)) - (cons __tmp153572 __tmp153566)))) + (cons __tmp153577 __tmp153571)))) (declare (not safe)) - (cons '%#call __tmp153565)))) + (cons '%#call __tmp153570)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp153564 - _stx151724_))))))))) + __tmp153569 + _stx151729_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd151735151757_ - _hd151732151749_) + _hd151740151762_ + _hd151737151754_) (let () (declare (not safe)) - (_g151727151741_ - _g151728151744_))))) + (_g151732151746_ + _g151733151749_))))) (let () (declare (not safe)) - (_g151727151741_ _g151728151744_))))) + (_g151732151746_ _g151733151749_))))) (let () (declare (not safe)) - (_g151727151741_ _g151728151744_)))))) + (_g151732151746_ _g151733151749_)))))) (declare (not safe)) - (_g151726151793_ _args151725_)))))) + (_g151731151798_ _args151730_)))))) (let () (declare (not safe)) (bind-specializer! @@ -4578,116 +4578,116 @@ gxc#!mutator::optimize-call '#f)) (define gxc#!lambda::optimize-call - (lambda (_self151557_ _stx151558_ _args151559_) - (let* ((_self151560151569_ _self151557_) - (_E151562151573_ + (lambda (_self151562_ _stx151563_ _args151564_) + (let* ((_self151565151574_ _self151562_) + (_E151567151578_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _self151560151569_)))) - (_K151563151580_ - (lambda (_inline151576_ _dispatch151577_ _arity151578_) + (error '"No clause matching" _self151565151574_)))) + (_K151568151585_ + (lambda (_inline151581_ _dispatch151582_ _arity151583_) (if (let () (declare (not safe)) - (gxc#!lambda-arity-match? _self151557_ _args151559_)) + (gxc#!lambda-arity-match? _self151562_ _args151564_)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Illegal lambda application; arity mismatch" - _stx151558_ - _arity151578_))) - (if _inline151576_ + _stx151563_ + _arity151583_))) + (if _inline151581_ (begin (let () (declare (not safe)) (gxc#verbose '"inline lambda")) - (let ((__tmp153660 - (let ((__tmp153661 - (_inline151576_ _stx151558_))) + (let ((__tmp153665 + (let ((__tmp153666 + (_inline151581_ _stx151563_))) (declare (not safe)) (gxc#xform-wrap-source - __tmp153661 - _stx151558_)))) + __tmp153666 + _stx151563_)))) (declare (not safe)) - (gxc#compile-e__0 __tmp153660))) - (if _dispatch151577_ + (gxc#compile-e__0 __tmp153665))) + (if _dispatch151582_ (begin (let () (declare (not safe)) (gxc#verbose '"dispatch lambda => " - _dispatch151577_)) - (let ((__tmp153655 - (let ((__tmp153656 - (let ((__tmp153657 - (let ((__tmp153658 - (let ((__tmp153659 + _dispatch151582_)) + (let ((__tmp153660 + (let ((__tmp153661 + (let ((__tmp153662 + (let ((__tmp153663 + (let ((__tmp153664 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _dispatch151577_ '())))) + (cons _dispatch151582_ '())))) (declare (not safe)) - (cons '%#ref __tmp153659)))) + (cons '%#ref __tmp153664)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153658 - _args151559_)))) + (cons __tmp153663 + _args151564_)))) (declare (not safe)) - (cons '%#call __tmp153657)))) + (cons '%#call __tmp153662)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp153656 - _stx151558_)))) + __tmp153661 + _stx151563_)))) (declare (not safe)) - (gxc#compile-e__0 __tmp153655))) + (gxc#compile-e__0 __tmp153660))) (let () (declare (not safe)) - (gxc#xform-call% _stx151558_))))))) + (gxc#xform-call% _stx151563_))))))) (if (let () (declare (not safe)) - (##structure-instance-of? _self151560151569_ 'gxc#!lambda::t)) - (let* ((_e151564151583_ + (##structure-instance-of? _self151565151574_ 'gxc#!lambda::t)) + (let* ((_e151569151588_ (let () (declare (not safe)) (##unchecked-structure-ref - _self151560151569_ + _self151565151574_ '1 gxc#!type::t '#f))) - (_e151565151586_ + (_e151570151591_ (let () (declare (not safe)) (##unchecked-structure-ref - _self151560151569_ + _self151565151574_ '2 gxc#!lambda::t '#f))) - (_arity151589_ _e151565151586_) - (_e151566151591_ + (_arity151594_ _e151570151591_) + (_e151571151596_ (let () (declare (not safe)) (##unchecked-structure-ref - _self151560151569_ + _self151565151574_ '3 gxc#!lambda::t '#f))) - (_dispatch151594_ _e151566151591_) - (_e151567151596_ + (_dispatch151599_ _e151571151596_) + (_e151572151601_ (let () (declare (not safe)) (##unchecked-structure-ref - _self151560151569_ + _self151565151574_ '4 gxc#!lambda::t '#f))) - (_inline151599_ _e151567151596_)) + (_inline151604_ _e151572151601_)) (declare (not safe)) - (_K151563151580_ - _inline151599_ - _dispatch151594_ - _arity151589_)) - (let () (declare (not safe)) (_E151562151573_)))))) + (_K151568151585_ + _inline151604_ + _dispatch151599_ + _arity151594_)) + (let () (declare (not safe)) (_E151567151578_)))))) (let () (declare (not safe)) (bind-method!__% @@ -4696,76 +4696,76 @@ gxc#!lambda::optimize-call '#f)) (define gxc#!case-lambda::optimize-call - (lambda (_self151396_ _stx151397_ _args151398_) - (let* ((_self151399151406_ _self151396_) - (_E151401151410_ + (lambda (_self151401_ _stx151402_ _args151403_) + (let* ((_self151404151411_ _self151401_) + (_E151406151415_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _self151399151406_)))) - (_K151402151424_ - (lambda (_clauses151413_) - (let ((_$e151419_ - (let ((__tmp153662 - (lambda (_g151414151416_) + (error '"No clause matching" _self151404151411_)))) + (_K151407151429_ + (lambda (_clauses151418_) + (let ((_$e151424_ + (let ((__tmp153667 + (lambda (_g151419151421_) (let () (declare (not safe)) (gxc#!lambda-arity-match? - _g151414151416_ - _args151398_))))) + _g151419151421_ + _args151403_))))) (declare (not safe)) - (find __tmp153662 _clauses151413_)))) - (if _$e151419_ - ((lambda (_clause151422_) - (let ((__method152877 + (find __tmp153667 _clauses151418_)))) + (if _$e151424_ + ((lambda (_clause151427_) + (let ((__method152882 (let () (declare (not safe)) (method-ref - _clause151422_ + _clause151427_ 'optimize-call)))) - (if __method152877 - (__method152877 - _clause151422_ - _stx151397_ - _args151398_) + (if __method152882 + (__method152882 + _clause151427_ + _stx151402_ + _args151403_) (let () (declare (not safe)) (error '"Missing method" - _clause151422_ + _clause151427_ 'optimize-call))))) - _$e151419_) - (let ((__tmp153663 - (map gxc#!lambda-arity _clauses151413_))) + _$e151424_) + (let ((__tmp153668 + (map gxc#!lambda-arity _clauses151418_))) (declare (not safe)) (gxc#raise-compile-error '"Illegal case-lambda application; arity mismatch" - _stx151397_ - __tmp153663))))))) + _stx151402_ + __tmp153668))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self151399151406_ + _self151404151411_ 'gxc#!case-lambda::t)) - (let* ((_e151403151427_ + (let* ((_e151408151432_ (let () (declare (not safe)) (##unchecked-structure-ref - _self151399151406_ + _self151404151411_ '1 gxc#!type::t '#f))) - (_e151404151430_ + (_e151409151435_ (let () (declare (not safe)) (##unchecked-structure-ref - _self151399151406_ + _self151404151411_ '2 gxc#!case-lambda::t '#f))) - (_clauses151433_ _e151404151430_)) + (_clauses151438_ _e151409151435_)) (declare (not safe)) - (_K151402151424_ _clauses151433_)) - (let () (declare (not safe)) (_E151401151410_)))))) + (_K151407151429_ _clauses151438_)) + (let () (declare (not safe)) (_E151406151415_)))))) (let () (declare (not safe)) (bind-method!__% @@ -4774,493 +4774,493 @@ gxc#!case-lambda::optimize-call '#f)) (define gxc#!lambda-arity-match? - (lambda (_self151210_ _args151211_) - (let* ((_self151212151219_ _self151210_) - (_E151214151223_ + (lambda (_self151215_ _args151216_) + (let* ((_self151217151224_ _self151215_) + (_E151219151228_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _self151212151219_)))) - (_K151215151263_ - (lambda (_arity151226_) - (let* ((_arity151227151236_ _arity151226_) - (_E151230151240_ + (error '"No clause matching" _self151217151224_)))) + (_K151220151268_ + (lambda (_arity151231_) + (let* ((_arity151232151241_ _arity151231_) + (_E151235151245_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _arity151227151236_))))) - (let ((_K151234151260_ + _arity151232151241_))))) + (let ((_K151239151265_ (lambda () - (fx= (length _args151211_) _arity151226_))) - (_K151231151246_ - (lambda (_arity151244_) - (fx>= (length _args151211_) _arity151244_)))) - (let ((_try-match151229151256_ + (fx= (length _args151216_) _arity151231_))) + (_K151236151251_ + (lambda (_arity151249_) + (fx>= (length _args151216_) _arity151249_)))) + (let ((_try-match151234151261_ (lambda () (if (let () (declare (not safe)) - (##pair? _arity151227151236_)) - (let ((_tl151233151251_ + (##pair? _arity151232151241_)) + (let ((_tl151238151256_ (let () (declare (not safe)) - (##cdr _arity151227151236_))) - (_hd151232151249_ + (##cdr _arity151232151241_))) + (_hd151237151254_ (let () (declare (not safe)) - (##car _arity151227151236_)))) + (##car _arity151232151241_)))) (if (let () (declare (not safe)) - (##null? _tl151233151251_)) - (let ((_arity151254_ - _hd151232151249_)) + (##null? _tl151238151256_)) + (let ((_arity151259_ + _hd151237151254_)) (declare (not safe)) - (_K151231151246_ _arity151254_)) + (_K151236151251_ _arity151259_)) (let () (declare (not safe)) - (_E151230151240_)))) + (_E151235151245_)))) (let () (declare (not safe)) - (_E151230151240_)))))) + (_E151235151245_)))))) (if (let () (declare (not safe)) - (fixnum? _arity151227151236_)) - (let () (declare (not safe)) (_K151234151260_)) + (fixnum? _arity151232151241_)) + (let () (declare (not safe)) (_K151239151265_)) (let () (declare (not safe)) - (_try-match151229151256_))))))))) + (_try-match151234151261_))))))))) (if (let () (declare (not safe)) - (##structure-instance-of? _self151212151219_ 'gxc#!lambda::t)) - (let* ((_e151216151266_ + (##structure-instance-of? _self151217151224_ 'gxc#!lambda::t)) + (let* ((_e151221151271_ (let () (declare (not safe)) (##unchecked-structure-ref - _self151212151219_ + _self151217151224_ '1 gxc#!type::t '#f))) - (_e151217151269_ + (_e151222151274_ (let () (declare (not safe)) (##unchecked-structure-ref - _self151212151219_ + _self151217151224_ '2 gxc#!lambda::t '#f))) - (_arity151272_ _e151217151269_)) + (_arity151277_ _e151222151274_)) (declare (not safe)) - (_K151215151263_ _arity151272_)) - (let () (declare (not safe)) (_E151214151223_)))))) + (_K151220151268_ _arity151277_)) + (let () (declare (not safe)) (_E151219151228_)))))) (define gxc#!kw-lambda::optimize-call - (lambda (_self151095_ _stx151096_ _args151097_) - (let* ((_self151098151106_ _self151095_) - (_E151100151110_ + (lambda (_self151100_ _stx151101_ _args151102_) + (let* ((_self151103151111_ _self151100_) + (_E151105151115_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _self151098151106_)))) - (_K151101151194_ - (lambda (_dispatch151113_ _table151114_) - (let* ((_g151115151124_ + (error '"No clause matching" _self151103151111_)))) + (_K151106151199_ + (lambda (_dispatch151118_ _table151119_) + (let* ((_g151120151129_ (let () (declare (not safe)) - (gxc#optimizer-lookup-type _dispatch151113_))) - (_else151117151132_ + (gxc#optimizer-lookup-type _dispatch151118_))) + (_else151122151137_ (lambda () (let () (declare (not safe)) (gxc#verbose '"unknown keyword dispatch lambda " - _dispatch151113_)) + _dispatch151118_)) (let () (declare (not safe)) - (gxc#xform-call% _stx151096_)))) - (_K151119151178_ - (lambda (_main151135_ _keys151136_) - (let ((_g153664_ + (gxc#xform-call% _stx151101_)))) + (_K151124151183_ + (lambda (_main151140_ _keys151141_) + (let ((_g153669_ (let () (declare (not safe)) (gxc#!kw-lambda-split-args - _stx151096_ - _args151097_)))) + _stx151101_ + _args151102_)))) (begin - (let ((_g153665_ + (let ((_g153670_ (let () (declare (not safe)) - (if (##values? _g153664_) - (##vector-length _g153664_) + (if (##values? _g153669_) + (##vector-length _g153669_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g153665_ 2))) + (##fx= _g153670_ 2))) (error "Context expects 2 values" - _g153665_))) - (let ((_pargs151138_ + _g153670_))) + (let ((_pargs151143_ (let () (declare (not safe)) - (##vector-ref _g153664_ 0))) - (_kwargs151139_ + (##vector-ref _g153669_ 0))) + (_kwargs151144_ (let () (declare (not safe)) - (##vector-ref _g153664_ 1)))) + (##vector-ref _g153669_ 1)))) (begin (let () (declare (not safe)) (gxc#verbose '"dispatch kw-lambda => " - _main151135_)) - (if _table151114_ - (let ((_xargs151146_ - (map (lambda (_key151141_) - (let ((_$e151143_ + _main151140_)) + (if _table151119_ + (let ((_xargs151151_ + (map (lambda (_key151146_) + (let ((_$e151148_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (assgetq__0 _key151141_ _kwargs151139_)))) - (if _$e151143_ (values _$e151143_) '(%#ref absent-value)))) + (assgetq__0 _key151146_ _kwargs151144_)))) + (if _$e151148_ (values _$e151148_) '(%#ref absent-value)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _keys151136_))) + _keys151141_))) (for-each - (lambda (_kw151148_) - (if (memq (car _kw151148_) - _keys151136_) + (lambda (_kw151153_) + (if (memq (car _kw151153_) + _keys151141_) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Illegal keyword lambda application; unexpected keyword" - _stx151096_ - _keys151136_ - _kw151148_)))) - _kwargs151139_) - (let ((__tmp153717 - (let ((__tmp153718 - (let ((__tmp153719 - (let ((__tmp153724 + _stx151101_ + _keys151141_ + _kw151153_)))) + _kwargs151144_) + (let ((__tmp153722 + (let ((__tmp153723 + (let ((__tmp153724 + (let ((__tmp153729 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp153725 + (let ((__tmp153730 (let () (declare (not safe)) - (cons _main151135_ '())))) + (cons _main151140_ '())))) (declare (not safe)) - (cons '%#ref __tmp153725))) - (__tmp153720 - (let ((__tmp153722 - (let ((__tmp153723 + (cons '%#ref __tmp153730))) + (__tmp153725 + (let ((__tmp153727 + (let ((__tmp153728 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons '%#quote __tmp153723))) - (__tmp153721 + (cons '%#quote __tmp153728))) + (__tmp153726 (let () (declare (not safe)) (foldr1 cons - _pargs151138_ - _xargs151146_)))) + _pargs151143_ + _xargs151151_)))) (declare (not safe)) - (cons __tmp153722 __tmp153721)))) + (cons __tmp153727 __tmp153726)))) (declare (not safe)) - (cons __tmp153724 __tmp153720)))) + (cons __tmp153729 __tmp153725)))) (declare (not safe)) - (cons '%#call __tmp153719)))) + (cons '%#call __tmp153724)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp153718 - _stx151096_)))) + __tmp153723 + _stx151101_)))) (declare (not safe)) - (gxc#compile-e__0 __tmp153717))) - (let* ((_kwt151150_ - (let ((__tmp153666 + (gxc#compile-e__0 __tmp153722))) + (let* ((_kwt151155_ + (let ((__tmp153671 (gensym '__kwt))) (declare (not safe)) (make-symbol__0 - __tmp153666))) - (_kwvars151153_ - (map (lambda (_g153667_) - (let ((__tmp153668 + __tmp153671))) + (_kwvars151158_ + (map (lambda (_g153672_) + (let ((__tmp153673 (gensym '__kw))) (declare (not safe)) (make-symbol__0 - __tmp153668))) - _kwargs151139_)) - (_kwbind151158_ - (map (lambda (_kw151155_ - _kwvar151156_) - (let ((__tmp153671 + __tmp153673))) + _kwargs151144_)) + (_kwbind151163_ + (map (lambda (_kw151160_ + _kwvar151161_) + (let ((__tmp153676 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _kwvar151156_ '()))) - (__tmp153669 - (let ((__tmp153670 (cdr _kw151155_))) + (cons _kwvar151161_ '()))) + (__tmp153674 + (let ((__tmp153675 (cdr _kw151160_))) (declare (not safe)) - (cons __tmp153670 '())))) + (cons __tmp153675 '())))) (declare (not safe)) - (cons __tmp153671 __tmp153669))) + (cons __tmp153676 __tmp153674))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _kwargs151139_ - _kwvars151153_)) - (_kwset151163_ - (map (lambda (_kw151160_ - _kwvar151161_) - (let ((__tmp153672 - (let ((__tmp153673 + _kwargs151144_ + _kwvars151158_)) + (_kwset151168_ + (map (lambda (_kw151165_ + _kwvar151166_) + (let ((__tmp153677 + (let ((__tmp153678 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp153681 - (let ((__tmp153682 + (let ((__tmp153686 + (let ((__tmp153687 (let () (declare (not safe)) - (cons _kwt151150_ '())))) + (cons _kwt151155_ '())))) (declare (not safe)) - (cons '%#ref __tmp153682))) - (__tmp153674 - (let ((__tmp153678 - (let ((__tmp153679 - (let ((__tmp153680 - (car _kw151160_))) + (cons '%#ref __tmp153687))) + (__tmp153679 + (let ((__tmp153683 + (let ((__tmp153684 + (let ((__tmp153685 + (car _kw151165_))) (declare (not safe)) - (cons __tmp153680 '())))) + (cons __tmp153685 '())))) (declare (not safe)) - (cons '%#quote __tmp153679))) - (__tmp153675 - (let ((__tmp153676 - (let ((__tmp153677 + (cons '%#quote __tmp153684))) + (__tmp153680 + (let ((__tmp153681 + (let ((__tmp153682 (let () (declare (not safe)) - (cons _kwvar151161_ + (cons _kwvar151166_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp153677)))) + __tmp153682)))) (declare (not safe)) - (cons __tmp153676 '())))) + (cons __tmp153681 '())))) (declare (not safe)) - (cons __tmp153678 __tmp153675)))) + (cons __tmp153683 __tmp153680)))) (declare (not safe)) - (cons __tmp153681 __tmp153674)))) + (cons __tmp153686 __tmp153679)))) (declare (not safe)) - (cons '(%#ref symbolic-table-set!) __tmp153673)))) + (cons '(%#ref symbolic-table-set!) __tmp153678)))) (declare (not safe)) - (cons '%#call __tmp153672))) + (cons '%#call __tmp153677))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _kwargs151139_ - _kwvars151153_)) - (_xkwargs151168_ - (map (lambda (_kw151165_ - _kwvar151166_) - (let ((__tmp153685 - (car _kw151165_)) - (__tmp153683 - (let ((__tmp153684 + _kwargs151144_ + _kwvars151158_)) + (_xkwargs151173_ + (map (lambda (_kw151170_ + _kwvar151171_) + (let ((__tmp153690 + (car _kw151170_)) + (__tmp153688 + (let ((__tmp153689 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _kwvar151166_ '())))) + (cons _kwvar151171_ '())))) (declare (not safe)) - (cons '%#ref __tmp153684)))) + (cons '%#ref __tmp153689)))) (declare (not safe)) - (cons __tmp153685 __tmp153683))) + (cons __tmp153690 __tmp153688))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _kwargs151139_ - _kwvars151153_)) - (_xargs151175_ - (map (lambda (_key151170_) - (let ((_$e151172_ + _kwargs151144_ + _kwvars151158_)) + (_xargs151180_ + (map (lambda (_key151175_) + (let ((_$e151177_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (assgetq__0 _key151170_ _xkwargs151168_)))) - (if _$e151172_ (values _$e151172_) '(%#ref absent-value)))) + (assgetq__0 _key151175_ _xkwargs151173_)))) + (if _$e151177_ (values _$e151177_) '(%#ref absent-value)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _keys151136_))) - (let ((__tmp153686 - (let ((__tmp153687 - (let ((__tmp153688 - (let ((__tmp153689 + _keys151141_))) + (let ((__tmp153691 + (let ((__tmp153692 + (let ((__tmp153693 + (let ((__tmp153694 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp153690 - (let ((__tmp153691 - (let ((__tmp153705 - (let ((__tmp153706 - (let ((__tmp153716 + (let ((__tmp153695 + (let ((__tmp153696 + (let ((__tmp153710 + (let ((__tmp153711 + (let ((__tmp153721 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _kwt151150_ '()))) - (__tmp153707 - (let ((__tmp153708 - (let ((__tmp153709 - (let ((__tmp153710 - (let ((__tmp153711 - (let ((__tmp153713 - (let ((__tmp153714 + (let () (declare (not safe)) (cons _kwt151155_ '()))) + (__tmp153712 + (let ((__tmp153713 + (let ((__tmp153714 + (let ((__tmp153715 + (let ((__tmp153716 + (let ((__tmp153718 + (let ((__tmp153719 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp153715 (length _kwargs151139_))) + (let ((__tmp153720 (length _kwargs151144_))) (declare (not safe)) - (cons __tmp153715 '())))) + (cons __tmp153720 '())))) (declare (not safe)) - (cons '%#quote __tmp153714))) - (__tmp153712 + (cons '%#quote __tmp153719))) + (__tmp153717 (let () (declare (not safe)) (cons '(%#quote 0) '())))) (declare (not safe)) - (cons __tmp153713 __tmp153712)))) + (cons __tmp153718 __tmp153717)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '(%#ref make-symbolic-table) - __tmp153711)))) + __tmp153716)))) (declare (not safe)) - (cons '%#call __tmp153710)))) + (cons '%#call __tmp153715)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp153709 - _stx151096_)))) + __tmp153714 + _stx151101_)))) (declare (not safe)) - (cons __tmp153708 '())))) + (cons __tmp153713 '())))) (declare (not safe)) - (cons __tmp153716 __tmp153707)))) + (cons __tmp153721 __tmp153712)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153706 '()))) - (__tmp153692 - (let ((__tmp153693 - (let ((__tmp153694 + (cons __tmp153711 '()))) + (__tmp153697 + (let ((__tmp153698 + (let ((__tmp153699 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp153695 - (let ((__tmp153696 - (let ((__tmp153697 - (let ((__tmp153698 - (let ((__tmp153703 - (let ((__tmp153704 + (let ((__tmp153700 + (let ((__tmp153701 + (let ((__tmp153702 + (let ((__tmp153703 + (let ((__tmp153708 + (let ((__tmp153709 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _main151135_ '())))) + (cons _main151140_ '())))) (declare (not safe)) - (cons '%#ref __tmp153704))) - (__tmp153699 - (let ((__tmp153701 - (let ((__tmp153702 + (cons '%#ref __tmp153709))) + (__tmp153704 + (let ((__tmp153706 + (let ((__tmp153707 (let () (declare (not safe)) - (cons _kwt151150_ '())))) + (cons _kwt151155_ '())))) (declare (not safe)) - (cons '%#ref __tmp153702))) - (__tmp153700 + (cons '%#ref __tmp153707))) + (__tmp153705 (let () (declare (not safe)) - (foldr1 cons _pargs151138_ _xargs151175_)))) + (foldr1 cons _pargs151143_ _xargs151180_)))) (declare (not safe)) - (cons __tmp153701 __tmp153700)))) + (cons __tmp153706 __tmp153705)))) (declare (not safe)) - (cons __tmp153703 __tmp153699)))) + (cons __tmp153708 __tmp153704)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#call __tmp153698)))) + (cons '%#call __tmp153703)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp153697 - _stx151096_)))) + __tmp153702 + _stx151101_)))) (declare (not safe)) - (cons __tmp153696 '())))) + (cons __tmp153701 '())))) (declare (not safe)) - (foldr1 cons __tmp153695 _kwset151163_)))) + (foldr1 cons __tmp153700 _kwset151168_)))) (declare (not safe)) - (cons '%#begin __tmp153694)))) + (cons '%#begin __tmp153699)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp153693 '())))) + (cons __tmp153698 '())))) (declare (not safe)) - (cons __tmp153705 __tmp153692)))) + (cons __tmp153710 __tmp153697)))) (declare (not safe)) - (cons '%#let-values __tmp153691)))) + (cons '%#let-values __tmp153696)))) (declare (not safe)) - (cons __tmp153690 '())))) + (cons __tmp153695 '())))) (declare (not safe)) - (cons _kwbind151158_ __tmp153689)))) + (cons _kwbind151163_ __tmp153694)))) (declare (not safe)) - (cons '%#let-values __tmp153688)))) + (cons '%#let-values __tmp153693)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp153687 - _stx151096_)))) + __tmp153692 + _stx151101_)))) (declare (not safe)) (gxc#compile-e__0 - __tmp153686))))))))))) + __tmp153691))))))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _g151115151124_ + _g151120151129_ 'gxc#!kw-lambda-primary::t)) - (let* ((_e151120151181_ + (let* ((_e151125151186_ (let () (declare (not safe)) (##unchecked-structure-ref - _g151115151124_ + _g151120151129_ '1 gxc#!type::t '#f))) - (_e151121151184_ + (_e151126151189_ (let () (declare (not safe)) (##unchecked-structure-ref - _g151115151124_ + _g151120151129_ '2 gxc#!kw-lambda-primary::t '#f))) - (_keys151187_ _e151121151184_) - (_e151122151189_ + (_keys151192_ _e151126151189_) + (_e151127151194_ (let () (declare (not safe)) (##unchecked-structure-ref - _g151115151124_ + _g151120151129_ '3 gxc#!kw-lambda-primary::t '#f))) - (_main151192_ _e151122151189_)) + (_main151197_ _e151127151194_)) (declare (not safe)) - (_K151119151178_ _main151192_ _keys151187_)) - (let () (declare (not safe)) (_else151117151132_))))))) + (_K151124151183_ _main151197_ _keys151192_)) + (let () (declare (not safe)) (_else151122151137_))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self151098151106_ + _self151103151111_ 'gxc#!kw-lambda::t)) - (let* ((_e151102151197_ + (let* ((_e151107151202_ (let () (declare (not safe)) (##unchecked-structure-ref - _self151098151106_ + _self151103151111_ '1 gxc#!type::t '#f))) - (_e151103151200_ + (_e151108151205_ (let () (declare (not safe)) (##unchecked-structure-ref - _self151098151106_ + _self151103151111_ '2 gxc#!kw-lambda::t '#f))) - (_table151203_ _e151103151200_) - (_e151104151205_ + (_table151208_ _e151108151205_) + (_e151109151210_ (let () (declare (not safe)) (##unchecked-structure-ref - _self151098151106_ + _self151103151111_ '3 gxc#!kw-lambda::t '#f))) - (_dispatch151208_ _e151104151205_)) + (_dispatch151213_ _e151109151210_)) (declare (not safe)) - (_K151101151194_ _dispatch151208_ _table151203_)) - (let () (declare (not safe)) (_E151100151110_)))))) + (_K151106151199_ _dispatch151213_ _table151208_)) + (let () (declare (not safe)) (_E151105151115_)))))) (let () (declare (not safe)) (bind-method!__% @@ -5269,300 +5269,300 @@ gxc#!kw-lambda::optimize-call '#f)) (define gxc#!kw-lambda-split-args - (lambda (_stx150708_ _args150709_) - (let _lp150711_ ((_rest150713_ _args150709_) - (_pargs150714_ '()) - (_kwargs150715_ '())) - (let* ((___stx152759152760_ _rest150713_) - (_g150721150773_ + (lambda (_stx150713_ _args150714_) + (let _lp150716_ ((_rest150718_ _args150714_) + (_pargs150719_ '()) + (_kwargs150720_ '())) + (let* ((___stx152764152765_ _rest150718_) + (_g150726150778_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx152759152760_))))) - (let ((___kont152761152762_ - (lambda (_L150952_ _L150953_) - (let ((__tmp153726 + ___stx152764152765_))))) + (let ((___kont152766152767_ + (lambda (_L150957_ _L150958_) + (let ((__tmp153731 (let () (declare (not safe)) - (cons _L150953_ _pargs150714_)))) + (cons _L150958_ _pargs150719_)))) (declare (not safe)) - (_lp150711_ _L150952_ __tmp153726 _kwargs150715_)))) - (___kont152763152764_ - (lambda (_L150898_) + (_lp150716_ _L150957_ __tmp153731 _kwargs150720_)))) + (___kont152768152769_ + (lambda (_L150903_) (values (let () (declare (not safe)) - (foldl1 cons _L150898_ _pargs150714_)) - (reverse _kwargs150715_)))) - (___kont152765152766_ - (lambda (_L150845_ _L150846_ _L150847_) - (let ((_kw150864_ + (foldl1 cons _L150903_ _pargs150719_)) + (reverse _kwargs150720_)))) + (___kont152770152771_ + (lambda (_L150850_ _L150851_ _L150852_) + (let ((_kw150869_ (let () (declare (not safe)) - (gx#stx-e _L150847_)))) - (if (assq _kw150864_ _kwargs150715_) + (gx#stx-e _L150852_)))) + (if (assq _kw150869_ _kwargs150720_) (let () (declare (not safe)) (gxc#raise-compile-error '"Illegal keyword lambda application; duplicate keyword" - _stx150708_ - _kw150864_)) - (let ((__tmp153727 - (let ((__tmp153728 + _stx150713_ + _kw150869_)) + (let ((__tmp153732 + (let ((__tmp153733 (let () (declare (not safe)) - (cons _kw150864_ _L150846_)))) + (cons _kw150869_ _L150851_)))) (declare (not safe)) - (cons __tmp153728 _kwargs150715_)))) + (cons __tmp153733 _kwargs150720_)))) (declare (not safe)) - (_lp150711_ - _L150845_ - _pargs150714_ - __tmp153727)))))) - (___kont152767152768_ - (lambda (_L150793_ _L150794_) - (let ((__tmp153729 + (_lp150716_ + _L150850_ + _pargs150719_ + __tmp153732)))))) + (___kont152772152773_ + (lambda (_L150798_ _L150799_) + (let ((__tmp153734 (let () (declare (not safe)) - (cons _L150794_ _pargs150714_)))) + (cons _L150799_ _pargs150719_)))) (declare (not safe)) - (_lp150711_ _L150793_ __tmp153729 _kwargs150715_)))) - (___kont152769152770_ + (_lp150716_ _L150798_ __tmp153734 _kwargs150720_)))) + (___kont152774152775_ (lambda () - (values (reverse _pargs150714_) - (reverse _kwargs150715_))))) - (let* ((_g150720150780_ + (values (reverse _pargs150719_) + (reverse _kwargs150720_))))) + (let* ((_g150725150785_ (lambda () (if (let () (declare (not safe)) - (gx#stx-null? ___stx152759152760_)) - (___kont152769152770_) - (let () (declare (not safe)) (_g150721150773_))))) - (___match152866152867_ - (lambda (_e150754150813_ - _hd150753150816_ - _tl150752150818_ - _e150757150821_ - _hd150756150824_ - _tl150755150826_ - _e150760150829_ - _hd150759150832_ - _tl150758150834_ - _e150763150837_ - _hd150762150840_ - _tl150761150842_) - (let ((_L150845_ _tl150761150842_) - (_L150846_ _hd150762150840_) - (_L150847_ _hd150759150832_)) + (gx#stx-null? ___stx152764152765_)) + (___kont152774152775_) + (let () (declare (not safe)) (_g150726150778_))))) + (___match152871152872_ + (lambda (_e150759150818_ + _hd150758150821_ + _tl150757150823_ + _e150762150826_ + _hd150761150829_ + _tl150760150831_ + _e150765150834_ + _hd150764150837_ + _tl150763150839_ + _e150768150842_ + _hd150767150845_ + _tl150766150847_) + (let ((_L150850_ _tl150766150847_) + (_L150851_ _hd150767150845_) + (_L150852_ _hd150764150837_)) (if (let () (declare (not safe)) - (gx#stx-keyword? _L150847_)) - (___kont152765152766_ - _L150845_ - _L150846_ - _L150847_) - (___kont152767152768_ - _tl150752150818_ - _hd150753150816_)))))) + (gx#stx-keyword? _L150852_)) + (___kont152770152771_ + _L150850_ + _L150851_ + _L150852_) + (___kont152772152773_ + _tl150757150823_ + _hd150758150821_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx152759152760_)) - (let ((_e150727150917_ + (gx#stx-pair? ___stx152764152765_)) + (let ((_e150732150922_ (let () (declare (not safe)) - (gx#stx-e ___stx152759152760_)))) - (let ((_tl150725150922_ + (gx#stx-e ___stx152764152765_)))) + (let ((_tl150730150927_ (let () (declare (not safe)) - (##cdr _e150727150917_))) - (_hd150726150920_ + (##cdr _e150732150922_))) + (_hd150731150925_ (let () (declare (not safe)) - (##car _e150727150917_)))) + (##car _e150732150922_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd150726150920_)) - (let ((_e150730150925_ + (gx#stx-pair? _hd150731150925_)) + (let ((_e150735150930_ (let () (declare (not safe)) - (gx#stx-e _hd150726150920_)))) - (let ((_tl150728150930_ + (gx#stx-e _hd150731150925_)))) + (let ((_tl150733150935_ (let () (declare (not safe)) - (##cdr _e150730150925_))) - (_hd150729150928_ + (##cdr _e150735150930_))) + (_hd150734150933_ (let () (declare (not safe)) - (##car _e150730150925_)))) + (##car _e150735150930_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd150729150928_)) + (gx#identifier? _hd150734150933_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd150729150928_)) + _hd150734150933_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl150728150930_)) - (let ((_e150733150933_ + (gx#stx-pair? _tl150733150935_)) + (let ((_e150738150938_ (let () (declare (not safe)) (gx#stx-e - _tl150728150930_)))) - (let ((_tl150731150938_ + _tl150733150935_)))) + (let ((_tl150736150943_ (let () (declare (not safe)) - (##cdr _e150733150933_))) - (_hd150732150936_ + (##cdr _e150738150938_))) + (_hd150737150941_ (let () (declare (not safe)) - (##car _e150733150933_)))) + (##car _e150738150938_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _hd150732150936_)) - (let ((_e150734150941_ + _hd150737150941_)) + (let ((_e150739150946_ (let () (declare (not safe)) (gx#stx-e - _hd150732150936_)))) + _hd150737150941_)))) (if (let () (declare (not safe)) - (equal? _e150734150941_ + (equal? _e150739150946_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#!key)) (if (let () (declare (not safe)) - (gx#stx-null? _tl150731150938_)) + (gx#stx-null? _tl150736150943_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl150725150922_)) - (let ((_e150737150944_ + (gx#stx-pair? _tl150730150927_)) + (let ((_e150742150949_ (let () (declare (not safe)) - (gx#stx-e _tl150725150922_)))) - (let ((_tl150735150949_ + (gx#stx-e _tl150730150927_)))) + (let ((_tl150740150954_ (let () (declare (not safe)) - (##cdr _e150737150944_))) - (_hd150736150947_ + (##cdr _e150742150949_))) + (_hd150741150952_ (let () (declare (not safe)) - (##car _e150737150944_)))) - (___kont152761152762_ - _tl150735150949_ - _hd150736150947_))) - (___kont152767152768_ - _tl150725150922_ - _hd150726150920_)) - (___kont152767152768_ _tl150725150922_ _hd150726150920_)) + (##car _e150742150949_)))) + (___kont152766152767_ + _tl150740150954_ + _hd150741150952_))) + (___kont152772152773_ + _tl150730150927_ + _hd150731150925_)) + (___kont152772152773_ _tl150730150927_ _hd150731150925_)) (if (let () (declare (not safe)) - (equal? _e150734150941_ '#!rest)) + (equal? _e150739150946_ '#!rest)) (if (let () (declare (not safe)) - (gx#stx-null? _tl150731150938_)) - (___kont152763152764_ _tl150725150922_) - (___kont152767152768_ - _tl150725150922_ - _hd150726150920_)) + (gx#stx-null? _tl150736150943_)) + (___kont152768152769_ _tl150730150927_) + (___kont152772152773_ + _tl150730150927_ + _hd150731150925_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl150731150938_)) + (gx#stx-null? _tl150736150943_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl150725150922_)) - (let ((_e150763150837_ + (gx#stx-pair? _tl150730150927_)) + (let ((_e150768150842_ (let () (declare (not safe)) - (gx#stx-e _tl150725150922_)))) - (let ((_tl150761150842_ + (gx#stx-e _tl150730150927_)))) + (let ((_tl150766150847_ (let () (declare (not safe)) - (##cdr _e150763150837_))) - (_hd150762150840_ + (##cdr _e150768150842_))) + (_hd150767150845_ (let () (declare (not safe)) - (##car _e150763150837_)))) - (___match152866152867_ - _e150727150917_ - _hd150726150920_ - _tl150725150922_ - _e150730150925_ - _hd150729150928_ - _tl150728150930_ - _e150733150933_ - _hd150732150936_ - _tl150731150938_ - _e150763150837_ - _hd150762150840_ - _tl150761150842_))) - (___kont152767152768_ - _tl150725150922_ - _hd150726150920_)) - (___kont152767152768_ - _tl150725150922_ - _hd150726150920_))))) + (##car _e150768150842_)))) + (___match152871152872_ + _e150732150922_ + _hd150731150925_ + _tl150730150927_ + _e150735150930_ + _hd150734150933_ + _tl150733150935_ + _e150738150938_ + _hd150737150941_ + _tl150736150943_ + _e150768150842_ + _hd150767150845_ + _tl150766150847_))) + (___kont152772152773_ + _tl150730150927_ + _hd150731150925_)) + (___kont152772152773_ + _tl150730150927_ + _hd150731150925_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _tl150731150938_)) + _tl150736150943_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl150725150922_)) - (let ((_e150763150837_ + _tl150730150927_)) + (let ((_e150768150842_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl150725150922_)))) - (let ((_tl150761150842_ + (gx#stx-e _tl150730150927_)))) + (let ((_tl150766150847_ (let () (declare (not safe)) - (##cdr _e150763150837_))) - (_hd150762150840_ + (##cdr _e150768150842_))) + (_hd150767150845_ (let () (declare (not safe)) - (##car _e150763150837_)))) - (___match152866152867_ - _e150727150917_ - _hd150726150920_ - _tl150725150922_ - _e150730150925_ - _hd150729150928_ - _tl150728150930_ - _e150733150933_ - _hd150732150936_ - _tl150731150938_ - _e150763150837_ - _hd150762150840_ - _tl150761150842_))) - (___kont152767152768_ _tl150725150922_ _hd150726150920_)) - (___kont152767152768_ _tl150725150922_ _hd150726150920_))))) + (##car _e150768150842_)))) + (___match152871152872_ + _e150732150922_ + _hd150731150925_ + _tl150730150927_ + _e150735150930_ + _hd150734150933_ + _tl150733150935_ + _e150738150938_ + _hd150737150941_ + _tl150736150943_ + _e150768150842_ + _hd150767150845_ + _tl150766150847_))) + (___kont152772152773_ _tl150730150927_ _hd150731150925_)) + (___kont152772152773_ _tl150730150927_ _hd150731150925_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont152767152768_ - _tl150725150922_ - _hd150726150920_)) - (___kont152767152768_ - _tl150725150922_ - _hd150726150920_)) - (___kont152767152768_ - _tl150725150922_ - _hd150726150920_)))) - (___kont152767152768_ - _tl150725150922_ - _hd150726150920_)))) - (let () (declare (not safe)) (_g150720150780_))))))))) + (___kont152772152773_ + _tl150730150927_ + _hd150731150925_)) + (___kont152772152773_ + _tl150730150927_ + _hd150731150925_)) + (___kont152772152773_ + _tl150730150927_ + _hd150731150925_)))) + (___kont152772152773_ + _tl150730150927_ + _hd150731150925_)))) + (let () (declare (not safe)) (_g150725150785_))))))))) (define gxc#!kw-lambda-primary::optimize-call - (lambda (_self150704_ _stx150705_ _args150706_) - (let () (declare (not safe)) (gxc#xform-call% _stx150705_)))) + (lambda (_self150709_ _stx150710_ _args150711_) + (let () (declare (not safe)) (gxc#xform-call% _stx150710_)))) (let () (declare (not safe)) (bind-method!__% diff --git a/src/bootstrap/gerbil/compiler/optimize-spec__0.scm b/src/bootstrap/gerbil/compiler/optimize-spec__0.scm index d0fcf355..00eeb898 100644 --- a/src/bootstrap/gerbil/compiler/optimize-spec__0.scm +++ b/src/bootstrap/gerbil/compiler/optimize-spec__0.scm @@ -1,234 +1,234 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize-spec::timestamp 1709229972) + (define gerbil/compiler/optimize-spec::timestamp 1709375800) (begin (define gxc#&generate-method-specializers (make-promise (lambda () - (let ((_tbl134174_ + (let ((_tbl134179_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp135302 (force gxc#&identity))) + (let ((__tmp135307 (force gxc#&identity))) (declare (not safe)) - (hash-merge! _tbl134174_ __tmp135302)) + (hash-merge! _tbl134179_ __tmp135307)) (let () (declare (not safe)) - (hash-put! _tbl134174_ '%#begin gxc#xform-begin%)) + (hash-put! _tbl134179_ '%#begin gxc#xform-begin%)) (let () (declare (not safe)) - (hash-put! _tbl134174_ '%#begin-syntax gxc#xform-begin-syntax%)) + (hash-put! _tbl134179_ '%#begin-syntax gxc#xform-begin-syntax%)) (let () (declare (not safe)) - (hash-put! _tbl134174_ '%#module gxc#xform-module%)) + (hash-put! _tbl134179_ '%#module gxc#xform-module%)) (let () (declare (not safe)) (hash-put! - _tbl134174_ + _tbl134179_ '%#define-values gxc#generate-method-specializers-define-values%)) - _tbl134174_)))) + _tbl134179_)))) (define gxc#apply-generate-method-specializers - (lambda (_stx134157_ . _args134159_) - (let ((__tmp135304 + (lambda (_stx134162_ . _args134164_) + (let ((__tmp135309 (lambda () (declare (not safe)) - (if (null? _args134159_) - (gxc#compile-e__0 _stx134157_) - (let ((_arg1134164_ (car _args134159_)) - (_rest134166_ (cdr _args134159_))) - (if (null? _rest134166_) - (gxc#compile-e__1 _stx134157_ _arg1134164_) - (let ((_arg2134169_ (car _rest134166_)) - (_rest134171_ (cdr _rest134166_))) - (if (null? _rest134171_) + (if (null? _args134164_) + (gxc#compile-e__0 _stx134162_) + (let ((_arg1134169_ (car _args134164_)) + (_rest134171_ (cdr _args134164_))) + (if (null? _rest134171_) + (gxc#compile-e__1 _stx134162_ _arg1134169_) + (let ((_arg2134174_ (car _rest134171_)) + (_rest134176_ (cdr _rest134171_))) + (if (null? _rest134176_) (gxc#compile-e__2 - _stx134157_ - _arg1134164_ - _arg2134169_) + _stx134162_ + _arg1134169_ + _arg2134174_) (apply gxc#compile-e - _stx134157_ - _arg1134164_ - _arg2134169_ - _rest134171_)))))))) - (__tmp135303 (force gxc#&generate-method-specializers))) + _stx134162_ + _arg1134169_ + _arg2134174_ + _rest134176_)))))))) + (__tmp135308 (force gxc#&generate-method-specializers))) (declare (not safe)) (call-with-parameters - __tmp135304 + __tmp135309 gxc#current-compile-methods - __tmp135303)))) + __tmp135308)))) (define gxc#&collect-object-refs (make-promise (lambda () - (let ((_tbl134154_ + (let ((_tbl134159_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp135305 (force gxc#&void))) + (let ((__tmp135310 (force gxc#&void))) (declare (not safe)) - (hash-merge! _tbl134154_ __tmp135305)) + (hash-merge! _tbl134159_ __tmp135310)) (let () (declare (not safe)) - (hash-put! _tbl134154_ '%#begin gxc#collect-begin%)) + (hash-put! _tbl134159_ '%#begin gxc#collect-begin%)) (let () (declare (not safe)) (hash-put! - _tbl134154_ + _tbl134159_ '%#begin-annotation gxc#collect-begin-annotation%)) (let () (declare (not safe)) - (hash-put! _tbl134154_ '%#lambda gxc#collect-body-lambda%)) + (hash-put! _tbl134159_ '%#lambda gxc#collect-body-lambda%)) (let () (declare (not safe)) (hash-put! - _tbl134154_ + _tbl134159_ '%#case-lambda gxc#collect-body-case-lambda%)) (let () (declare (not safe)) (hash-put! - _tbl134154_ + _tbl134159_ '%#let-values gxc#collect-body-let-values%)) (let () (declare (not safe)) (hash-put! - _tbl134154_ + _tbl134159_ '%#letrec-values gxc#collect-body-let-values%)) (let () (declare (not safe)) (hash-put! - _tbl134154_ + _tbl134159_ '%#letrec-values* gxc#collect-body-let-values%)) (let () (declare (not safe)) - (hash-put! _tbl134154_ '%#call gxc#collect-object-refs-call%)) + (hash-put! _tbl134159_ '%#call gxc#collect-object-refs-call%)) (let () (declare (not safe)) - (hash-put! _tbl134154_ '%#if gxc#collect-operands)) + (hash-put! _tbl134159_ '%#if gxc#collect-operands)) (let () (declare (not safe)) - (hash-put! _tbl134154_ '%#set! gxc#collect-body-setq%)) + (hash-put! _tbl134159_ '%#set! gxc#collect-body-setq%)) (let () (declare (not safe)) - (hash-put! _tbl134154_ '%#struct-ref gxc#collect-operands)) + (hash-put! _tbl134159_ '%#struct-ref gxc#collect-operands)) (let () (declare (not safe)) - (hash-put! _tbl134154_ '%#struct-set! gxc#collect-operands)) + (hash-put! _tbl134159_ '%#struct-set! gxc#collect-operands)) (let () (declare (not safe)) - (hash-put! _tbl134154_ '%#struct-direct-ref gxc#collect-operands)) + (hash-put! _tbl134159_ '%#struct-direct-ref gxc#collect-operands)) (let () (declare (not safe)) (hash-put! - _tbl134154_ + _tbl134159_ '%#struct-direct-set! gxc#collect-operands)) (let () (declare (not safe)) (hash-put! - _tbl134154_ + _tbl134159_ '%#struct-unchecked-ref gxc#collect-operands)) (let () (declare (not safe)) (hash-put! - _tbl134154_ + _tbl134159_ '%#struct-unchecked-set! gxc#collect-operands)) - _tbl134154_)))) + _tbl134159_)))) (define gxc#apply-collect-object-refs - (lambda (_stx134137_ . _args134139_) - (let ((__tmp135307 + (lambda (_stx134142_ . _args134144_) + (let ((__tmp135312 (lambda () (declare (not safe)) - (if (null? _args134139_) - (gxc#compile-e__0 _stx134137_) - (let ((_arg1134144_ (car _args134139_)) - (_rest134146_ (cdr _args134139_))) - (if (null? _rest134146_) - (gxc#compile-e__1 _stx134137_ _arg1134144_) - (let ((_arg2134149_ (car _rest134146_)) - (_rest134151_ (cdr _rest134146_))) - (if (null? _rest134151_) + (if (null? _args134144_) + (gxc#compile-e__0 _stx134142_) + (let ((_arg1134149_ (car _args134144_)) + (_rest134151_ (cdr _args134144_))) + (if (null? _rest134151_) + (gxc#compile-e__1 _stx134142_ _arg1134149_) + (let ((_arg2134154_ (car _rest134151_)) + (_rest134156_ (cdr _rest134151_))) + (if (null? _rest134156_) (gxc#compile-e__2 - _stx134137_ - _arg1134144_ - _arg2134149_) + _stx134142_ + _arg1134149_ + _arg2134154_) (apply gxc#compile-e - _stx134137_ - _arg1134144_ - _arg2134149_ - _rest134151_)))))))) - (__tmp135306 (force gxc#&collect-object-refs))) + _stx134142_ + _arg1134149_ + _arg2134154_ + _rest134156_)))))))) + (__tmp135311 (force gxc#&collect-object-refs))) (declare (not safe)) (call-with-parameters - __tmp135307 + __tmp135312 gxc#current-compile-methods - __tmp135306)))) + __tmp135311)))) (define gxc#&subst-object-refs (make-promise (lambda () - (let ((_tbl134134_ + (let ((_tbl134139_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp135308 (force gxc#&basic-xform-expression))) + (let ((__tmp135313 (force gxc#&basic-xform-expression))) (declare (not safe)) - (hash-merge! _tbl134134_ __tmp135308)) + (hash-merge! _tbl134139_ __tmp135313)) (let () (declare (not safe)) - (hash-put! _tbl134134_ '%#begin gxc#xform-begin%)) + (hash-put! _tbl134139_ '%#begin gxc#xform-begin%)) (let () (declare (not safe)) - (hash-put! _tbl134134_ '%#call gxc#subst-object-refs-call%)) - _tbl134134_)))) + (hash-put! _tbl134139_ '%#call gxc#subst-object-refs-call%)) + _tbl134139_)))) (define gxc#apply-subst-object-refs - (lambda (_stx134117_ . _args134119_) - (let ((__tmp135310 + (lambda (_stx134122_ . _args134124_) + (let ((__tmp135315 (lambda () (declare (not safe)) - (if (null? _args134119_) - (gxc#compile-e__0 _stx134117_) - (let ((_arg1134124_ (car _args134119_)) - (_rest134126_ (cdr _args134119_))) - (if (null? _rest134126_) - (gxc#compile-e__1 _stx134117_ _arg1134124_) - (let ((_arg2134129_ (car _rest134126_)) - (_rest134131_ (cdr _rest134126_))) - (if (null? _rest134131_) + (if (null? _args134124_) + (gxc#compile-e__0 _stx134122_) + (let ((_arg1134129_ (car _args134124_)) + (_rest134131_ (cdr _args134124_))) + (if (null? _rest134131_) + (gxc#compile-e__1 _stx134122_ _arg1134129_) + (let ((_arg2134134_ (car _rest134131_)) + (_rest134136_ (cdr _rest134131_))) + (if (null? _rest134136_) (gxc#compile-e__2 - _stx134117_ - _arg1134124_ - _arg2134129_) + _stx134122_ + _arg1134129_ + _arg2134134_) (apply gxc#compile-e - _stx134117_ - _arg1134124_ - _arg2134129_ - _rest134131_)))))))) - (__tmp135309 (force gxc#&subst-object-refs))) + _stx134122_ + _arg1134129_ + _arg2134134_ + _rest134136_)))))))) + (__tmp135314 (force gxc#&subst-object-refs))) (declare (not safe)) (call-with-parameters - __tmp135310 + __tmp135315 gxc#current-compile-methods - __tmp135309)))) + __tmp135314)))) (define gxc#generate-method-specializers-define-values% - (lambda (_stx131329_) - (letrec ((_generate-method-bind131331_ - (lambda (_$klass134110_ - _$method-table134111_ - _id134112_ - _$id134113_) - (let ((_$tmp134115_ - (let ((__tmp135311 (gensym '__method))) + (lambda (_stx131334_) + (letrec ((_generate-method-bind131336_ + (lambda (_$klass134115_ + _$method-table134116_ + _id134117_ + _$id134118_) + (let ((_$tmp134120_ + (let ((__tmp135316 (gensym '__method))) (declare (not safe)) - (make-symbol__0 __tmp135311)))) - (let ((__tmp135359 + (make-symbol__0 __tmp135316)))) + (let ((__tmp135364 (let () (declare (not safe)) - (cons _$id134113_ '()))) - (__tmp135312 - (let ((__tmp135313 - (let ((__tmp135314 - (let ((__tmp135357 - (let ((__tmp135358 + (cons _$id134118_ '()))) + (__tmp135317 + (let ((__tmp135318 + (let ((__tmp135319 + (let ((__tmp135362 + (let ((__tmp135363 (let () (declare (not safe)) (cons 'make-promise @@ -236,816 +236,816 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#ref __tmp135358))) - (__tmp135315 - (let ((__tmp135316 - (let ((__tmp135317 - (let ((__tmp135318 + (cons '%#ref __tmp135363))) + (__tmp135320 + (let ((__tmp135321 + (let ((__tmp135322 + (let ((__tmp135323 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp135319 - (let ((__tmp135320 - (let ((__tmp135340 - (let ((__tmp135341 - (let ((__tmp135356 + (let ((__tmp135324 + (let ((__tmp135325 + (let ((__tmp135345 + (let ((__tmp135346 + (let ((__tmp135361 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _$tmp134115_ '()))) - (__tmp135342 - (let ((__tmp135343 - (let ((__tmp135344 - (let ((__tmp135354 - (let ((__tmp135355 + (cons _$tmp134120_ '()))) + (__tmp135347 + (let ((__tmp135348 + (let ((__tmp135349 + (let ((__tmp135359 + (let ((__tmp135360 (let () (declare (not safe)) (cons 'symbolic-table-ref '())))) (declare (not safe)) - (cons '%#ref __tmp135355))) - (__tmp135345 - (let ((__tmp135352 - (let ((__tmp135353 + (cons '%#ref __tmp135360))) + (__tmp135350 + (let ((__tmp135357 + (let ((__tmp135358 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$method-table134111_ '())))) + (cons _$method-table134116_ '())))) (declare (not safe)) - (cons '%#ref __tmp135353))) + (cons '%#ref __tmp135358))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp135346 - (let ((__tmp135350 - (let ((__tmp135351 + (__tmp135351 + (let ((__tmp135355 + (let ((__tmp135356 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _id134112_ '())))) + (cons _id134117_ '())))) (declare (not safe)) - (cons '%#quote __tmp135351))) - (__tmp135347 - (let ((__tmp135348 - (let ((__tmp135349 + (cons '%#quote __tmp135356))) + (__tmp135352 + (let ((__tmp135353 + (let ((__tmp135354 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons '%#quote __tmp135349)))) + (cons '%#quote __tmp135354)))) (declare (not safe)) - (cons __tmp135348 '())))) + (cons __tmp135353 '())))) (declare (not safe)) - (cons __tmp135350 __tmp135347)))) + (cons __tmp135355 __tmp135352)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp135352 - __tmp135346)))) + (cons __tmp135357 + __tmp135351)))) (declare (not safe)) - (cons __tmp135354 __tmp135345)))) + (cons __tmp135359 __tmp135350)))) (declare (not safe)) - (cons '%#call __tmp135344)))) + (cons '%#call __tmp135349)))) (declare (not safe)) - (cons __tmp135343 '())))) + (cons __tmp135348 '())))) (declare (not safe)) - (cons __tmp135356 __tmp135342)))) + (cons __tmp135361 __tmp135347)))) (declare (not safe)) - (cons __tmp135341 '()))) + (cons __tmp135346 '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp135321 - (let ((__tmp135322 - (let ((__tmp135323 + (__tmp135326 + (let ((__tmp135327 + (let ((__tmp135328 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp135338 - (let ((__tmp135339 + (let ((__tmp135343 + (let ((__tmp135344 (let () (declare (not safe)) - (cons _$tmp134115_ '())))) + (cons _$tmp134120_ '())))) (declare (not safe)) - (cons '%#ref __tmp135339))) - (__tmp135324 - (let ((__tmp135336 - (let ((__tmp135337 + (cons '%#ref __tmp135344))) + (__tmp135329 + (let ((__tmp135341 + (let ((__tmp135342 (let () (declare (not safe)) - (cons _$tmp134115_ '())))) + (cons _$tmp134120_ '())))) (declare (not safe)) - (cons '%#ref __tmp135337))) - (__tmp135325 - (let ((__tmp135326 - (let ((__tmp135327 - (let ((__tmp135334 - (let ((__tmp135335 + (cons '%#ref __tmp135342))) + (__tmp135330 + (let ((__tmp135331 + (let ((__tmp135332 + (let ((__tmp135339 + (let ((__tmp135340 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons 'error '())))) (declare (not safe)) - (cons '%#ref __tmp135335))) - (__tmp135328 - (let ((__tmp135332 - (let ((__tmp135333 + (cons '%#ref __tmp135340))) + (__tmp135333 + (let ((__tmp135337 + (let ((__tmp135338 (let () (declare (not safe)) (cons '"Missing method" '())))) (declare (not safe)) - (cons '%#quote __tmp135333))) - (__tmp135329 - (let ((__tmp135330 - (let ((__tmp135331 + (cons '%#quote __tmp135338))) + (__tmp135334 + (let ((__tmp135335 + (let ((__tmp135336 (let () (declare (not safe)) - (cons _id134112_ '())))) + (cons _id134117_ '())))) (declare (not safe)) - (cons '%#quote __tmp135331)))) + (cons '%#quote __tmp135336)))) (declare (not safe)) - (cons __tmp135330 '())))) + (cons __tmp135335 '())))) (declare (not safe)) - (cons __tmp135332 __tmp135329)))) + (cons __tmp135337 __tmp135334)))) (declare (not safe)) - (cons __tmp135334 __tmp135328)))) + (cons __tmp135339 __tmp135333)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#call __tmp135327)))) + (cons '%#call __tmp135332)))) (declare (not safe)) - (cons __tmp135326 '())))) + (cons __tmp135331 '())))) (declare (not safe)) - (cons __tmp135336 __tmp135325)))) + (cons __tmp135341 __tmp135330)))) (declare (not safe)) - (cons __tmp135338 __tmp135324)))) + (cons __tmp135343 __tmp135329)))) (declare (not safe)) - (cons '%#if __tmp135323)))) + (cons '%#if __tmp135328)))) (declare (not safe)) - (cons __tmp135322 '())))) + (cons __tmp135327 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp135340 - __tmp135321)))) + (cons __tmp135345 + __tmp135326)))) (declare (not safe)) - (cons '%#let-values __tmp135320)))) + (cons '%#let-values __tmp135325)))) (declare (not safe)) - (cons __tmp135319 '())))) + (cons __tmp135324 '())))) (declare (not safe)) - (cons '() __tmp135318)))) + (cons '() __tmp135323)))) (declare (not safe)) - (cons '%#lambda __tmp135317)))) + (cons '%#lambda __tmp135322)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp135316 '())))) + (cons __tmp135321 '())))) (declare (not safe)) - (cons __tmp135357 __tmp135315)))) + (cons __tmp135362 __tmp135320)))) (declare (not safe)) - (cons '%#call __tmp135314)))) + (cons '%#call __tmp135319)))) (declare (not safe)) - (cons __tmp135313 '())))) + (cons __tmp135318 '())))) (declare (not safe)) - (cons __tmp135359 __tmp135312))))) - (_generate-slot-bind131332_ - (lambda (_$klass134104_ _id134105_ _$id134106_) - (let ((_$tmp134108_ - (let ((__tmp135360 (gensym '__slot))) + (cons __tmp135364 __tmp135317))))) + (_generate-slot-bind131337_ + (lambda (_$klass134109_ _id134110_ _$id134111_) + (let ((_$tmp134113_ + (let ((__tmp135365 (gensym '__slot))) (declare (not safe)) - (make-symbol__0 __tmp135360)))) - (let ((__tmp135397 + (make-symbol__0 __tmp135365)))) + (let ((__tmp135402 (let () (declare (not safe)) - (cons _$id134106_ '()))) - (__tmp135361 - (let ((__tmp135362 - (let ((__tmp135363 - (let ((__tmp135383 - (let ((__tmp135384 - (let ((__tmp135396 + (cons _$id134111_ '()))) + (__tmp135366 + (let ((__tmp135367 + (let ((__tmp135368 + (let ((__tmp135388 + (let ((__tmp135389 + (let ((__tmp135401 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _$tmp134108_ '()))) - (__tmp135385 - (let ((__tmp135386 - (let ((__tmp135387 - (let ((__tmp135394 - (let ((__tmp135395 + (cons _$tmp134113_ '()))) + (__tmp135390 + (let ((__tmp135391 + (let ((__tmp135392 + (let ((__tmp135399 + (let ((__tmp135400 (let () (declare (not safe)) (cons 'class-slot-offset '())))) (declare (not safe)) - (cons '%#ref __tmp135395))) - (__tmp135388 - (let ((__tmp135392 - (let ((__tmp135393 + (cons '%#ref __tmp135400))) + (__tmp135393 + (let ((__tmp135397 + (let ((__tmp135398 (let () (declare (not safe)) - (cons _$klass134104_ + (cons _$klass134109_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons '%#ref __tmp135393))) + (cons '%#ref __tmp135398))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp135389 - (let ((__tmp135390 - (let ((__tmp135391 + (__tmp135394 + (let ((__tmp135395 + (let ((__tmp135396 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _id134105_ '())))) + (let () (declare (not safe)) (cons _id134110_ '())))) (declare (not safe)) - (cons '%#quote __tmp135391)))) + (cons '%#quote __tmp135396)))) (declare (not safe)) - (cons __tmp135390 '())))) + (cons __tmp135395 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp135392 - __tmp135389)))) + (cons __tmp135397 + __tmp135394)))) (declare (not safe)) - (cons __tmp135394 __tmp135388)))) + (cons __tmp135399 __tmp135393)))) (declare (not safe)) - (cons '%#call __tmp135387)))) + (cons '%#call __tmp135392)))) (declare (not safe)) - (cons __tmp135386 '())))) + (cons __tmp135391 '())))) (declare (not safe)) - (cons __tmp135396 __tmp135385)))) + (cons __tmp135401 __tmp135390)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp135384 '()))) - (__tmp135364 - (let ((__tmp135365 - (let ((__tmp135366 - (let ((__tmp135381 + (cons __tmp135389 '()))) + (__tmp135369 + (let ((__tmp135370 + (let ((__tmp135371 + (let ((__tmp135386 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp135382 + (let ((__tmp135387 (let () (declare (not safe)) - (cons _$tmp134108_ '())))) + (cons _$tmp134113_ '())))) (declare (not safe)) - (cons '%#ref __tmp135382))) - (__tmp135367 - (let ((__tmp135379 - (let ((__tmp135380 + (cons '%#ref __tmp135387))) + (__tmp135372 + (let ((__tmp135384 + (let ((__tmp135385 (let () (declare (not safe)) - (cons _$tmp134108_ '())))) + (cons _$tmp134113_ '())))) (declare (not safe)) - (cons '%#ref __tmp135380))) - (__tmp135368 - (let ((__tmp135369 - (let ((__tmp135370 - (let ((__tmp135377 - (let ((__tmp135378 + (cons '%#ref __tmp135385))) + (__tmp135373 + (let ((__tmp135374 + (let ((__tmp135375 + (let ((__tmp135382 + (let ((__tmp135383 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons 'error '())))) (declare (not safe)) - (cons '%#ref __tmp135378))) - (__tmp135371 - (let ((__tmp135375 - (let ((__tmp135376 + (cons '%#ref __tmp135383))) + (__tmp135376 + (let ((__tmp135380 + (let ((__tmp135381 (let () (declare (not safe)) (cons '"Unknown slot" '())))) (declare (not safe)) - (cons '%#quote __tmp135376))) - (__tmp135372 - (let ((__tmp135373 - (let ((__tmp135374 + (cons '%#quote __tmp135381))) + (__tmp135377 + (let ((__tmp135378 + (let ((__tmp135379 (let () (declare (not safe)) - (cons _id134105_ '())))) + (cons _id134110_ '())))) (declare (not safe)) - (cons '%#quote __tmp135374)))) + (cons '%#quote __tmp135379)))) (declare (not safe)) - (cons __tmp135373 '())))) + (cons __tmp135378 '())))) (declare (not safe)) - (cons __tmp135375 __tmp135372)))) + (cons __tmp135380 __tmp135377)))) (declare (not safe)) - (cons __tmp135377 __tmp135371)))) + (cons __tmp135382 __tmp135376)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#call __tmp135370)))) + (cons '%#call __tmp135375)))) (declare (not safe)) - (cons __tmp135369 '())))) + (cons __tmp135374 '())))) (declare (not safe)) - (cons __tmp135379 __tmp135368)))) + (cons __tmp135384 __tmp135373)))) (declare (not safe)) - (cons __tmp135381 __tmp135367)))) + (cons __tmp135386 __tmp135372)))) (declare (not safe)) - (cons '%#if __tmp135366)))) + (cons '%#if __tmp135371)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp135365 '())))) + (cons __tmp135370 '())))) (declare (not safe)) - (cons __tmp135383 __tmp135364)))) + (cons __tmp135388 __tmp135369)))) (declare (not safe)) - (cons '%#let-values __tmp135363)))) + (cons '%#let-values __tmp135368)))) (declare (not safe)) - (cons __tmp135362 '())))) + (cons __tmp135367 '())))) (declare (not safe)) - (cons __tmp135397 __tmp135361))))) - (_generate-specializer-impl131333_ - (lambda (_$klass134098_ - _$method-table134099_ - _methods-bind134100_ - _slots-bind134101_ - _specializer-impl134102_) - (let ((__tmp135398 - (let ((__tmp135399 - (let ((__tmp135405 - (let ((__tmp135406 + (cons __tmp135402 __tmp135366))))) + (_generate-specializer-impl131338_ + (lambda (_$klass134103_ + _$method-table134104_ + _methods-bind134105_ + _slots-bind134106_ + _specializer-impl134107_) + (let ((__tmp135403 + (let ((__tmp135404 + (let ((__tmp135410 + (let ((__tmp135411 (let () (declare (not safe)) - (cons _$method-table134099_ + (cons _$method-table134104_ '())))) (declare (not safe)) - (cons _$klass134098_ __tmp135406))) - (__tmp135400 - (let ((__tmp135401 - (let ((__tmp135402 - (let ((__tmp135404 + (cons _$klass134103_ __tmp135411))) + (__tmp135405 + (let ((__tmp135406 + (let ((__tmp135407 + (let ((__tmp135409 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (foldr1 cons _slots-bind134101_ _methods-bind134100_))) - (__tmp135403 + (foldr1 cons _slots-bind134106_ _methods-bind134105_))) + (__tmp135408 (let () (declare (not safe)) - (cons _specializer-impl134102_ '())))) + (cons _specializer-impl134107_ '())))) (declare (not safe)) - (cons __tmp135404 __tmp135403)))) + (cons __tmp135409 __tmp135408)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#let-values - __tmp135402)))) + __tmp135407)))) (declare (not safe)) - (cons __tmp135401 '())))) + (cons __tmp135406 '())))) (declare (not safe)) - (cons __tmp135405 __tmp135400)))) + (cons __tmp135410 __tmp135405)))) (declare (not safe)) - (cons '%#lambda __tmp135399)))) + (cons '%#lambda __tmp135404)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp135398 _stx131329_)))) - (_generate-specializer-def131334_ - (lambda (_id134094_ - _specializer-id134095_ - _specializer-impl134096_) - (let ((__tmp135407 - (let ((__tmp135408 - (let ((__tmp135409 - (let ((__tmp135422 - (let ((__tmp135423 - (let ((__tmp135424 - (let ((__tmp135426 + (gxc#xform-wrap-source __tmp135403 _stx131334_)))) + (_generate-specializer-def131339_ + (lambda (_id134099_ + _specializer-id134100_ + _specializer-impl134101_) + (let ((__tmp135412 + (let ((__tmp135413 + (let ((__tmp135414 + (let ((__tmp135427 + (let ((__tmp135428 + (let ((__tmp135429 + (let ((__tmp135431 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _specializer-id134095_ '()))) - (__tmp135425 + (cons _specializer-id134100_ '()))) + (__tmp135430 (let () (declare (not safe)) - (cons _specializer-impl134096_ '())))) + (cons _specializer-impl134101_ '())))) (declare (not safe)) - (cons __tmp135426 __tmp135425)))) + (cons __tmp135431 __tmp135430)))) (declare (not safe)) - (cons '%#define-values __tmp135424)))) + (cons '%#define-values __tmp135429)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp135423 - _stx131329_))) - (__tmp135410 - (let ((__tmp135411 - (let ((__tmp135412 - (let ((__tmp135413 + __tmp135428 + _stx131334_))) + (__tmp135415 + (let ((__tmp135416 + (let ((__tmp135417 + (let ((__tmp135418 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp135420 - (let ((__tmp135421 + (let ((__tmp135425 + (let ((__tmp135426 (let () (declare (not safe)) (cons 'bind-specializer! '())))) (declare (not safe)) - (cons '%#ref __tmp135421))) - (__tmp135414 - (let ((__tmp135418 - (let ((__tmp135419 + (cons '%#ref __tmp135426))) + (__tmp135419 + (let ((__tmp135423 + (let ((__tmp135424 (let () (declare (not safe)) - (cons _id134094_ '())))) + (cons _id134099_ '())))) (declare (not safe)) - (cons '%#ref __tmp135419))) - (__tmp135415 - (let ((__tmp135416 - (let ((__tmp135417 + (cons '%#ref __tmp135424))) + (__tmp135420 + (let ((__tmp135421 + (let ((__tmp135422 (let () (declare (not safe)) - (cons _specializer-id134095_ + (cons _specializer-id134100_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp135417)))) + __tmp135422)))) (declare (not safe)) - (cons __tmp135416 '())))) + (cons __tmp135421 '())))) (declare (not safe)) - (cons __tmp135418 __tmp135415)))) + (cons __tmp135423 __tmp135420)))) (declare (not safe)) - (cons __tmp135420 __tmp135414)))) + (cons __tmp135425 __tmp135419)))) (declare (not safe)) - (cons '%#call __tmp135413)))) + (cons '%#call __tmp135418)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp135412 _stx131329_)))) + (gxc#xform-wrap-source __tmp135417 _stx131334_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp135411 '())))) + (cons __tmp135416 '())))) (declare (not safe)) - (cons __tmp135422 __tmp135410)))) + (cons __tmp135427 __tmp135415)))) (declare (not safe)) - (cons _stx131329_ __tmp135409)))) + (cons _stx131334_ __tmp135414)))) (declare (not safe)) - (cons '%#begin __tmp135408)))) + (cons '%#begin __tmp135413)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp135407 _stx131329_))))) - (let* ((___stx134263134264_ _stx131329_) - (_g131337131357_ + (gxc#xform-wrap-source __tmp135412 _stx131334_))))) + (let* ((___stx134268134269_ _stx131334_) + (_g131342131362_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx134263134264_))))) - (let ((___kont134265134266_ - (lambda (_L131401_ _L131402_) - (let ((_method-calls131421_ + ___stx134268134269_))))) + (let ((___kont134270134271_ + (lambda (_L131406_ _L131407_) + (let ((_method-calls131426_ (let () (declare (not safe)) (make-hash-table-eq))) - (_slot-refs131422_ + (_slot-refs131427_ (let () (declare (not safe)) (make-hash-table-eq))) - (_empty131423_ + (_empty131428_ (let () (declare (not safe)) (make-hash-table-eq)))) - (letrec ((_no-specializer?131425_ + (letrec ((_no-specializer?131430_ (lambda () - (if (let ((__tmp135428 + (if (let ((__tmp135433 (let () (declare (not safe)) (hash-length - _method-calls131421_)))) + _method-calls131426_)))) (declare (not safe)) - (fxzero? __tmp135428)) - (let ((__tmp135427 + (fxzero? __tmp135433)) + (let ((__tmp135432 (let () (declare (not safe)) (hash-length - _slot-refs131422_)))) + _slot-refs131427_)))) (declare (not safe)) - (fxzero? __tmp135427)) + (fxzero? __tmp135432)) '#f)))) (if (let () (declare (not safe)) - (gxc#lambda-expr? _L131401_)) - (let* ((___stx134177134178_ _L131401_) - (_g131812131830_ + (gxc#lambda-expr? _L131406_)) + (let* ((___stx134182134183_ _L131406_) + (_g131817131835_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx134177134178_))))) - (let ((___kont134179134180_ - (lambda (_L131866_ _L131867_ _L131868_) + ___stx134182134183_))))) + (let ((___kont134184134185_ + (lambda (_L131871_ _L131872_ _L131873_) (for-each - (lambda (_g131883131885_) + (lambda (_g131888131890_) (let () (declare (not safe)) (gxc#apply-collect-object-refs - _g131883131885_ - _L131868_ - _method-calls131421_ - _slot-refs131422_))) - _L131866_) + _g131888131890_ + _L131873_ + _method-calls131426_ + _slot-refs131427_))) + _L131871_) (if (let () (declare (not safe)) - (_no-specializer?131425_)) - _stx131329_ - (let* ((_specializer-id131894_ - (let* ((_id131888_ - (let ((__tmp135550 + (_no-specializer?131430_)) + _stx131334_ + (let* ((_specializer-id131899_ + (let* ((_id131893_ + (let ((__tmp135555 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (gx#stx-e _L131402_)))) + (let () (declare (not safe)) (gx#stx-e _L131407_)))) (declare (not safe)) - (make-symbol__1 __tmp135550 '"::specialize"))) - (_specializer-id131891_ - (let ((__tmp135551 + (make-symbol__1 __tmp135555 '"::specialize"))) + (_specializer-id131896_ + (let ((__tmp135556 (let () (declare (not safe)) - (gx#stx-source _stx131329_)))) + (gx#stx-source _stx131334_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _id131888_ __tmp135551)))) + (gx#core-quote-syntax__1 _id131893_ __tmp135556)))) (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _specializer-id131891_)) - _specializer-id131891_)) + (gx#core-bind-runtime!__0 _specializer-id131896_)) + _specializer-id131896_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_$klass131896_ - (let ((__tmp135552 + (_$klass131901_ + (let ((__tmp135557 (gensym '__klass))) (declare (not safe)) (make-symbol__0 - __tmp135552))) - (_$method-table131898_ - (let ((__tmp135553 + __tmp135557))) + (_$method-table131903_ + (let ((__tmp135558 (gensym '__method-table))) (declare (not safe)) (make-symbol__0 - __tmp135553))) - (_methods131900_ + __tmp135558))) + (_methods131905_ (let () (declare (not safe)) (hash-keys - _method-calls131421_))) - (_$methods131904_ - (map (lambda (_id131902_) - (let ((__tmp135554 + _method-calls131426_))) + (_$methods131909_ + (map (lambda (_id131907_) + (let ((__tmp135559 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gensym _id131902_))) + (gensym _id131907_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp135554))) - _methods131900_)) + (make-symbol__1 '"__" __tmp135559))) + _methods131905_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g135555_ + (_g135560_ (for-each - (lambda (_g131905131908_ - _g131906131910_) + (lambda (_g131910131913_ + _g131911131915_) (let () (declare (not safe)) (hash-put! - _method-calls131421_ - _g131905131908_ - _g131906131910_))) - _methods131900_ - _$methods131904_)) - (_methods-bind131921_ - (map (lambda (_g131913131916_ + _method-calls131426_ + _g131910131913_ + _g131911131915_))) + _methods131905_ + _$methods131909_)) + (_methods-bind131926_ + (map (lambda (_g131918131921_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g131914131918_) + _g131919131923_) (let () (declare (not safe)) - (_generate-method-bind131331_ - _$klass131896_ - _$method-table131898_ - _g131913131916_ - _g131914131918_))) - _methods131900_ - _$methods131904_)) + (_generate-method-bind131336_ + _$klass131901_ + _$method-table131903_ + _g131918131921_ + _g131919131923_))) + _methods131905_ + _$methods131909_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_slots131923_ + (_slots131928_ (let () (declare (not safe)) (hash-keys - _slot-refs131422_))) - (_$slots131927_ - (map (lambda (_id131925_) - (let ((__tmp135556 + _slot-refs131427_))) + (_$slots131932_ + (map (lambda (_id131930_) + (let ((__tmp135561 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gensym _id131925_))) + (gensym _id131930_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp135556))) - _slots131923_)) + (make-symbol__1 '"__" __tmp135561))) + _slots131928_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g135557_ + (_g135562_ (for-each - (lambda (_g131928131931_ - _g131929131933_) + (lambda (_g131933131936_ + _g131934131938_) (let () (declare (not safe)) (hash-put! - _slot-refs131422_ - _g131928131931_ - _g131929131933_))) - _slots131923_ - _$slots131927_)) - (_slots-bind131944_ - (map (lambda (_g131936131939_ + _slot-refs131427_ + _g131933131936_ + _g131934131938_))) + _slots131928_ + _$slots131932_)) + (_slots-bind131949_ + (map (lambda (_g131941131944_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g131937131941_) + _g131942131946_) (let () (declare (not safe)) - (_generate-slot-bind131332_ - _$klass131896_ - _g131936131939_ - _g131937131941_))) - _slots131923_ - _$slots131927_)) + (_generate-slot-bind131337_ + _$klass131901_ + _g131941131944_ + _g131942131946_))) + _slots131928_ + _$slots131932_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_specializer-body131950_ - (map (lambda (_g131945131947_) + (_specializer-body131955_ + (map (lambda (_g131950131952_) (let () (declare (not safe)) (gxc#apply-subst-object-refs - _g131945131947_ - _L131868_ - _$klass131896_ - _method-calls131421_ - _slot-refs131422_))) - _L131866_)) - (_specializer-impl131952_ - (let ((__tmp135558 - (let ((__tmp135559 + _g131950131952_ + _L131873_ + _$klass131901_ + _method-calls131426_ + _slot-refs131427_))) + _L131871_)) + (_specializer-impl131957_ + (let ((__tmp135563 + (let ((__tmp135564 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp135560 + (let ((__tmp135565 (let () (declare (not safe)) - (cons _L131868_ _L131867_)))) + (cons _L131873_ _L131872_)))) (declare (not safe)) - (cons __tmp135560 _specializer-body131950_)))) + (cons __tmp135565 _specializer-body131955_)))) (declare (not safe)) - (cons '%#lambda __tmp135559)))) + (cons '%#lambda __tmp135564)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp135558 _stx131329_))) + (gxc#xform-wrap-source __tmp135563 _stx131334_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_specializer-impl131954_ + (_specializer-impl131959_ (let () (declare (not safe)) - (_generate-specializer-impl131333_ - _$klass131896_ - _$method-table131898_ - _methods-bind131921_ - _slots-bind131944_ - _specializer-impl131952_)))) - (let ((__tmp135562 + (_generate-specializer-impl131338_ + _$klass131901_ + _$method-table131903_ + _methods-bind131926_ + _slots-bind131949_ + _specializer-impl131957_)))) + (let ((__tmp135567 (let () (declare (not safe)) - (gx#stx-e _L131402_))) - (__tmp135561 + (gx#stx-e _L131407_))) + (__tmp135566 (let () (declare (not safe)) (gx#stx-e - _specializer-id131894_)))) + _specializer-id131899_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp135562 + __tmp135567 '" => " - __tmp135561)) + __tmp135566)) (let () (declare (not safe)) - (_generate-specializer-def131334_ - _L131402_ - _specializer-id131894_ - _specializer-impl131954_)))))) - (___kont134181134182_ - (lambda () _stx131329_))) + (_generate-specializer-def131339_ + _L131407_ + _specializer-id131899_ + _specializer-impl131959_)))))) + (___kont134186134187_ + (lambda () _stx131334_))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx134177134178_)) - (let ((_e131819131842_ + (gx#stx-pair? ___stx134182134183_)) + (let ((_e131824131847_ (let () (declare (not safe)) - (gx#stx-e ___stx134177134178_)))) - (let ((_tl131817131847_ + (gx#stx-e ___stx134182134183_)))) + (let ((_tl131822131852_ (let () (declare (not safe)) - (##cdr _e131819131842_))) - (_hd131818131845_ + (##cdr _e131824131847_))) + (_hd131823131850_ (let () (declare (not safe)) - (##car _e131819131842_)))) + (##car _e131824131847_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl131817131847_)) - (let ((_e131822131850_ + (gx#stx-pair? _tl131822131852_)) + (let ((_e131827131855_ (let () (declare (not safe)) (gx#stx-e - _tl131817131847_)))) - (let ((_tl131820131855_ + _tl131822131852_)))) + (let ((_tl131825131860_ (let () (declare (not safe)) - (##cdr _e131822131850_))) - (_hd131821131853_ + (##cdr _e131827131855_))) + (_hd131826131858_ (let () (declare (not safe)) - (##car _e131822131850_)))) + (##car _e131827131855_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd131821131853_)) - (let ((_e131825131858_ + _hd131826131858_)) + (let ((_e131830131863_ (let () (declare (not safe)) (gx#stx-e - _hd131821131853_)))) - (let ((_tl131823131863_ + _hd131826131858_)))) + (let ((_tl131828131868_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e131825131858_))) - (_hd131824131861_ - (let () (declare (not safe)) (##car _e131825131858_)))) - (___kont134179134180_ - _tl131820131855_ - _tl131823131863_ - _hd131824131861_))) + (##cdr _e131830131863_))) + (_hd131829131866_ + (let () (declare (not safe)) (##car _e131830131863_)))) + (___kont134184134185_ + _tl131825131860_ + _tl131828131868_ + _hd131829131866_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont134181134182_)))) - (___kont134181134182_)))) - (___kont134181134182_)))) + (___kont134186134187_)))) + (___kont134186134187_)))) + (___kont134186134187_)))) (if (let () (declare (not safe)) - (gxc#case-lambda-expr? _L131401_)) - (let* ((_g131960131979_ - (lambda (_g131961131976_) + (gxc#case-lambda-expr? _L131406_)) + (let* ((_g131965131984_ + (lambda (_g131966131981_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g131961131976_)))) - (_g131959132262_ - (lambda (_g131961131982_) + _g131966131981_)))) + (_g131964132267_ + (lambda (_g131966131987_) (if (let () (declare (not safe)) (gx#stx-pair? - _g131961131982_)) - (let ((_e131965131984_ + _g131966131987_)) + (let ((_e131970131989_ (let () (declare (not safe)) (gx#stx-e - _g131961131982_)))) - (let ((_hd131964131987_ + _g131966131987_)))) + (let ((_hd131969131992_ (let () (declare (not safe)) - (##car _e131965131984_))) - (_tl131963131989_ + (##car _e131970131989_))) + (_tl131968131994_ (let () (declare (not safe)) - (##cdr _e131965131984_)))) + (##cdr _e131970131989_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl131963131989_)) - (let ((_g135533_ + _tl131968131994_)) + (let ((_g135538_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _tl131963131989_ '0)))) + (gx#syntax-split-splice _tl131968131994_ '0)))) (begin - (let ((_g135534_ + (let ((_g135539_ (let () (declare (not safe)) - (if (##values? _g135533_) - (##vector-length _g135533_) + (if (##values? _g135538_) + (##vector-length _g135538_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g135534_ 2))) - (error "Context expects 2 values" _g135534_))) - (let ((_target131966131992_ + (##fx= _g135539_ 2))) + (error "Context expects 2 values" _g135539_))) + (let ((_target131971131997_ (let () (declare (not safe)) - (##vector-ref _g135533_ 0))) - (_tl131968131994_ + (##vector-ref _g135538_ 0))) + (_tl131973131999_ (let () (declare (not safe)) - (##vector-ref _g135533_ 1)))) + (##vector-ref _g135538_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl131968131994_)) - (letrec ((_loop131969131997_ - (lambda (_hd131967132000_ - _clause131973132002_) + (gx#stx-null? _tl131973131999_)) + (letrec ((_loop131974132002_ + (lambda (_hd131972132005_ + _clause131978132007_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd131967132000_)) - (let ((_e131970132005_ + (gx#stx-pair? _hd131972132005_)) + (let ((_e131975132010_ (let () (declare (not safe)) (gx#stx-e - _hd131967132000_)))) - (let ((_lp-hd131971132008_ + _hd131972132005_)))) + (let ((_lp-hd131976132013_ (let () (declare (not safe)) - (##car _e131970132005_))) - (_lp-tl131972132010_ + (##car _e131975132010_))) + (_lp-tl131977132015_ (let () (declare (not safe)) - (##cdr _e131970132005_)))) - (let ((__tmp135549 + (##cdr _e131975132010_)))) + (let ((__tmp135554 (let () (declare (not safe)) - (cons _lp-hd131971132008_ - _clause131973132002_)))) + (cons _lp-hd131976132013_ + _clause131978132007_)))) (declare (not safe)) - (_loop131969131997_ - _lp-tl131972132010_ - __tmp135549)))) - (let ((_clause131974132013_ - (reverse _clause131973132002_))) - ((lambda (_L132016_) + (_loop131974132002_ + _lp-tl131977132015_ + __tmp135554)))) + (let ((_clause131979132018_ + (reverse _clause131978132007_))) + ((lambda (_L132021_) (for-each - (lambda (_clause132029_) - (let* ((___stx134203134204_ - _clause132029_) - (_g132032132047_ + (lambda (_clause132034_) + (let* ((___stx134208134209_ + _clause132034_) + (_g132037132052_ (lambda () (let () (declare @@ -1053,7711 +1053,7711 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx134203134204_))))) - (let ((___kont134205134206_ - (lambda (_L132075_ + ___stx134208134209_))))) + (let ((___kont134210134211_ + (lambda (_L132080_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L132076_ - _L132077_) + _L132081_ + _L132082_) (for-each - (lambda (_g132092132094_) + (lambda (_g132097132099_) (let () (declare (not safe)) (gxc#apply-collect-object-refs - _g132092132094_ - _L132077_ - _method-calls131421_ - _slot-refs131422_))) - _L132075_))) - (___kont134207134208_ (lambda () '#!void))) + _g132097132099_ + _L132082_ + _method-calls131426_ + _slot-refs131427_))) + _L132080_))) + (___kont134212134213_ (lambda () '#!void))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - ___stx134203134204_)) - (let ((_e132039132059_ + ___stx134208134209_)) + (let ((_e132044132064_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e ___stx134203134204_)))) - (let ((_tl132037132064_ + (gx#stx-e ___stx134208134209_)))) + (let ((_tl132042132069_ (let () (declare (not safe)) - (##cdr _e132039132059_))) - (_hd132038132062_ + (##cdr _e132044132064_))) + (_hd132043132067_ (let () (declare (not safe)) - (##car _e132039132059_)))) + (##car _e132044132064_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd132038132062_)) - (let ((_e132042132067_ + (gx#stx-pair? _hd132043132067_)) + (let ((_e132047132072_ (let () (declare (not safe)) - (gx#stx-e _hd132038132062_)))) - (let ((_tl132040132072_ + (gx#stx-e _hd132043132067_)))) + (let ((_tl132045132077_ (let () (declare (not safe)) - (##cdr _e132042132067_))) - (_hd132041132070_ + (##cdr _e132047132072_))) + (_hd132046132075_ (let () (declare (not safe)) - (##car _e132042132067_)))) - (___kont134205134206_ - _tl132037132064_ - _tl132040132072_ - _hd132041132070_))) - (___kont134207134208_)))) - (___kont134207134208_))))) + (##car _e132047132072_)))) + (___kont134210134211_ + _tl132042132069_ + _tl132045132077_ + _hd132046132075_))) + (___kont134212134213_)))) + (___kont134212134213_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp135535 - (lambda (_g132099132102_ - _g132100132104_) + (let ((__tmp135540 + (lambda (_g132104132107_ + _g132105132109_) (let () (declare (not safe)) - (cons _g132099132102_ - _g132100132104_))))) + (cons _g132104132107_ + _g132105132109_))))) (declare (not safe)) - (foldr1 __tmp135535 + (foldr1 __tmp135540 '() - _L132016_))) + _L132021_))) (if (let () (declare (not safe)) - (_no-specializer?131425_)) - _stx131329_ - (let* ((_specializer-id132113_ - (let* ((_id132107_ + (_no-specializer?131430_)) + _stx131334_ + (let* ((_specializer-id132118_ + (let* ((_id132112_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp135536 + (let ((__tmp135541 (let () (declare (not safe)) - (gx#stx-e _L131402_)))) + (gx#stx-e _L131407_)))) (declare (not safe)) - (make-symbol__1 __tmp135536 '"::specialize"))) - (_specializer-id132110_ - (let ((__tmp135537 + (make-symbol__1 __tmp135541 '"::specialize"))) + (_specializer-id132115_ + (let ((__tmp135542 (let () (declare (not safe)) - (gx#stx-source _stx131329_)))) + (gx#stx-source _stx131334_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _id132107_ __tmp135537)))) + (gx#core-quote-syntax__1 _id132112_ __tmp135542)))) (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _specializer-id132110_)) - _specializer-id132110_)) - (_$klass132115_ - (let ((__tmp135538 (gensym '__klass))) + (gx#core-bind-runtime!__0 _specializer-id132115_)) + _specializer-id132115_)) + (_$klass132120_ + (let ((__tmp135543 (gensym '__klass))) (declare (not safe)) - (make-symbol__0 __tmp135538))) - (_$method-table132117_ - (let ((__tmp135539 (gensym '__method-table))) + (make-symbol__0 __tmp135543))) + (_$method-table132122_ + (let ((__tmp135544 (gensym '__method-table))) (declare (not safe)) - (make-symbol__0 __tmp135539))) - (_methods132119_ + (make-symbol__0 __tmp135544))) + (_methods132124_ (let () (declare (not safe)) - (hash-keys _method-calls131421_))) - (_$methods132123_ - (map (lambda (_id132121_) - (let ((__tmp135540 (gensym _id132121_))) + (hash-keys _method-calls131426_))) + (_$methods132128_ + (map (lambda (_id132126_) + (let ((__tmp135545 (gensym _id132126_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp135540))) - _methods132119_)) - (_g135541_ + (make-symbol__1 '"__" __tmp135545))) + _methods132124_)) + (_g135546_ (for-each - (lambda (_g132124132127_ _g132125132129_) + (lambda (_g132129132132_ _g132130132134_) (let () (declare (not safe)) (hash-put! - _method-calls131421_ - _g132124132127_ - _g132125132129_))) - _methods132119_ - _$methods132123_)) - (_methods-bind132140_ - (map (lambda (_g132132132135_ _g132133132137_) + _method-calls131426_ + _g132129132132_ + _g132130132134_))) + _methods132124_ + _$methods132128_)) + (_methods-bind132145_ + (map (lambda (_g132137132140_ _g132138132142_) (let () (declare (not safe)) - (_generate-method-bind131331_ - _$klass132115_ - _$method-table132117_ - _g132132132135_ - _g132133132137_))) - _methods132119_ - _$methods132123_)) - (_slots132142_ - (let () (declare (not safe)) (hash-keys _slot-refs131422_))) - (_$slots132146_ - (map (lambda (_id132144_) - (let ((__tmp135542 (gensym _id132144_))) + (_generate-method-bind131336_ + _$klass132120_ + _$method-table132122_ + _g132137132140_ + _g132138132142_))) + _methods132124_ + _$methods132128_)) + (_slots132147_ + (let () (declare (not safe)) (hash-keys _slot-refs131427_))) + (_$slots132151_ + (map (lambda (_id132149_) + (let ((__tmp135547 (gensym _id132149_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp135542))) - _slots132142_)) - (_g135543_ + (make-symbol__1 '"__" __tmp135547))) + _slots132147_)) + (_g135548_ (for-each - (lambda (_g132147132150_ _g132148132152_) + (lambda (_g132152132155_ _g132153132157_) (let () (declare (not safe)) (hash-put! - _slot-refs131422_ - _g132147132150_ - _g132148132152_))) - _slots132142_ - _$slots132146_)) - (_slots-bind132163_ - (map (lambda (_g132155132158_ _g132156132160_) + _slot-refs131427_ + _g132152132155_ + _g132153132157_))) + _slots132147_ + _$slots132151_)) + (_slots-bind132168_ + (map (lambda (_g132160132163_ _g132161132165_) (let () (declare (not safe)) - (_generate-slot-bind131332_ - _$klass132115_ - _g132155132158_ - _g132156132160_))) - _slots132142_ - _$slots132146_)) - (_specializer-clauses132255_ - (map (lambda (_clause132165_) - (let* ((___stx134223134224_ _clause132165_) - (_g132168132183_ + (_generate-slot-bind131337_ + _$klass132120_ + _g132160132163_ + _g132161132165_))) + _slots132147_ + _$slots132151_)) + (_specializer-clauses132260_ + (map (lambda (_clause132170_) + (let* ((___stx134228134229_ _clause132170_) + (_g132173132188_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx134223134224_))))) - (let ((___kont134225134226_ - (lambda (_L132211_ _L132212_ _L132213_) - (let* ((_body132243_ - (map (lambda (_g132238132240_) + ___stx134228134229_))))) + (let ((___kont134230134231_ + (lambda (_L132216_ _L132217_ _L132218_) + (let* ((_body132248_ + (map (lambda (_g132243132245_) (let () (declare (not safe)) (gxc#apply-subst-object-refs - _g132238132240_ - _L132213_ - _$klass132115_ - _method-calls131421_ - _slot-refs131422_))) - _L132211_)) - (__tmp135544 + _g132243132245_ + _L132218_ + _$klass132120_ + _method-calls131426_ + _slot-refs131427_))) + _L132216_)) + (__tmp135549 (let () (declare (not safe)) - (cons _L132213_ _L132212_)))) + (cons _L132218_ _L132217_)))) (declare (not safe)) - (cons __tmp135544 _body132243_)))) - (___kont134227134228_ - (lambda () _clause132165_))) + (cons __tmp135549 _body132248_)))) + (___kont134232134233_ + (lambda () _clause132170_))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx134223134224_)) - (let ((_e132175132195_ + (gx#stx-pair? ___stx134228134229_)) + (let ((_e132180132200_ (let () (declare (not safe)) - (gx#stx-e ___stx134223134224_)))) - (let ((_tl132173132200_ + (gx#stx-e ___stx134228134229_)))) + (let ((_tl132178132205_ (let () (declare (not safe)) - (##cdr _e132175132195_))) - (_hd132174132198_ + (##cdr _e132180132200_))) + (_hd132179132203_ (let () (declare (not safe)) - (##car _e132175132195_)))) + (##car _e132180132200_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd132174132198_)) - (let ((_e132178132203_ + (gx#stx-pair? _hd132179132203_)) + (let ((_e132183132208_ (let () (declare (not safe)) (gx#stx-e - _hd132174132198_)))) - (let ((_tl132176132208_ + _hd132179132203_)))) + (let ((_tl132181132213_ (let () (declare (not safe)) - (##cdr _e132178132203_))) - (_hd132177132206_ + (##cdr _e132183132208_))) + (_hd132182132211_ (let () (declare (not safe)) - (##car _e132178132203_)))) - (___kont134225134226_ - _tl132173132200_ - _tl132176132208_ - _hd132177132206_))) - (___kont134227134228_)))) - (___kont134227134228_))))) - (let ((__tmp135545 - (lambda (_g132247132250_ _g132248132252_) + (##car _e132183132208_)))) + (___kont134230134231_ + _tl132178132205_ + _tl132181132213_ + _hd132182132211_))) + (___kont134232134233_)))) + (___kont134232134233_))))) + (let ((__tmp135550 + (lambda (_g132252132255_ _g132253132257_) (let () (declare (not safe)) - (cons _g132247132250_ _g132248132252_))))) + (cons _g132252132255_ _g132253132257_))))) (declare (not safe)) - (foldr1 __tmp135545 '() _L132016_)))) - (_specializer-impl132257_ - (let ((__tmp135546 + (foldr1 __tmp135550 '() _L132021_)))) + (_specializer-impl132262_ + (let ((__tmp135551 (let () (declare (not safe)) - (cons '%#case-lambda _specializer-clauses132255_)))) + (cons '%#case-lambda _specializer-clauses132260_)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp135546 _stx131329_))) - (_specializer-impl132259_ + (gxc#xform-wrap-source __tmp135551 _stx131334_))) + (_specializer-impl132264_ (let () (declare (not safe)) - (_generate-specializer-impl131333_ - _$klass132115_ - _$method-table132117_ - _methods-bind132140_ - _slots-bind132163_ - _specializer-impl132257_)))) + (_generate-specializer-impl131338_ + _$klass132120_ + _$method-table132122_ + _methods-bind132145_ + _slots-bind132168_ + _specializer-impl132262_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp135548 + (let ((__tmp135553 (let () (declare (not safe)) (gx#stx-e - _L131402_))) - (__tmp135547 + _L131407_))) + (__tmp135552 (let () (declare (not safe)) (gx#stx-e - _specializer-id132113_)))) + _specializer-id132118_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp135548 + __tmp135553 '" => " - __tmp135547)) + __tmp135552)) (let () (declare (not safe)) - (_generate-specializer-def131334_ - _L131402_ - _specializer-id132113_ - _specializer-impl132259_))))) - _clause131974132013_)))))) + (_generate-specializer-def131339_ + _L131407_ + _specializer-id132118_ + _specializer-impl132264_))))) + _clause131979132018_)))))) (let () (declare (not safe)) - (_loop131969131997_ _target131966131992_ '()))) + (_loop131974132002_ _target131971131997_ '()))) (let () (declare (not safe)) - (_g131960131979_ _g131961131982_)))))) + (_g131965131984_ _g131966131987_)))))) (let () (declare (not safe)) - (_g131960131979_ _g131961131982_))))) + (_g131965131984_ _g131966131987_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g131960131979_ - _g131961131982_)))))) + (_g131965131984_ + _g131966131987_)))))) (declare (not safe)) - (_g131959132262_ _L131401_)) + (_g131964132267_ _L131406_)) (if (let () (declare (not safe)) - (gxc#opt-lambda-expr? _L131401_)) - (let* ((_g132265132295_ - (lambda (_g132266132292_) + (gxc#opt-lambda-expr? _L131406_)) + (let* ((_g132270132300_ + (lambda (_g132271132297_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g132266132292_)))) - (_g132264132900_ - (lambda (_g132266132298_) + _g132271132297_)))) + (_g132269132905_ + (lambda (_g132271132303_) (if (let () (declare (not safe)) (gx#stx-pair? - _g132266132298_)) - (let ((_e132272132300_ + _g132271132303_)) + (let ((_e132277132305_ (let () (declare (not safe)) (gx#stx-e - _g132266132298_)))) - (let ((_hd132271132303_ + _g132271132303_)))) + (let ((_hd132276132308_ (let () (declare (not safe)) - (##car _e132272132300_))) - (_tl132270132305_ + (##car _e132277132305_))) + (_tl132275132310_ (let () (declare (not safe)) - (##cdr _e132272132300_)))) + (##cdr _e132277132305_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl132270132305_)) - (let ((_e132275132308_ + _tl132275132310_)) + (let ((_e132280132313_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl132270132305_)))) - (let ((_hd132274132311_ + (gx#stx-e _tl132275132310_)))) + (let ((_hd132279132316_ (let () (declare (not safe)) - (##car _e132275132308_))) - (_tl132273132313_ + (##car _e132280132313_))) + (_tl132278132318_ (let () (declare (not safe)) - (##cdr _e132275132308_)))) + (##cdr _e132280132313_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd132274132311_)) - (let ((_e132278132316_ + (gx#stx-pair? _hd132279132316_)) + (let ((_e132283132321_ (let () (declare (not safe)) - (gx#stx-e _hd132274132311_)))) - (let ((_hd132277132319_ + (gx#stx-e _hd132279132316_)))) + (let ((_hd132282132324_ (let () (declare (not safe)) - (##car _e132278132316_))) - (_tl132276132321_ + (##car _e132283132321_))) + (_tl132281132326_ (let () (declare (not safe)) - (##cdr _e132278132316_)))) + (##cdr _e132283132321_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd132277132319_)) - (let ((_e132281132324_ + (gx#stx-pair? _hd132282132324_)) + (let ((_e132286132329_ (let () (declare (not safe)) - (gx#stx-e _hd132277132319_)))) - (let ((_hd132280132327_ + (gx#stx-e _hd132282132324_)))) + (let ((_hd132285132332_ (let () (declare (not safe)) - (##car _e132281132324_))) - (_tl132279132329_ + (##car _e132286132329_))) + (_tl132284132334_ (let () (declare (not safe)) - (##cdr _e132281132324_)))) + (##cdr _e132286132329_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd132280132327_)) - (let ((_e132284132332_ + (gx#stx-pair? _hd132285132332_)) + (let ((_e132289132337_ (let () (declare (not safe)) (gx#stx-e - _hd132280132327_)))) - (let ((_hd132283132335_ + _hd132285132332_)))) + (let ((_hd132288132340_ (let () (declare (not safe)) - (##car _e132284132332_))) - (_tl132282132337_ + (##car _e132289132337_))) + (_tl132287132342_ (let () (declare (not safe)) - (##cdr _e132284132332_)))) + (##cdr _e132289132337_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl132282132337_)) + _tl132287132342_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl132279132329_)) - (let ((_e132287132340_ + _tl132284132334_)) + (let ((_e132292132345_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl132279132329_)))) - (let ((_hd132286132343_ - (let () (declare (not safe)) (##car _e132287132340_))) - (_tl132285132345_ - (let () (declare (not safe)) (##cdr _e132287132340_)))) + (gx#stx-e _tl132284132334_)))) + (let ((_hd132291132348_ + (let () (declare (not safe)) (##car _e132292132345_))) + (_tl132290132350_ + (let () (declare (not safe)) (##cdr _e132292132345_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl132285132345_)) + (gx#stx-null? _tl132290132350_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl132276132321_)) + (gx#stx-null? _tl132281132326_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl132273132313_)) - (let ((_e132290132348_ + (gx#stx-pair? _tl132278132318_)) + (let ((_e132295132353_ (let () (declare (not safe)) - (gx#stx-e _tl132273132313_)))) - (let ((_hd132289132351_ + (gx#stx-e _tl132278132318_)))) + (let ((_hd132294132356_ (let () (declare (not safe)) - (##car _e132290132348_))) - (_tl132288132353_ + (##car _e132295132353_))) + (_tl132293132358_ (let () (declare (not safe)) - (##cdr _e132290132348_)))) + (##cdr _e132295132353_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl132288132353_)) - ((lambda (_L132356_ _L132357_ _L132358_) - (let* ((_g132381132399_ - (lambda (_g132382132396_) + (gx#stx-null? _tl132293132358_)) + ((lambda (_L132361_ _L132362_ _L132363_) + (let* ((_g132386132404_ + (lambda (_g132387132401_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g132382132396_)))) - (_g132380132450_ - (lambda (_g132382132402_) + _g132387132401_)))) + (_g132385132455_ + (lambda (_g132387132407_) (if (let () (declare (not safe)) (gx#stx-pair? - _g132382132402_)) - (let ((_e132388132404_ + _g132387132407_)) + (let ((_e132393132409_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _g132382132402_)))) - (let ((_hd132387132407_ - (let () (declare (not safe)) (##car _e132388132404_))) - (_tl132386132409_ + (gx#stx-e _g132387132407_)))) + (let ((_hd132392132412_ + (let () (declare (not safe)) (##car _e132393132409_))) + (_tl132391132414_ (let () (declare (not safe)) - (##cdr _e132388132404_)))) + (##cdr _e132393132409_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl132386132409_)) - (let ((_e132391132412_ + (gx#stx-pair? _tl132391132414_)) + (let ((_e132396132417_ (let () (declare (not safe)) - (gx#stx-e _tl132386132409_)))) - (let ((_hd132390132415_ + (gx#stx-e _tl132391132414_)))) + (let ((_hd132395132420_ (let () (declare (not safe)) - (##car _e132391132412_))) - (_tl132389132417_ + (##car _e132396132417_))) + (_tl132394132422_ (let () (declare (not safe)) - (##cdr _e132391132412_)))) + (##cdr _e132396132417_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd132390132415_)) - (let ((_e132394132420_ + (gx#stx-pair? _hd132395132420_)) + (let ((_e132399132425_ (let () (declare (not safe)) - (gx#stx-e _hd132390132415_)))) - (let ((_hd132393132423_ + (gx#stx-e _hd132395132420_)))) + (let ((_hd132398132428_ (let () (declare (not safe)) - (##car _e132394132420_))) - (_tl132392132425_ + (##car _e132399132425_))) + (_tl132397132430_ (let () (declare (not safe)) - (##cdr _e132394132420_)))) - ((lambda (_L132428_ _L132429_ _L132430_) + (##cdr _e132399132425_)))) + ((lambda (_L132433_ _L132434_ _L132435_) (for-each - (lambda (_g132445132447_) + (lambda (_g132450132452_) (let () (declare (not safe)) (gxc#apply-collect-object-refs - _g132445132447_ - _L132430_ - _method-calls131421_ - _slot-refs131422_))) - _L132428_)) - _tl132389132417_ - _tl132392132425_ - _hd132393132423_))) + _g132450132452_ + _L132435_ + _method-calls131426_ + _slot-refs131427_))) + _L132433_)) + _tl132394132422_ + _tl132397132430_ + _hd132398132428_))) (let () (declare (not safe)) - (_g132381132399_ _g132382132402_))))) + (_g132386132404_ _g132387132407_))))) (let () (declare (not safe)) - (_g132381132399_ _g132382132402_))))) + (_g132386132404_ _g132387132407_))))) (let () (declare (not safe)) - (_g132381132399_ _g132382132402_)))))) + (_g132386132404_ _g132387132407_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g132380132450_ _L132357_)) - (let* ((_g132453132472_ - (lambda (_g132454132469_) + (_g132385132455_ _L132362_)) + (let* ((_g132458132477_ + (lambda (_g132459132474_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g132454132469_)))) - (_g132452132591_ - (lambda (_g132454132475_) + _g132459132474_)))) + (_g132457132596_ + (lambda (_g132459132480_) (if (let () (declare (not safe)) (gx#stx-pair? - _g132454132475_)) - (let ((_e132458132477_ + _g132459132480_)) + (let ((_e132463132482_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _g132454132475_)))) - (let ((_hd132457132480_ - (let () (declare (not safe)) (##car _e132458132477_))) - (_tl132456132482_ + (gx#stx-e _g132459132480_)))) + (let ((_hd132462132485_ + (let () (declare (not safe)) (##car _e132463132482_))) + (_tl132461132487_ (let () (declare (not safe)) - (##cdr _e132458132477_)))) + (##cdr _e132463132482_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl132456132482_)) - (let ((_g135503_ + (gx#stx-pair/null? _tl132461132487_)) + (let ((_g135508_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl132456132482_ + _tl132461132487_ '0)))) (begin - (let ((_g135504_ + (let ((_g135509_ (let () (declare (not safe)) - (if (##values? _g135503_) - (##vector-length _g135503_) + (if (##values? _g135508_) + (##vector-length _g135508_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g135504_ 2))) + (##fx= _g135509_ 2))) (error "Context expects 2 values" - _g135504_))) - (let ((_target132459132485_ + _g135509_))) + (let ((_target132464132490_ (let () (declare (not safe)) - (##vector-ref _g135503_ 0))) - (_tl132461132487_ + (##vector-ref _g135508_ 0))) + (_tl132466132492_ (let () (declare (not safe)) - (##vector-ref _g135503_ 1)))) + (##vector-ref _g135508_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl132461132487_)) - (letrec ((_loop132462132490_ - (lambda (_hd132460132493_ - _clause132466132495_) + (gx#stx-null? _tl132466132492_)) + (letrec ((_loop132467132495_ + (lambda (_hd132465132498_ + _clause132471132500_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd132460132493_)) - (let ((_e132463132498_ + _hd132465132498_)) + (let ((_e132468132503_ (let () (declare (not safe)) (gx#stx-e - _hd132460132493_)))) - (let ((_lp-hd132464132501_ + _hd132465132498_)))) + (let ((_lp-hd132469132506_ (let () (declare (not safe)) - (##car _e132463132498_))) - (_lp-tl132465132503_ + (##car _e132468132503_))) + (_lp-tl132470132508_ (let () (declare (not safe)) - (##cdr _e132463132498_)))) - (let ((__tmp135506 + (##cdr _e132468132503_)))) + (let ((__tmp135511 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _lp-hd132464132501_ _clause132466132495_)))) + (cons _lp-hd132469132506_ _clause132471132500_)))) (declare (not safe)) - (_loop132462132490_ _lp-tl132465132503_ __tmp135506)))) + (_loop132467132495_ _lp-tl132470132508_ __tmp135511)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_clause132467132506_ - (reverse _clause132466132495_))) - ((lambda (_L132509_) + (let ((_clause132472132511_ + (reverse _clause132471132500_))) + ((lambda (_L132514_) (for-each - (lambda (_clause132522_) - (let* ((_g132524132539_ + (lambda (_clause132527_) + (let* ((_g132529132544_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g132525132536_) + (lambda (_g132530132541_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g132525132536_)))) - (_g132523132581_ - (lambda (_g132525132542_) + _g132530132541_)))) + (_g132528132586_ + (lambda (_g132530132547_) (if (let () (declare (not safe)) - (gx#stx-pair? _g132525132542_)) - (let ((_e132531132544_ + (gx#stx-pair? _g132530132547_)) + (let ((_e132536132549_ (let () (declare (not safe)) - (gx#stx-e _g132525132542_)))) - (let ((_hd132530132547_ + (gx#stx-e _g132530132547_)))) + (let ((_hd132535132552_ (let () (declare (not safe)) - (##car _e132531132544_))) - (_tl132529132549_ + (##car _e132536132549_))) + (_tl132534132554_ (let () (declare (not safe)) - (##cdr _e132531132544_)))) + (##cdr _e132536132549_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd132530132547_)) - (let ((_e132534132552_ + (gx#stx-pair? _hd132535132552_)) + (let ((_e132539132557_ (let () (declare (not safe)) - (gx#stx-e _hd132530132547_)))) - (let ((_hd132533132555_ + (gx#stx-e _hd132535132552_)))) + (let ((_hd132538132560_ (let () (declare (not safe)) - (##car _e132534132552_))) - (_tl132532132557_ + (##car _e132539132557_))) + (_tl132537132562_ (let () (declare (not safe)) - (##cdr _e132534132552_)))) - ((lambda (_L132560_ - _L132561_ - _L132562_) + (##cdr _e132539132557_)))) + ((lambda (_L132565_ + _L132566_ + _L132567_) (for-each - (lambda (_g132576132578_) + (lambda (_g132581132583_) (let () (declare (not safe)) (gxc#apply-collect-object-refs - _g132576132578_ - _L132562_ - _method-calls131421_ - _slot-refs131422_))) - _L132560_)) - _tl132529132549_ - _tl132532132557_ - _hd132533132555_))) + _g132581132583_ + _L132567_ + _method-calls131426_ + _slot-refs131427_))) + _L132565_)) + _tl132534132554_ + _tl132537132562_ + _hd132538132560_))) (let () (declare (not safe)) - (_g132524132539_ _g132525132542_))))) + (_g132529132544_ _g132530132547_))))) (let () (declare (not safe)) - (_g132524132539_ _g132525132542_)))))) + (_g132529132544_ _g132530132547_)))))) (declare (not safe)) - (_g132523132581_ _clause132522_))) - (let ((__tmp135505 - (lambda (_g132583132586_ _g132584132588_) + (_g132528132586_ _clause132527_))) + (let ((__tmp135510 + (lambda (_g132588132591_ _g132589132593_) (let () (declare (not safe)) - (cons _g132583132586_ _g132584132588_))))) + (cons _g132588132591_ _g132589132593_))))) (declare (not safe)) - (foldr1 __tmp135505 '() _L132509_)))) + (foldr1 __tmp135510 '() _L132514_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _clause132467132506_)))))) + _clause132472132511_)))))) (let () (declare (not safe)) - (_loop132462132490_ - _target132459132485_ + (_loop132467132495_ + _target132464132490_ '()))) (let () (declare (not safe)) - (_g132453132472_ _g132454132475_)))))) + (_g132458132477_ _g132459132480_)))))) (let () (declare (not safe)) - (_g132453132472_ _g132454132475_))))) + (_g132458132477_ _g132459132480_))))) (let () (declare (not safe)) - (_g132453132472_ _g132454132475_)))))) + (_g132458132477_ _g132459132480_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g132452132591_ _L132356_)) + (_g132457132596_ _L132361_)) (if (let () (declare (not safe)) - (_no-specializer?131425_)) - _stx131329_ - (let* ((_specializer-id132600_ - (let* ((_id132594_ - (let ((__tmp135507 + (_no-specializer?131430_)) + _stx131334_ + (let* ((_specializer-id132605_ + (let* ((_id132599_ + (let ((__tmp135512 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _L131402_)))) + (gx#stx-e _L131407_)))) (declare (not safe)) - (make-symbol__1 __tmp135507 '"::specialize"))) - (_specializer-id132597_ - (let ((__tmp135508 + (make-symbol__1 __tmp135512 '"::specialize"))) + (_specializer-id132602_ + (let ((__tmp135513 (let () (declare (not safe)) - (gx#stx-source _stx131329_)))) + (gx#stx-source _stx131334_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _id132594_ __tmp135508)))) + (gx#core-quote-syntax__1 _id132599_ __tmp135513)))) (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _specializer-id132597_)) - _specializer-id132597_)) + (gx#core-bind-runtime!__0 _specializer-id132602_)) + _specializer-id132602_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_$klass132602_ - (let ((__tmp135509 + (_$klass132607_ + (let ((__tmp135514 (gensym '__klass))) (declare (not safe)) (make-symbol__0 - __tmp135509))) - (_$method-table132604_ - (let ((__tmp135510 + __tmp135514))) + (_$method-table132609_ + (let ((__tmp135515 (gensym '__method-table))) (declare (not safe)) (make-symbol__0 - __tmp135510))) - (_methods132606_ + __tmp135515))) + (_methods132611_ (let () (declare (not safe)) (hash-keys - _method-calls131421_))) - (_$methods132610_ - (map (lambda (_id132608_) - (let ((__tmp135511 + _method-calls131426_))) + (_$methods132615_ + (map (lambda (_id132613_) + (let ((__tmp135516 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gensym _id132608_))) + (gensym _id132613_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp135511))) - _methods132606_)) + (make-symbol__1 '"__" __tmp135516))) + _methods132611_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g135512_ + (_g135517_ (for-each - (lambda (_g132611132614_ - _g132612132616_) + (lambda (_g132616132619_ + _g132617132621_) (let () (declare (not safe)) (hash-put! - _method-calls131421_ - _g132611132614_ - _g132612132616_))) - _methods132606_ - _$methods132610_)) - (_methods-bind132627_ - (map (lambda (_g132619132622_ + _method-calls131426_ + _g132616132619_ + _g132617132621_))) + _methods132611_ + _$methods132615_)) + (_methods-bind132632_ + (map (lambda (_g132624132627_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g132620132624_) + _g132625132629_) (let () (declare (not safe)) - (_generate-method-bind131331_ - _$klass132602_ - _$method-table132604_ - _g132619132622_ - _g132620132624_))) - _methods132606_ - _$methods132610_)) + (_generate-method-bind131336_ + _$klass132607_ + _$method-table132609_ + _g132624132627_ + _g132625132629_))) + _methods132611_ + _$methods132615_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_slots132629_ + (_slots132634_ (let () (declare (not safe)) (hash-keys - _slot-refs131422_))) - (_$slots132633_ - (map (lambda (_id132631_) - (let ((__tmp135513 + _slot-refs131427_))) + (_$slots132638_ + (map (lambda (_id132636_) + (let ((__tmp135518 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gensym _id132631_))) + (gensym _id132636_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp135513))) - _slots132629_)) + (make-symbol__1 '"__" __tmp135518))) + _slots132634_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g135514_ + (_g135519_ (for-each - (lambda (_g132634132637_ - _g132635132639_) + (lambda (_g132639132642_ + _g132640132644_) (let () (declare (not safe)) (hash-put! - _slot-refs131422_ - _g132634132637_ - _g132635132639_))) - _slots132629_ - _$slots132633_)) - (_slots-bind132650_ - (map (lambda (_g132642132645_ + _slot-refs131427_ + _g132639132642_ + _g132640132644_))) + _slots132634_ + _$slots132638_)) + (_slots-bind132655_ + (map (lambda (_g132647132650_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g132643132647_) + _g132648132652_) (let () (declare (not safe)) - (_generate-slot-bind131332_ - _$klass132602_ - _g132642132645_ - _g132643132647_))) - _slots132629_ - _$slots132633_)) + (_generate-slot-bind131337_ + _$klass132607_ + _g132647132650_ + _g132648132652_))) + _slots132634_ + _$slots132638_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_specializer-lambda-expr132736_ - (let* ((_g132652132670_ - (lambda (_g132653132667_) + (_specializer-lambda-expr132741_ + (let* ((_g132657132675_ + (lambda (_g132658132672_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g132653132667_)))) - (_g132651132733_ - (lambda (_g132653132673_) + _g132658132672_)))) + (_g132656132738_ + (lambda (_g132658132678_) (if (let () (declare (not safe)) - (gx#stx-pair? _g132653132673_)) - (let ((_e132659132675_ + (gx#stx-pair? _g132658132678_)) + (let ((_e132664132680_ (let () (declare (not safe)) - (gx#stx-e _g132653132673_)))) - (let ((_hd132658132678_ + (gx#stx-e _g132658132678_)))) + (let ((_hd132663132683_ (let () (declare (not safe)) - (##car _e132659132675_))) - (_tl132657132680_ + (##car _e132664132680_))) + (_tl132662132685_ (let () (declare (not safe)) - (##cdr _e132659132675_)))) + (##cdr _e132664132680_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl132657132680_)) - (let ((_e132662132683_ + (gx#stx-pair? _tl132662132685_)) + (let ((_e132667132688_ (let () (declare (not safe)) - (gx#stx-e _tl132657132680_)))) - (let ((_hd132661132686_ + (gx#stx-e _tl132662132685_)))) + (let ((_hd132666132691_ (let () (declare (not safe)) - (##car _e132662132683_))) - (_tl132660132688_ + (##car _e132667132688_))) + (_tl132665132693_ (let () (declare (not safe)) - (##cdr _e132662132683_)))) + (##cdr _e132667132688_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd132661132686_)) - (let ((_e132665132691_ + (gx#stx-pair? _hd132666132691_)) + (let ((_e132670132696_ (let () (declare (not safe)) (gx#stx-e - _hd132661132686_)))) - (let ((_hd132664132694_ + _hd132666132691_)))) + (let ((_hd132669132699_ (let () (declare (not safe)) - (##car _e132665132691_))) - (_tl132663132696_ + (##car _e132670132696_))) + (_tl132668132701_ (let () (declare (not safe)) - (##cdr _e132665132691_)))) - ((lambda (_L132699_ - _L132700_ - _L132701_) - (let* ((_body132731_ - (map (lambda (_g132726132728_) + (##cdr _e132670132696_)))) + ((lambda (_L132704_ + _L132705_ + _L132706_) + (let* ((_body132736_ + (map (lambda (_g132731132733_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gxc#apply-subst-object-refs - _g132726132728_ - _L132701_ - _$klass132602_ - _method-calls131421_ - _slot-refs131422_))) - _L132699_)) - (__tmp135515 - (let ((__tmp135516 - (let ((__tmp135517 + _g132731132733_ + _L132706_ + _$klass132607_ + _method-calls131426_ + _slot-refs131427_))) + _L132704_)) + (__tmp135520 + (let ((__tmp135521 + (let ((__tmp135522 (let () (declare (not safe)) - (cons _L132701_ _L132700_)))) + (cons _L132706_ _L132705_)))) (declare (not safe)) - (cons __tmp135517 _body132731_)))) + (cons __tmp135522 _body132736_)))) (declare (not safe)) - (cons '%#lambda __tmp135516)))) + (cons '%#lambda __tmp135521)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp135515 - _L132357_))) - _tl132660132688_ - _tl132663132696_ - _hd132664132694_))) + __tmp135520 + _L132362_))) + _tl132665132693_ + _tl132668132701_ + _hd132669132699_))) (let () (declare (not safe)) - (_g132652132670_ - _g132653132673_))))) + (_g132657132675_ + _g132658132678_))))) (let () (declare (not safe)) - (_g132652132670_ _g132653132673_))))) + (_g132657132675_ _g132658132678_))))) (let () (declare (not safe)) - (_g132652132670_ _g132653132673_)))))) + (_g132657132675_ _g132658132678_)))))) (declare (not safe)) - (_g132651132733_ _L132357_))) + (_g132656132738_ _L132362_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_specializer-case-lambda-expr132893_ - (let* ((_g132738132757_ - (lambda (_g132739132754_) + (_specializer-case-lambda-expr132898_ + (let* ((_g132743132762_ + (lambda (_g132744132759_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g132739132754_)))) - (_g132737132890_ - (lambda (_g132739132760_) + _g132744132759_)))) + (_g132742132895_ + (lambda (_g132744132765_) (if (let () (declare (not safe)) - (gx#stx-pair? _g132739132760_)) - (let ((_e132743132762_ + (gx#stx-pair? _g132744132765_)) + (let ((_e132748132767_ (let () (declare (not safe)) - (gx#stx-e _g132739132760_)))) - (let ((_hd132742132765_ + (gx#stx-e _g132744132765_)))) + (let ((_hd132747132770_ (let () (declare (not safe)) - (##car _e132743132762_))) - (_tl132741132767_ + (##car _e132748132767_))) + (_tl132746132772_ (let () (declare (not safe)) - (##cdr _e132743132762_)))) + (##cdr _e132748132767_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl132741132767_)) - (let ((_g135518_ + (gx#stx-pair/null? _tl132746132772_)) + (let ((_g135523_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl132741132767_ + _tl132746132772_ '0)))) (begin - (let ((_g135519_ + (let ((_g135524_ (let () (declare (not safe)) - (if (##values? _g135518_) + (if (##values? _g135523_) (##vector-length - _g135518_) + _g135523_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g135519_ 2))) + (##fx= _g135524_ 2))) (error "Context expects 2 values" - _g135519_))) - (let ((_target132744132770_ + _g135524_))) + (let ((_target132749132775_ (let () (declare (not safe)) - (##vector-ref _g135518_ 0))) - (_tl132746132772_ + (##vector-ref _g135523_ 0))) + (_tl132751132777_ (let () (declare (not safe)) - (##vector-ref _g135518_ 1)))) + (##vector-ref _g135523_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl132746132772_)) - (letrec ((_loop132747132775_ - (lambda (_hd132745132778_ + _tl132751132777_)) + (letrec ((_loop132752132780_ + (lambda (_hd132750132783_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _clause132751132780_) + _clause132756132785_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd132745132778_)) - (let ((_e132748132783_ + (gx#stx-pair? _hd132750132783_)) + (let ((_e132753132788_ (let () (declare (not safe)) - (gx#stx-e _hd132745132778_)))) - (let ((_lp-hd132749132786_ + (gx#stx-e _hd132750132783_)))) + (let ((_lp-hd132754132791_ (let () (declare (not safe)) - (##car _e132748132783_))) - (_lp-tl132750132788_ + (##car _e132753132788_))) + (_lp-tl132755132793_ (let () (declare (not safe)) - (##cdr _e132748132783_)))) - (let ((__tmp135523 + (##cdr _e132753132788_)))) + (let ((__tmp135528 (let () (declare (not safe)) - (cons _lp-hd132749132786_ - _clause132751132780_)))) + (cons _lp-hd132754132791_ + _clause132756132785_)))) (declare (not safe)) - (_loop132747132775_ - _lp-tl132750132788_ - __tmp135523)))) - (let ((_clause132752132791_ - (reverse _clause132751132780_))) - ((lambda (_L132794_) - (let* ((_clauses132888_ - (map (lambda (_clause132808_) - (let* ((___stx134243134244_ - _clause132808_) - (_g132811132826_ + (_loop132752132780_ + _lp-tl132755132793_ + __tmp135528)))) + (let ((_clause132757132796_ + (reverse _clause132756132785_))) + ((lambda (_L132799_) + (let* ((_clauses132893_ + (map (lambda (_clause132813_) + (let* ((___stx134248134249_ + _clause132813_) + (_g132816132831_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx134243134244_))))) - (let ((___kont134245134246_ - (lambda (_L132854_ - _L132855_ - _L132856_) - (let* ((_body132876_ - (map (lambda (_g132871132873_) + ___stx134248134249_))))) + (let ((___kont134250134251_ + (lambda (_L132859_ + _L132860_ + _L132861_) + (let* ((_body132881_ + (map (lambda (_g132876132878_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gxc#apply-subst-object-refs - _g132871132873_ - _L132856_ - _$klass132602_ - _method-calls131421_ - _slot-refs131422_))) - _L132854_)) - (__tmp135520 - (let () (declare (not safe)) (cons _L132856_ _L132855_)))) + _g132876132878_ + _L132861_ + _$klass132607_ + _method-calls131426_ + _slot-refs131427_))) + _L132859_)) + (__tmp135525 + (let () (declare (not safe)) (cons _L132861_ _L132860_)))) (declare (not safe)) - (cons __tmp135520 _body132876_)))) + (cons __tmp135525 _body132881_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont134247134248_ - (lambda () _clause132808_))) + (___kont134252134253_ + (lambda () _clause132813_))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx134243134244_)) - (let ((_e132818132838_ + ___stx134248134249_)) + (let ((_e132823132843_ (let () (declare (not safe)) (gx#stx-e - ___stx134243134244_)))) - (let ((_tl132816132843_ + ___stx134248134249_)))) + (let ((_tl132821132848_ (let () (declare (not safe)) - (##cdr _e132818132838_))) - (_hd132817132841_ + (##cdr _e132823132843_))) + (_hd132822132846_ (let () (declare (not safe)) - (##car _e132818132838_)))) + (##car _e132823132843_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd132817132841_)) - (let ((_e132821132846_ + _hd132822132846_)) + (let ((_e132826132851_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd132817132841_)))) - (let ((_tl132819132851_ + (gx#stx-e _hd132822132846_)))) + (let ((_tl132824132856_ (let () (declare (not safe)) - (##cdr _e132821132846_))) - (_hd132820132849_ + (##cdr _e132826132851_))) + (_hd132825132854_ (let () (declare (not safe)) - (##car _e132821132846_)))) - (___kont134245134246_ - _tl132816132843_ - _tl132819132851_ - _hd132820132849_))) - (___kont134247134248_)))) + (##car _e132826132851_)))) + (___kont134250134251_ + _tl132821132848_ + _tl132824132856_ + _hd132825132854_))) + (___kont134252134253_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont134247134248_))))) - (let ((__tmp135521 - (lambda (_g132880132883_ - _g132881132885_) + (___kont134252134253_))))) + (let ((__tmp135526 + (lambda (_g132885132888_ + _g132886132890_) (let () (declare (not safe)) - (cons _g132880132883_ - _g132881132885_))))) + (cons _g132885132888_ + _g132886132890_))))) (declare (not safe)) - (foldr1 __tmp135521 '() _L132794_)))) - (__tmp135522 + (foldr1 __tmp135526 '() _L132799_)))) + (__tmp135527 (let () (declare (not safe)) - (cons '%#case-lambda _clauses132888_)))) + (cons '%#case-lambda _clauses132893_)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp135522 _L132356_))) - _clause132752132791_)))))) + (gxc#xform-wrap-source __tmp135527 _L132361_))) + _clause132757132796_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop132747132775_ - _target132744132770_ + (_loop132752132780_ + _target132749132775_ '()))) (let () (declare (not safe)) - (_g132738132757_ - _g132739132760_)))))) + (_g132743132762_ + _g132744132765_)))))) (let () (declare (not safe)) - (_g132738132757_ _g132739132760_))))) + (_g132743132762_ _g132744132765_))))) (let () (declare (not safe)) - (_g132738132757_ _g132739132760_)))))) + (_g132743132762_ _g132744132765_)))))) (declare (not safe)) - (_g132737132890_ _L132356_))) + (_g132742132895_ _L132361_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_specializer-impl132895_ - (let ((__tmp135524 - (let ((__tmp135525 + (_specializer-impl132900_ + (let ((__tmp135529 + (let ((__tmp135530 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp135527 - (let ((__tmp135528 - (let ((__tmp135530 + (let ((__tmp135532 + (let ((__tmp135533 + (let ((__tmp135535 (let () (declare (not safe)) - (cons _L132358_ '()))) - (__tmp135529 + (cons _L132363_ '()))) + (__tmp135534 (let () (declare (not safe)) - (cons _specializer-lambda-expr132736_ + (cons _specializer-lambda-expr132741_ '())))) (declare (not safe)) - (cons __tmp135530 __tmp135529)))) + (cons __tmp135535 __tmp135534)))) (declare (not safe)) - (cons __tmp135528 '()))) - (__tmp135526 + (cons __tmp135533 '()))) + (__tmp135531 (let () (declare (not safe)) - (cons _specializer-case-lambda-expr132893_ + (cons _specializer-case-lambda-expr132898_ '())))) (declare (not safe)) - (cons __tmp135527 __tmp135526)))) + (cons __tmp135532 __tmp135531)))) (declare (not safe)) - (cons '%#let-values __tmp135525)))) + (cons '%#let-values __tmp135530)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp135524 _stx131329_))) + (gxc#xform-wrap-source __tmp135529 _stx131334_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_specializer-impl132897_ + (_specializer-impl132902_ (let () (declare (not safe)) - (_generate-specializer-impl131333_ - _$klass132602_ - _$method-table132604_ - _methods-bind132627_ - _slots-bind132650_ - _specializer-impl132895_)))) - (let ((__tmp135532 + (_generate-specializer-impl131338_ + _$klass132607_ + _$method-table132609_ + _methods-bind132632_ + _slots-bind132655_ + _specializer-impl132900_)))) + (let ((__tmp135537 (let () (declare (not safe)) - (gx#stx-e _L131402_))) - (__tmp135531 + (gx#stx-e _L131407_))) + (__tmp135536 (let () (declare (not safe)) (gx#stx-e - _specializer-id132600_)))) + _specializer-id132605_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp135532 + __tmp135537 '" => " - __tmp135531)) + __tmp135536)) (let () (declare (not safe)) - (_generate-specializer-def131334_ - _L131402_ - _specializer-id132600_ - _specializer-impl132897_))))) - _hd132289132351_ - _hd132286132343_ - _hd132283132335_) + (_generate-specializer-def131339_ + _L131407_ + _specializer-id132605_ + _specializer-impl132902_))))) + _hd132294132356_ + _hd132291132348_ + _hd132288132340_) (let () (declare (not safe)) - (_g132265132295_ _g132266132298_))))) + (_g132270132300_ _g132271132303_))))) (let () (declare (not safe)) - (_g132265132295_ _g132266132298_))) + (_g132270132300_ _g132271132303_))) (let () (declare (not safe)) - (_g132265132295_ _g132266132298_))) + (_g132270132300_ _g132271132303_))) (let () (declare (not safe)) - (_g132265132295_ _g132266132298_))))) - (let () (declare (not safe)) (_g132265132295_ _g132266132298_))) + (_g132270132300_ _g132271132303_))))) + (let () (declare (not safe)) (_g132270132300_ _g132271132303_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g132265132295_ - _g132266132298_))))) + (_g132270132300_ + _g132271132303_))))) (let () (declare (not safe)) - (_g132265132295_ - _g132266132298_))))) + (_g132270132300_ + _g132271132303_))))) (let () (declare (not safe)) - (_g132265132295_ _g132266132298_))))) + (_g132270132300_ _g132271132303_))))) (let () (declare (not safe)) - (_g132265132295_ _g132266132298_))))) + (_g132270132300_ _g132271132303_))))) (let () (declare (not safe)) - (_g132265132295_ _g132266132298_))))) + (_g132270132300_ _g132271132303_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g132265132295_ - _g132266132298_)))))) + (_g132270132300_ + _g132271132303_)))))) (declare (not safe)) - (_g132264132900_ _L131401_)) + (_g132269132905_ _L131406_)) (if (let () (declare (not safe)) - (gxc#kw-lambda-expr? _L131401_)) - (let* ((_g132903132956_ - (lambda (_g132904132953_) + (gxc#kw-lambda-expr? _L131406_)) + (let* ((_g132908132961_ + (lambda (_g132909132958_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g132904132953_)))) - (_g132902134087_ - (lambda (_g132904132959_) + _g132909132958_)))) + (_g132907134092_ + (lambda (_g132909132964_) (if (let () (declare (not safe)) (gx#stx-pair? - _g132904132959_)) - (let ((_e132912132961_ + _g132909132964_)) + (let ((_e132917132966_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _g132904132959_)))) - (let ((_hd132911132964_ - (let () (declare (not safe)) (##car _e132912132961_))) - (_tl132910132966_ - (let () (declare (not safe)) (##cdr _e132912132961_)))) + (gx#stx-e _g132909132964_)))) + (let ((_hd132916132969_ + (let () (declare (not safe)) (##car _e132917132966_))) + (_tl132915132971_ + (let () (declare (not safe)) (##cdr _e132917132966_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd132911132964_)) + (gx#identifier? _hd132916132969_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#let-values _hd132911132964_)) + (gx#stx-eq? '%#let-values _hd132916132969_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl132910132966_)) - (let ((_e132915132969_ + (gx#stx-pair? _tl132915132971_)) + (let ((_e132920132974_ (let () (declare (not safe)) - (gx#stx-e _tl132910132966_)))) - (let ((_hd132914132972_ + (gx#stx-e _tl132915132971_)))) + (let ((_hd132919132977_ (let () (declare (not safe)) - (##car _e132915132969_))) - (_tl132913132974_ + (##car _e132920132974_))) + (_tl132918132979_ (let () (declare (not safe)) - (##cdr _e132915132969_)))) + (##cdr _e132920132974_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd132914132972_)) - (let ((_e132918132977_ + (gx#stx-pair? _hd132919132977_)) + (let ((_e132923132982_ (let () (declare (not safe)) - (gx#stx-e _hd132914132972_)))) - (let ((_hd132917132980_ + (gx#stx-e _hd132919132977_)))) + (let ((_hd132922132985_ (let () (declare (not safe)) - (##car _e132918132977_))) - (_tl132916132982_ + (##car _e132923132982_))) + (_tl132921132987_ (let () (declare (not safe)) - (##cdr _e132918132977_)))) + (##cdr _e132923132982_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd132917132980_)) - (let ((_e132921132985_ + _hd132922132985_)) + (let ((_e132926132990_ (let () (declare (not safe)) (gx#stx-e - _hd132917132980_)))) - (let ((_hd132920132988_ + _hd132922132985_)))) + (let ((_hd132925132993_ (let () (declare (not safe)) - (##car _e132921132985_))) - (_tl132919132990_ + (##car _e132926132990_))) + (_tl132924132995_ (let () (declare (not safe)) - (##cdr _e132921132985_)))) + (##cdr _e132926132990_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd132920132988_)) - (let ((_e132924132993_ + _hd132925132993_)) + (let ((_e132929132998_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd132920132988_)))) - (let ((_hd132923132996_ - (let () (declare (not safe)) (##car _e132924132993_))) - (_tl132922132998_ - (let () (declare (not safe)) (##cdr _e132924132993_)))) + (gx#stx-e _hd132925132993_)))) + (let ((_hd132928133001_ + (let () (declare (not safe)) (##car _e132929132998_))) + (_tl132927133003_ + (let () (declare (not safe)) (##cdr _e132929132998_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl132922132998_)) + (gx#stx-null? _tl132927133003_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl132919132990_)) - (let ((_e132927133001_ + (gx#stx-pair? _tl132924132995_)) + (let ((_e132932133006_ (let () (declare (not safe)) - (gx#stx-e _tl132919132990_)))) - (let ((_hd132926133004_ + (gx#stx-e _tl132924132995_)))) + (let ((_hd132931133009_ (let () (declare (not safe)) - (##car _e132927133001_))) - (_tl132925133006_ + (##car _e132932133006_))) + (_tl132930133011_ (let () (declare (not safe)) - (##cdr _e132927133001_)))) + (##cdr _e132932133006_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd132926133004_)) - (let ((_e132930133009_ + (gx#stx-pair? _hd132931133009_)) + (let ((_e132935133014_ (let () (declare (not safe)) - (gx#stx-e _hd132926133004_)))) - (let ((_hd132929133012_ + (gx#stx-e _hd132931133009_)))) + (let ((_hd132934133017_ (let () (declare (not safe)) - (##car _e132930133009_))) - (_tl132928133014_ + (##car _e132935133014_))) + (_tl132933133019_ (let () (declare (not safe)) - (##cdr _e132930133009_)))) + (##cdr _e132935133014_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd132929133012_)) + (gx#identifier? _hd132934133017_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd132929133012_)) + _hd132934133017_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl132928133014_)) - (let ((_e132933133017_ + _tl132933133019_)) + (let ((_e132938133022_ (let () (declare (not safe)) (gx#stx-e - _tl132928133014_)))) - (let ((_hd132932133020_ + _tl132933133019_)))) + (let ((_hd132937133025_ (let () (declare (not safe)) - (##car _e132933133017_))) - (_tl132931133022_ + (##car _e132938133022_))) + (_tl132936133027_ (let () (declare (not safe)) - (##cdr _e132933133017_)))) + (##cdr _e132938133022_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd132932133020_)) - (let ((_e132936133025_ + _hd132937133025_)) + (let ((_e132941133030_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd132932133020_)))) - (let ((_hd132935133028_ + (gx#stx-e _hd132937133025_)))) + (let ((_hd132940133033_ (let () (declare (not safe)) - (##car _e132936133025_))) - (_tl132934133030_ + (##car _e132941133030_))) + (_tl132939133035_ (let () (declare (not safe)) - (##cdr _e132936133025_)))) + (##cdr _e132941133030_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd132935133028_)) - (let ((_e132939133033_ + (gx#stx-pair? _hd132940133033_)) + (let ((_e132944133038_ (let () (declare (not safe)) - (gx#stx-e _hd132935133028_)))) - (let ((_hd132938133036_ + (gx#stx-e _hd132940133033_)))) + (let ((_hd132943133041_ (let () (declare (not safe)) - (##car _e132939133033_))) - (_tl132937133038_ + (##car _e132944133038_))) + (_tl132942133043_ (let () (declare (not safe)) - (##cdr _e132939133033_)))) + (##cdr _e132944133038_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd132938133036_)) - (let ((_e132942133041_ + (gx#stx-pair? _hd132943133041_)) + (let ((_e132947133046_ (let () (declare (not safe)) - (gx#stx-e _hd132938133036_)))) - (let ((_hd132941133044_ + (gx#stx-e _hd132943133041_)))) + (let ((_hd132946133049_ (let () (declare (not safe)) - (##car _e132942133041_))) - (_tl132940133046_ + (##car _e132947133046_))) + (_tl132945133051_ (let () (declare (not safe)) - (##cdr _e132942133041_)))) + (##cdr _e132947133046_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl132940133046_)) + (gx#stx-null? _tl132945133051_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl132937133038_)) - (let ((_e132945133049_ + _tl132942133043_)) + (let ((_e132950133054_ (let () (declare (not safe)) (gx#stx-e - _tl132937133038_)))) - (let ((_hd132944133052_ + _tl132942133043_)))) + (let ((_hd132949133057_ (let () (declare (not safe)) - (##car _e132945133049_))) - (_tl132943133054_ + (##car _e132950133054_))) + (_tl132948133059_ (let () (declare (not safe)) - (##cdr _e132945133049_)))) + (##cdr _e132950133054_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl132943133054_)) + _tl132948133059_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl132934133030_)) + _tl132939133035_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl132931133022_)) - (let ((_e132948133057_ + (gx#stx-pair? _tl132936133027_)) + (let ((_e132953133062_ (let () (declare (not safe)) - (gx#stx-e _tl132931133022_)))) - (let ((_hd132947133060_ + (gx#stx-e _tl132936133027_)))) + (let ((_hd132952133065_ (let () (declare (not safe)) - (##car _e132948133057_))) - (_tl132946133062_ + (##car _e132953133062_))) + (_tl132951133067_ (let () (declare (not safe)) - (##cdr _e132948133057_)))) + (##cdr _e132953133062_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl132946133062_)) + (gx#stx-null? _tl132951133067_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl132925133006_)) + (gx#stx-null? _tl132930133011_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl132916132982_)) + (gx#stx-null? _tl132921132987_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl132913132974_)) - (let ((_e132951133065_ + (gx#stx-pair? _tl132918132979_)) + (let ((_e132956133070_ (let () (declare (not safe)) (gx#stx-e - _tl132913132974_)))) - (let ((_hd132950133068_ + _tl132918132979_)))) + (let ((_hd132955133073_ (let () (declare (not safe)) - (##car _e132951133065_))) - (_tl132949133070_ + (##car _e132956133070_))) + (_tl132954133075_ (let () (declare (not safe)) - (##cdr _e132951133065_)))) + (##cdr _e132956133070_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl132949133070_)) - ((lambda (_L133073_ - _L133074_ - _L133075_ - _L133076_ - _L133077_) - (let* ((_g133116133178_ - (lambda (_g133117133175_) + _tl132954133075_)) + ((lambda (_L133078_ + _L133079_ + _L133080_ + _L133081_ + _L133082_) + (let* ((_g133121133183_ + (lambda (_g133122133180_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g133117133175_)))) - (_g133115134084_ - (lambda (_g133117133181_) + _g133122133180_)))) + (_g133120134089_ + (lambda (_g133122133186_) (if (let () (declare (not safe)) - (gx#stx-pair? _g133117133181_)) - (let ((_e133125133183_ + (gx#stx-pair? _g133122133186_)) + (let ((_e133130133188_ (let () (declare (not safe)) - (gx#stx-e _g133117133181_)))) - (let ((_hd133124133186_ + (gx#stx-e _g133122133186_)))) + (let ((_hd133129133191_ (let () (declare (not safe)) - (##car _e133125133183_))) - (_tl133123133188_ + (##car _e133130133188_))) + (_tl133128133193_ (let () (declare (not safe)) - (##cdr _e133125133183_)))) + (##cdr _e133130133188_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd133124133186_)) + (gx#identifier? _hd133129133191_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd133124133186_)) + _hd133129133191_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl133123133188_)) - (let ((_e133128133191_ + (gx#stx-pair? _tl133128133193_)) + (let ((_e133133133196_ (let () (declare (not safe)) (gx#stx-e - _tl133123133188_)))) - (let ((_hd133127133194_ + _tl133128133193_)))) + (let ((_hd133132133199_ (let () (declare (not safe)) - (##car _e133128133191_))) - (_tl133126133196_ + (##car _e133133133196_))) + (_tl133131133201_ (let () (declare (not safe)) - (##cdr _e133128133191_)))) + (##cdr _e133133133196_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl133126133196_)) - (let ((_e133131133199_ + _tl133131133201_)) + (let ((_e133136133204_ (let () (declare (not safe)) (gx#stx-e - _tl133126133196_)))) - (let ((_hd133130133202_ + _tl133131133201_)))) + (let ((_hd133135133207_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e133131133199_))) - (_tl133129133204_ - (let () (declare (not safe)) (##cdr _e133131133199_)))) + (##car _e133136133204_))) + (_tl133134133209_ + (let () (declare (not safe)) (##cdr _e133136133204_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd133130133202_)) - (let ((_e133134133207_ + (gx#stx-pair? _hd133135133207_)) + (let ((_e133139133212_ (let () (declare (not safe)) - (gx#stx-e _hd133130133202_)))) - (let ((_hd133133133210_ + (gx#stx-e _hd133135133207_)))) + (let ((_hd133138133215_ (let () (declare (not safe)) - (##car _e133134133207_))) - (_tl133132133212_ + (##car _e133139133212_))) + (_tl133137133217_ (let () (declare (not safe)) - (##cdr _e133134133207_)))) + (##cdr _e133139133212_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd133133133210_)) + (gx#identifier? _hd133138133215_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd133133133210_)) + (gx#stx-eq? '%#call _hd133138133215_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl133132133212_)) - (let ((_e133137133215_ + (gx#stx-pair? _tl133137133217_)) + (let ((_e133142133220_ (let () (declare (not safe)) - (gx#stx-e _tl133132133212_)))) - (let ((_hd133136133218_ + (gx#stx-e _tl133137133217_)))) + (let ((_hd133141133223_ (let () (declare (not safe)) - (##car _e133137133215_))) - (_tl133135133220_ + (##car _e133142133220_))) + (_tl133140133225_ (let () (declare (not safe)) - (##cdr _e133137133215_)))) + (##cdr _e133142133220_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd133136133218_)) - (let ((_e133140133223_ + (gx#stx-pair? _hd133141133223_)) + (let ((_e133145133228_ (let () (declare (not safe)) (gx#stx-e - _hd133136133218_)))) - (let ((_hd133139133226_ + _hd133141133223_)))) + (let ((_hd133144133231_ (let () (declare (not safe)) - (##car _e133140133223_))) - (_tl133138133228_ + (##car _e133145133228_))) + (_tl133143133233_ (let () (declare (not safe)) - (##cdr _e133140133223_)))) + (##cdr _e133145133228_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd133139133226_)) + _hd133144133231_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd133139133226_)) + _hd133144133231_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl133138133228_)) - (let ((_e133143133231_ + _tl133143133233_)) + (let ((_e133148133236_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl133138133228_)))) - (let ((_hd133142133234_ + (gx#stx-e _tl133143133233_)))) + (let ((_hd133147133239_ (let () (declare (not safe)) - (##car _e133143133231_))) - (_tl133141133236_ + (##car _e133148133236_))) + (_tl133146133241_ (let () (declare (not safe)) - (##cdr _e133143133231_)))) + (##cdr _e133148133236_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl133141133236_)) + (gx#stx-null? _tl133146133241_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl133135133220_)) - (let ((_e133146133239_ + (gx#stx-pair? _tl133140133225_)) + (let ((_e133151133244_ (let () (declare (not safe)) - (gx#stx-e _tl133135133220_)))) - (let ((_hd133145133242_ + (gx#stx-e _tl133140133225_)))) + (let ((_hd133150133247_ (let () (declare (not safe)) - (##car _e133146133239_))) - (_tl133144133244_ + (##car _e133151133244_))) + (_tl133149133249_ (let () (declare (not safe)) - (##cdr _e133146133239_)))) + (##cdr _e133151133244_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd133145133242_)) - (let ((_e133149133247_ + (gx#stx-pair? _hd133150133247_)) + (let ((_e133154133252_ (let () (declare (not safe)) - (gx#stx-e _hd133145133242_)))) - (let ((_hd133148133250_ + (gx#stx-e _hd133150133247_)))) + (let ((_hd133153133255_ (let () (declare (not safe)) - (##car _e133149133247_))) - (_tl133147133252_ + (##car _e133154133252_))) + (_tl133152133257_ (let () (declare (not safe)) - (##cdr _e133149133247_)))) + (##cdr _e133154133252_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd133148133250_)) + _hd133153133255_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd133148133250_)) + _hd133153133255_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl133147133252_)) - (let ((_e133152133255_ + _tl133152133257_)) + (let ((_e133157133260_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl133147133252_)))) - (let ((_hd133151133258_ - (let () (declare (not safe)) (##car _e133152133255_))) - (_tl133150133260_ + (gx#stx-e _tl133152133257_)))) + (let ((_hd133156133263_ + (let () (declare (not safe)) (##car _e133157133260_))) + (_tl133155133265_ (let () (declare (not safe)) - (##cdr _e133152133255_)))) + (##cdr _e133157133260_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl133150133260_)) + (gx#stx-null? _tl133155133265_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl133144133244_)) - (let ((_e133155133263_ + (gx#stx-pair? _tl133149133249_)) + (let ((_e133160133268_ (let () (declare (not safe)) - (gx#stx-e _tl133144133244_)))) - (let ((_hd133154133266_ + (gx#stx-e _tl133149133249_)))) + (let ((_hd133159133271_ (let () (declare (not safe)) - (##car _e133155133263_))) - (_tl133153133268_ + (##car _e133160133268_))) + (_tl133158133273_ (let () (declare (not safe)) - (##cdr _e133155133263_)))) + (##cdr _e133160133268_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd133154133266_)) - (let ((_e133158133271_ + (gx#stx-pair? _hd133159133271_)) + (let ((_e133163133276_ (let () (declare (not safe)) - (gx#stx-e _hd133154133266_)))) - (let ((_hd133157133274_ + (gx#stx-e _hd133159133271_)))) + (let ((_hd133162133279_ (let () (declare (not safe)) - (##car _e133158133271_))) - (_tl133156133276_ + (##car _e133163133276_))) + (_tl133161133281_ (let () (declare (not safe)) - (##cdr _e133158133271_)))) + (##cdr _e133163133276_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd133157133274_)) + _hd133162133279_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd133157133274_)) + _hd133162133279_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl133156133276_)) - (let ((_e133161133279_ + _tl133161133281_)) + (let ((_e133166133284_ (let () (declare (not safe)) (gx#stx-e - _tl133156133276_)))) - (let ((_hd133160133282_ + _tl133161133281_)))) + (let ((_hd133165133287_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e133161133279_))) - (_tl133159133284_ - (let () (declare (not safe)) (##cdr _e133161133279_)))) + (##car _e133166133284_))) + (_tl133164133289_ + (let () (declare (not safe)) (##cdr _e133166133284_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl133159133284_)) + (gx#stx-null? _tl133164133289_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl133153133268_)) + (gx#stx-pair/null? _tl133158133273_)) (if (fx>= (let () (declare (not safe)) - (gx#stx-length _tl133153133268_)) + (gx#stx-length _tl133158133273_)) '1) - (let ((_g135429_ + (let ((_g135434_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl133153133268_ + _tl133158133273_ '1)))) (begin - (let ((_g135430_ + (let ((_g135435_ (let () (declare (not safe)) - (if (##values? _g135429_) - (##vector-length _g135429_) + (if (##values? _g135434_) + (##vector-length _g135434_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g135430_ 2))) + (##fx= _g135435_ 2))) (error "Context expects 2 values" - _g135430_))) - (let ((_target133162133287_ + _g135435_))) + (let ((_target133167133292_ (let () (declare (not safe)) - (##vector-ref _g135429_ 0))) - (_tl133164133289_ + (##vector-ref _g135434_ 0))) + (_tl133169133294_ (let () (declare (not safe)) - (##vector-ref _g135429_ 1)))) + (##vector-ref _g135434_ 1)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl133164133289_)) - (let ((_e133173133292_ + (gx#stx-pair? _tl133169133294_)) + (let ((_e133178133297_ (let () (declare (not safe)) - (gx#stx-e _tl133164133289_)))) - (let ((_hd133172133295_ + (gx#stx-e _tl133169133294_)))) + (let ((_hd133177133300_ (let () (declare (not safe)) - (##car _e133173133292_))) - (_tl133171133297_ + (##car _e133178133297_))) + (_tl133176133302_ (let () (declare (not safe)) - (##cdr _e133173133292_)))) + (##cdr _e133178133297_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl133171133297_)) - (letrec ((_loop133165133300_ - (lambda (_hd133163133303_ + _tl133176133302_)) + (letrec ((_loop133170133305_ + (lambda (_hd133168133308_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _kw-ref133169133305_) + _kw-ref133174133310_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd133163133303_)) - (let ((_e133166133308_ + (gx#stx-pair? _hd133168133308_)) + (let ((_e133171133313_ (let () (declare (not safe)) - (gx#stx-e _hd133163133303_)))) - (let ((_lp-hd133167133311_ + (gx#stx-e _hd133168133308_)))) + (let ((_lp-hd133172133316_ (let () (declare (not safe)) - (##car _e133166133308_))) - (_lp-tl133168133313_ + (##car _e133171133313_))) + (_lp-tl133173133318_ (let () (declare (not safe)) - (##cdr _e133166133308_)))) - (let ((__tmp135502 + (##cdr _e133171133313_)))) + (let ((__tmp135507 (let () (declare (not safe)) - (cons _lp-hd133167133311_ - _kw-ref133169133305_)))) + (cons _lp-hd133172133316_ + _kw-ref133174133310_)))) (declare (not safe)) - (_loop133165133300_ - _lp-tl133168133313_ - __tmp135502)))) - (let ((_kw-ref133170133316_ - (reverse _kw-ref133169133305_))) + (_loop133170133305_ + _lp-tl133173133318_ + __tmp135507)))) + (let ((_kw-ref133175133321_ + (reverse _kw-ref133174133310_))) (if (let () (declare (not safe)) - (gx#stx-null? _tl133129133204_)) - ((lambda (_L133319_ - _L133320_ - _L133321_ - _L133322_ - _L133323_) - (let* ((_kw-count133374_ - (length (let ((__tmp135431 - (lambda (_g133366133369_ - _g133367133371_) + (gx#stx-null? _tl133134133209_)) + ((lambda (_L133324_ + _L133325_ + _L133326_ + _L133327_ + _L133328_) + (let* ((_kw-count133379_ + (length (let ((__tmp135436 + (lambda (_g133371133374_ + _g133372133376_) (let () (declare (not safe)) - (cons _g133366133369_ - _g133367133371_))))) + (cons _g133371133374_ + _g133372133376_))))) (declare (not safe)) - (foldr1 __tmp135431 + (foldr1 __tmp135436 '() - _L133320_)))) - (_self-index133376_ + _L133325_)))) + (_self-index133381_ (let () (declare (not safe)) - (fx+ _kw-count133374_ '1)))) + (fx+ _kw-count133379_ '1)))) (if (let () (declare (not safe)) - (gxc#lambda-expr? _L133075_)) - (let* ((_g133379133393_ - (lambda (_g133380133390_) + (gxc#lambda-expr? _L133080_)) + (let* ((_g133384133398_ + (lambda (_g133385133395_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g133380133390_)))) - (_g133378133506_ - (lambda (_g133380133396_) + _g133385133395_)))) + (_g133383133511_ + (lambda (_g133385133401_) (if (let () (declare (not safe)) (gx#stx-pair? - _g133380133396_)) - (let ((_e133385133398_ + _g133385133401_)) + (let ((_e133390133403_ (let () (declare (not safe)) (gx#stx-e - _g133380133396_)))) - (let ((_hd133384133401_ + _g133385133401_)))) + (let ((_hd133389133406_ (let () (declare (not safe)) - (##car _e133385133398_))) - (_tl133383133403_ + (##car _e133390133403_))) + (_tl133388133408_ (let () (declare (not safe)) - (##cdr _e133385133398_)))) + (##cdr _e133390133403_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl133383133403_)) - (let ((_e133388133406_ + _tl133388133408_)) + (let ((_e133393133411_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl133383133403_)))) - (let ((_hd133387133409_ + (gx#stx-e _tl133388133408_)))) + (let ((_hd133392133414_ (let () (declare (not safe)) - (##car _e133388133406_))) - (_tl133386133411_ + (##car _e133393133411_))) + (_tl133391133416_ (let () (declare (not safe)) - (##cdr _e133388133406_)))) - ((lambda (_L133414_ _L133415_) - (let ((_self133431_ - (list-ref _L133415_ _self-index133376_))) + (##cdr _e133393133411_)))) + ((lambda (_L133419_ _L133420_) + (let ((_self133436_ + (list-ref _L133420_ _self-index133381_))) (for-each - (lambda (_g133432133434_) + (lambda (_g133437133439_) (let () (declare (not safe)) (gxc#apply-collect-object-refs - _g133432133434_ - _self133431_ - _method-calls131421_ - _slot-refs131422_))) - _L133414_) + _g133437133439_ + _self133436_ + _method-calls131426_ + _slot-refs131427_))) + _L133419_) (if (let () (declare (not safe)) - (_no-specializer?131425_)) - _stx131329_ - (let* ((_specializer-id133443_ - (let* ((_id133437_ - (let ((__tmp135475 + (_no-specializer?131430_)) + _stx131334_ + (let* ((_specializer-id133448_ + (let* ((_id133442_ + (let ((__tmp135480 (let () (declare (not safe)) (gx#stx-e - _L131402_)))) + _L131407_)))) (declare (not safe)) (make-symbol__1 - __tmp135475 + __tmp135480 '"::specialize"))) - (_specializer-id133440_ - (let ((__tmp135476 + (_specializer-id133445_ + (let ((__tmp135481 (let () (declare (not safe)) (gx#stx-source - _stx131329_)))) + _stx131334_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _id133437_ - __tmp135476)))) + _id133442_ + __tmp135481)))) (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _specializer-id133440_)) - _specializer-id133440_)) - (_$klass133445_ - (let ((__tmp135477 (gensym '__klass))) + _specializer-id133445_)) + _specializer-id133445_)) + (_$klass133450_ + (let ((__tmp135482 (gensym '__klass))) (declare (not safe)) - (make-symbol__0 __tmp135477))) - (_$method-table133447_ - (let ((__tmp135478 + (make-symbol__0 __tmp135482))) + (_$method-table133452_ + (let ((__tmp135483 (gensym '__method-table))) (declare (not safe)) - (make-symbol__0 __tmp135478))) - (_methods133449_ + (make-symbol__0 __tmp135483))) + (_methods133454_ (let () (declare (not safe)) - (hash-keys _method-calls131421_))) - (_$methods133453_ - (map (lambda (_id133451_) - (let ((__tmp135479 - (gensym _id133451_))) + (hash-keys _method-calls131426_))) + (_$methods133458_ + (map (lambda (_id133456_) + (let ((__tmp135484 + (gensym _id133456_))) (declare (not safe)) (make-symbol__1 '"__" - __tmp135479))) - _methods133449_)) - (_g135480_ + __tmp135484))) + _methods133454_)) + (_g135485_ (for-each - (lambda (_g133454133457_ - _g133455133459_) + (lambda (_g133459133462_ + _g133460133464_) (let () (declare (not safe)) (hash-put! - _method-calls131421_ - _g133454133457_ - _g133455133459_))) - _methods133449_ - _$methods133453_)) - (_methods-bind133470_ - (map (lambda (_g133462133465_ - _g133463133467_) + _method-calls131426_ + _g133459133462_ + _g133460133464_))) + _methods133454_ + _$methods133458_)) + (_methods-bind133475_ + (map (lambda (_g133467133470_ + _g133468133472_) (let () (declare (not safe)) - (_generate-method-bind131331_ - _$klass133445_ - _$method-table133447_ - _g133462133465_ - _g133463133467_))) - _methods133449_ - _$methods133453_)) - (_slots133472_ + (_generate-method-bind131336_ + _$klass133450_ + _$method-table133452_ + _g133467133470_ + _g133468133472_))) + _methods133454_ + _$methods133458_)) + (_slots133477_ (let () (declare (not safe)) - (hash-keys _slot-refs131422_))) - (_$slots133476_ - (map (lambda (_id133474_) - (let ((__tmp135481 - (gensym _id133474_))) + (hash-keys _slot-refs131427_))) + (_$slots133481_ + (map (lambda (_id133479_) + (let ((__tmp135486 + (gensym _id133479_))) (declare (not safe)) (make-symbol__1 '"__" - __tmp135481))) - _slots133472_)) - (_g135482_ + __tmp135486))) + _slots133477_)) + (_g135487_ (for-each - (lambda (_g133477133480_ - _g133478133482_) + (lambda (_g133482133485_ + _g133483133487_) (let () (declare (not safe)) (hash-put! - _slot-refs131422_ - _g133477133480_ - _g133478133482_))) - _slots133472_ - _$slots133476_)) - (_slots-bind133493_ - (map (lambda (_g133485133488_ - _g133486133490_) + _slot-refs131427_ + _g133482133485_ + _g133483133487_))) + _slots133477_ + _$slots133481_)) + (_slots-bind133498_ + (map (lambda (_g133490133493_ + _g133491133495_) (let () (declare (not safe)) - (_generate-slot-bind131332_ - _$klass133445_ - _g133485133488_ - _g133486133490_))) - _slots133472_ - _$slots133476_)) - (_specializer-impl133501_ - (let* ((_specializer-body133499_ - (map (lambda (_g133494133496_) + (_generate-slot-bind131337_ + _$klass133450_ + _g133490133493_ + _g133491133495_))) + _slots133477_ + _$slots133481_)) + (_specializer-impl133506_ + (let* ((_specializer-body133504_ + (map (lambda (_g133499133501_) (let () (declare (not safe)) (gxc#apply-subst-object-refs - _g133494133496_ - _self133431_ - _$klass133445_ - _method-calls131421_ - _slot-refs131422_))) - _L133414_)) - (__tmp135483 - (let ((__tmp135484 - (let ((__tmp135486 - (let ((__tmp135487 + _g133499133501_ + _self133436_ + _$klass133450_ + _method-calls131426_ + _slot-refs131427_))) + _L133419_)) + (__tmp135488 + (let ((__tmp135489 + (let ((__tmp135491 + (let ((__tmp135492 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp135499 + (let ((__tmp135504 (let () (declare (not safe)) - (cons _L133077_ '()))) - (__tmp135488 - (let ((__tmp135489 - (let ((__tmp135490 - (let ((__tmp135492 - (let ((__tmp135493 - (let ((__tmp135498 + (cons _L133082_ '()))) + (__tmp135493 + (let ((__tmp135494 + (let ((__tmp135495 + (let ((__tmp135497 + (let ((__tmp135498 + (let ((__tmp135503 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _L133076_ '()))) - (__tmp135494 - (let ((__tmp135495 - (let ((__tmp135496 - (let ((__tmp135497 + (cons _L133081_ '()))) + (__tmp135499 + (let ((__tmp135500 + (let ((__tmp135501 + (let ((__tmp135502 (let () (declare (not safe)) - (cons _L133415_ - _specializer-body133499_)))) + (cons _L133420_ + _specializer-body133504_)))) (declare (not safe)) - (cons '%#lambda __tmp135497)))) + (cons '%#lambda __tmp135502)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp135496 - _L133075_)))) + __tmp135501 + _L133080_)))) (declare (not safe)) - (cons __tmp135495 '())))) + (cons __tmp135500 '())))) (declare (not safe)) - (cons __tmp135498 __tmp135494)))) + (cons __tmp135503 __tmp135499)))) (declare (not safe)) - (cons __tmp135493 '()))) - (__tmp135491 - (let () (declare (not safe)) (cons _L133074_ '())))) + (cons __tmp135498 '()))) + (__tmp135496 + (let () (declare (not safe)) (cons _L133079_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp135492 - __tmp135491)))) + (cons __tmp135497 + __tmp135496)))) (declare (not safe)) (cons '%#let-values - __tmp135490)))) + __tmp135495)))) (declare (not safe)) - (cons __tmp135489 '())))) + (cons __tmp135494 '())))) (declare (not safe)) - (cons __tmp135499 __tmp135488)))) + (cons __tmp135504 __tmp135493)))) (declare (not safe)) - (cons __tmp135487 '()))) - (__tmp135485 - (let () (declare (not safe)) (cons _L133073_ '())))) + (cons __tmp135492 '()))) + (__tmp135490 + (let () (declare (not safe)) (cons _L133078_ '())))) (declare (not safe)) - (cons __tmp135486 __tmp135485)))) + (cons __tmp135491 __tmp135490)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#let-values - __tmp135484)))) + __tmp135489)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp135483 - _stx131329_))) - (_specializer-impl133503_ + __tmp135488 + _stx131334_))) + (_specializer-impl133508_ (let () (declare (not safe)) - (_generate-specializer-impl131333_ - _$klass133445_ - _$method-table133447_ - _methods-bind133470_ - _slots-bind133493_ - _specializer-impl133501_)))) - (let ((__tmp135501 + (_generate-specializer-impl131338_ + _$klass133450_ + _$method-table133452_ + _methods-bind133475_ + _slots-bind133498_ + _specializer-impl133506_)))) + (let ((__tmp135506 (let () (declare (not safe)) - (gx#stx-e _L131402_))) - (__tmp135500 + (gx#stx-e _L131407_))) + (__tmp135505 (let () (declare (not safe)) - (gx#stx-e _specializer-id133443_)))) + (gx#stx-e _specializer-id133448_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp135501 + __tmp135506 '" => " - __tmp135500)) + __tmp135505)) (let () (declare (not safe)) - (_generate-specializer-def131334_ - _L131402_ - _specializer-id133443_ - _specializer-impl133503_)))))) - _tl133386133411_ - _hd133387133409_))) + (_generate-specializer-def131339_ + _L131407_ + _specializer-id133448_ + _specializer-impl133508_)))))) + _tl133391133416_ + _hd133392133414_))) (let () (declare (not safe)) - (_g133379133393_ _g133380133396_))))) + (_g133384133398_ _g133385133401_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g133379133393_ - _g133380133396_)))))) + (_g133384133398_ + _g133385133401_)))))) (declare (not safe)) - (_g133378133506_ _L133075_)) + (_g133383133511_ _L133080_)) (if (let () (declare (not safe)) - (gxc#opt-lambda-expr? _L133075_)) - (let* ((_g133509133539_ - (lambda (_g133510133536_) + (gxc#opt-lambda-expr? _L133080_)) + (let* ((_g133514133544_ + (lambda (_g133515133541_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g133510133536_)))) - (_g133508134081_ - (lambda (_g133510133542_) + _g133515133541_)))) + (_g133513134086_ + (lambda (_g133515133547_) (if (let () (declare (not safe)) (gx#stx-pair? - _g133510133542_)) - (let ((_e133516133544_ + _g133515133547_)) + (let ((_e133521133549_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _g133510133542_)))) - (let ((_hd133515133547_ - (let () (declare (not safe)) (##car _e133516133544_))) - (_tl133514133549_ - (let () (declare (not safe)) (##cdr _e133516133544_)))) + (gx#stx-e _g133515133547_)))) + (let ((_hd133520133552_ + (let () (declare (not safe)) (##car _e133521133549_))) + (_tl133519133554_ + (let () (declare (not safe)) (##cdr _e133521133549_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl133514133549_)) - (let ((_e133519133552_ + (gx#stx-pair? _tl133519133554_)) + (let ((_e133524133557_ (let () (declare (not safe)) - (gx#stx-e _tl133514133549_)))) - (let ((_hd133518133555_ + (gx#stx-e _tl133519133554_)))) + (let ((_hd133523133560_ (let () (declare (not safe)) - (##car _e133519133552_))) - (_tl133517133557_ + (##car _e133524133557_))) + (_tl133522133562_ (let () (declare (not safe)) - (##cdr _e133519133552_)))) + (##cdr _e133524133557_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd133518133555_)) - (let ((_e133522133560_ + (gx#stx-pair? _hd133523133560_)) + (let ((_e133527133565_ (let () (declare (not safe)) - (gx#stx-e _hd133518133555_)))) - (let ((_hd133521133563_ + (gx#stx-e _hd133523133560_)))) + (let ((_hd133526133568_ (let () (declare (not safe)) - (##car _e133522133560_))) - (_tl133520133565_ + (##car _e133527133565_))) + (_tl133525133570_ (let () (declare (not safe)) - (##cdr _e133522133560_)))) + (##cdr _e133527133565_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd133521133563_)) - (let ((_e133525133568_ + (gx#stx-pair? _hd133526133568_)) + (let ((_e133530133573_ (let () (declare (not safe)) - (gx#stx-e _hd133521133563_)))) - (let ((_hd133524133571_ + (gx#stx-e _hd133526133568_)))) + (let ((_hd133529133576_ (let () (declare (not safe)) - (##car _e133525133568_))) - (_tl133523133573_ + (##car _e133530133573_))) + (_tl133528133578_ (let () (declare (not safe)) - (##cdr _e133525133568_)))) + (##cdr _e133530133573_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd133524133571_)) - (let ((_e133528133576_ + _hd133529133576_)) + (let ((_e133533133581_ (let () (declare (not safe)) (gx#stx-e - _hd133524133571_)))) - (let ((_hd133527133579_ + _hd133529133576_)))) + (let ((_hd133532133584_ (let () (declare (not safe)) - (##car _e133528133576_))) - (_tl133526133581_ + (##car _e133533133581_))) + (_tl133531133586_ (let () (declare (not safe)) - (##cdr _e133528133576_)))) + (##cdr _e133533133581_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl133526133581_)) + _tl133531133586_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl133523133573_)) - (let ((_e133531133584_ + _tl133528133578_)) + (let ((_e133536133589_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl133523133573_)))) - (let ((_hd133530133587_ + (gx#stx-e _tl133528133578_)))) + (let ((_hd133535133592_ (let () (declare (not safe)) - (##car _e133531133584_))) - (_tl133529133589_ + (##car _e133536133589_))) + (_tl133534133594_ (let () (declare (not safe)) - (##cdr _e133531133584_)))) + (##cdr _e133536133589_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl133529133589_)) + (gx#stx-null? _tl133534133594_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl133520133565_)) + (gx#stx-null? _tl133525133570_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl133517133557_)) - (let ((_e133534133592_ + (gx#stx-pair? _tl133522133562_)) + (let ((_e133539133597_ (let () (declare (not safe)) - (gx#stx-e _tl133517133557_)))) - (let ((_hd133533133595_ + (gx#stx-e _tl133522133562_)))) + (let ((_hd133538133600_ (let () (declare (not safe)) - (##car _e133534133592_))) - (_tl133532133597_ + (##car _e133539133597_))) + (_tl133537133602_ (let () (declare (not safe)) - (##cdr _e133534133592_)))) + (##cdr _e133539133597_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl133532133597_)) - ((lambda (_L133600_ - _L133601_ - _L133602_) - (let* ((_g133625133639_ - (lambda (_g133626133636_) + (gx#stx-null? _tl133537133602_)) + ((lambda (_L133605_ + _L133606_ + _L133607_) + (let* ((_g133630133644_ + (lambda (_g133631133641_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g133626133636_)))) - (_g133624133680_ - (lambda (_g133626133642_) + _g133631133641_)))) + (_g133629133685_ + (lambda (_g133631133647_) (if (let () (declare (not safe)) (gx#stx-pair? - _g133626133642_)) - (let ((_e133631133644_ + _g133631133647_)) + (let ((_e133636133649_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _g133626133642_)))) - (let ((_hd133630133647_ + (gx#stx-e _g133631133647_)))) + (let ((_hd133635133652_ (let () (declare (not safe)) - (##car _e133631133644_))) - (_tl133629133649_ + (##car _e133636133649_))) + (_tl133634133654_ (let () (declare (not safe)) - (##cdr _e133631133644_)))) + (##cdr _e133636133649_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl133629133649_)) - (let ((_e133634133652_ + (gx#stx-pair? _tl133634133654_)) + (let ((_e133639133657_ (let () (declare (not safe)) - (gx#stx-e _tl133629133649_)))) - (let ((_hd133633133655_ + (gx#stx-e _tl133634133654_)))) + (let ((_hd133638133660_ (let () (declare (not safe)) - (##car _e133634133652_))) - (_tl133632133657_ + (##car _e133639133657_))) + (_tl133637133662_ (let () (declare (not safe)) - (##cdr _e133634133652_)))) - ((lambda (_L133660_ _L133661_) - (let ((_self133674_ + (##cdr _e133639133657_)))) + ((lambda (_L133665_ _L133666_) + (let ((_self133679_ (list-ref - _L133661_ - _self-index133376_))) + _L133666_ + _self-index133381_))) (for-each - (lambda (_g133675133677_) + (lambda (_g133680133682_) (let () (declare (not safe)) (gxc#apply-collect-object-refs - _g133675133677_ - _self133674_ - _method-calls131421_ - _slot-refs131422_))) - _L133660_))) - _tl133632133657_ - _hd133633133655_))) + _g133680133682_ + _self133679_ + _method-calls131426_ + _slot-refs131427_))) + _L133665_))) + _tl133637133662_ + _hd133638133660_))) (let () (declare (not safe)) - (_g133625133639_ _g133626133642_))))) + (_g133630133644_ _g133631133647_))))) (let () (declare (not safe)) - (_g133625133639_ _g133626133642_)))))) + (_g133630133644_ _g133631133647_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g133624133680_ _L133601_)) - (let* ((_g133683133702_ - (lambda (_g133684133699_) + (_g133629133685_ _L133606_)) + (let* ((_g133688133707_ + (lambda (_g133689133704_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g133684133699_)))) - (_g133682133807_ - (lambda (_g133684133705_) + _g133689133704_)))) + (_g133687133812_ + (lambda (_g133689133710_) (if (let () (declare (not safe)) (gx#stx-pair? - _g133684133705_)) - (let ((_e133688133707_ + _g133689133710_)) + (let ((_e133693133712_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _g133684133705_)))) - (let ((_hd133687133710_ + (gx#stx-e _g133689133710_)))) + (let ((_hd133692133715_ (let () (declare (not safe)) - (##car _e133688133707_))) - (_tl133686133712_ + (##car _e133693133712_))) + (_tl133691133717_ (let () (declare (not safe)) - (##cdr _e133688133707_)))) + (##cdr _e133693133712_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl133686133712_)) - (let ((_g135432_ + (gx#stx-pair/null? _tl133691133717_)) + (let ((_g135437_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl133686133712_ + _tl133691133717_ '0)))) (begin - (let ((_g135433_ + (let ((_g135438_ (let () (declare (not safe)) - (if (##values? _g135432_) - (##vector-length _g135432_) + (if (##values? _g135437_) + (##vector-length _g135437_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g135433_ 2))) + (##fx= _g135438_ 2))) (error "Context expects 2 values" - _g135433_))) - (let ((_target133689133715_ + _g135438_))) + (let ((_target133694133720_ (let () (declare (not safe)) - (##vector-ref _g135432_ 0))) - (_tl133691133717_ + (##vector-ref _g135437_ 0))) + (_tl133696133722_ (let () (declare (not safe)) - (##vector-ref _g135432_ 1)))) + (##vector-ref _g135437_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl133691133717_)) - (letrec ((_loop133692133720_ - (lambda (_hd133690133723_ - _clause133696133725_) + (gx#stx-null? _tl133696133722_)) + (letrec ((_loop133697133725_ + (lambda (_hd133695133728_ + _clause133701133730_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd133690133723_)) - (let ((_e133693133728_ + _hd133695133728_)) + (let ((_e133698133733_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd133690133723_)))) - (let ((_lp-hd133694133731_ - (let () (declare (not safe)) (##car _e133693133728_))) - (_lp-tl133695133733_ - (let () (declare (not safe)) (##cdr _e133693133728_)))) - (let ((__tmp135435 + (gx#stx-e _hd133695133728_)))) + (let ((_lp-hd133699133736_ + (let () (declare (not safe)) (##car _e133698133733_))) + (_lp-tl133700133738_ + (let () (declare (not safe)) (##cdr _e133698133733_)))) + (let ((__tmp135440 (let () (declare (not safe)) - (cons _lp-hd133694133731_ _clause133696133725_)))) + (cons _lp-hd133699133736_ _clause133701133730_)))) (declare (not safe)) - (_loop133692133720_ _lp-tl133695133733_ __tmp135435)))) - (let ((_clause133697133736_ (reverse _clause133696133725_))) - ((lambda (_L133739_) + (_loop133697133725_ _lp-tl133700133738_ __tmp135440)))) + (let ((_clause133702133741_ (reverse _clause133701133730_))) + ((lambda (_L133744_) (for-each - (lambda (_clause133752_) - (let* ((_g133754133765_ - (lambda (_g133755133762_) + (lambda (_clause133757_) + (let* ((_g133759133770_ + (lambda (_g133760133767_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g133755133762_)))) - (_g133753133797_ - (lambda (_g133755133768_) + _g133760133767_)))) + (_g133758133802_ + (lambda (_g133760133773_) (if (let () (declare (not safe)) - (gx#stx-pair? _g133755133768_)) - (let ((_e133760133770_ + (gx#stx-pair? _g133760133773_)) + (let ((_e133765133775_ (let () (declare (not safe)) - (gx#stx-e _g133755133768_)))) - (let ((_hd133759133773_ + (gx#stx-e _g133760133773_)))) + (let ((_hd133764133778_ (let () (declare (not safe)) - (##car _e133760133770_))) - (_tl133758133775_ + (##car _e133765133775_))) + (_tl133763133780_ (let () (declare (not safe)) - (##cdr _e133760133770_)))) - ((lambda (_L133778_ _L133779_) - (let ((_self133791_ + (##cdr _e133765133775_)))) + ((lambda (_L133783_ _L133784_) + (let ((_self133796_ (list-ref - _L133779_ - _self-index133376_))) + _L133784_ + _self-index133381_))) (for-each - (lambda (_g133792133794_) + (lambda (_g133797133799_) (let () (declare (not safe)) (gxc#apply-collect-object-refs - _g133792133794_ - _self133791_ - _method-calls131421_ - _slot-refs131422_))) - _L133778_))) - _tl133758133775_ - _hd133759133773_))) + _g133797133799_ + _self133796_ + _method-calls131426_ + _slot-refs131427_))) + _L133783_))) + _tl133763133780_ + _hd133764133778_))) (let () (declare (not safe)) - (_g133754133765_ _g133755133768_)))))) + (_g133759133770_ _g133760133773_)))))) (declare (not safe)) - (_g133753133797_ _clause133752_))) - (let ((__tmp135434 - (lambda (_g133799133802_ _g133800133804_) + (_g133758133802_ _clause133757_))) + (let ((__tmp135439 + (lambda (_g133804133807_ _g133805133809_) (let () (declare (not safe)) - (cons _g133799133802_ _g133800133804_))))) + (cons _g133804133807_ _g133805133809_))))) (declare (not safe)) - (foldr1 __tmp135434 '() _L133739_)))) - _clause133697133736_)))))) + (foldr1 __tmp135439 '() _L133744_)))) + _clause133702133741_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop133692133720_ - _target133689133715_ + (_loop133697133725_ + _target133694133720_ '()))) (let () (declare (not safe)) - (_g133683133702_ _g133684133705_)))))) + (_g133688133707_ _g133689133710_)))))) (let () (declare (not safe)) - (_g133683133702_ _g133684133705_))))) + (_g133688133707_ _g133689133710_))))) (let () (declare (not safe)) - (_g133683133702_ _g133684133705_)))))) + (_g133688133707_ _g133689133710_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g133682133807_ _L133600_)) + (_g133687133812_ _L133605_)) (if (let () (declare (not safe)) - (_no-specializer?131425_)) - _stx131329_ - (let* ((_specializer-id133816_ - (let* ((_id133810_ + (_no-specializer?131430_)) + _stx131334_ + (let* ((_specializer-id133821_ + (let* ((_id133815_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp135436 + (let ((__tmp135441 (let () (declare (not safe)) - (gx#stx-e _L131402_)))) + (gx#stx-e _L131407_)))) (declare (not safe)) - (make-symbol__1 __tmp135436 '"::specialize"))) - (_specializer-id133813_ - (let ((__tmp135437 + (make-symbol__1 __tmp135441 '"::specialize"))) + (_specializer-id133818_ + (let ((__tmp135442 (let () (declare (not safe)) - (gx#stx-source _stx131329_)))) + (gx#stx-source _stx131334_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _id133810_ __tmp135437)))) + (gx#core-quote-syntax__1 _id133815_ __tmp135442)))) (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _specializer-id133813_)) - _specializer-id133813_)) - (_$klass133818_ - (let ((__tmp135438 (gensym '__klass))) + (gx#core-bind-runtime!__0 _specializer-id133818_)) + _specializer-id133818_)) + (_$klass133823_ + (let ((__tmp135443 (gensym '__klass))) (declare (not safe)) - (make-symbol__0 __tmp135438))) - (_$method-table133820_ - (let ((__tmp135439 (gensym '__method-table))) + (make-symbol__0 __tmp135443))) + (_$method-table133825_ + (let ((__tmp135444 (gensym '__method-table))) (declare (not safe)) - (make-symbol__0 __tmp135439))) - (_methods133822_ + (make-symbol__0 __tmp135444))) + (_methods133827_ (let () (declare (not safe)) - (hash-keys _method-calls131421_))) - (_$methods133826_ - (map (lambda (_id133824_) - (let ((__tmp135440 (gensym _id133824_))) + (hash-keys _method-calls131426_))) + (_$methods133831_ + (map (lambda (_id133829_) + (let ((__tmp135445 (gensym _id133829_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp135440))) - _methods133822_)) - (_g135441_ + (make-symbol__1 '"__" __tmp135445))) + _methods133827_)) + (_g135446_ (for-each - (lambda (_g133827133830_ _g133828133832_) + (lambda (_g133832133835_ _g133833133837_) (let () (declare (not safe)) (hash-put! - _method-calls131421_ - _g133827133830_ - _g133828133832_))) - _methods133822_ - _$methods133826_)) - (_methods-bind133843_ - (map (lambda (_g133835133838_ _g133836133840_) + _method-calls131426_ + _g133832133835_ + _g133833133837_))) + _methods133827_ + _$methods133831_)) + (_methods-bind133848_ + (map (lambda (_g133840133843_ _g133841133845_) (let () (declare (not safe)) - (_generate-method-bind131331_ - _$klass133818_ - _$method-table133820_ - _g133835133838_ - _g133836133840_))) - _methods133822_ - _$methods133826_)) - (_slots133845_ - (let () (declare (not safe)) (hash-keys _slot-refs131422_))) - (_$slots133849_ - (map (lambda (_id133847_) - (let ((__tmp135442 (gensym _id133847_))) + (_generate-method-bind131336_ + _$klass133823_ + _$method-table133825_ + _g133840133843_ + _g133841133845_))) + _methods133827_ + _$methods133831_)) + (_slots133850_ + (let () (declare (not safe)) (hash-keys _slot-refs131427_))) + (_$slots133854_ + (map (lambda (_id133852_) + (let ((__tmp135447 (gensym _id133852_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp135442))) - _slots133845_)) - (_g135443_ + (make-symbol__1 '"__" __tmp135447))) + _slots133850_)) + (_g135448_ (for-each - (lambda (_g133850133853_ _g133851133855_) + (lambda (_g133855133858_ _g133856133860_) (let () (declare (not safe)) (hash-put! - _slot-refs131422_ - _g133850133853_ - _g133851133855_))) - _slots133845_ - _$slots133849_)) - (_slots-bind133866_ - (map (lambda (_g133858133861_ _g133859133863_) + _slot-refs131427_ + _g133855133858_ + _g133856133860_))) + _slots133850_ + _$slots133854_)) + (_slots-bind133871_ + (map (lambda (_g133863133866_ _g133864133868_) (let () (declare (not safe)) - (_generate-slot-bind131332_ - _$klass133818_ - _g133858133861_ - _g133859133863_))) - _slots133845_ - _$slots133849_)) - (_specializer-lambda-expr133939_ - (let* ((_g133868133882_ - (lambda (_g133869133879_) + (_generate-slot-bind131337_ + _$klass133823_ + _g133863133866_ + _g133864133868_))) + _slots133850_ + _$slots133854_)) + (_specializer-lambda-expr133944_ + (let* ((_g133873133887_ + (lambda (_g133874133884_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g133869133879_)))) - (_g133867133936_ - (lambda (_g133869133885_) + _g133874133884_)))) + (_g133872133941_ + (lambda (_g133874133890_) (if (let () (declare (not safe)) - (gx#stx-pair? _g133869133885_)) - (let ((_e133874133887_ + (gx#stx-pair? _g133874133890_)) + (let ((_e133879133892_ (let () (declare (not safe)) - (gx#stx-e _g133869133885_)))) - (let ((_hd133873133890_ + (gx#stx-e _g133874133890_)))) + (let ((_hd133878133895_ (let () (declare (not safe)) - (##car _e133874133887_))) - (_tl133872133892_ + (##car _e133879133892_))) + (_tl133877133897_ (let () (declare (not safe)) - (##cdr _e133874133887_)))) + (##cdr _e133879133892_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl133872133892_)) - (let ((_e133877133895_ + (gx#stx-pair? _tl133877133897_)) + (let ((_e133882133900_ (let () (declare (not safe)) - (gx#stx-e _tl133872133892_)))) - (let ((_hd133876133898_ + (gx#stx-e _tl133877133897_)))) + (let ((_hd133881133903_ (let () (declare (not safe)) - (##car _e133877133895_))) - (_tl133875133900_ + (##car _e133882133900_))) + (_tl133880133905_ (let () (declare (not safe)) - (##cdr _e133877133895_)))) - ((lambda (_L133903_ _L133904_) - (let* ((_self133927_ + (##cdr _e133882133900_)))) + ((lambda (_L133908_ _L133909_) + (let* ((_self133932_ (list-ref - _L133904_ - _self-index133376_)) - (_body133933_ - (map (lambda (_g133928133930_) + _L133909_ + _self-index133381_)) + (_body133938_ + (map (lambda (_g133933133935_) (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gxc#apply-subst-object-refs - _g133928133930_ - _self133927_ - _$klass133818_ - _method-calls131421_ - _slot-refs131422_))) - _L133903_))) + _g133933133935_ + _self133932_ + _$klass133823_ + _method-calls131426_ + _slot-refs131427_))) + _L133908_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp135444 - (let ((__tmp135445 + (let ((__tmp135449 + (let ((__tmp135450 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _L133904_ _body133933_)))) + (cons _L133909_ _body133938_)))) (declare (not safe)) - (cons '%#lambda __tmp135445)))) + (cons '%#lambda __tmp135450)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp135444 - _L133601_)))) - _tl133875133900_ - _hd133876133898_))) + __tmp135449 + _L133606_)))) + _tl133880133905_ + _hd133881133903_))) (let () (declare (not safe)) - (_g133868133882_ _g133869133885_))))) + (_g133873133887_ _g133874133890_))))) (let () (declare (not safe)) - (_g133868133882_ _g133869133885_)))))) + (_g133873133887_ _g133874133890_)))))) (declare (not safe)) - (_g133867133936_ _L133601_))) - (_specializer-case-lambda-expr134074_ - (let* ((_g133941133960_ - (lambda (_g133942133957_) + (_g133872133941_ _L133606_))) + (_specializer-case-lambda-expr134079_ + (let* ((_g133946133965_ + (lambda (_g133947133962_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g133942133957_)))) - (_g133940134071_ - (lambda (_g133942133963_) + _g133947133962_)))) + (_g133945134076_ + (lambda (_g133947133968_) (if (let () (declare (not safe)) - (gx#stx-pair? _g133942133963_)) - (let ((_e133946133965_ + (gx#stx-pair? _g133947133968_)) + (let ((_e133951133970_ (let () (declare (not safe)) - (gx#stx-e _g133942133963_)))) - (let ((_hd133945133968_ + (gx#stx-e _g133947133968_)))) + (let ((_hd133950133973_ (let () (declare (not safe)) - (##car _e133946133965_))) - (_tl133944133970_ + (##car _e133951133970_))) + (_tl133949133975_ (let () (declare (not safe)) - (##cdr _e133946133965_)))) + (##cdr _e133951133970_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl133944133970_)) - (let ((_g135446_ + (gx#stx-pair/null? _tl133949133975_)) + (let ((_g135451_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl133944133970_ + _tl133949133975_ '0)))) (begin - (let ((_g135447_ + (let ((_g135452_ (let () (declare (not safe)) - (if (##values? _g135446_) + (if (##values? _g135451_) (##vector-length - _g135446_) + _g135451_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g135447_ 2))) + (##fx= _g135452_ 2))) (error "Context expects 2 values" - _g135447_))) - (let ((_target133947133973_ + _g135452_))) + (let ((_target133952133978_ (let () (declare (not safe)) (##vector-ref - _g135446_ + _g135451_ 0))) - (_tl133949133975_ + (_tl133954133980_ (let () (declare (not safe)) (##vector-ref - _g135446_ + _g135451_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl133949133975_)) - (letrec ((_loop133950133978_ - (lambda (_hd133948133981_ + _tl133954133980_)) + (letrec ((_loop133955133983_ + (lambda (_hd133953133986_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _clause133954133983_) + _clause133959133988_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd133948133981_)) - (let ((_e133951133986_ + (gx#stx-pair? _hd133953133986_)) + (let ((_e133956133991_ (let () (declare (not safe)) - (gx#stx-e _hd133948133981_)))) - (let ((_lp-hd133952133989_ + (gx#stx-e _hd133953133986_)))) + (let ((_lp-hd133957133994_ (let () (declare (not safe)) - (##car _e133951133986_))) - (_lp-tl133953133991_ + (##car _e133956133991_))) + (_lp-tl133958133996_ (let () (declare (not safe)) - (##cdr _e133951133986_)))) - (let ((__tmp135450 + (##cdr _e133956133991_)))) + (let ((__tmp135455 (let () (declare (not safe)) - (cons _lp-hd133952133989_ - _clause133954133983_)))) + (cons _lp-hd133957133994_ + _clause133959133988_)))) (declare (not safe)) - (_loop133950133978_ - _lp-tl133953133991_ - __tmp135450)))) - (let ((_clause133955133994_ - (reverse _clause133954133983_))) - ((lambda (_L133997_) - (let* ((_clauses134069_ - (map (lambda (_clause134011_) - (let* ((_g134013134024_ - (lambda (_g134014134021_) + (_loop133955133983_ + _lp-tl133958133996_ + __tmp135455)))) + (let ((_clause133960133999_ + (reverse _clause133959133988_))) + ((lambda (_L134002_) + (let* ((_clauses134074_ + (map (lambda (_clause134016_) + (let* ((_g134018134029_ + (lambda (_g134019134026_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g134014134021_)))) - (_g134012134059_ - (lambda (_g134014134027_) + _g134019134026_)))) + (_g134017134064_ + (lambda (_g134019134032_) (if (let () (declare (not safe)) (gx#stx-pair? - _g134014134027_)) - (let ((_e134019134029_ + _g134019134032_)) + (let ((_e134024134034_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _g134014134027_)))) - (let ((_hd134018134032_ + (gx#stx-e _g134019134032_)))) + (let ((_hd134023134037_ (let () (declare (not safe)) - (##car _e134019134029_))) - (_tl134017134034_ + (##car _e134024134034_))) + (_tl134022134039_ (let () (declare (not safe)) - (##cdr _e134019134029_)))) - ((lambda (_L134037_ _L134038_) - (let* ((_self134050_ - (list-ref _L134038_ _self-index133376_)) - (_body134056_ - (map (lambda (_g134051134053_) + (##cdr _e134024134034_)))) + ((lambda (_L134042_ _L134043_) + (let* ((_self134055_ + (list-ref _L134043_ _self-index133381_)) + (_body134061_ + (map (lambda (_g134056134058_) (let () (declare (not safe)) (gxc#apply-subst-object-refs - _g134051134053_ - _self134050_ - _$klass133818_ - _method-calls131421_ - _slot-refs131422_))) - _L134037_))) + _g134056134058_ + _self134055_ + _$klass133823_ + _method-calls131426_ + _slot-refs131427_))) + _L134042_))) (let () (declare (not safe)) - (cons _L134038_ _body134056_)))) - _tl134017134034_ - _hd134018134032_))) + (cons _L134043_ _body134061_)))) + _tl134022134039_ + _hd134023134037_))) (let () (declare (not safe)) - (_g134013134024_ _g134014134027_)))))) + (_g134018134029_ _g134019134032_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g134012134059_ - _clause134011_))) - (let ((__tmp135448 - (lambda (_g134061134064_ - _g134062134066_) + (_g134017134064_ + _clause134016_))) + (let ((__tmp135453 + (lambda (_g134066134069_ + _g134067134071_) (let () (declare (not safe)) - (cons _g134061134064_ - _g134062134066_))))) + (cons _g134066134069_ + _g134067134071_))))) (declare (not safe)) - (foldr1 __tmp135448 + (foldr1 __tmp135453 '() - _L133997_)))) - (__tmp135449 + _L134002_)))) + (__tmp135454 (let () (declare (not safe)) (cons '%#case-lambda - _clauses134069_)))) + _clauses134074_)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp135449 - _L133600_))) - _clause133955133994_)))))) + __tmp135454 + _L133605_))) + _clause133960133999_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop133950133978_ - _target133947133973_ + (_loop133955133983_ + _target133952133978_ '()))) (let () (declare (not safe)) - (_g133941133960_ - _g133942133963_)))))) + (_g133946133965_ + _g133947133968_)))))) (let () (declare (not safe)) - (_g133941133960_ _g133942133963_))))) + (_g133946133965_ _g133947133968_))))) (let () (declare (not safe)) - (_g133941133960_ _g133942133963_)))))) + (_g133946133965_ _g133947133968_)))))) (declare (not safe)) - (_g133940134071_ _L133600_))) - (_specializer-impl134076_ - (let ((__tmp135451 - (let ((__tmp135452 - (let ((__tmp135454 - (let ((__tmp135455 - (let ((__tmp135472 + (_g133945134076_ _L133605_))) + (_specializer-impl134081_ + (let ((__tmp135456 + (let ((__tmp135457 + (let ((__tmp135459 + (let ((__tmp135460 + (let ((__tmp135477 (let () (declare (not safe)) - (cons _L133077_ '()))) - (__tmp135456 - (let ((__tmp135457 - (let ((__tmp135458 + (cons _L133082_ '()))) + (__tmp135461 + (let ((__tmp135462 + (let ((__tmp135463 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp135460 - (let ((__tmp135461 - (let ((__tmp135471 + (let ((__tmp135465 + (let ((__tmp135466 + (let ((__tmp135476 (let () (declare (not safe)) - (cons _L133076_ '()))) - (__tmp135462 - (let ((__tmp135463 - (let ((__tmp135464 - (let ((__tmp135465 + (cons _L133081_ '()))) + (__tmp135467 + (let ((__tmp135468 + (let ((__tmp135469 + (let ((__tmp135470 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp135467 - (let ((__tmp135468 - (let ((__tmp135470 + (let ((__tmp135472 + (let ((__tmp135473 + (let ((__tmp135475 (let () (declare (not safe)) - (cons _L133602_ '()))) - (__tmp135469 + (cons _L133607_ '()))) + (__tmp135474 (let () (declare (not safe)) - (cons _specializer-lambda-expr133939_ + (cons _specializer-lambda-expr133944_ '())))) (declare (not safe)) - (cons __tmp135470 __tmp135469)))) + (cons __tmp135475 __tmp135474)))) (declare (not safe)) - (cons __tmp135468 '()))) - (__tmp135466 + (cons __tmp135473 '()))) + (__tmp135471 (let () (declare (not safe)) - (cons _specializer-case-lambda-expr134074_ + (cons _specializer-case-lambda-expr134079_ '())))) (declare (not safe)) - (cons __tmp135467 __tmp135466)))) + (cons __tmp135472 __tmp135471)))) (declare (not safe)) - (cons '%#let-values __tmp135465)))) + (cons '%#let-values __tmp135470)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp135464 _stx131329_)))) + (gxc#xform-wrap-source __tmp135469 _stx131334_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp135463 '())))) + (cons __tmp135468 '())))) (declare (not safe)) - (cons __tmp135471 __tmp135462)))) + (cons __tmp135476 __tmp135467)))) (declare (not safe)) - (cons __tmp135461 '()))) - (__tmp135459 + (cons __tmp135466 '()))) + (__tmp135464 (let () (declare (not safe)) - (cons _L133074_ '())))) + (cons _L133079_ '())))) (declare (not safe)) - (cons __tmp135460 __tmp135459)))) + (cons __tmp135465 __tmp135464)))) (declare (not safe)) - (cons '%#let-values __tmp135458)))) + (cons '%#let-values __tmp135463)))) (declare (not safe)) - (cons __tmp135457 '())))) + (cons __tmp135462 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp135472 - __tmp135456)))) + (cons __tmp135477 + __tmp135461)))) (declare (not safe)) - (cons __tmp135455 '()))) - (__tmp135453 + (cons __tmp135460 '()))) + (__tmp135458 (let () (declare (not safe)) - (cons _L133073_ '())))) + (cons _L133078_ '())))) (declare (not safe)) - (cons __tmp135454 __tmp135453)))) + (cons __tmp135459 __tmp135458)))) (declare (not safe)) - (cons '%#let-values __tmp135452)))) + (cons '%#let-values __tmp135457)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp135451 _stx131329_))) - (_specializer-impl134078_ + (gxc#xform-wrap-source __tmp135456 _stx131334_))) + (_specializer-impl134083_ (let () (declare (not safe)) - (_generate-specializer-impl131333_ - _$klass133818_ - _$method-table133820_ - _methods-bind133843_ - _slots-bind133866_ - _specializer-impl134076_)))) + (_generate-specializer-impl131338_ + _$klass133823_ + _$method-table133825_ + _methods-bind133848_ + _slots-bind133871_ + _specializer-impl134081_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp135474 + (let ((__tmp135479 (let () (declare (not safe)) (gx#stx-e - _L131402_))) - (__tmp135473 + _L131407_))) + (__tmp135478 (let () (declare (not safe)) (gx#stx-e - _specializer-id133816_)))) + _specializer-id133821_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp135474 + __tmp135479 '" => " - __tmp135473)) + __tmp135478)) (let () (declare (not safe)) - (_generate-specializer-def131334_ - _L131402_ - _specializer-id133816_ - _specializer-impl134078_))))) - _hd133533133595_ - _hd133530133587_ - _hd133527133579_) + (_generate-specializer-def131339_ + _L131407_ + _specializer-id133821_ + _specializer-impl134083_))))) + _hd133538133600_ + _hd133535133592_ + _hd133532133584_) (let () (declare (not safe)) - (_g133509133539_ - _g133510133542_))))) + (_g133514133544_ + _g133515133547_))))) (let () (declare (not safe)) - (_g133509133539_ _g133510133542_))) + (_g133514133544_ _g133515133547_))) (let () (declare (not safe)) - (_g133509133539_ _g133510133542_))) + (_g133514133544_ _g133515133547_))) (let () (declare (not safe)) - (_g133509133539_ _g133510133542_))))) + (_g133514133544_ _g133515133547_))))) (let () (declare (not safe)) - (_g133509133539_ _g133510133542_))) + (_g133514133544_ _g133515133547_))) (let () (declare (not safe)) - (_g133509133539_ _g133510133542_))))) + (_g133514133544_ _g133515133547_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g133509133539_ - _g133510133542_))))) + (_g133514133544_ + _g133515133547_))))) (let () (declare (not safe)) - (_g133509133539_ _g133510133542_))))) + (_g133514133544_ _g133515133547_))))) (let () (declare (not safe)) - (_g133509133539_ _g133510133542_))))) + (_g133514133544_ _g133515133547_))))) (let () (declare (not safe)) - (_g133509133539_ _g133510133542_))))) + (_g133514133544_ _g133515133547_))))) (let () (declare (not safe)) - (_g133509133539_ _g133510133542_)))))) + (_g133514133544_ _g133515133547_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g133508134081_ _L133075_)) - _stx131329_)))) - _hd133172133295_ - _kw-ref133170133316_ - _hd133160133282_ - _hd133151133258_ - _hd133142133234_) + (_g133513134086_ _L133080_)) + _stx131334_)))) + _hd133177133300_ + _kw-ref133175133321_ + _hd133165133287_ + _hd133156133263_ + _hd133147133239_) (let () (declare (not safe)) - (_g133116133178_ _g133117133181_)))))))) + (_g133121133183_ _g133122133186_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop133165133300_ - _target133162133287_ + (_loop133170133305_ + _target133167133292_ '()))) (let () (declare (not safe)) - (_g133116133178_ - _g133117133181_))))) + (_g133121133183_ + _g133122133186_))))) (let () (declare (not safe)) - (_g133116133178_ _g133117133181_)))))) + (_g133121133183_ _g133122133186_)))))) (let () (declare (not safe)) - (_g133116133178_ _g133117133181_))) + (_g133121133183_ _g133122133186_))) (let () (declare (not safe)) - (_g133116133178_ _g133117133181_))) + (_g133121133183_ _g133122133186_))) (let () (declare (not safe)) - (_g133116133178_ _g133117133181_))))) + (_g133121133183_ _g133122133186_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g133116133178_ - _g133117133181_))) + (_g133121133183_ + _g133122133186_))) (let () (declare (not safe)) - (_g133116133178_ - _g133117133181_))) + (_g133121133183_ + _g133122133186_))) (let () (declare (not safe)) - (_g133116133178_ - _g133117133181_))))) + (_g133121133183_ + _g133122133186_))))) (let () (declare (not safe)) - (_g133116133178_ _g133117133181_))))) + (_g133121133183_ _g133122133186_))))) (let () (declare (not safe)) - (_g133116133178_ _g133117133181_))) + (_g133121133183_ _g133122133186_))) (let () (declare (not safe)) - (_g133116133178_ _g133117133181_))))) + (_g133121133183_ _g133122133186_))))) (let () (declare (not safe)) - (_g133116133178_ _g133117133181_))) + (_g133121133183_ _g133122133186_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g133116133178_ - _g133117133181_))) + (_g133121133183_ + _g133122133186_))) (let () (declare (not safe)) - (_g133116133178_ - _g133117133181_))))) + (_g133121133183_ + _g133122133186_))))) (let () (declare (not safe)) - (_g133116133178_ _g133117133181_))))) + (_g133121133183_ _g133122133186_))))) (let () (declare (not safe)) - (_g133116133178_ _g133117133181_))) + (_g133121133183_ _g133122133186_))) (let () (declare (not safe)) - (_g133116133178_ _g133117133181_))))) + (_g133121133183_ _g133122133186_))))) (let () (declare (not safe)) - (_g133116133178_ _g133117133181_))) + (_g133121133183_ _g133122133186_))) (let () (declare (not safe)) - (_g133116133178_ _g133117133181_))) + (_g133121133183_ _g133122133186_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g133116133178_ - _g133117133181_))))) + (_g133121133183_ + _g133122133186_))))) (let () (declare (not safe)) - (_g133116133178_ - _g133117133181_))))) + (_g133121133183_ + _g133122133186_))))) (let () (declare (not safe)) - (_g133116133178_ _g133117133181_))) + (_g133121133183_ _g133122133186_))) (let () (declare (not safe)) - (_g133116133178_ _g133117133181_))) + (_g133121133183_ _g133122133186_))) (let () (declare (not safe)) - (_g133116133178_ _g133117133181_))))) + (_g133121133183_ _g133122133186_))))) (let () (declare (not safe)) - (_g133116133178_ _g133117133181_))))) + (_g133121133183_ _g133122133186_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g133116133178_ - _g133117133181_))))) + (_g133121133183_ + _g133122133186_))))) (let () (declare (not safe)) - (_g133116133178_ - _g133117133181_))) + (_g133121133183_ + _g133122133186_))) (let () (declare (not safe)) - (_g133116133178_ _g133117133181_))) + (_g133121133183_ _g133122133186_))) (let () (declare (not safe)) - (_g133116133178_ _g133117133181_))))) + (_g133121133183_ _g133122133186_))))) (let () (declare (not safe)) - (_g133116133178_ _g133117133181_)))))) + (_g133121133183_ _g133122133186_)))))) (declare (not safe)) - (_g133115134084_ _L133074_))) + (_g133120134089_ _L133079_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd132950133068_ - _hd132947133060_ - _hd132944133052_ - _hd132941133044_ - _hd132923132996_) + _hd132955133073_ + _hd132952133065_ + _hd132949133057_ + _hd132946133049_ + _hd132928133001_) (let () (declare (not safe)) - (_g132903132956_ - _g132904132959_))))) + (_g132908132961_ + _g132909132964_))))) (let () (declare (not safe)) - (_g132903132956_ - _g132904132959_))) + (_g132908132961_ + _g132909132964_))) (let () (declare (not safe)) - (_g132903132956_ _g132904132959_))) + (_g132908132961_ _g132909132964_))) (let () (declare (not safe)) - (_g132903132956_ _g132904132959_))) + (_g132908132961_ _g132909132964_))) (let () (declare (not safe)) - (_g132903132956_ _g132904132959_))))) + (_g132908132961_ _g132909132964_))))) (let () (declare (not safe)) - (_g132903132956_ _g132904132959_))) + (_g132908132961_ _g132909132964_))) (let () (declare (not safe)) - (_g132903132956_ _g132904132959_))) + (_g132908132961_ _g132909132964_))) (let () (declare (not safe)) - (_g132903132956_ _g132904132959_))))) + (_g132908132961_ _g132909132964_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g132903132956_ - _g132904132959_))) + (_g132908132961_ + _g132909132964_))) (let () (declare (not safe)) - (_g132903132956_ - _g132904132959_))))) + (_g132908132961_ + _g132909132964_))))) (let () (declare (not safe)) - (_g132903132956_ _g132904132959_))))) + (_g132908132961_ _g132909132964_))))) (let () (declare (not safe)) - (_g132903132956_ _g132904132959_))))) + (_g132908132961_ _g132909132964_))))) (let () (declare (not safe)) - (_g132903132956_ _g132904132959_))))) + (_g132908132961_ _g132909132964_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g132903132956_ - _g132904132959_))) + (_g132908132961_ + _g132909132964_))) (let () (declare (not safe)) - (_g132903132956_ - _g132904132959_))) + (_g132908132961_ + _g132909132964_))) (let () (declare (not safe)) - (_g132903132956_ - _g132904132959_))))) + (_g132908132961_ + _g132909132964_))))) (let () (declare (not safe)) - (_g132903132956_ _g132904132959_))))) + (_g132908132961_ _g132909132964_))))) (let () (declare (not safe)) - (_g132903132956_ _g132904132959_))) + (_g132908132961_ _g132909132964_))) (let () (declare (not safe)) - (_g132903132956_ _g132904132959_))))) + (_g132908132961_ _g132909132964_))))) (let () (declare (not safe)) - (_g132903132956_ _g132904132959_))))) + (_g132908132961_ _g132909132964_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g132903132956_ - _g132904132959_))))) + (_g132908132961_ + _g132909132964_))))) (let () (declare (not safe)) - (_g132903132956_ _g132904132959_))))) + (_g132908132961_ _g132909132964_))))) (let () (declare (not safe)) - (_g132903132956_ _g132904132959_))) + (_g132908132961_ _g132909132964_))) (let () (declare (not safe)) - (_g132903132956_ _g132904132959_))) + (_g132908132961_ _g132909132964_))) (let () (declare (not safe)) - (_g132903132956_ _g132904132959_))))) + (_g132908132961_ _g132909132964_))))) (let () (declare (not safe)) - (_g132903132956_ _g132904132959_)))))) + (_g132908132961_ _g132909132964_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g132902134087_ _L131401_)) - _stx131329_)))))))) - (___kont134267134268_ (lambda () _stx131329_))) - (let ((___match134296134297_ - (lambda (_e131343131369_ - _hd131342131372_ - _tl131341131374_ - _e131346131377_ - _hd131345131380_ - _tl131344131382_ - _e131349131385_ - _hd131348131388_ - _tl131347131390_ - _e131352131393_ - _hd131351131396_ - _tl131350131398_) - (let ((_L131401_ _hd131351131396_) - (_L131402_ _hd131348131388_)) - (if (let ((__tmp135563 + (_g132907134092_ _L131406_)) + _stx131334_)))))))) + (___kont134272134273_ (lambda () _stx131334_))) + (let ((___match134301134302_ + (lambda (_e131348131374_ + _hd131347131377_ + _tl131346131379_ + _e131351131382_ + _hd131350131385_ + _tl131349131387_ + _e131354131390_ + _hd131353131393_ + _tl131352131395_ + _e131357131398_ + _hd131356131401_ + _tl131355131403_) + (let ((_L131406_ _hd131356131401_) + (_L131407_ _hd131353131393_)) + (if (let ((__tmp135568 (let () (declare (not safe)) - (gxc#identifier-symbol _L131402_)))) + (gxc#identifier-symbol _L131407_)))) (declare (not safe)) - (gxc#optimizer-top-level-method? __tmp135563)) - (___kont134265134266_ _L131401_ _L131402_) - (___kont134267134268_)))))) + (gxc#optimizer-top-level-method? __tmp135568)) + (___kont134270134271_ _L131406_ _L131407_) + (___kont134272134273_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx134263134264_)) - (let ((_e131343131369_ + (gx#stx-pair? ___stx134268134269_)) + (let ((_e131348131374_ (let () (declare (not safe)) - (gx#stx-e ___stx134263134264_)))) - (let ((_tl131341131374_ + (gx#stx-e ___stx134268134269_)))) + (let ((_tl131346131379_ (let () (declare (not safe)) - (##cdr _e131343131369_))) - (_hd131342131372_ + (##cdr _e131348131374_))) + (_hd131347131377_ (let () (declare (not safe)) - (##car _e131343131369_)))) + (##car _e131348131374_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl131341131374_)) - (let ((_e131346131377_ + (gx#stx-pair? _tl131346131379_)) + (let ((_e131351131382_ (let () (declare (not safe)) - (gx#stx-e _tl131341131374_)))) - (let ((_tl131344131382_ + (gx#stx-e _tl131346131379_)))) + (let ((_tl131349131387_ (let () (declare (not safe)) - (##cdr _e131346131377_))) - (_hd131345131380_ + (##cdr _e131351131382_))) + (_hd131350131385_ (let () (declare (not safe)) - (##car _e131346131377_)))) + (##car _e131351131382_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd131345131380_)) - (let ((_e131349131385_ + (gx#stx-pair? _hd131350131385_)) + (let ((_e131354131390_ (let () (declare (not safe)) - (gx#stx-e _hd131345131380_)))) - (let ((_tl131347131390_ + (gx#stx-e _hd131350131385_)))) + (let ((_tl131352131395_ (let () (declare (not safe)) - (##cdr _e131349131385_))) - (_hd131348131388_ + (##cdr _e131354131390_))) + (_hd131353131393_ (let () (declare (not safe)) - (##car _e131349131385_)))) + (##car _e131354131390_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl131347131390_)) + (gx#stx-null? _tl131352131395_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl131344131382_)) - (let ((_e131352131393_ + _tl131349131387_)) + (let ((_e131357131398_ (let () (declare (not safe)) (gx#stx-e - _tl131344131382_)))) - (let ((_tl131350131398_ + _tl131349131387_)))) + (let ((_tl131355131403_ (let () (declare (not safe)) - (##cdr _e131352131393_))) - (_hd131351131396_ + (##cdr _e131357131398_))) + (_hd131356131401_ (let () (declare (not safe)) - (##car _e131352131393_)))) + (##car _e131357131398_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl131350131398_)) - (___match134296134297_ - _e131343131369_ - _hd131342131372_ - _tl131341131374_ - _e131346131377_ - _hd131345131380_ - _tl131344131382_ - _e131349131385_ - _hd131348131388_ - _tl131347131390_ - _e131352131393_ - _hd131351131396_ - _tl131350131398_) - (___kont134267134268_)))) - (___kont134267134268_)) - (___kont134267134268_)))) - (___kont134267134268_)))) - (___kont134267134268_)))) - (___kont134267134268_)))))))) + _tl131355131403_)) + (___match134301134302_ + _e131348131374_ + _hd131347131377_ + _tl131346131379_ + _e131351131382_ + _hd131350131385_ + _tl131349131387_ + _e131354131390_ + _hd131353131393_ + _tl131352131395_ + _e131357131398_ + _hd131356131401_ + _tl131355131403_) + (___kont134272134273_)))) + (___kont134272134273_)) + (___kont134272134273_)))) + (___kont134272134273_)))) + (___kont134272134273_)))) + (___kont134272134273_)))))))) (define gxc#collect-object-refs-call% - (lambda (_stx130288_ _self130289_ _methods130290_ _slots130291_) - (let* ((___stx134299134300_ _stx130288_) - (_g130299130521_ + (lambda (_stx130293_ _self130294_ _methods130295_ _slots130296_) + (let* ((___stx134304134305_ _stx130293_) + (_g130304130526_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx134299134300_))))) - (let ((___kont134301134302_ - (lambda (_L131278_ _L131279_ _L131280_ _L131281_) - (let ((__tmp135564 - (let () (declare (not safe)) (gx#stx-e _L131279_)))) + ___stx134304134305_))))) + (let ((___kont134306134307_ + (lambda (_L131283_ _L131284_ _L131285_ _L131286_) + (let ((__tmp135569 + (let () (declare (not safe)) (gx#stx-e _L131284_)))) (declare (not safe)) - (hash-put! _methods130290_ __tmp135564 '#t)) + (hash-put! _methods130295_ __tmp135569 '#t)) (for-each - (lambda (_g131314131316_) + (lambda (_g131319131321_) (let () (declare (not safe)) (gxc#compile-e__3 - _g131314131316_ - _self130289_ - _methods130290_ - _slots130291_))) - (let ((__tmp135565 - (lambda (_g131318131321_ _g131319131323_) + _g131319131321_ + _self130294_ + _methods130295_ + _slots130296_))) + (let ((__tmp135570 + (lambda (_g131323131326_ _g131324131328_) (let () (declare (not safe)) - (cons _g131318131321_ _g131319131323_))))) + (cons _g131323131326_ _g131324131328_))))) (declare (not safe)) - (foldr1 __tmp135565 '() _L131278_))))) - (___kont134305134306_ - (lambda (_L131113_ _L131114_ _L131115_ _L131116_ _L131117_) - (let ((__tmp135566 - (let () (declare (not safe)) (gx#stx-e _L131114_)))) + (foldr1 __tmp135570 '() _L131283_))))) + (___kont134310134311_ + (lambda (_L131118_ _L131119_ _L131120_ _L131121_ _L131122_) + (let ((__tmp135571 + (let () (declare (not safe)) (gx#stx-e _L131119_)))) (declare (not safe)) - (hash-put! _methods130290_ __tmp135566 '#t)) + (hash-put! _methods130295_ __tmp135571 '#t)) (for-each - (lambda (_g131157131159_) + (lambda (_g131162131164_) (let () (declare (not safe)) (gxc#compile-e__3 - _g131157131159_ - _self130289_ - _methods130290_ - _slots130291_))) - (let ((__tmp135567 - (lambda (_g131161131164_ _g131162131166_) + _g131162131164_ + _self130294_ + _methods130295_ + _slots130296_))) + (let ((__tmp135572 + (lambda (_g131166131169_ _g131167131171_) (let () (declare (not safe)) - (cons _g131161131164_ _g131162131166_))))) + (cons _g131166131169_ _g131167131171_))))) (declare (not safe)) - (foldr1 __tmp135567 '() _L131113_))))) - (___kont134309134310_ - (lambda (_L130946_ _L130947_ _L130948_) - (let ((__tmp135568 - (let () (declare (not safe)) (gx#stx-e _L130946_)))) + (foldr1 __tmp135572 '() _L131118_))))) + (___kont134314134315_ + (lambda (_L130951_ _L130952_ _L130953_) + (let ((__tmp135573 + (let () (declare (not safe)) (gx#stx-e _L130951_)))) (declare (not safe)) - (hash-put! _slots130291_ __tmp135568 '#t)))) - (___kont134311134312_ - (lambda (_L130823_ _L130824_ _L130825_ _L130826_) - (let ((__tmp135569 - (let () (declare (not safe)) (gx#stx-e _L130824_)))) + (hash-put! _slots130296_ __tmp135573 '#t)))) + (___kont134316134317_ + (lambda (_L130828_ _L130829_ _L130830_ _L130831_) + (let ((__tmp135574 + (let () (declare (not safe)) (gx#stx-e _L130829_)))) (declare (not safe)) - (hash-put! _slots130291_ __tmp135569 '#t)) + (hash-put! _slots130296_ __tmp135574 '#t)) (let () (declare (not safe)) (gxc#compile-e__3 - _L130823_ - _self130289_ - _methods130290_ - _slots130291_)))) - (___kont134313134314_ - (lambda (_L130697_ _L130698_) - (let* ((_accessor130720_ - (let ((__tmp135570 + _L130828_ + _self130294_ + _methods130295_ + _slots130296_)))) + (___kont134318134319_ + (lambda (_L130702_ _L130703_) + (let* ((_accessor130725_ + (let ((__tmp135575 (let () (declare (not safe)) - (gxc#identifier-symbol _L130698_)))) + (gxc#identifier-symbol _L130703_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp135570))) - (_klass130722_ - (let ((__tmp135571 + (gxc#optimizer-resolve-type __tmp135575))) + (_klass130727_ + (let ((__tmp135576 (##structure-ref - _accessor130720_ + _accessor130725_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _stx130288_ - __tmp135571))) - (_slot130724_ + _stx130293_ + __tmp135576))) + (_slot130729_ (##structure-ref - _accessor130720_ + _accessor130725_ '2 gxc#!accessor::t '#f))) - (if (and (let ((__tmp135573 + (if (and (let ((__tmp135578 (##structure-ref - _accessor130720_ + _accessor130725_ '3 gxc#!accessor::t '#f))) (declare (not safe)) - (not __tmp135573)) + (not __tmp135578)) (or (let () (declare (not safe)) (gxc#!class-struct-slot? - _klass130722_ - _slot130724_)) + _klass130727_ + _slot130729_)) (##structure-ref - _klass130722_ + _klass130727_ '8 gxc#!class::t '#f))) '#!void - (let ((__tmp135572 + (let ((__tmp135577 (##structure-ref - _accessor130720_ + _accessor130725_ '2 gxc#!accessor::t '#f))) (declare (not safe)) - (hash-put! _slots130291_ __tmp135572 '#t)))))) - (___kont134315134316_ - (lambda (_L130597_ _L130598_ _L130599_) - (let* ((_mutator130626_ - (let ((__tmp135574 + (hash-put! _slots130296_ __tmp135577 '#t)))))) + (___kont134320134321_ + (lambda (_L130602_ _L130603_ _L130604_) + (let* ((_mutator130631_ + (let ((__tmp135579 (let () (declare (not safe)) - (gxc#identifier-symbol _L130599_)))) + (gxc#identifier-symbol _L130604_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp135574))) - (_klass130628_ - (let ((__tmp135575 + (gxc#optimizer-resolve-type __tmp135579))) + (_klass130633_ + (let ((__tmp135580 (##structure-ref - _mutator130626_ + _mutator130631_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _stx130288_ - __tmp135575))) - (_slot130630_ + _stx130293_ + __tmp135580))) + (_slot130635_ (##structure-ref - _mutator130626_ + _mutator130631_ '2 gxc#!mutator::t '#f))) - (if (and (let ((__tmp135576 + (if (and (let ((__tmp135581 (##structure-ref - _mutator130626_ + _mutator130631_ '3 gxc#!mutator::t '#f))) (declare (not safe)) - (not __tmp135576)) + (not __tmp135581)) (or (let () (declare (not safe)) (gxc#!class-struct-slot? - _klass130628_ - _slot130630_)) + _klass130633_ + _slot130635_)) (##structure-ref - _klass130628_ + _klass130633_ '8 gxc#!class::t '#f))) '#!void (let () (declare (not safe)) - (hash-put! _slots130291_ _slot130630_ '#t))) + (hash-put! _slots130296_ _slot130635_ '#t))) (let () (declare (not safe)) (gxc#compile-e__3 - _L130597_ - _self130289_ - _methods130290_ - _slots130291_))))) - (___kont134317134318_ + _L130602_ + _self130294_ + _methods130295_ + _slots130296_))))) + (___kont134322134323_ (lambda () (let () (declare (not safe)) (gxc#collect-operands - _stx130288_ - _self130289_ - _methods130290_ - _slots130291_))))) - (let* ((___match134798134799_ - (lambda (_e130495130533_ - _hd130494130536_ - _tl130493130538_ - _e130498130541_ - _hd130497130544_ - _tl130496130546_ - _e130501130549_ - _hd130500130552_ - _tl130499130554_ - _e130504130557_ - _hd130503130560_ - _tl130502130562_ - _e130507130565_ - _hd130506130568_ - _tl130505130570_ - _e130510130573_ - _hd130509130576_ - _tl130508130578_ - _e130513130581_ - _hd130512130584_ - _tl130511130586_ - _e130516130589_ - _hd130515130592_ - _tl130514130594_) - (let ((_L130597_ _hd130515130592_) - (_L130598_ _hd130512130584_) - (_L130599_ _hd130503130560_)) - (if (and (let ((__tmp135577 - (let ((__tmp135578 + _stx130293_ + _self130294_ + _methods130295_ + _slots130296_))))) + (let* ((___match134803134804_ + (lambda (_e130500130538_ + _hd130499130541_ + _tl130498130543_ + _e130503130546_ + _hd130502130549_ + _tl130501130551_ + _e130506130554_ + _hd130505130557_ + _tl130504130559_ + _e130509130562_ + _hd130508130565_ + _tl130507130567_ + _e130512130570_ + _hd130511130573_ + _tl130510130575_ + _e130515130578_ + _hd130514130581_ + _tl130513130583_ + _e130518130586_ + _hd130517130589_ + _tl130516130591_ + _e130521130594_ + _hd130520130597_ + _tl130519130599_) + (let ((_L130602_ _hd130520130597_) + (_L130603_ _hd130517130589_) + (_L130604_ _hd130508130565_)) + (if (and (let ((__tmp135582 + (let ((__tmp135583 (let () (declare (not safe)) (gxc#identifier-symbol - _L130599_)))) + _L130604_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp135578)))) + __tmp135583)))) (declare (not safe)) (##structure-instance-of? - __tmp135577 + __tmp135582 'gxc#!mutator::t)) (let () (declare (not safe)) (gx#free-identifier=? - _L130598_ - _self130289_))) - (___kont134315134316_ - _L130597_ - _L130598_ - _L130599_) - (___kont134317134318_))))) - (___match134796134797_ - (lambda (_e130495130533_ - _hd130494130536_ - _tl130493130538_ - _e130498130541_ - _hd130497130544_ - _tl130496130546_ - _e130501130549_ - _hd130500130552_ - _tl130499130554_ - _e130504130557_ - _hd130503130560_ - _tl130502130562_ - _e130507130565_ - _hd130506130568_ - _tl130505130570_ - _e130510130573_ - _hd130509130576_ - _tl130508130578_ - _e130513130581_ - _hd130512130584_ - _tl130511130586_ - _e130516130589_ - _hd130515130592_ - _tl130514130594_) + _L130603_ + _self130294_))) + (___kont134320134321_ + _L130602_ + _L130603_ + _L130604_) + (___kont134322134323_))))) + (___match134801134802_ + (lambda (_e130500130538_ + _hd130499130541_ + _tl130498130543_ + _e130503130546_ + _hd130502130549_ + _tl130501130551_ + _e130506130554_ + _hd130505130557_ + _tl130504130559_ + _e130509130562_ + _hd130508130565_ + _tl130507130567_ + _e130512130570_ + _hd130511130573_ + _tl130510130575_ + _e130515130578_ + _hd130514130581_ + _tl130513130583_ + _e130518130586_ + _hd130517130589_ + _tl130516130591_ + _e130521130594_ + _hd130520130597_ + _tl130519130599_) (if (let () (declare (not safe)) - (gx#stx-null? _tl130514130594_)) - (___match134798134799_ - _e130495130533_ - _hd130494130536_ - _tl130493130538_ - _e130498130541_ - _hd130497130544_ - _tl130496130546_ - _e130501130549_ - _hd130500130552_ - _tl130499130554_ - _e130504130557_ - _hd130503130560_ - _tl130502130562_ - _e130507130565_ - _hd130506130568_ - _tl130505130570_ - _e130510130573_ - _hd130509130576_ - _tl130508130578_ - _e130513130581_ - _hd130512130584_ - _tl130511130586_ - _e130516130589_ - _hd130515130592_ - _tl130514130594_) - (___kont134317134318_)))) - (___match134790134791_ - (lambda (_e130495130533_ - _hd130494130536_ - _tl130493130538_ - _e130498130541_ - _hd130497130544_ - _tl130496130546_ - _e130501130549_ - _hd130500130552_ - _tl130499130554_ - _e130504130557_ - _hd130503130560_ - _tl130502130562_ - _e130507130565_ - _hd130506130568_ - _tl130505130570_ - _e130510130573_ - _hd130509130576_ - _tl130508130578_ - _e130513130581_ - _hd130512130584_ - _tl130511130586_) + (gx#stx-null? _tl130519130599_)) + (___match134803134804_ + _e130500130538_ + _hd130499130541_ + _tl130498130543_ + _e130503130546_ + _hd130502130549_ + _tl130501130551_ + _e130506130554_ + _hd130505130557_ + _tl130504130559_ + _e130509130562_ + _hd130508130565_ + _tl130507130567_ + _e130512130570_ + _hd130511130573_ + _tl130510130575_ + _e130515130578_ + _hd130514130581_ + _tl130513130583_ + _e130518130586_ + _hd130517130589_ + _tl130516130591_ + _e130521130594_ + _hd130520130597_ + _tl130519130599_) + (___kont134322134323_)))) + (___match134795134796_ + (lambda (_e130500130538_ + _hd130499130541_ + _tl130498130543_ + _e130503130546_ + _hd130502130549_ + _tl130501130551_ + _e130506130554_ + _hd130505130557_ + _tl130504130559_ + _e130509130562_ + _hd130508130565_ + _tl130507130567_ + _e130512130570_ + _hd130511130573_ + _tl130510130575_ + _e130515130578_ + _hd130514130581_ + _tl130513130583_ + _e130518130586_ + _hd130517130589_ + _tl130516130591_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl130505130570_)) - (let ((_e130516130589_ + (gx#stx-pair? _tl130510130575_)) + (let ((_e130521130594_ (let () (declare (not safe)) - (gx#stx-e _tl130505130570_)))) - (let ((_tl130514130594_ + (gx#stx-e _tl130510130575_)))) + (let ((_tl130519130599_ (let () (declare (not safe)) - (##cdr _e130516130589_))) - (_hd130515130592_ + (##cdr _e130521130594_))) + (_hd130520130597_ (let () (declare (not safe)) - (##car _e130516130589_)))) + (##car _e130521130594_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl130514130594_)) - (___match134798134799_ - _e130495130533_ - _hd130494130536_ - _tl130493130538_ - _e130498130541_ - _hd130497130544_ - _tl130496130546_ - _e130501130549_ - _hd130500130552_ - _tl130499130554_ - _e130504130557_ - _hd130503130560_ - _tl130502130562_ - _e130507130565_ - _hd130506130568_ - _tl130505130570_ - _e130510130573_ - _hd130509130576_ - _tl130508130578_ - _e130513130581_ - _hd130512130584_ - _tl130511130586_ - _e130516130589_ - _hd130515130592_ - _tl130514130594_) - (___kont134317134318_)))) - (___kont134317134318_)))) - (___match134736134737_ - (lambda (_e130471130641_ - _hd130470130644_ - _tl130469130646_ - _e130474130649_ - _hd130473130652_ - _tl130472130654_ - _e130477130657_ - _hd130476130660_ - _tl130475130662_ - _e130480130665_ - _hd130479130668_ - _tl130478130670_ - _e130483130673_ - _hd130482130676_ - _tl130481130678_ - _e130486130681_ - _hd130485130684_ - _tl130484130686_ - _e130489130689_ - _hd130488130692_ - _tl130487130694_) - (let ((_L130697_ _hd130488130692_) - (_L130698_ _hd130479130668_)) - (if (and (let ((__tmp135579 - (let ((__tmp135580 + (gx#stx-null? _tl130519130599_)) + (___match134803134804_ + _e130500130538_ + _hd130499130541_ + _tl130498130543_ + _e130503130546_ + _hd130502130549_ + _tl130501130551_ + _e130506130554_ + _hd130505130557_ + _tl130504130559_ + _e130509130562_ + _hd130508130565_ + _tl130507130567_ + _e130512130570_ + _hd130511130573_ + _tl130510130575_ + _e130515130578_ + _hd130514130581_ + _tl130513130583_ + _e130518130586_ + _hd130517130589_ + _tl130516130591_ + _e130521130594_ + _hd130520130597_ + _tl130519130599_) + (___kont134322134323_)))) + (___kont134322134323_)))) + (___match134741134742_ + (lambda (_e130476130646_ + _hd130475130649_ + _tl130474130651_ + _e130479130654_ + _hd130478130657_ + _tl130477130659_ + _e130482130662_ + _hd130481130665_ + _tl130480130667_ + _e130485130670_ + _hd130484130673_ + _tl130483130675_ + _e130488130678_ + _hd130487130681_ + _tl130486130683_ + _e130491130686_ + _hd130490130689_ + _tl130489130691_ + _e130494130694_ + _hd130493130697_ + _tl130492130699_) + (let ((_L130702_ _hd130493130697_) + (_L130703_ _hd130484130673_)) + (if (and (let ((__tmp135584 + (let ((__tmp135585 (let () (declare (not safe)) (gxc#identifier-symbol - _L130698_)))) + _L130703_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp135580)))) + __tmp135585)))) (declare (not safe)) (##structure-instance-of? - __tmp135579 + __tmp135584 'gxc#!accessor::t)) (let () (declare (not safe)) (gx#free-identifier=? - _L130697_ - _self130289_))) - (___kont134313134314_ _L130697_ _L130698_) - (___kont134317134318_))))) - (___match134734134735_ - (lambda (_e130471130641_ - _hd130470130644_ - _tl130469130646_ - _e130474130649_ - _hd130473130652_ - _tl130472130654_ - _e130477130657_ - _hd130476130660_ - _tl130475130662_ - _e130480130665_ - _hd130479130668_ - _tl130478130670_ - _e130483130673_ - _hd130482130676_ - _tl130481130678_ - _e130486130681_ - _hd130485130684_ - _tl130484130686_ - _e130489130689_ - _hd130488130692_ - _tl130487130694_) + _L130702_ + _self130294_))) + (___kont134318134319_ _L130702_ _L130703_) + (___kont134322134323_))))) + (___match134739134740_ + (lambda (_e130476130646_ + _hd130475130649_ + _tl130474130651_ + _e130479130654_ + _hd130478130657_ + _tl130477130659_ + _e130482130662_ + _hd130481130665_ + _tl130480130667_ + _e130485130670_ + _hd130484130673_ + _tl130483130675_ + _e130488130678_ + _hd130487130681_ + _tl130486130683_ + _e130491130686_ + _hd130490130689_ + _tl130489130691_ + _e130494130694_ + _hd130493130697_ + _tl130492130699_) (if (let () (declare (not safe)) - (gx#stx-null? _tl130481130678_)) - (___match134736134737_ - _e130471130641_ - _hd130470130644_ - _tl130469130646_ - _e130474130649_ - _hd130473130652_ - _tl130472130654_ - _e130477130657_ - _hd130476130660_ - _tl130475130662_ - _e130480130665_ - _hd130479130668_ - _tl130478130670_ - _e130483130673_ - _hd130482130676_ - _tl130481130678_ - _e130486130681_ - _hd130485130684_ - _tl130484130686_ - _e130489130689_ - _hd130488130692_ - _tl130487130694_) - (___match134790134791_ - _e130471130641_ - _hd130470130644_ - _tl130469130646_ - _e130474130649_ - _hd130473130652_ - _tl130472130654_ - _e130477130657_ - _hd130476130660_ - _tl130475130662_ - _e130480130665_ - _hd130479130668_ - _tl130478130670_ - _e130483130673_ - _hd130482130676_ - _tl130481130678_ - _e130486130681_ - _hd130485130684_ - _tl130484130686_ - _e130489130689_ - _hd130488130692_ - _tl130487130694_)))) - (___match134680134681_ - (lambda (_e130436130735_ - _hd130435130738_ - _tl130434130740_ - _e130439130743_ - _hd130438130746_ - _tl130437130748_ - _e130442130751_ - _hd130441130754_ - _tl130440130756_ - _e130445130759_ - _hd130444130762_ - _tl130443130764_ - _e130448130767_ - _hd130447130770_ - _tl130446130772_ - _e130451130775_ - _hd130450130778_ - _tl130449130780_ - _e130454130783_ - _hd130453130786_ - _tl130452130788_ - _e130457130791_ - _hd130456130794_ - _tl130455130796_ - _e130460130799_ - _hd130459130802_ - _tl130458130804_ - _e130463130807_ - _hd130462130810_ - _tl130461130812_ - _e130466130815_ - _hd130465130818_ - _tl130464130820_) - (let ((_L130823_ _hd130465130818_) - (_L130824_ _hd130462130810_) - (_L130825_ _hd130453130786_) - (_L130826_ _hd130444130762_)) + (gx#stx-null? _tl130486130683_)) + (___match134741134742_ + _e130476130646_ + _hd130475130649_ + _tl130474130651_ + _e130479130654_ + _hd130478130657_ + _tl130477130659_ + _e130482130662_ + _hd130481130665_ + _tl130480130667_ + _e130485130670_ + _hd130484130673_ + _tl130483130675_ + _e130488130678_ + _hd130487130681_ + _tl130486130683_ + _e130491130686_ + _hd130490130689_ + _tl130489130691_ + _e130494130694_ + _hd130493130697_ + _tl130492130699_) + (___match134795134796_ + _e130476130646_ + _hd130475130649_ + _tl130474130651_ + _e130479130654_ + _hd130478130657_ + _tl130477130659_ + _e130482130662_ + _hd130481130665_ + _tl130480130667_ + _e130485130670_ + _hd130484130673_ + _tl130483130675_ + _e130488130678_ + _hd130487130681_ + _tl130486130683_ + _e130491130686_ + _hd130490130689_ + _tl130489130691_ + _e130494130694_ + _hd130493130697_ + _tl130492130699_)))) + (___match134685134686_ + (lambda (_e130441130740_ + _hd130440130743_ + _tl130439130745_ + _e130444130748_ + _hd130443130751_ + _tl130442130753_ + _e130447130756_ + _hd130446130759_ + _tl130445130761_ + _e130450130764_ + _hd130449130767_ + _tl130448130769_ + _e130453130772_ + _hd130452130775_ + _tl130451130777_ + _e130456130780_ + _hd130455130783_ + _tl130454130785_ + _e130459130788_ + _hd130458130791_ + _tl130457130793_ + _e130462130796_ + _hd130461130799_ + _tl130460130801_ + _e130465130804_ + _hd130464130807_ + _tl130463130809_ + _e130468130812_ + _hd130467130815_ + _tl130466130817_ + _e130471130820_ + _hd130470130823_ + _tl130469130825_) + (let ((_L130828_ _hd130470130823_) + (_L130829_ _hd130467130815_) + (_L130830_ _hd130458130791_) + (_L130831_ _hd130449130767_)) (if (and (or (let () (declare (not safe)) (gxc#runtime-identifier=? - _L130826_ + _L130831_ 'slot-set!)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L130826_ + _L130831_ 'unchecked-slot-set!))) (let () (declare (not safe)) (gx#free-identifier=? - _L130825_ - _self130289_))) - (___kont134311134312_ - _L130823_ - _L130824_ - _L130825_ - _L130826_) - (___kont134317134318_))))) - (___match134672134673_ - (lambda (_e130436130735_ - _hd130435130738_ - _tl130434130740_ - _e130439130743_ - _hd130438130746_ - _tl130437130748_ - _e130442130751_ - _hd130441130754_ - _tl130440130756_ - _e130445130759_ - _hd130444130762_ - _tl130443130764_ - _e130448130767_ - _hd130447130770_ - _tl130446130772_ - _e130451130775_ - _hd130450130778_ - _tl130449130780_ - _e130454130783_ - _hd130453130786_ - _tl130452130788_ - _e130457130791_ - _hd130456130794_ - _tl130455130796_ - _e130460130799_ - _hd130459130802_ - _tl130458130804_ - _e130463130807_ - _hd130462130810_ - _tl130461130812_) + _L130830_ + _self130294_))) + (___kont134316134317_ + _L130828_ + _L130829_ + _L130830_ + _L130831_) + (___kont134322134323_))))) + (___match134677134678_ + (lambda (_e130441130740_ + _hd130440130743_ + _tl130439130745_ + _e130444130748_ + _hd130443130751_ + _tl130442130753_ + _e130447130756_ + _hd130446130759_ + _tl130445130761_ + _e130450130764_ + _hd130449130767_ + _tl130448130769_ + _e130453130772_ + _hd130452130775_ + _tl130451130777_ + _e130456130780_ + _hd130455130783_ + _tl130454130785_ + _e130459130788_ + _hd130458130791_ + _tl130457130793_ + _e130462130796_ + _hd130461130799_ + _tl130460130801_ + _e130465130804_ + _hd130464130807_ + _tl130463130809_ + _e130468130812_ + _hd130467130815_ + _tl130466130817_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl130455130796_)) - (let ((_e130466130815_ + (gx#stx-pair? _tl130460130801_)) + (let ((_e130471130820_ (let () (declare (not safe)) - (gx#stx-e _tl130455130796_)))) - (let ((_tl130464130820_ + (gx#stx-e _tl130460130801_)))) + (let ((_tl130469130825_ (let () (declare (not safe)) - (##cdr _e130466130815_))) - (_hd130465130818_ + (##cdr _e130471130820_))) + (_hd130470130823_ (let () (declare (not safe)) - (##car _e130466130815_)))) + (##car _e130471130820_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl130464130820_)) - (___match134680134681_ - _e130436130735_ - _hd130435130738_ - _tl130434130740_ - _e130439130743_ - _hd130438130746_ - _tl130437130748_ - _e130442130751_ - _hd130441130754_ - _tl130440130756_ - _e130445130759_ - _hd130444130762_ - _tl130443130764_ - _e130448130767_ - _hd130447130770_ - _tl130446130772_ - _e130451130775_ - _hd130450130778_ - _tl130449130780_ - _e130454130783_ - _hd130453130786_ - _tl130452130788_ - _e130457130791_ - _hd130456130794_ - _tl130455130796_ - _e130460130799_ - _hd130459130802_ - _tl130458130804_ - _e130463130807_ - _hd130462130810_ - _tl130461130812_ - _e130466130815_ - _hd130465130818_ - _tl130464130820_) - (___kont134317134318_)))) - (___match134796134797_ - _e130436130735_ - _hd130435130738_ - _tl130434130740_ - _e130439130743_ - _hd130438130746_ - _tl130437130748_ - _e130442130751_ - _hd130441130754_ - _tl130440130756_ - _e130445130759_ - _hd130444130762_ - _tl130443130764_ - _e130448130767_ - _hd130447130770_ - _tl130446130772_ - _e130451130775_ - _hd130450130778_ - _tl130449130780_ - _e130454130783_ - _hd130453130786_ - _tl130452130788_ - _e130457130791_ - _hd130456130794_ - _tl130455130796_)))) - (___match134594134595_ - (lambda (_e130402130866_ - _hd130401130869_ - _tl130400130871_ - _e130405130874_ - _hd130404130877_ - _tl130403130879_ - _e130408130882_ - _hd130407130885_ - _tl130406130887_ - _e130411130890_ - _hd130410130893_ - _tl130409130895_ - _e130414130898_ - _hd130413130901_ - _tl130412130903_ - _e130417130906_ - _hd130416130909_ - _tl130415130911_ - _e130420130914_ - _hd130419130917_ - _tl130418130919_ - _e130423130922_ - _hd130422130925_ - _tl130421130927_ - _e130426130930_ - _hd130425130933_ - _tl130424130935_ - _e130429130938_ - _hd130428130941_ - _tl130427130943_) - (let ((_L130946_ _hd130428130941_) - (_L130947_ _hd130419130917_) - (_L130948_ _hd130410130893_)) + (gx#stx-null? _tl130469130825_)) + (___match134685134686_ + _e130441130740_ + _hd130440130743_ + _tl130439130745_ + _e130444130748_ + _hd130443130751_ + _tl130442130753_ + _e130447130756_ + _hd130446130759_ + _tl130445130761_ + _e130450130764_ + _hd130449130767_ + _tl130448130769_ + _e130453130772_ + _hd130452130775_ + _tl130451130777_ + _e130456130780_ + _hd130455130783_ + _tl130454130785_ + _e130459130788_ + _hd130458130791_ + _tl130457130793_ + _e130462130796_ + _hd130461130799_ + _tl130460130801_ + _e130465130804_ + _hd130464130807_ + _tl130463130809_ + _e130468130812_ + _hd130467130815_ + _tl130466130817_ + _e130471130820_ + _hd130470130823_ + _tl130469130825_) + (___kont134322134323_)))) + (___match134801134802_ + _e130441130740_ + _hd130440130743_ + _tl130439130745_ + _e130444130748_ + _hd130443130751_ + _tl130442130753_ + _e130447130756_ + _hd130446130759_ + _tl130445130761_ + _e130450130764_ + _hd130449130767_ + _tl130448130769_ + _e130453130772_ + _hd130452130775_ + _tl130451130777_ + _e130456130780_ + _hd130455130783_ + _tl130454130785_ + _e130459130788_ + _hd130458130791_ + _tl130457130793_ + _e130462130796_ + _hd130461130799_ + _tl130460130801_)))) + (___match134599134600_ + (lambda (_e130407130871_ + _hd130406130874_ + _tl130405130876_ + _e130410130879_ + _hd130409130882_ + _tl130408130884_ + _e130413130887_ + _hd130412130890_ + _tl130411130892_ + _e130416130895_ + _hd130415130898_ + _tl130414130900_ + _e130419130903_ + _hd130418130906_ + _tl130417130908_ + _e130422130911_ + _hd130421130914_ + _tl130420130916_ + _e130425130919_ + _hd130424130922_ + _tl130423130924_ + _e130428130927_ + _hd130427130930_ + _tl130426130932_ + _e130431130935_ + _hd130430130938_ + _tl130429130940_ + _e130434130943_ + _hd130433130946_ + _tl130432130948_) + (let ((_L130951_ _hd130433130946_) + (_L130952_ _hd130424130922_) + (_L130953_ _hd130415130898_)) (if (and (or (let () (declare (not safe)) (gxc#runtime-identifier=? - _L130948_ + _L130953_ 'slot-ref)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L130948_ + _L130953_ 'unchecked-slot-ref))) (let () (declare (not safe)) (gx#free-identifier=? - _L130947_ - _self130289_))) - (___kont134309134310_ - _L130946_ - _L130947_ - _L130948_) - (___match134798134799_ - _e130402130866_ - _hd130401130869_ - _tl130400130871_ - _e130405130874_ - _hd130404130877_ - _tl130403130879_ - _e130408130882_ - _hd130407130885_ - _tl130406130887_ - _e130411130890_ - _hd130410130893_ - _tl130409130895_ - _e130414130898_ - _hd130413130901_ - _tl130412130903_ - _e130417130906_ - _hd130416130909_ - _tl130415130911_ - _e130420130914_ - _hd130419130917_ - _tl130418130919_ - _e130423130922_ - _hd130422130925_ - _tl130421130927_))))) - (___match134592134593_ - (lambda (_e130402130866_ - _hd130401130869_ - _tl130400130871_ - _e130405130874_ - _hd130404130877_ - _tl130403130879_ - _e130408130882_ - _hd130407130885_ - _tl130406130887_ - _e130411130890_ - _hd130410130893_ - _tl130409130895_ - _e130414130898_ - _hd130413130901_ - _tl130412130903_ - _e130417130906_ - _hd130416130909_ - _tl130415130911_ - _e130420130914_ - _hd130419130917_ - _tl130418130919_ - _e130423130922_ - _hd130422130925_ - _tl130421130927_ - _e130426130930_ - _hd130425130933_ - _tl130424130935_ - _e130429130938_ - _hd130428130941_ - _tl130427130943_) + _L130952_ + _self130294_))) + (___kont134314134315_ + _L130951_ + _L130952_ + _L130953_) + (___match134803134804_ + _e130407130871_ + _hd130406130874_ + _tl130405130876_ + _e130410130879_ + _hd130409130882_ + _tl130408130884_ + _e130413130887_ + _hd130412130890_ + _tl130411130892_ + _e130416130895_ + _hd130415130898_ + _tl130414130900_ + _e130419130903_ + _hd130418130906_ + _tl130417130908_ + _e130422130911_ + _hd130421130914_ + _tl130420130916_ + _e130425130919_ + _hd130424130922_ + _tl130423130924_ + _e130428130927_ + _hd130427130930_ + _tl130426130932_))))) + (___match134597134598_ + (lambda (_e130407130871_ + _hd130406130874_ + _tl130405130876_ + _e130410130879_ + _hd130409130882_ + _tl130408130884_ + _e130413130887_ + _hd130412130890_ + _tl130411130892_ + _e130416130895_ + _hd130415130898_ + _tl130414130900_ + _e130419130903_ + _hd130418130906_ + _tl130417130908_ + _e130422130911_ + _hd130421130914_ + _tl130420130916_ + _e130425130919_ + _hd130424130922_ + _tl130423130924_ + _e130428130927_ + _hd130427130930_ + _tl130426130932_ + _e130431130935_ + _hd130430130938_ + _tl130429130940_ + _e130434130943_ + _hd130433130946_ + _tl130432130948_) (if (let () (declare (not safe)) - (gx#stx-null? _tl130421130927_)) - (___match134594134595_ - _e130402130866_ - _hd130401130869_ - _tl130400130871_ - _e130405130874_ - _hd130404130877_ - _tl130403130879_ - _e130408130882_ - _hd130407130885_ - _tl130406130887_ - _e130411130890_ - _hd130410130893_ - _tl130409130895_ - _e130414130898_ - _hd130413130901_ - _tl130412130903_ - _e130417130906_ - _hd130416130909_ - _tl130415130911_ - _e130420130914_ - _hd130419130917_ - _tl130418130919_ - _e130423130922_ - _hd130422130925_ - _tl130421130927_ - _e130426130930_ - _hd130425130933_ - _tl130424130935_ - _e130429130938_ - _hd130428130941_ - _tl130427130943_) - (___match134672134673_ - _e130402130866_ - _hd130401130869_ - _tl130400130871_ - _e130405130874_ - _hd130404130877_ - _tl130403130879_ - _e130408130882_ - _hd130407130885_ - _tl130406130887_ - _e130411130890_ - _hd130410130893_ - _tl130409130895_ - _e130414130898_ - _hd130413130901_ - _tl130412130903_ - _e130417130906_ - _hd130416130909_ - _tl130415130911_ - _e130420130914_ - _hd130419130917_ - _tl130418130919_ - _e130423130922_ - _hd130422130925_ - _tl130421130927_ - _e130426130930_ - _hd130425130933_ - _tl130424130935_ - _e130429130938_ - _hd130428130941_ - _tl130427130943_)))) - (___match134582134583_ - (lambda (_e130402130866_ - _hd130401130869_ - _tl130400130871_ - _e130405130874_ - _hd130404130877_ - _tl130403130879_ - _e130408130882_ - _hd130407130885_ - _tl130406130887_ - _e130411130890_ - _hd130410130893_ - _tl130409130895_ - _e130414130898_ - _hd130413130901_ - _tl130412130903_ - _e130417130906_ - _hd130416130909_ - _tl130415130911_ - _e130420130914_ - _hd130419130917_ - _tl130418130919_ - _e130423130922_ - _hd130422130925_ - _tl130421130927_ - _e130426130930_ - _hd130425130933_ - _tl130424130935_) + (gx#stx-null? _tl130426130932_)) + (___match134599134600_ + _e130407130871_ + _hd130406130874_ + _tl130405130876_ + _e130410130879_ + _hd130409130882_ + _tl130408130884_ + _e130413130887_ + _hd130412130890_ + _tl130411130892_ + _e130416130895_ + _hd130415130898_ + _tl130414130900_ + _e130419130903_ + _hd130418130906_ + _tl130417130908_ + _e130422130911_ + _hd130421130914_ + _tl130420130916_ + _e130425130919_ + _hd130424130922_ + _tl130423130924_ + _e130428130927_ + _hd130427130930_ + _tl130426130932_ + _e130431130935_ + _hd130430130938_ + _tl130429130940_ + _e130434130943_ + _hd130433130946_ + _tl130432130948_) + (___match134677134678_ + _e130407130871_ + _hd130406130874_ + _tl130405130876_ + _e130410130879_ + _hd130409130882_ + _tl130408130884_ + _e130413130887_ + _hd130412130890_ + _tl130411130892_ + _e130416130895_ + _hd130415130898_ + _tl130414130900_ + _e130419130903_ + _hd130418130906_ + _tl130417130908_ + _e130422130911_ + _hd130421130914_ + _tl130420130916_ + _e130425130919_ + _hd130424130922_ + _tl130423130924_ + _e130428130927_ + _hd130427130930_ + _tl130426130932_ + _e130431130935_ + _hd130430130938_ + _tl130429130940_ + _e130434130943_ + _hd130433130946_ + _tl130432130948_)))) + (___match134587134588_ + (lambda (_e130407130871_ + _hd130406130874_ + _tl130405130876_ + _e130410130879_ + _hd130409130882_ + _tl130408130884_ + _e130413130887_ + _hd130412130890_ + _tl130411130892_ + _e130416130895_ + _hd130415130898_ + _tl130414130900_ + _e130419130903_ + _hd130418130906_ + _tl130417130908_ + _e130422130911_ + _hd130421130914_ + _tl130420130916_ + _e130425130919_ + _hd130424130922_ + _tl130423130924_ + _e130428130927_ + _hd130427130930_ + _tl130426130932_ + _e130431130935_ + _hd130430130938_ + _tl130429130940_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd130425130933_)) + (gx#stx-eq? '%#quote _hd130430130938_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl130424130935_)) - (let ((_e130429130938_ + (gx#stx-pair? _tl130429130940_)) + (let ((_e130434130943_ (let () (declare (not safe)) - (gx#stx-e _tl130424130935_)))) - (let ((_tl130427130943_ + (gx#stx-e _tl130429130940_)))) + (let ((_tl130432130948_ (let () (declare (not safe)) - (##cdr _e130429130938_))) - (_hd130428130941_ + (##cdr _e130434130943_))) + (_hd130433130946_ (let () (declare (not safe)) - (##car _e130429130938_)))) + (##car _e130434130943_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl130427130943_)) + (gx#stx-null? _tl130432130948_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl130421130927_)) - (___match134594134595_ - _e130402130866_ - _hd130401130869_ - _tl130400130871_ - _e130405130874_ - _hd130404130877_ - _tl130403130879_ - _e130408130882_ - _hd130407130885_ - _tl130406130887_ - _e130411130890_ - _hd130410130893_ - _tl130409130895_ - _e130414130898_ - _hd130413130901_ - _tl130412130903_ - _e130417130906_ - _hd130416130909_ - _tl130415130911_ - _e130420130914_ - _hd130419130917_ - _tl130418130919_ - _e130423130922_ - _hd130422130925_ - _tl130421130927_ - _e130426130930_ - _hd130425130933_ - _tl130424130935_ - _e130429130938_ - _hd130428130941_ - _tl130427130943_) - (___match134672134673_ - _e130402130866_ - _hd130401130869_ - _tl130400130871_ - _e130405130874_ - _hd130404130877_ - _tl130403130879_ - _e130408130882_ - _hd130407130885_ - _tl130406130887_ - _e130411130890_ - _hd130410130893_ - _tl130409130895_ - _e130414130898_ - _hd130413130901_ - _tl130412130903_ - _e130417130906_ - _hd130416130909_ - _tl130415130911_ - _e130420130914_ - _hd130419130917_ - _tl130418130919_ - _e130423130922_ - _hd130422130925_ - _tl130421130927_ - _e130426130930_ - _hd130425130933_ - _tl130424130935_ - _e130429130938_ - _hd130428130941_ - _tl130427130943_)) - (___match134796134797_ - _e130402130866_ - _hd130401130869_ - _tl130400130871_ - _e130405130874_ - _hd130404130877_ - _tl130403130879_ - _e130408130882_ - _hd130407130885_ - _tl130406130887_ - _e130411130890_ - _hd130410130893_ - _tl130409130895_ - _e130414130898_ - _hd130413130901_ - _tl130412130903_ - _e130417130906_ - _hd130416130909_ - _tl130415130911_ - _e130420130914_ - _hd130419130917_ - _tl130418130919_ - _e130423130922_ - _hd130422130925_ - _tl130421130927_)))) - (___match134796134797_ - _e130402130866_ - _hd130401130869_ - _tl130400130871_ - _e130405130874_ - _hd130404130877_ - _tl130403130879_ - _e130408130882_ - _hd130407130885_ - _tl130406130887_ - _e130411130890_ - _hd130410130893_ - _tl130409130895_ - _e130414130898_ - _hd130413130901_ - _tl130412130903_ - _e130417130906_ - _hd130416130909_ - _tl130415130911_ - _e130420130914_ - _hd130419130917_ - _tl130418130919_ - _e130423130922_ - _hd130422130925_ - _tl130421130927_)) - (___match134796134797_ - _e130402130866_ - _hd130401130869_ - _tl130400130871_ - _e130405130874_ - _hd130404130877_ - _tl130403130879_ - _e130408130882_ - _hd130407130885_ - _tl130406130887_ - _e130411130890_ - _hd130410130893_ - _tl130409130895_ - _e130414130898_ - _hd130413130901_ - _tl130412130903_ - _e130417130906_ - _hd130416130909_ - _tl130415130911_ - _e130420130914_ - _hd130419130917_ - _tl130418130919_ - _e130423130922_ - _hd130422130925_ - _tl130421130927_)))) - (___match134514134515_ - (lambda (_e130351130985_ - _hd130350130988_ - _tl130349130990_ - _e130354130993_ - _hd130353130996_ - _tl130352130998_ - _e130357131001_ - _hd130356131004_ - _tl130355131006_ - _e130360131009_ - _hd130359131012_ - _tl130358131014_ - _e130363131017_ - _hd130362131020_ - _tl130361131022_ - _e130366131025_ - _hd130365131028_ - _tl130364131030_ - _e130369131033_ - _hd130368131036_ - _tl130367131038_ - _e130372131041_ - _hd130371131044_ - _tl130370131046_ - _e130375131049_ - _hd130374131052_ - _tl130373131054_ - _e130378131057_ - _hd130377131060_ - _tl130376131062_ - _e130381131065_ - _hd130380131068_ - _tl130379131070_ - _e130384131073_ - _hd130383131076_ - _tl130382131078_ - _e130387131081_ - _hd130386131084_ - _tl130385131086_ - ___splice134307134308_ - _target130388131089_ - _tl130390131091_) - (letrec ((_loop130391131094_ - (lambda (_hd130389131097_ _args130395131099_) + (gx#stx-null? _tl130426130932_)) + (___match134599134600_ + _e130407130871_ + _hd130406130874_ + _tl130405130876_ + _e130410130879_ + _hd130409130882_ + _tl130408130884_ + _e130413130887_ + _hd130412130890_ + _tl130411130892_ + _e130416130895_ + _hd130415130898_ + _tl130414130900_ + _e130419130903_ + _hd130418130906_ + _tl130417130908_ + _e130422130911_ + _hd130421130914_ + _tl130420130916_ + _e130425130919_ + _hd130424130922_ + _tl130423130924_ + _e130428130927_ + _hd130427130930_ + _tl130426130932_ + _e130431130935_ + _hd130430130938_ + _tl130429130940_ + _e130434130943_ + _hd130433130946_ + _tl130432130948_) + (___match134677134678_ + _e130407130871_ + _hd130406130874_ + _tl130405130876_ + _e130410130879_ + _hd130409130882_ + _tl130408130884_ + _e130413130887_ + _hd130412130890_ + _tl130411130892_ + _e130416130895_ + _hd130415130898_ + _tl130414130900_ + _e130419130903_ + _hd130418130906_ + _tl130417130908_ + _e130422130911_ + _hd130421130914_ + _tl130420130916_ + _e130425130919_ + _hd130424130922_ + _tl130423130924_ + _e130428130927_ + _hd130427130930_ + _tl130426130932_ + _e130431130935_ + _hd130430130938_ + _tl130429130940_ + _e130434130943_ + _hd130433130946_ + _tl130432130948_)) + (___match134801134802_ + _e130407130871_ + _hd130406130874_ + _tl130405130876_ + _e130410130879_ + _hd130409130882_ + _tl130408130884_ + _e130413130887_ + _hd130412130890_ + _tl130411130892_ + _e130416130895_ + _hd130415130898_ + _tl130414130900_ + _e130419130903_ + _hd130418130906_ + _tl130417130908_ + _e130422130911_ + _hd130421130914_ + _tl130420130916_ + _e130425130919_ + _hd130424130922_ + _tl130423130924_ + _e130428130927_ + _hd130427130930_ + _tl130426130932_)))) + (___match134801134802_ + _e130407130871_ + _hd130406130874_ + _tl130405130876_ + _e130410130879_ + _hd130409130882_ + _tl130408130884_ + _e130413130887_ + _hd130412130890_ + _tl130411130892_ + _e130416130895_ + _hd130415130898_ + _tl130414130900_ + _e130419130903_ + _hd130418130906_ + _tl130417130908_ + _e130422130911_ + _hd130421130914_ + _tl130420130916_ + _e130425130919_ + _hd130424130922_ + _tl130423130924_ + _e130428130927_ + _hd130427130930_ + _tl130426130932_)) + (___match134801134802_ + _e130407130871_ + _hd130406130874_ + _tl130405130876_ + _e130410130879_ + _hd130409130882_ + _tl130408130884_ + _e130413130887_ + _hd130412130890_ + _tl130411130892_ + _e130416130895_ + _hd130415130898_ + _tl130414130900_ + _e130419130903_ + _hd130418130906_ + _tl130417130908_ + _e130422130911_ + _hd130421130914_ + _tl130420130916_ + _e130425130919_ + _hd130424130922_ + _tl130423130924_ + _e130428130927_ + _hd130427130930_ + _tl130426130932_)))) + (___match134519134520_ + (lambda (_e130356130990_ + _hd130355130993_ + _tl130354130995_ + _e130359130998_ + _hd130358131001_ + _tl130357131003_ + _e130362131006_ + _hd130361131009_ + _tl130360131011_ + _e130365131014_ + _hd130364131017_ + _tl130363131019_ + _e130368131022_ + _hd130367131025_ + _tl130366131027_ + _e130371131030_ + _hd130370131033_ + _tl130369131035_ + _e130374131038_ + _hd130373131041_ + _tl130372131043_ + _e130377131046_ + _hd130376131049_ + _tl130375131051_ + _e130380131054_ + _hd130379131057_ + _tl130378131059_ + _e130383131062_ + _hd130382131065_ + _tl130381131067_ + _e130386131070_ + _hd130385131073_ + _tl130384131075_ + _e130389131078_ + _hd130388131081_ + _tl130387131083_ + _e130392131086_ + _hd130391131089_ + _tl130390131091_ + ___splice134312134313_ + _target130393131094_ + _tl130395131096_) + (letrec ((_loop130396131099_ + (lambda (_hd130394131102_ _args130400131104_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd130389131097_)) - (let ((_e130392131102_ + (gx#stx-pair? _hd130394131102_)) + (let ((_e130397131107_ (let () (declare (not safe)) - (gx#stx-e _hd130389131097_)))) - (let ((_lp-tl130394131107_ + (gx#stx-e _hd130394131102_)))) + (let ((_lp-tl130399131112_ (let () (declare (not safe)) - (##cdr _e130392131102_))) - (_lp-hd130393131105_ + (##cdr _e130397131107_))) + (_lp-hd130398131110_ (let () (declare (not safe)) - (##car _e130392131102_)))) - (let ((__tmp135581 + (##car _e130397131107_)))) + (let ((__tmp135586 (let () (declare (not safe)) - (cons _lp-hd130393131105_ - _args130395131099_)))) + (cons _lp-hd130398131110_ + _args130400131104_)))) (declare (not safe)) - (_loop130391131094_ - _lp-tl130394131107_ - __tmp135581)))) - (let ((_args130396131110_ - (reverse _args130395131099_))) - (let ((_L131113_ _args130396131110_) - (_L131114_ _hd130386131084_) - (_L131115_ _hd130377131060_) - (_L131116_ _hd130368131036_) - (_L131117_ _hd130359131012_)) + (_loop130396131099_ + _lp-tl130399131112_ + __tmp135586)))) + (let ((_args130401131115_ + (reverse _args130400131104_))) + (let ((_L131118_ _args130401131115_) + (_L131119_ _hd130391131089_) + (_L131120_ _hd130382131065_) + (_L131121_ _hd130373131041_) + (_L131122_ _hd130364131017_)) (if (and (let () (declare (not safe)) (gxc#runtime-identifier=? - _L131117_ + _L131122_ 'apply)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L131116_ + _L131121_ 'call-method)) (let () (declare (not safe)) (gx#free-identifier=? - _L131115_ - _self130289_))) - (___kont134305134306_ - _L131113_ - _L131114_ - _L131115_ - _L131116_ - _L131117_) - (___kont134317134318_)))))))) + _L131120_ + _self130294_))) + (___kont134310134311_ + _L131118_ + _L131119_ + _L131120_ + _L131121_ + _L131122_) + (___kont134322134323_)))))))) (let () (declare (not safe)) - (_loop130391131094_ _target130388131089_ '()))))) - (___match134472134473_ - (lambda (_e130351130985_ - _hd130350130988_ - _tl130349130990_ - _e130354130993_ - _hd130353130996_ - _tl130352130998_ - _e130357131001_ - _hd130356131004_ - _tl130355131006_ - _e130360131009_ - _hd130359131012_ - _tl130358131014_ - _e130363131017_ - _hd130362131020_ - _tl130361131022_ - _e130366131025_ - _hd130365131028_ - _tl130364131030_ - _e130369131033_ - _hd130368131036_ - _tl130367131038_ - _e130372131041_ - _hd130371131044_ - _tl130370131046_ - _e130375131049_ - _hd130374131052_ - _tl130373131054_) + (_loop130396131099_ _target130393131094_ '()))))) + (___match134477134478_ + (lambda (_e130356130990_ + _hd130355130993_ + _tl130354130995_ + _e130359130998_ + _hd130358131001_ + _tl130357131003_ + _e130362131006_ + _hd130361131009_ + _tl130360131011_ + _e130365131014_ + _hd130364131017_ + _tl130363131019_ + _e130368131022_ + _hd130367131025_ + _tl130366131027_ + _e130371131030_ + _hd130370131033_ + _tl130369131035_ + _e130374131038_ + _hd130373131041_ + _tl130372131043_ + _e130377131046_ + _hd130376131049_ + _tl130375131051_ + _e130380131054_ + _hd130379131057_ + _tl130378131059_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd130374131052_)) + (gx#stx-eq? '%#ref _hd130379131057_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl130373131054_)) - (let ((_e130378131057_ + (gx#stx-pair? _tl130378131059_)) + (let ((_e130383131062_ (let () (declare (not safe)) - (gx#stx-e _tl130373131054_)))) - (let ((_tl130376131062_ + (gx#stx-e _tl130378131059_)))) + (let ((_tl130381131067_ (let () (declare (not safe)) - (##cdr _e130378131057_))) - (_hd130377131060_ + (##cdr _e130383131062_))) + (_hd130382131065_ (let () (declare (not safe)) - (##car _e130378131057_)))) + (##car _e130383131062_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl130376131062_)) + (gx#stx-null? _tl130381131067_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl130370131046_)) - (let ((_e130381131065_ + (gx#stx-pair? _tl130375131051_)) + (let ((_e130386131070_ (let () (declare (not safe)) (gx#stx-e - _tl130370131046_)))) - (let ((_tl130379131070_ + _tl130375131051_)))) + (let ((_tl130384131075_ (let () (declare (not safe)) - (##cdr _e130381131065_))) - (_hd130380131068_ + (##cdr _e130386131070_))) + (_hd130385131073_ (let () (declare (not safe)) - (##car _e130381131065_)))) + (##car _e130386131070_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd130380131068_)) - (let ((_e130384131073_ + _hd130385131073_)) + (let ((_e130389131078_ (let () (declare (not safe)) (gx#stx-e - _hd130380131068_)))) - (let ((_tl130382131078_ + _hd130385131073_)))) + (let ((_tl130387131083_ (let () (declare (not safe)) - (##cdr _e130384131073_))) - (_hd130383131076_ + (##cdr _e130389131078_))) + (_hd130388131081_ (let () (declare (not safe)) - (##car _e130384131073_)))) + (##car _e130389131078_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd130383131076_)) + _hd130388131081_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#quote _hd130383131076_)) + (gx#stx-eq? '%#quote _hd130388131081_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl130382131078_)) - (let ((_e130387131081_ + (gx#stx-pair? _tl130387131083_)) + (let ((_e130392131086_ (let () (declare (not safe)) - (gx#stx-e _tl130382131078_)))) - (let ((_tl130385131086_ + (gx#stx-e _tl130387131083_)))) + (let ((_tl130390131091_ (let () (declare (not safe)) - (##cdr _e130387131081_))) - (_hd130386131084_ + (##cdr _e130392131086_))) + (_hd130391131089_ (let () (declare (not safe)) - (##car _e130387131081_)))) + (##car _e130392131086_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl130385131086_)) + (gx#stx-null? _tl130390131091_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl130379131070_)) - (let ((___splice134307134308_ + (gx#stx-pair/null? _tl130384131075_)) + (let ((___splice134312134313_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl130379131070_ + _tl130384131075_ '0)))) - (let ((_tl130390131091_ + (let ((_tl130395131096_ (let () (declare (not safe)) (##vector-ref - ___splice134307134308_ + ___splice134312134313_ '1))) - (_target130388131089_ + (_target130393131094_ (let () (declare (not safe)) (##vector-ref - ___splice134307134308_ + ___splice134312134313_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl130390131091_)) - (___match134514134515_ - _e130351130985_ - _hd130350130988_ - _tl130349130990_ - _e130354130993_ - _hd130353130996_ - _tl130352130998_ - _e130357131001_ - _hd130356131004_ - _tl130355131006_ - _e130360131009_ - _hd130359131012_ - _tl130358131014_ - _e130363131017_ - _hd130362131020_ - _tl130361131022_ - _e130366131025_ - _hd130365131028_ - _tl130364131030_ - _e130369131033_ - _hd130368131036_ - _tl130367131038_ - _e130372131041_ - _hd130371131044_ - _tl130370131046_ - _e130375131049_ - _hd130374131052_ - _tl130373131054_ - _e130378131057_ - _hd130377131060_ - _tl130376131062_ - _e130381131065_ - _hd130380131068_ - _tl130379131070_ - _e130384131073_ - _hd130383131076_ - _tl130382131078_ - _e130387131081_ - _hd130386131084_ - _tl130385131086_ - ___splice134307134308_ - _target130388131089_ - _tl130390131091_) - (___kont134317134318_)))) - (___kont134317134318_)) - (___kont134317134318_)))) - (___kont134317134318_)) - (___kont134317134318_)) - (___kont134317134318_)))) + _tl130395131096_)) + (___match134519134520_ + _e130356130990_ + _hd130355130993_ + _tl130354130995_ + _e130359130998_ + _hd130358131001_ + _tl130357131003_ + _e130362131006_ + _hd130361131009_ + _tl130360131011_ + _e130365131014_ + _hd130364131017_ + _tl130363131019_ + _e130368131022_ + _hd130367131025_ + _tl130366131027_ + _e130371131030_ + _hd130370131033_ + _tl130369131035_ + _e130374131038_ + _hd130373131041_ + _tl130372131043_ + _e130377131046_ + _hd130376131049_ + _tl130375131051_ + _e130380131054_ + _hd130379131057_ + _tl130378131059_ + _e130383131062_ + _hd130382131065_ + _tl130381131067_ + _e130386131070_ + _hd130385131073_ + _tl130384131075_ + _e130389131078_ + _hd130388131081_ + _tl130387131083_ + _e130392131086_ + _hd130391131089_ + _tl130390131091_ + ___splice134312134313_ + _target130393131094_ + _tl130395131096_) + (___kont134322134323_)))) + (___kont134322134323_)) + (___kont134322134323_)))) + (___kont134322134323_)) + (___kont134322134323_)) + (___kont134322134323_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont134317134318_)))) - (___match134796134797_ - _e130351130985_ - _hd130350130988_ - _tl130349130990_ - _e130354130993_ - _hd130353130996_ - _tl130352130998_ - _e130357131001_ - _hd130356131004_ - _tl130355131006_ - _e130360131009_ - _hd130359131012_ - _tl130358131014_ - _e130363131017_ - _hd130362131020_ - _tl130361131022_ - _e130366131025_ - _hd130365131028_ - _tl130364131030_ - _e130369131033_ - _hd130368131036_ - _tl130367131038_ - _e130372131041_ - _hd130371131044_ - _tl130370131046_)) - (___match134796134797_ - _e130351130985_ - _hd130350130988_ - _tl130349130990_ - _e130354130993_ - _hd130353130996_ - _tl130352130998_ - _e130357131001_ - _hd130356131004_ - _tl130355131006_ - _e130360131009_ - _hd130359131012_ - _tl130358131014_ - _e130363131017_ - _hd130362131020_ - _tl130361131022_ - _e130366131025_ - _hd130365131028_ - _tl130364131030_ - _e130369131033_ - _hd130368131036_ - _tl130367131038_ - _e130372131041_ - _hd130371131044_ - _tl130370131046_)))) - (___match134796134797_ - _e130351130985_ - _hd130350130988_ - _tl130349130990_ - _e130354130993_ - _hd130353130996_ - _tl130352130998_ - _e130357131001_ - _hd130356131004_ - _tl130355131006_ - _e130360131009_ - _hd130359131012_ - _tl130358131014_ - _e130363131017_ - _hd130362131020_ - _tl130361131022_ - _e130366131025_ - _hd130365131028_ - _tl130364131030_ - _e130369131033_ - _hd130368131036_ - _tl130367131038_ - _e130372131041_ - _hd130371131044_ - _tl130370131046_)) - (___match134582134583_ - _e130351130985_ - _hd130350130988_ - _tl130349130990_ - _e130354130993_ - _hd130353130996_ - _tl130352130998_ - _e130357131001_ - _hd130356131004_ - _tl130355131006_ - _e130360131009_ - _hd130359131012_ - _tl130358131014_ - _e130363131017_ - _hd130362131020_ - _tl130361131022_ - _e130366131025_ - _hd130365131028_ - _tl130364131030_ - _e130369131033_ - _hd130368131036_ - _tl130367131038_ - _e130372131041_ - _hd130371131044_ - _tl130370131046_ - _e130375131049_ - _hd130374131052_ - _tl130373131054_)))) - (___match134404134405_ - (lambda (_e130307131174_ - _hd130306131177_ - _tl130305131179_ - _e130310131182_ - _hd130309131185_ - _tl130308131187_ - _e130313131190_ - _hd130312131193_ - _tl130311131195_ - _e130316131198_ - _hd130315131201_ - _tl130314131203_ - _e130319131206_ - _hd130318131209_ - _tl130317131211_ - _e130322131214_ - _hd130321131217_ - _tl130320131219_ - _e130325131222_ - _hd130324131225_ - _tl130323131227_ - _e130328131230_ - _hd130327131233_ - _tl130326131235_ - _e130331131238_ - _hd130330131241_ - _tl130329131243_ - _e130334131246_ - _hd130333131249_ - _tl130332131251_ - ___splice134303134304_ - _target130335131254_ - _tl130337131256_) - (letrec ((_loop130338131259_ - (lambda (_hd130336131262_ _args130342131264_) + (___kont134322134323_)))) + (___match134801134802_ + _e130356130990_ + _hd130355130993_ + _tl130354130995_ + _e130359130998_ + _hd130358131001_ + _tl130357131003_ + _e130362131006_ + _hd130361131009_ + _tl130360131011_ + _e130365131014_ + _hd130364131017_ + _tl130363131019_ + _e130368131022_ + _hd130367131025_ + _tl130366131027_ + _e130371131030_ + _hd130370131033_ + _tl130369131035_ + _e130374131038_ + _hd130373131041_ + _tl130372131043_ + _e130377131046_ + _hd130376131049_ + _tl130375131051_)) + (___match134801134802_ + _e130356130990_ + _hd130355130993_ + _tl130354130995_ + _e130359130998_ + _hd130358131001_ + _tl130357131003_ + _e130362131006_ + _hd130361131009_ + _tl130360131011_ + _e130365131014_ + _hd130364131017_ + _tl130363131019_ + _e130368131022_ + _hd130367131025_ + _tl130366131027_ + _e130371131030_ + _hd130370131033_ + _tl130369131035_ + _e130374131038_ + _hd130373131041_ + _tl130372131043_ + _e130377131046_ + _hd130376131049_ + _tl130375131051_)))) + (___match134801134802_ + _e130356130990_ + _hd130355130993_ + _tl130354130995_ + _e130359130998_ + _hd130358131001_ + _tl130357131003_ + _e130362131006_ + _hd130361131009_ + _tl130360131011_ + _e130365131014_ + _hd130364131017_ + _tl130363131019_ + _e130368131022_ + _hd130367131025_ + _tl130366131027_ + _e130371131030_ + _hd130370131033_ + _tl130369131035_ + _e130374131038_ + _hd130373131041_ + _tl130372131043_ + _e130377131046_ + _hd130376131049_ + _tl130375131051_)) + (___match134587134588_ + _e130356130990_ + _hd130355130993_ + _tl130354130995_ + _e130359130998_ + _hd130358131001_ + _tl130357131003_ + _e130362131006_ + _hd130361131009_ + _tl130360131011_ + _e130365131014_ + _hd130364131017_ + _tl130363131019_ + _e130368131022_ + _hd130367131025_ + _tl130366131027_ + _e130371131030_ + _hd130370131033_ + _tl130369131035_ + _e130374131038_ + _hd130373131041_ + _tl130372131043_ + _e130377131046_ + _hd130376131049_ + _tl130375131051_ + _e130380131054_ + _hd130379131057_ + _tl130378131059_)))) + (___match134409134410_ + (lambda (_e130312131179_ + _hd130311131182_ + _tl130310131184_ + _e130315131187_ + _hd130314131190_ + _tl130313131192_ + _e130318131195_ + _hd130317131198_ + _tl130316131200_ + _e130321131203_ + _hd130320131206_ + _tl130319131208_ + _e130324131211_ + _hd130323131214_ + _tl130322131216_ + _e130327131219_ + _hd130326131222_ + _tl130325131224_ + _e130330131227_ + _hd130329131230_ + _tl130328131232_ + _e130333131235_ + _hd130332131238_ + _tl130331131240_ + _e130336131243_ + _hd130335131246_ + _tl130334131248_ + _e130339131251_ + _hd130338131254_ + _tl130337131256_ + ___splice134308134309_ + _target130340131259_ + _tl130342131261_) + (letrec ((_loop130343131264_ + (lambda (_hd130341131267_ _args130347131269_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd130336131262_)) - (let ((_e130339131267_ + (gx#stx-pair? _hd130341131267_)) + (let ((_e130344131272_ (let () (declare (not safe)) - (gx#stx-e _hd130336131262_)))) - (let ((_lp-tl130341131272_ + (gx#stx-e _hd130341131267_)))) + (let ((_lp-tl130346131277_ (let () (declare (not safe)) - (##cdr _e130339131267_))) - (_lp-hd130340131270_ + (##cdr _e130344131272_))) + (_lp-hd130345131275_ (let () (declare (not safe)) - (##car _e130339131267_)))) - (let ((__tmp135582 + (##car _e130344131272_)))) + (let ((__tmp135587 (let () (declare (not safe)) - (cons _lp-hd130340131270_ - _args130342131264_)))) + (cons _lp-hd130345131275_ + _args130347131269_)))) (declare (not safe)) - (_loop130338131259_ - _lp-tl130341131272_ - __tmp135582)))) - (let ((_args130343131275_ - (reverse _args130342131264_))) - (let ((_L131278_ _args130343131275_) - (_L131279_ _hd130333131249_) - (_L131280_ _hd130324131225_) - (_L131281_ _hd130315131201_)) + (_loop130343131264_ + _lp-tl130346131277_ + __tmp135587)))) + (let ((_args130348131280_ + (reverse _args130347131269_))) + (let ((_L131283_ _args130348131280_) + (_L131284_ _hd130338131254_) + (_L131285_ _hd130329131230_) + (_L131286_ _hd130320131206_)) (if (and (let () (declare (not safe)) (gxc#runtime-identifier=? - _L131281_ + _L131286_ 'call-method)) (let () (declare (not safe)) (gx#free-identifier=? - _L131280_ - _self130289_))) - (___kont134301134302_ - _L131278_ - _L131279_ - _L131280_ - _L131281_) - (___match134592134593_ - _e130307131174_ - _hd130306131177_ - _tl130305131179_ - _e130310131182_ - _hd130309131185_ - _tl130308131187_ - _e130313131190_ - _hd130312131193_ - _tl130311131195_ - _e130316131198_ - _hd130315131201_ - _tl130314131203_ - _e130319131206_ - _hd130318131209_ - _tl130317131211_ - _e130322131214_ - _hd130321131217_ - _tl130320131219_ - _e130325131222_ - _hd130324131225_ - _tl130323131227_ - _e130328131230_ - _hd130327131233_ - _tl130326131235_ - _e130331131238_ - _hd130330131241_ - _tl130329131243_ - _e130334131246_ - _hd130333131249_ - _tl130332131251_)))))))) + _L131285_ + _self130294_))) + (___kont134306134307_ + _L131283_ + _L131284_ + _L131285_ + _L131286_) + (___match134597134598_ + _e130312131179_ + _hd130311131182_ + _tl130310131184_ + _e130315131187_ + _hd130314131190_ + _tl130313131192_ + _e130318131195_ + _hd130317131198_ + _tl130316131200_ + _e130321131203_ + _hd130320131206_ + _tl130319131208_ + _e130324131211_ + _hd130323131214_ + _tl130322131216_ + _e130327131219_ + _hd130326131222_ + _tl130325131224_ + _e130330131227_ + _hd130329131230_ + _tl130328131232_ + _e130333131235_ + _hd130332131238_ + _tl130331131240_ + _e130336131243_ + _hd130335131246_ + _tl130334131248_ + _e130339131251_ + _hd130338131254_ + _tl130337131256_)))))))) (let () (declare (not safe)) - (_loop130338131259_ _target130335131254_ '())))))) + (_loop130343131264_ _target130340131259_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx134299134300_)) - (let ((_e130307131174_ + (gx#stx-pair? ___stx134304134305_)) + (let ((_e130312131179_ (let () (declare (not safe)) - (gx#stx-e ___stx134299134300_)))) - (let ((_tl130305131179_ + (gx#stx-e ___stx134304134305_)))) + (let ((_tl130310131184_ (let () (declare (not safe)) - (##cdr _e130307131174_))) - (_hd130306131177_ + (##cdr _e130312131179_))) + (_hd130311131182_ (let () (declare (not safe)) - (##car _e130307131174_)))) + (##car _e130312131179_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl130305131179_)) - (let ((_e130310131182_ + (gx#stx-pair? _tl130310131184_)) + (let ((_e130315131187_ (let () (declare (not safe)) - (gx#stx-e _tl130305131179_)))) - (let ((_tl130308131187_ + (gx#stx-e _tl130310131184_)))) + (let ((_tl130313131192_ (let () (declare (not safe)) - (##cdr _e130310131182_))) - (_hd130309131185_ + (##cdr _e130315131187_))) + (_hd130314131190_ (let () (declare (not safe)) - (##car _e130310131182_)))) + (##car _e130315131187_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd130309131185_)) - (let ((_e130313131190_ + (gx#stx-pair? _hd130314131190_)) + (let ((_e130318131195_ (let () (declare (not safe)) - (gx#stx-e _hd130309131185_)))) - (let ((_tl130311131195_ + (gx#stx-e _hd130314131190_)))) + (let ((_tl130316131200_ (let () (declare (not safe)) - (##cdr _e130313131190_))) - (_hd130312131193_ + (##cdr _e130318131195_))) + (_hd130317131198_ (let () (declare (not safe)) - (##car _e130313131190_)))) + (##car _e130318131195_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd130312131193_)) + (gx#identifier? _hd130317131198_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd130312131193_)) + _hd130317131198_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl130311131195_)) - (let ((_e130316131198_ + _tl130316131200_)) + (let ((_e130321131203_ (let () (declare (not safe)) (gx#stx-e - _tl130311131195_)))) - (let ((_tl130314131203_ + _tl130316131200_)))) + (let ((_tl130319131208_ (let () (declare (not safe)) - (##cdr _e130316131198_))) - (_hd130315131201_ + (##cdr _e130321131203_))) + (_hd130320131206_ (let () (declare (not safe)) - (##car _e130316131198_)))) + (##car _e130321131203_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl130314131203_)) + _tl130319131208_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl130308131187_)) - (let ((_e130319131206_ + (gx#stx-pair? _tl130313131192_)) + (let ((_e130324131211_ (let () (declare (not safe)) - (gx#stx-e _tl130308131187_)))) - (let ((_tl130317131211_ + (gx#stx-e _tl130313131192_)))) + (let ((_tl130322131216_ (let () (declare (not safe)) - (##cdr _e130319131206_))) - (_hd130318131209_ + (##cdr _e130324131211_))) + (_hd130323131214_ (let () (declare (not safe)) - (##car _e130319131206_)))) + (##car _e130324131211_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd130318131209_)) - (let ((_e130322131214_ + (gx#stx-pair? _hd130323131214_)) + (let ((_e130327131219_ (let () (declare (not safe)) - (gx#stx-e _hd130318131209_)))) - (let ((_tl130320131219_ + (gx#stx-e _hd130323131214_)))) + (let ((_tl130325131224_ (let () (declare (not safe)) - (##cdr _e130322131214_))) - (_hd130321131217_ + (##cdr _e130327131219_))) + (_hd130326131222_ (let () (declare (not safe)) - (##car _e130322131214_)))) + (##car _e130327131219_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd130321131217_)) + (gx#identifier? _hd130326131222_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd130321131217_)) + _hd130326131222_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl130320131219_)) - (let ((_e130325131222_ + _tl130325131224_)) + (let ((_e130330131227_ (let () (declare (not safe)) (gx#stx-e - _tl130320131219_)))) - (let ((_tl130323131227_ + _tl130325131224_)))) + (let ((_tl130328131232_ (let () (declare (not safe)) - (##cdr _e130325131222_))) - (_hd130324131225_ + (##cdr _e130330131227_))) + (_hd130329131230_ (let () (declare (not safe)) - (##car _e130325131222_)))) + (##car _e130330131227_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl130323131227_)) + _tl130328131232_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl130317131211_)) - (let ((_e130328131230_ + _tl130322131216_)) + (let ((_e130333131235_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl130317131211_)))) - (let ((_tl130326131235_ + (gx#stx-e _tl130322131216_)))) + (let ((_tl130331131240_ (let () (declare (not safe)) - (##cdr _e130328131230_))) - (_hd130327131233_ + (##cdr _e130333131235_))) + (_hd130332131238_ (let () (declare (not safe)) - (##car _e130328131230_)))) + (##car _e130333131235_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd130327131233_)) - (let ((_e130331131238_ + (gx#stx-pair? _hd130332131238_)) + (let ((_e130336131243_ (let () (declare (not safe)) - (gx#stx-e _hd130327131233_)))) - (let ((_tl130329131243_ + (gx#stx-e _hd130332131238_)))) + (let ((_tl130334131248_ (let () (declare (not safe)) - (##cdr _e130331131238_))) - (_hd130330131241_ + (##cdr _e130336131243_))) + (_hd130335131246_ (let () (declare (not safe)) - (##car _e130331131238_)))) + (##car _e130336131243_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd130330131241_)) + (gx#identifier? _hd130335131246_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd130330131241_)) + (gx#stx-eq? '%#quote _hd130335131246_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl130329131243_)) - (let ((_e130334131246_ + (gx#stx-pair? _tl130334131248_)) + (let ((_e130339131251_ (let () (declare (not safe)) (gx#stx-e - _tl130329131243_)))) - (let ((_tl130332131251_ + _tl130334131248_)))) + (let ((_tl130337131256_ (let () (declare (not safe)) - (##cdr _e130334131246_))) - (_hd130333131249_ + (##cdr _e130339131251_))) + (_hd130338131254_ (let () (declare (not safe)) - (##car _e130334131246_)))) + (##car _e130339131251_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl130332131251_)) + _tl130337131256_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl130326131235_)) - (let ((___splice134303134304_ + _tl130331131240_)) + (let ((___splice134308134309_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _tl130326131235_ '0)))) - (let ((_tl130337131256_ + (gx#syntax-split-splice _tl130331131240_ '0)))) + (let ((_tl130342131261_ (let () (declare (not safe)) - (##vector-ref ___splice134303134304_ '1))) - (_target130335131254_ + (##vector-ref ___splice134308134309_ '1))) + (_target130340131259_ (let () (declare (not safe)) - (##vector-ref ___splice134303134304_ '0)))) + (##vector-ref ___splice134308134309_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl130337131256_)) - (___match134404134405_ - _e130307131174_ - _hd130306131177_ - _tl130305131179_ - _e130310131182_ - _hd130309131185_ - _tl130308131187_ - _e130313131190_ - _hd130312131193_ - _tl130311131195_ - _e130316131198_ - _hd130315131201_ - _tl130314131203_ - _e130319131206_ - _hd130318131209_ - _tl130317131211_ - _e130322131214_ - _hd130321131217_ - _tl130320131219_ - _e130325131222_ - _hd130324131225_ - _tl130323131227_ - _e130328131230_ - _hd130327131233_ - _tl130326131235_ - _e130331131238_ - _hd130330131241_ - _tl130329131243_ - _e130334131246_ - _hd130333131249_ - _tl130332131251_ - ___splice134303134304_ - _target130335131254_ - _tl130337131256_) - (___match134592134593_ - _e130307131174_ - _hd130306131177_ - _tl130305131179_ - _e130310131182_ - _hd130309131185_ - _tl130308131187_ - _e130313131190_ - _hd130312131193_ - _tl130311131195_ - _e130316131198_ - _hd130315131201_ - _tl130314131203_ - _e130319131206_ - _hd130318131209_ - _tl130317131211_ - _e130322131214_ - _hd130321131217_ - _tl130320131219_ - _e130325131222_ - _hd130324131225_ - _tl130323131227_ - _e130328131230_ - _hd130327131233_ - _tl130326131235_ - _e130331131238_ - _hd130330131241_ - _tl130329131243_ - _e130334131246_ - _hd130333131249_ - _tl130332131251_)))) - (___match134592134593_ - _e130307131174_ - _hd130306131177_ - _tl130305131179_ - _e130310131182_ - _hd130309131185_ - _tl130308131187_ - _e130313131190_ - _hd130312131193_ - _tl130311131195_ - _e130316131198_ - _hd130315131201_ - _tl130314131203_ - _e130319131206_ - _hd130318131209_ - _tl130317131211_ - _e130322131214_ - _hd130321131217_ - _tl130320131219_ - _e130325131222_ - _hd130324131225_ - _tl130323131227_ - _e130328131230_ - _hd130327131233_ - _tl130326131235_ - _e130331131238_ - _hd130330131241_ - _tl130329131243_ - _e130334131246_ - _hd130333131249_ - _tl130332131251_)) + (gx#stx-null? _tl130342131261_)) + (___match134409134410_ + _e130312131179_ + _hd130311131182_ + _tl130310131184_ + _e130315131187_ + _hd130314131190_ + _tl130313131192_ + _e130318131195_ + _hd130317131198_ + _tl130316131200_ + _e130321131203_ + _hd130320131206_ + _tl130319131208_ + _e130324131211_ + _hd130323131214_ + _tl130322131216_ + _e130327131219_ + _hd130326131222_ + _tl130325131224_ + _e130330131227_ + _hd130329131230_ + _tl130328131232_ + _e130333131235_ + _hd130332131238_ + _tl130331131240_ + _e130336131243_ + _hd130335131246_ + _tl130334131248_ + _e130339131251_ + _hd130338131254_ + _tl130337131256_ + ___splice134308134309_ + _target130340131259_ + _tl130342131261_) + (___match134597134598_ + _e130312131179_ + _hd130311131182_ + _tl130310131184_ + _e130315131187_ + _hd130314131190_ + _tl130313131192_ + _e130318131195_ + _hd130317131198_ + _tl130316131200_ + _e130321131203_ + _hd130320131206_ + _tl130319131208_ + _e130324131211_ + _hd130323131214_ + _tl130322131216_ + _e130327131219_ + _hd130326131222_ + _tl130325131224_ + _e130330131227_ + _hd130329131230_ + _tl130328131232_ + _e130333131235_ + _hd130332131238_ + _tl130331131240_ + _e130336131243_ + _hd130335131246_ + _tl130334131248_ + _e130339131251_ + _hd130338131254_ + _tl130337131256_)))) + (___match134597134598_ + _e130312131179_ + _hd130311131182_ + _tl130310131184_ + _e130315131187_ + _hd130314131190_ + _tl130313131192_ + _e130318131195_ + _hd130317131198_ + _tl130316131200_ + _e130321131203_ + _hd130320131206_ + _tl130319131208_ + _e130324131211_ + _hd130323131214_ + _tl130322131216_ + _e130327131219_ + _hd130326131222_ + _tl130325131224_ + _e130330131227_ + _hd130329131230_ + _tl130328131232_ + _e130333131235_ + _hd130332131238_ + _tl130331131240_ + _e130336131243_ + _hd130335131246_ + _tl130334131248_ + _e130339131251_ + _hd130338131254_ + _tl130337131256_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match134796134797_ - _e130307131174_ - _hd130306131177_ - _tl130305131179_ - _e130310131182_ - _hd130309131185_ - _tl130308131187_ - _e130313131190_ - _hd130312131193_ - _tl130311131195_ - _e130316131198_ - _hd130315131201_ - _tl130314131203_ - _e130319131206_ - _hd130318131209_ - _tl130317131211_ - _e130322131214_ - _hd130321131217_ - _tl130320131219_ - _e130325131222_ - _hd130324131225_ - _tl130323131227_ - _e130328131230_ - _hd130327131233_ - _tl130326131235_)))) - (___match134796134797_ - _e130307131174_ - _hd130306131177_ - _tl130305131179_ - _e130310131182_ - _hd130309131185_ - _tl130308131187_ - _e130313131190_ - _hd130312131193_ - _tl130311131195_ - _e130316131198_ - _hd130315131201_ - _tl130314131203_ - _e130319131206_ - _hd130318131209_ - _tl130317131211_ - _e130322131214_ - _hd130321131217_ - _tl130320131219_ - _e130325131222_ - _hd130324131225_ - _tl130323131227_ - _e130328131230_ - _hd130327131233_ - _tl130326131235_)) - (___match134472134473_ - _e130307131174_ - _hd130306131177_ - _tl130305131179_ - _e130310131182_ - _hd130309131185_ - _tl130308131187_ - _e130313131190_ - _hd130312131193_ - _tl130311131195_ - _e130316131198_ - _hd130315131201_ - _tl130314131203_ - _e130319131206_ - _hd130318131209_ - _tl130317131211_ - _e130322131214_ - _hd130321131217_ - _tl130320131219_ - _e130325131222_ - _hd130324131225_ - _tl130323131227_ - _e130328131230_ - _hd130327131233_ - _tl130326131235_ - _e130331131238_ - _hd130330131241_ - _tl130329131243_)) - (___match134796134797_ - _e130307131174_ - _hd130306131177_ - _tl130305131179_ - _e130310131182_ - _hd130309131185_ - _tl130308131187_ - _e130313131190_ - _hd130312131193_ - _tl130311131195_ - _e130316131198_ - _hd130315131201_ - _tl130314131203_ - _e130319131206_ - _hd130318131209_ - _tl130317131211_ - _e130322131214_ - _hd130321131217_ - _tl130320131219_ - _e130325131222_ - _hd130324131225_ - _tl130323131227_ - _e130328131230_ - _hd130327131233_ - _tl130326131235_)))) - (___match134796134797_ - _e130307131174_ - _hd130306131177_ - _tl130305131179_ - _e130310131182_ - _hd130309131185_ - _tl130308131187_ - _e130313131190_ - _hd130312131193_ - _tl130311131195_ - _e130316131198_ - _hd130315131201_ - _tl130314131203_ - _e130319131206_ - _hd130318131209_ - _tl130317131211_ - _e130322131214_ - _hd130321131217_ - _tl130320131219_ - _e130325131222_ - _hd130324131225_ - _tl130323131227_ - _e130328131230_ - _hd130327131233_ - _tl130326131235_)))) - (___match134734134735_ - _e130307131174_ - _hd130306131177_ - _tl130305131179_ - _e130310131182_ - _hd130309131185_ - _tl130308131187_ - _e130313131190_ - _hd130312131193_ - _tl130311131195_ - _e130316131198_ - _hd130315131201_ - _tl130314131203_ - _e130319131206_ - _hd130318131209_ - _tl130317131211_ - _e130322131214_ - _hd130321131217_ - _tl130320131219_ - _e130325131222_ - _hd130324131225_ - _tl130323131227_)) - (___kont134317134318_)))) + (___match134801134802_ + _e130312131179_ + _hd130311131182_ + _tl130310131184_ + _e130315131187_ + _hd130314131190_ + _tl130313131192_ + _e130318131195_ + _hd130317131198_ + _tl130316131200_ + _e130321131203_ + _hd130320131206_ + _tl130319131208_ + _e130324131211_ + _hd130323131214_ + _tl130322131216_ + _e130327131219_ + _hd130326131222_ + _tl130325131224_ + _e130330131227_ + _hd130329131230_ + _tl130328131232_ + _e130333131235_ + _hd130332131238_ + _tl130331131240_)))) + (___match134801134802_ + _e130312131179_ + _hd130311131182_ + _tl130310131184_ + _e130315131187_ + _hd130314131190_ + _tl130313131192_ + _e130318131195_ + _hd130317131198_ + _tl130316131200_ + _e130321131203_ + _hd130320131206_ + _tl130319131208_ + _e130324131211_ + _hd130323131214_ + _tl130322131216_ + _e130327131219_ + _hd130326131222_ + _tl130325131224_ + _e130330131227_ + _hd130329131230_ + _tl130328131232_ + _e130333131235_ + _hd130332131238_ + _tl130331131240_)) + (___match134477134478_ + _e130312131179_ + _hd130311131182_ + _tl130310131184_ + _e130315131187_ + _hd130314131190_ + _tl130313131192_ + _e130318131195_ + _hd130317131198_ + _tl130316131200_ + _e130321131203_ + _hd130320131206_ + _tl130319131208_ + _e130324131211_ + _hd130323131214_ + _tl130322131216_ + _e130327131219_ + _hd130326131222_ + _tl130325131224_ + _e130330131227_ + _hd130329131230_ + _tl130328131232_ + _e130333131235_ + _hd130332131238_ + _tl130331131240_ + _e130336131243_ + _hd130335131246_ + _tl130334131248_)) + (___match134801134802_ + _e130312131179_ + _hd130311131182_ + _tl130310131184_ + _e130315131187_ + _hd130314131190_ + _tl130313131192_ + _e130318131195_ + _hd130317131198_ + _tl130316131200_ + _e130321131203_ + _hd130320131206_ + _tl130319131208_ + _e130324131211_ + _hd130323131214_ + _tl130322131216_ + _e130327131219_ + _hd130326131222_ + _tl130325131224_ + _e130330131227_ + _hd130329131230_ + _tl130328131232_ + _e130333131235_ + _hd130332131238_ + _tl130331131240_)))) + (___match134801134802_ + _e130312131179_ + _hd130311131182_ + _tl130310131184_ + _e130315131187_ + _hd130314131190_ + _tl130313131192_ + _e130318131195_ + _hd130317131198_ + _tl130316131200_ + _e130321131203_ + _hd130320131206_ + _tl130319131208_ + _e130324131211_ + _hd130323131214_ + _tl130322131216_ + _e130327131219_ + _hd130326131222_ + _tl130325131224_ + _e130330131227_ + _hd130329131230_ + _tl130328131232_ + _e130333131235_ + _hd130332131238_ + _tl130331131240_)))) + (___match134739134740_ + _e130312131179_ + _hd130311131182_ + _tl130310131184_ + _e130315131187_ + _hd130314131190_ + _tl130313131192_ + _e130318131195_ + _hd130317131198_ + _tl130316131200_ + _e130321131203_ + _hd130320131206_ + _tl130319131208_ + _e130324131211_ + _hd130323131214_ + _tl130322131216_ + _e130327131219_ + _hd130326131222_ + _tl130325131224_ + _e130330131227_ + _hd130329131230_ + _tl130328131232_)) + (___kont134322134323_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont134317134318_)) - (___kont134317134318_)) - (___kont134317134318_)))) - (___kont134317134318_)))) - (___kont134317134318_)) - (___kont134317134318_)))) + (___kont134322134323_)) + (___kont134322134323_)) + (___kont134322134323_)))) + (___kont134322134323_)))) + (___kont134322134323_)) + (___kont134322134323_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont134317134318_)) - (___kont134317134318_)) - (___kont134317134318_)))) - (___kont134317134318_)))) - (___kont134317134318_)))) - (___kont134317134318_))))))) + (___kont134322134323_)) + (___kont134322134323_)) + (___kont134322134323_)))) + (___kont134322134323_)))) + (___kont134322134323_)))) + (___kont134322134323_))))))) (define gxc#subst-object-refs-call% - (lambda (_stx129223_ - _self129224_ - _$klass129225_ - _methods129226_ - _slots129227_) - (letrec ((_force-e129229_ - (lambda (_target130286_) - (let ((__tmp135583 - (let ((__tmp135587 - (let ((__tmp135588 + (lambda (_stx129228_ + _self129229_ + _$klass129230_ + _methods129231_ + _slots129232_) + (letrec ((_force-e129234_ + (lambda (_target130291_) + (let ((__tmp135588 + (let ((__tmp135592 + (let ((__tmp135593 (let () (declare (not safe)) (cons 'force '())))) (declare (not safe)) - (cons '%#ref __tmp135588))) - (__tmp135584 - (let ((__tmp135585 - (let ((__tmp135586 + (cons '%#ref __tmp135593))) + (__tmp135589 + (let ((__tmp135590 + (let ((__tmp135591 (let () (declare (not safe)) - (cons _target130286_ '())))) + (cons _target130291_ '())))) (declare (not safe)) - (cons '%#ref __tmp135586)))) + (cons '%#ref __tmp135591)))) (declare (not safe)) - (cons __tmp135585 '())))) + (cons __tmp135590 '())))) (declare (not safe)) - (cons __tmp135587 __tmp135584)))) + (cons __tmp135592 __tmp135589)))) (declare (not safe)) - (cons '%#call __tmp135583))))) - (let* ((___stx134801134802_ _stx129223_) - (_g129237129459_ + (cons '%#call __tmp135588))))) + (let* ((___stx134806134807_ _stx129228_) + (_g129242129464_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx134801134802_))))) - (let ((___kont134803134804_ - (lambda (_L130232_ _L130233_ _L130234_ _L130235_) - (let ((_$method130280_ - (let ((__tmp135589 + ___stx134806134807_))))) + (let ((___kont134808134809_ + (lambda (_L130237_ _L130238_ _L130239_ _L130240_) + (let ((_$method130285_ + (let ((__tmp135594 (let () (declare (not safe)) - (gx#stx-e _L130233_)))) + (gx#stx-e _L130238_)))) (declare (not safe)) - (hash-ref__0 _methods129226_ __tmp135589))) - (_args130281_ - (map (lambda (_g130268130270_) + (hash-ref__0 _methods129231_ __tmp135594))) + (_args130286_ + (map (lambda (_g130273130275_) (let () (declare (not safe)) (gxc#compile-e__3 - _g130268130270_ - _self129224_ - _$klass129225_ - _methods129226_ - _slots129227_))) - (let ((__tmp135590 - (lambda (_g130272130275_ - _g130273130277_) + _g130273130275_ + _self129229_ + _$klass129230_ + _methods129231_ + _slots129232_))) + (let ((__tmp135595 + (lambda (_g130277130280_ + _g130278130282_) (let () (declare (not safe)) - (cons _g130272130275_ - _g130273130277_))))) + (cons _g130277130280_ + _g130278130282_))))) (declare (not safe)) - (foldr1 __tmp135590 '() _L130232_))))) - (let ((__tmp135591 - (let ((__tmp135592 - (let ((__tmp135596 + (foldr1 __tmp135595 '() _L130237_))))) + (let ((__tmp135596 + (let ((__tmp135597 + (let ((__tmp135601 (let () (declare (not safe)) - (_force-e129229_ - _$method130280_))) - (__tmp135593 - (let ((__tmp135594 - (let ((__tmp135595 + (_force-e129234_ + _$method130285_))) + (__tmp135598 + (let ((__tmp135599 + (let ((__tmp135600 (let () (declare (not safe)) - (cons _self129224_ + (cons _self129229_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp135595)))) + __tmp135600)))) (declare (not safe)) - (cons __tmp135594 - _args130281_)))) + (cons __tmp135599 + _args130286_)))) (declare (not safe)) - (cons __tmp135596 __tmp135593)))) + (cons __tmp135601 __tmp135598)))) (declare (not safe)) - (cons '%#call __tmp135592)))) + (cons '%#call __tmp135597)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp135591 _stx129223_))))) - (___kont134807134808_ - (lambda (_L130064_ _L130065_ _L130066_ _L130067_ _L130068_) - (let ((_$method130120_ - (let ((__tmp135597 + (gxc#xform-wrap-source __tmp135596 _stx129228_))))) + (___kont134812134813_ + (lambda (_L130069_ _L130070_ _L130071_ _L130072_ _L130073_) + (let ((_$method130125_ + (let ((__tmp135602 (let () (declare (not safe)) - (gx#stx-e _L130065_)))) + (gx#stx-e _L130070_)))) (declare (not safe)) - (hash-ref__0 _methods129226_ __tmp135597))) - (_args130121_ - (map (lambda (_g130108130110_) + (hash-ref__0 _methods129231_ __tmp135602))) + (_args130126_ + (map (lambda (_g130113130115_) (let () (declare (not safe)) (gxc#compile-e__3 - _g130108130110_ - _self129224_ - _$klass129225_ - _methods129226_ - _slots129227_))) - (let ((__tmp135598 - (lambda (_g130112130115_ - _g130113130117_) + _g130113130115_ + _self129229_ + _$klass129230_ + _methods129231_ + _slots129232_))) + (let ((__tmp135603 + (lambda (_g130117130120_ + _g130118130122_) (let () (declare (not safe)) - (cons _g130112130115_ - _g130113130117_))))) + (cons _g130117130120_ + _g130118130122_))))) (declare (not safe)) - (foldr1 __tmp135598 '() _L130064_))))) - (let ((__tmp135599 - (let ((__tmp135600 - (let ((__tmp135606 - (let ((__tmp135607 + (foldr1 __tmp135603 '() _L130069_))))) + (let ((__tmp135604 + (let ((__tmp135605 + (let ((__tmp135611 + (let ((__tmp135612 (let () (declare (not safe)) (cons 'apply '())))) (declare (not safe)) - (cons '%#ref __tmp135607))) - (__tmp135601 - (let ((__tmp135605 + (cons '%#ref __tmp135612))) + (__tmp135606 + (let ((__tmp135610 (let () (declare (not safe)) - (_force-e129229_ - _$method130120_))) - (__tmp135602 - (let ((__tmp135603 - (let ((__tmp135604 + (_force-e129234_ + _$method130125_))) + (__tmp135607 + (let ((__tmp135608 + (let ((__tmp135609 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _self129224_ '())))) + (cons _self129229_ '())))) (declare (not safe)) - (cons '%#ref __tmp135604)))) + (cons '%#ref __tmp135609)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp135603 - _args130121_)))) + (cons __tmp135608 + _args130126_)))) (declare (not safe)) - (cons __tmp135605 __tmp135602)))) + (cons __tmp135610 __tmp135607)))) (declare (not safe)) - (cons __tmp135606 __tmp135601)))) + (cons __tmp135611 __tmp135606)))) (declare (not safe)) - (cons '%#call __tmp135600)))) + (cons '%#call __tmp135605)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp135599 _stx129223_))))) - (___kont134811134812_ - (lambda (_L129895_ _L129896_ _L129897_) - (let* ((_$field129929_ - (let ((__tmp135608 + (gxc#xform-wrap-source __tmp135604 _stx129228_))))) + (___kont134816134817_ + (lambda (_L129900_ _L129901_ _L129902_) + (let* ((_$field129934_ + (let ((__tmp135613 (let () (declare (not safe)) - (gx#stx-e _L129895_)))) + (gx#stx-e _L129900_)))) (declare (not safe)) - (hash-ref__0 _slots129227_ __tmp135608))) - (__tmp135609 - (let ((__tmp135610 - (let ((__tmp135617 - (let ((__tmp135618 + (hash-ref__0 _slots129232_ __tmp135613))) + (__tmp135614 + (let ((__tmp135615 + (let ((__tmp135622 + (let ((__tmp135623 (let () (declare (not safe)) - (cons _$klass129225_ + (cons _$klass129230_ '())))) (declare (not safe)) - (cons '%#ref __tmp135618))) - (__tmp135611 - (let ((__tmp135615 - (let ((__tmp135616 + (cons '%#ref __tmp135623))) + (__tmp135616 + (let ((__tmp135620 + (let ((__tmp135621 (let () (declare (not safe)) - (cons _$field129929_ + (cons _$field129934_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#ref __tmp135616))) - (__tmp135612 - (let ((__tmp135613 - (let ((__tmp135614 + (cons '%#ref __tmp135621))) + (__tmp135617 + (let ((__tmp135618 + (let ((__tmp135619 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _self129224_ '())))) + (cons _self129229_ '())))) (declare (not safe)) - (cons '%#ref __tmp135614)))) + (cons '%#ref __tmp135619)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp135613 '())))) + (cons __tmp135618 '())))) (declare (not safe)) - (cons __tmp135615 __tmp135612)))) + (cons __tmp135620 __tmp135617)))) (declare (not safe)) - (cons __tmp135617 __tmp135611)))) + (cons __tmp135622 __tmp135616)))) (declare (not safe)) - (cons '%#struct-unchecked-ref __tmp135610)))) + (cons '%#struct-unchecked-ref __tmp135615)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp135609 _stx129223_)))) - (___kont134813134814_ - (lambda (_L129769_ _L129770_ _L129771_ _L129772_) - (let ((_$field129807_ - (let ((__tmp135619 + (gxc#xform-wrap-source __tmp135614 _stx129228_)))) + (___kont134818134819_ + (lambda (_L129774_ _L129775_ _L129776_ _L129777_) + (let ((_$field129812_ + (let ((__tmp135624 (let () (declare (not safe)) - (gx#stx-e _L129770_)))) + (gx#stx-e _L129775_)))) (declare (not safe)) - (hash-ref__0 _slots129227_ __tmp135619))) - (_expr129808_ + (hash-ref__0 _slots129232_ __tmp135624))) + (_expr129813_ (let () (declare (not safe)) (gxc#compile-e__3 - _L129769_ - _self129224_ - _$klass129225_ - _methods129226_ - _slots129227_)))) - (let ((__tmp135620 - (let ((__tmp135621 - (let ((__tmp135629 - (let ((__tmp135630 + _L129774_ + _self129229_ + _$klass129230_ + _methods129231_ + _slots129232_)))) + (let ((__tmp135625 + (let ((__tmp135626 + (let ((__tmp135634 + (let ((__tmp135635 (let () (declare (not safe)) - (cons _$klass129225_ + (cons _$klass129230_ '())))) (declare (not safe)) - (cons '%#ref __tmp135630))) - (__tmp135622 - (let ((__tmp135627 - (let ((__tmp135628 + (cons '%#ref __tmp135635))) + (__tmp135627 + (let ((__tmp135632 + (let ((__tmp135633 (let () (declare (not safe)) - (cons _$field129807_ + (cons _$field129812_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp135628))) - (__tmp135623 - (let ((__tmp135625 - (let ((__tmp135626 + __tmp135633))) + (__tmp135628 + (let ((__tmp135630 + (let ((__tmp135631 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _self129224_ '())))) + (cons _self129229_ '())))) (declare (not safe)) - (cons '%#ref __tmp135626))) - (__tmp135624 - (let () (declare (not safe)) (cons _expr129808_ '())))) + (cons '%#ref __tmp135631))) + (__tmp135629 + (let () (declare (not safe)) (cons _expr129813_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp135625 - __tmp135624)))) + (cons __tmp135630 + __tmp135629)))) (declare (not safe)) - (cons __tmp135627 __tmp135623)))) + (cons __tmp135632 __tmp135628)))) (declare (not safe)) - (cons __tmp135629 __tmp135622)))) + (cons __tmp135634 __tmp135627)))) (declare (not safe)) - (cons '%#struct-unchecked-set! __tmp135621)))) + (cons '%#struct-unchecked-set! __tmp135626)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp135620 _stx129223_))))) - (___kont134815134816_ - (lambda (_L129641_ _L129642_) - (let* ((_accessor129664_ - (let ((__tmp135631 + (gxc#xform-wrap-source __tmp135625 _stx129228_))))) + (___kont134820134821_ + (lambda (_L129646_ _L129647_) + (let* ((_accessor129669_ + (let ((__tmp135636 (let () (declare (not safe)) - (gxc#identifier-symbol _L129642_)))) + (gxc#identifier-symbol _L129647_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp135631))) - (_klass129666_ - (let ((__tmp135632 + (gxc#optimizer-resolve-type __tmp135636))) + (_klass129671_ + (let ((__tmp135637 (##structure-ref - _accessor129664_ + _accessor129669_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _stx129223_ - __tmp135632))) - (_slot129668_ + _stx129228_ + __tmp135637))) + (_slot129673_ (##structure-ref - _accessor129664_ + _accessor129669_ '2 gxc#!accessor::t '#f))) - (if (and (let ((__tmp135643 + (if (and (let ((__tmp135648 (##structure-ref - _accessor129664_ + _accessor129669_ '3 gxc#!accessor::t '#f))) (declare (not safe)) - (not __tmp135643)) + (not __tmp135648)) (or (let () (declare (not safe)) (gxc#!class-struct-slot? - _klass129666_ - _slot129668_)) + _klass129671_ + _slot129673_)) (##structure-ref - _klass129666_ + _klass129671_ '8 gxc#!class::t '#f))) - _stx129223_ - (let* ((_$field129674_ + _stx129228_ + (let* ((_$field129679_ (let () (declare (not safe)) - (hash-ref__0 _slots129227_ _slot129668_))) - (__tmp135633 - (let ((__tmp135634 - (let ((__tmp135641 - (let ((__tmp135642 + (hash-ref__0 _slots129232_ _slot129673_))) + (__tmp135638 + (let ((__tmp135639 + (let ((__tmp135646 + (let ((__tmp135647 (let () (declare (not safe)) - (cons _$klass129225_ + (cons _$klass129230_ '())))) (declare (not safe)) - (cons '%#ref __tmp135642))) - (__tmp135635 - (let ((__tmp135639 - (let ((__tmp135640 + (cons '%#ref __tmp135647))) + (__tmp135640 + (let ((__tmp135644 + (let ((__tmp135645 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _$field129674_ '())))) + (cons _$field129679_ '())))) (declare (not safe)) - (cons '%#ref __tmp135640))) - (__tmp135636 - (let ((__tmp135637 - (let ((__tmp135638 + (cons '%#ref __tmp135645))) + (__tmp135641 + (let ((__tmp135642 + (let ((__tmp135643 (let () (declare (not safe)) - (cons _self129224_ '())))) + (cons _self129229_ '())))) (declare (not safe)) - (cons '%#ref __tmp135638)))) + (cons '%#ref __tmp135643)))) (declare (not safe)) - (cons __tmp135637 '())))) + (cons __tmp135642 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp135639 - __tmp135636)))) + (cons __tmp135644 + __tmp135641)))) (declare (not safe)) - (cons __tmp135641 __tmp135635)))) + (cons __tmp135646 __tmp135640)))) (declare (not safe)) (cons '%#struct-unchecked-ref - __tmp135634)))) + __tmp135639)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp135633 - _stx129223_)))))) - (___kont134817134818_ - (lambda (_L129535_ _L129536_ _L129537_) - (let* ((_mutator129566_ - (let ((__tmp135644 + __tmp135638 + _stx129228_)))))) + (___kont134822134823_ + (lambda (_L129540_ _L129541_ _L129542_) + (let* ((_mutator129571_ + (let ((__tmp135649 (let () (declare (not safe)) - (gxc#identifier-symbol _L129537_)))) + (gxc#identifier-symbol _L129542_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp135644))) - (_klass129568_ - (let ((__tmp135645 + (gxc#optimizer-resolve-type __tmp135649))) + (_klass129573_ + (let ((__tmp135650 (##structure-ref - _mutator129566_ + _mutator129571_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _stx129223_ - __tmp135645))) - (_slot129570_ + _stx129228_ + __tmp135650))) + (_slot129575_ (##structure-ref - _mutator129566_ + _mutator129571_ '2 gxc#!mutator::t '#f)) - (_expr129572_ + (_expr129577_ (let () (declare (not safe)) (gxc#compile-e__3 - _L129535_ - _self129224_ - _$klass129225_ - _methods129226_ - _slots129227_)))) - (if (and (let ((__tmp135667 + _L129540_ + _self129229_ + _$klass129230_ + _methods129231_ + _slots129232_)))) + (if (and (let ((__tmp135672 (##structure-ref - _mutator129566_ + _mutator129571_ '3 gxc#!mutator::t '#f))) (declare (not safe)) - (not __tmp135667)) + (not __tmp135672)) (or (let () (declare (not safe)) (gxc#!class-struct-slot? - _klass129568_ - _slot129570_)) + _klass129573_ + _slot129575_)) (##structure-ref - _klass129568_ + _klass129573_ '8 gxc#!class::t '#f))) - (let ((__tmp135657 - (let ((__tmp135658 - (let ((__tmp135664 - (let ((__tmp135666 + (let ((__tmp135662 + (let ((__tmp135663 + (let ((__tmp135669 + (let ((__tmp135671 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp135665 + (__tmp135670 (let () (declare (not safe)) - (cons _L129537_ + (cons _L129542_ '())))) (declare (not safe)) - (cons __tmp135666 - __tmp135665))) - (__tmp135659 - (let ((__tmp135661 - (let ((__tmp135663 + (cons __tmp135671 + __tmp135670))) + (__tmp135664 + (let ((__tmp135666 + (let ((__tmp135668 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp135662 - (let () (declare (not safe)) (cons _L129536_ '())))) + (__tmp135667 + (let () (declare (not safe)) (cons _L129541_ '())))) (declare (not safe)) - (cons __tmp135663 __tmp135662))) - (__tmp135660 - (let () (declare (not safe)) (cons _expr129572_ '())))) + (cons __tmp135668 __tmp135667))) + (__tmp135665 + (let () (declare (not safe)) (cons _expr129577_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp135661 - __tmp135660)))) + (cons __tmp135666 + __tmp135665)))) (declare (not safe)) - (cons __tmp135664 __tmp135659)))) + (cons __tmp135669 __tmp135664)))) (declare (not safe)) - (cons '%#call __tmp135658)))) + (cons '%#call __tmp135663)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp135657 _stx129223_)) - (let* ((_$field129578_ + (gxc#xform-wrap-source __tmp135662 _stx129228_)) + (let* ((_$field129583_ (let () (declare (not safe)) - (hash-ref__0 _slots129227_ _slot129570_))) - (__tmp135646 - (let ((__tmp135647 - (let ((__tmp135655 - (let ((__tmp135656 + (hash-ref__0 _slots129232_ _slot129575_))) + (__tmp135651 + (let ((__tmp135652 + (let ((__tmp135660 + (let ((__tmp135661 (let () (declare (not safe)) - (cons _$klass129225_ + (cons _$klass129230_ '())))) (declare (not safe)) - (cons '%#ref __tmp135656))) - (__tmp135648 - (let ((__tmp135653 - (let ((__tmp135654 + (cons '%#ref __tmp135661))) + (__tmp135653 + (let ((__tmp135658 + (let ((__tmp135659 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _$field129578_ '())))) + (cons _$field129583_ '())))) (declare (not safe)) - (cons '%#ref __tmp135654))) - (__tmp135649 - (let ((__tmp135651 - (let ((__tmp135652 + (cons '%#ref __tmp135659))) + (__tmp135654 + (let ((__tmp135656 + (let ((__tmp135657 (let () (declare (not safe)) - (cons _self129224_ '())))) + (cons _self129229_ '())))) (declare (not safe)) - (cons '%#ref __tmp135652))) - (__tmp135650 - (let () (declare (not safe)) (cons _expr129572_ '())))) + (cons '%#ref __tmp135657))) + (__tmp135655 + (let () (declare (not safe)) (cons _expr129577_ '())))) (declare (not safe)) - (cons __tmp135651 __tmp135650)))) + (cons __tmp135656 __tmp135655)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp135653 - __tmp135649)))) + (cons __tmp135658 + __tmp135654)))) (declare (not safe)) - (cons __tmp135655 __tmp135648)))) + (cons __tmp135660 __tmp135653)))) (declare (not safe)) (cons '%#struct-unchecked-set! - __tmp135647)))) + __tmp135652)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp135646 - _stx129223_)))))) - (___kont134819134820_ + __tmp135651 + _stx129228_)))))) + (___kont134824134825_ (lambda () (let () (declare (not safe)) (gxc#xform-operands - _stx129223_ - _self129224_ - _$klass129225_ - _methods129226_ - _slots129227_))))) - (let* ((___match135300135301_ - (lambda (_e129433129471_ - _hd129432129474_ - _tl129431129476_ - _e129436129479_ - _hd129435129482_ - _tl129434129484_ - _e129439129487_ - _hd129438129490_ - _tl129437129492_ - _e129442129495_ - _hd129441129498_ - _tl129440129500_ - _e129445129503_ - _hd129444129506_ - _tl129443129508_ - _e129448129511_ - _hd129447129514_ - _tl129446129516_ - _e129451129519_ - _hd129450129522_ - _tl129449129524_ - _e129454129527_ - _hd129453129530_ - _tl129452129532_) - (let ((_L129535_ _hd129453129530_) - (_L129536_ _hd129450129522_) - (_L129537_ _hd129441129498_)) + _stx129228_ + _self129229_ + _$klass129230_ + _methods129231_ + _slots129232_))))) + (let* ((___match135305135306_ + (lambda (_e129438129476_ + _hd129437129479_ + _tl129436129481_ + _e129441129484_ + _hd129440129487_ + _tl129439129489_ + _e129444129492_ + _hd129443129495_ + _tl129442129497_ + _e129447129500_ + _hd129446129503_ + _tl129445129505_ + _e129450129508_ + _hd129449129511_ + _tl129448129513_ + _e129453129516_ + _hd129452129519_ + _tl129451129521_ + _e129456129524_ + _hd129455129527_ + _tl129454129529_ + _e129459129532_ + _hd129458129535_ + _tl129457129537_) + (let ((_L129540_ _hd129458129535_) + (_L129541_ _hd129455129527_) + (_L129542_ _hd129446129503_)) (if (and (let () (declare (not safe)) (gx#free-identifier=? - _L129536_ - _self129224_)) - (let ((__tmp135668 - (let ((__tmp135669 + _L129541_ + _self129229_)) + (let ((__tmp135673 + (let ((__tmp135674 (let () (declare (not safe)) (gxc#identifier-symbol - _L129537_)))) + _L129542_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp135669)))) + __tmp135674)))) (declare (not safe)) (##structure-instance-of? - __tmp135668 + __tmp135673 'gxc#!mutator::t))) - (___kont134817134818_ - _L129535_ - _L129536_ - _L129537_) - (___kont134819134820_))))) - (___match135298135299_ - (lambda (_e129433129471_ - _hd129432129474_ - _tl129431129476_ - _e129436129479_ - _hd129435129482_ - _tl129434129484_ - _e129439129487_ - _hd129438129490_ - _tl129437129492_ - _e129442129495_ - _hd129441129498_ - _tl129440129500_ - _e129445129503_ - _hd129444129506_ - _tl129443129508_ - _e129448129511_ - _hd129447129514_ - _tl129446129516_ - _e129451129519_ - _hd129450129522_ - _tl129449129524_ - _e129454129527_ - _hd129453129530_ - _tl129452129532_) + (___kont134822134823_ + _L129540_ + _L129541_ + _L129542_) + (___kont134824134825_))))) + (___match135303135304_ + (lambda (_e129438129476_ + _hd129437129479_ + _tl129436129481_ + _e129441129484_ + _hd129440129487_ + _tl129439129489_ + _e129444129492_ + _hd129443129495_ + _tl129442129497_ + _e129447129500_ + _hd129446129503_ + _tl129445129505_ + _e129450129508_ + _hd129449129511_ + _tl129448129513_ + _e129453129516_ + _hd129452129519_ + _tl129451129521_ + _e129456129524_ + _hd129455129527_ + _tl129454129529_ + _e129459129532_ + _hd129458129535_ + _tl129457129537_) (if (let () (declare (not safe)) - (gx#stx-null? _tl129452129532_)) - (___match135300135301_ - _e129433129471_ - _hd129432129474_ - _tl129431129476_ - _e129436129479_ - _hd129435129482_ - _tl129434129484_ - _e129439129487_ - _hd129438129490_ - _tl129437129492_ - _e129442129495_ - _hd129441129498_ - _tl129440129500_ - _e129445129503_ - _hd129444129506_ - _tl129443129508_ - _e129448129511_ - _hd129447129514_ - _tl129446129516_ - _e129451129519_ - _hd129450129522_ - _tl129449129524_ - _e129454129527_ - _hd129453129530_ - _tl129452129532_) - (___kont134819134820_)))) - (___match135292135293_ - (lambda (_e129433129471_ - _hd129432129474_ - _tl129431129476_ - _e129436129479_ - _hd129435129482_ - _tl129434129484_ - _e129439129487_ - _hd129438129490_ - _tl129437129492_ - _e129442129495_ - _hd129441129498_ - _tl129440129500_ - _e129445129503_ - _hd129444129506_ - _tl129443129508_ - _e129448129511_ - _hd129447129514_ - _tl129446129516_ - _e129451129519_ - _hd129450129522_ - _tl129449129524_) + (gx#stx-null? _tl129457129537_)) + (___match135305135306_ + _e129438129476_ + _hd129437129479_ + _tl129436129481_ + _e129441129484_ + _hd129440129487_ + _tl129439129489_ + _e129444129492_ + _hd129443129495_ + _tl129442129497_ + _e129447129500_ + _hd129446129503_ + _tl129445129505_ + _e129450129508_ + _hd129449129511_ + _tl129448129513_ + _e129453129516_ + _hd129452129519_ + _tl129451129521_ + _e129456129524_ + _hd129455129527_ + _tl129454129529_ + _e129459129532_ + _hd129458129535_ + _tl129457129537_) + (___kont134824134825_)))) + (___match135297135298_ + (lambda (_e129438129476_ + _hd129437129479_ + _tl129436129481_ + _e129441129484_ + _hd129440129487_ + _tl129439129489_ + _e129444129492_ + _hd129443129495_ + _tl129442129497_ + _e129447129500_ + _hd129446129503_ + _tl129445129505_ + _e129450129508_ + _hd129449129511_ + _tl129448129513_ + _e129453129516_ + _hd129452129519_ + _tl129451129521_ + _e129456129524_ + _hd129455129527_ + _tl129454129529_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl129443129508_)) - (let ((_e129454129527_ + (gx#stx-pair? _tl129448129513_)) + (let ((_e129459129532_ (let () (declare (not safe)) - (gx#stx-e _tl129443129508_)))) - (let ((_tl129452129532_ + (gx#stx-e _tl129448129513_)))) + (let ((_tl129457129537_ (let () (declare (not safe)) - (##cdr _e129454129527_))) - (_hd129453129530_ + (##cdr _e129459129532_))) + (_hd129458129535_ (let () (declare (not safe)) - (##car _e129454129527_)))) + (##car _e129459129532_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl129452129532_)) - (___match135300135301_ - _e129433129471_ - _hd129432129474_ - _tl129431129476_ - _e129436129479_ - _hd129435129482_ - _tl129434129484_ - _e129439129487_ - _hd129438129490_ - _tl129437129492_ - _e129442129495_ - _hd129441129498_ - _tl129440129500_ - _e129445129503_ - _hd129444129506_ - _tl129443129508_ - _e129448129511_ - _hd129447129514_ - _tl129446129516_ - _e129451129519_ - _hd129450129522_ - _tl129449129524_ - _e129454129527_ - _hd129453129530_ - _tl129452129532_) - (___kont134819134820_)))) - (___kont134819134820_)))) - (___match135238135239_ - (lambda (_e129409129585_ - _hd129408129588_ - _tl129407129590_ - _e129412129593_ - _hd129411129596_ - _tl129410129598_ - _e129415129601_ - _hd129414129604_ - _tl129413129606_ - _e129418129609_ - _hd129417129612_ - _tl129416129614_ - _e129421129617_ - _hd129420129620_ - _tl129419129622_ - _e129424129625_ - _hd129423129628_ - _tl129422129630_ - _e129427129633_ - _hd129426129636_ - _tl129425129638_) - (let ((_L129641_ _hd129426129636_) - (_L129642_ _hd129417129612_)) + (gx#stx-null? _tl129457129537_)) + (___match135305135306_ + _e129438129476_ + _hd129437129479_ + _tl129436129481_ + _e129441129484_ + _hd129440129487_ + _tl129439129489_ + _e129444129492_ + _hd129443129495_ + _tl129442129497_ + _e129447129500_ + _hd129446129503_ + _tl129445129505_ + _e129450129508_ + _hd129449129511_ + _tl129448129513_ + _e129453129516_ + _hd129452129519_ + _tl129451129521_ + _e129456129524_ + _hd129455129527_ + _tl129454129529_ + _e129459129532_ + _hd129458129535_ + _tl129457129537_) + (___kont134824134825_)))) + (___kont134824134825_)))) + (___match135243135244_ + (lambda (_e129414129590_ + _hd129413129593_ + _tl129412129595_ + _e129417129598_ + _hd129416129601_ + _tl129415129603_ + _e129420129606_ + _hd129419129609_ + _tl129418129611_ + _e129423129614_ + _hd129422129617_ + _tl129421129619_ + _e129426129622_ + _hd129425129625_ + _tl129424129627_ + _e129429129630_ + _hd129428129633_ + _tl129427129635_ + _e129432129638_ + _hd129431129641_ + _tl129430129643_) + (let ((_L129646_ _hd129431129641_) + (_L129647_ _hd129422129617_)) (if (and (let () (declare (not safe)) (gx#free-identifier=? - _L129641_ - _self129224_)) - (let ((__tmp135670 - (let ((__tmp135671 + _L129646_ + _self129229_)) + (let ((__tmp135675 + (let ((__tmp135676 (let () (declare (not safe)) (gxc#identifier-symbol - _L129642_)))) + _L129647_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp135671)))) + __tmp135676)))) (declare (not safe)) (##structure-instance-of? - __tmp135670 + __tmp135675 'gxc#!accessor::t))) - (___kont134815134816_ _L129641_ _L129642_) - (___kont134819134820_))))) - (___match135236135237_ - (lambda (_e129409129585_ - _hd129408129588_ - _tl129407129590_ - _e129412129593_ - _hd129411129596_ - _tl129410129598_ - _e129415129601_ - _hd129414129604_ - _tl129413129606_ - _e129418129609_ - _hd129417129612_ - _tl129416129614_ - _e129421129617_ - _hd129420129620_ - _tl129419129622_ - _e129424129625_ - _hd129423129628_ - _tl129422129630_ - _e129427129633_ - _hd129426129636_ - _tl129425129638_) + (___kont134820134821_ _L129646_ _L129647_) + (___kont134824134825_))))) + (___match135241135242_ + (lambda (_e129414129590_ + _hd129413129593_ + _tl129412129595_ + _e129417129598_ + _hd129416129601_ + _tl129415129603_ + _e129420129606_ + _hd129419129609_ + _tl129418129611_ + _e129423129614_ + _hd129422129617_ + _tl129421129619_ + _e129426129622_ + _hd129425129625_ + _tl129424129627_ + _e129429129630_ + _hd129428129633_ + _tl129427129635_ + _e129432129638_ + _hd129431129641_ + _tl129430129643_) (if (let () (declare (not safe)) - (gx#stx-null? _tl129419129622_)) - (___match135238135239_ - _e129409129585_ - _hd129408129588_ - _tl129407129590_ - _e129412129593_ - _hd129411129596_ - _tl129410129598_ - _e129415129601_ - _hd129414129604_ - _tl129413129606_ - _e129418129609_ - _hd129417129612_ - _tl129416129614_ - _e129421129617_ - _hd129420129620_ - _tl129419129622_ - _e129424129625_ - _hd129423129628_ - _tl129422129630_ - _e129427129633_ - _hd129426129636_ - _tl129425129638_) - (___match135292135293_ - _e129409129585_ - _hd129408129588_ - _tl129407129590_ - _e129412129593_ - _hd129411129596_ - _tl129410129598_ - _e129415129601_ - _hd129414129604_ - _tl129413129606_ - _e129418129609_ - _hd129417129612_ - _tl129416129614_ - _e129421129617_ - _hd129420129620_ - _tl129419129622_ - _e129424129625_ - _hd129423129628_ - _tl129422129630_ - _e129427129633_ - _hd129426129636_ - _tl129425129638_)))) - (___match135182135183_ - (lambda (_e129374129681_ - _hd129373129684_ - _tl129372129686_ - _e129377129689_ - _hd129376129692_ - _tl129375129694_ - _e129380129697_ - _hd129379129700_ - _tl129378129702_ - _e129383129705_ - _hd129382129708_ - _tl129381129710_ - _e129386129713_ - _hd129385129716_ - _tl129384129718_ - _e129389129721_ - _hd129388129724_ - _tl129387129726_ - _e129392129729_ - _hd129391129732_ - _tl129390129734_ - _e129395129737_ - _hd129394129740_ - _tl129393129742_ - _e129398129745_ - _hd129397129748_ - _tl129396129750_ - _e129401129753_ - _hd129400129756_ - _tl129399129758_ - _e129404129761_ - _hd129403129764_ - _tl129402129766_) - (let ((_L129769_ _hd129403129764_) - (_L129770_ _hd129400129756_) - (_L129771_ _hd129391129732_) - (_L129772_ _hd129382129708_)) + (gx#stx-null? _tl129424129627_)) + (___match135243135244_ + _e129414129590_ + _hd129413129593_ + _tl129412129595_ + _e129417129598_ + _hd129416129601_ + _tl129415129603_ + _e129420129606_ + _hd129419129609_ + _tl129418129611_ + _e129423129614_ + _hd129422129617_ + _tl129421129619_ + _e129426129622_ + _hd129425129625_ + _tl129424129627_ + _e129429129630_ + _hd129428129633_ + _tl129427129635_ + _e129432129638_ + _hd129431129641_ + _tl129430129643_) + (___match135297135298_ + _e129414129590_ + _hd129413129593_ + _tl129412129595_ + _e129417129598_ + _hd129416129601_ + _tl129415129603_ + _e129420129606_ + _hd129419129609_ + _tl129418129611_ + _e129423129614_ + _hd129422129617_ + _tl129421129619_ + _e129426129622_ + _hd129425129625_ + _tl129424129627_ + _e129429129630_ + _hd129428129633_ + _tl129427129635_ + _e129432129638_ + _hd129431129641_ + _tl129430129643_)))) + (___match135187135188_ + (lambda (_e129379129686_ + _hd129378129689_ + _tl129377129691_ + _e129382129694_ + _hd129381129697_ + _tl129380129699_ + _e129385129702_ + _hd129384129705_ + _tl129383129707_ + _e129388129710_ + _hd129387129713_ + _tl129386129715_ + _e129391129718_ + _hd129390129721_ + _tl129389129723_ + _e129394129726_ + _hd129393129729_ + _tl129392129731_ + _e129397129734_ + _hd129396129737_ + _tl129395129739_ + _e129400129742_ + _hd129399129745_ + _tl129398129747_ + _e129403129750_ + _hd129402129753_ + _tl129401129755_ + _e129406129758_ + _hd129405129761_ + _tl129404129763_ + _e129409129766_ + _hd129408129769_ + _tl129407129771_) + (let ((_L129774_ _hd129408129769_) + (_L129775_ _hd129405129761_) + (_L129776_ _hd129396129737_) + (_L129777_ _hd129387129713_)) (if (and (or (let () (declare (not safe)) (gxc#runtime-identifier=? - _L129772_ + _L129777_ 'slot-set!)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L129772_ + _L129777_ 'unchecked-slot-set!))) (let () (declare (not safe)) (gx#free-identifier=? - _L129771_ - _self129224_))) - (___kont134813134814_ - _L129769_ - _L129770_ - _L129771_ - _L129772_) - (___kont134819134820_))))) - (___match135174135175_ - (lambda (_e129374129681_ - _hd129373129684_ - _tl129372129686_ - _e129377129689_ - _hd129376129692_ - _tl129375129694_ - _e129380129697_ - _hd129379129700_ - _tl129378129702_ - _e129383129705_ - _hd129382129708_ - _tl129381129710_ - _e129386129713_ - _hd129385129716_ - _tl129384129718_ - _e129389129721_ - _hd129388129724_ - _tl129387129726_ - _e129392129729_ - _hd129391129732_ - _tl129390129734_ - _e129395129737_ - _hd129394129740_ - _tl129393129742_ - _e129398129745_ - _hd129397129748_ - _tl129396129750_ - _e129401129753_ - _hd129400129756_ - _tl129399129758_) + _L129776_ + _self129229_))) + (___kont134818134819_ + _L129774_ + _L129775_ + _L129776_ + _L129777_) + (___kont134824134825_))))) + (___match135179135180_ + (lambda (_e129379129686_ + _hd129378129689_ + _tl129377129691_ + _e129382129694_ + _hd129381129697_ + _tl129380129699_ + _e129385129702_ + _hd129384129705_ + _tl129383129707_ + _e129388129710_ + _hd129387129713_ + _tl129386129715_ + _e129391129718_ + _hd129390129721_ + _tl129389129723_ + _e129394129726_ + _hd129393129729_ + _tl129392129731_ + _e129397129734_ + _hd129396129737_ + _tl129395129739_ + _e129400129742_ + _hd129399129745_ + _tl129398129747_ + _e129403129750_ + _hd129402129753_ + _tl129401129755_ + _e129406129758_ + _hd129405129761_ + _tl129404129763_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl129393129742_)) - (let ((_e129404129761_ + (gx#stx-pair? _tl129398129747_)) + (let ((_e129409129766_ (let () (declare (not safe)) - (gx#stx-e _tl129393129742_)))) - (let ((_tl129402129766_ + (gx#stx-e _tl129398129747_)))) + (let ((_tl129407129771_ (let () (declare (not safe)) - (##cdr _e129404129761_))) - (_hd129403129764_ + (##cdr _e129409129766_))) + (_hd129408129769_ (let () (declare (not safe)) - (##car _e129404129761_)))) + (##car _e129409129766_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl129402129766_)) - (___match135182135183_ - _e129374129681_ - _hd129373129684_ - _tl129372129686_ - _e129377129689_ - _hd129376129692_ - _tl129375129694_ - _e129380129697_ - _hd129379129700_ - _tl129378129702_ - _e129383129705_ - _hd129382129708_ - _tl129381129710_ - _e129386129713_ - _hd129385129716_ - _tl129384129718_ - _e129389129721_ - _hd129388129724_ - _tl129387129726_ - _e129392129729_ - _hd129391129732_ - _tl129390129734_ - _e129395129737_ - _hd129394129740_ - _tl129393129742_ - _e129398129745_ - _hd129397129748_ - _tl129396129750_ - _e129401129753_ - _hd129400129756_ - _tl129399129758_ - _e129404129761_ - _hd129403129764_ - _tl129402129766_) - (___kont134819134820_)))) - (___match135298135299_ - _e129374129681_ - _hd129373129684_ - _tl129372129686_ - _e129377129689_ - _hd129376129692_ - _tl129375129694_ - _e129380129697_ - _hd129379129700_ - _tl129378129702_ - _e129383129705_ - _hd129382129708_ - _tl129381129710_ - _e129386129713_ - _hd129385129716_ - _tl129384129718_ - _e129389129721_ - _hd129388129724_ - _tl129387129726_ - _e129392129729_ - _hd129391129732_ - _tl129390129734_ - _e129395129737_ - _hd129394129740_ - _tl129393129742_)))) - (___match135096135097_ - (lambda (_e129340129815_ - _hd129339129818_ - _tl129338129820_ - _e129343129823_ - _hd129342129826_ - _tl129341129828_ - _e129346129831_ - _hd129345129834_ - _tl129344129836_ - _e129349129839_ - _hd129348129842_ - _tl129347129844_ - _e129352129847_ - _hd129351129850_ - _tl129350129852_ - _e129355129855_ - _hd129354129858_ - _tl129353129860_ - _e129358129863_ - _hd129357129866_ - _tl129356129868_ - _e129361129871_ - _hd129360129874_ - _tl129359129876_ - _e129364129879_ - _hd129363129882_ - _tl129362129884_ - _e129367129887_ - _hd129366129890_ - _tl129365129892_) - (let ((_L129895_ _hd129366129890_) - (_L129896_ _hd129357129866_) - (_L129897_ _hd129348129842_)) + (gx#stx-null? _tl129407129771_)) + (___match135187135188_ + _e129379129686_ + _hd129378129689_ + _tl129377129691_ + _e129382129694_ + _hd129381129697_ + _tl129380129699_ + _e129385129702_ + _hd129384129705_ + _tl129383129707_ + _e129388129710_ + _hd129387129713_ + _tl129386129715_ + _e129391129718_ + _hd129390129721_ + _tl129389129723_ + _e129394129726_ + _hd129393129729_ + _tl129392129731_ + _e129397129734_ + _hd129396129737_ + _tl129395129739_ + _e129400129742_ + _hd129399129745_ + _tl129398129747_ + _e129403129750_ + _hd129402129753_ + _tl129401129755_ + _e129406129758_ + _hd129405129761_ + _tl129404129763_ + _e129409129766_ + _hd129408129769_ + _tl129407129771_) + (___kont134824134825_)))) + (___match135303135304_ + _e129379129686_ + _hd129378129689_ + _tl129377129691_ + _e129382129694_ + _hd129381129697_ + _tl129380129699_ + _e129385129702_ + _hd129384129705_ + _tl129383129707_ + _e129388129710_ + _hd129387129713_ + _tl129386129715_ + _e129391129718_ + _hd129390129721_ + _tl129389129723_ + _e129394129726_ + _hd129393129729_ + _tl129392129731_ + _e129397129734_ + _hd129396129737_ + _tl129395129739_ + _e129400129742_ + _hd129399129745_ + _tl129398129747_)))) + (___match135101135102_ + (lambda (_e129345129820_ + _hd129344129823_ + _tl129343129825_ + _e129348129828_ + _hd129347129831_ + _tl129346129833_ + _e129351129836_ + _hd129350129839_ + _tl129349129841_ + _e129354129844_ + _hd129353129847_ + _tl129352129849_ + _e129357129852_ + _hd129356129855_ + _tl129355129857_ + _e129360129860_ + _hd129359129863_ + _tl129358129865_ + _e129363129868_ + _hd129362129871_ + _tl129361129873_ + _e129366129876_ + _hd129365129879_ + _tl129364129881_ + _e129369129884_ + _hd129368129887_ + _tl129367129889_ + _e129372129892_ + _hd129371129895_ + _tl129370129897_) + (let ((_L129900_ _hd129371129895_) + (_L129901_ _hd129362129871_) + (_L129902_ _hd129353129847_)) (if (and (or (let () (declare (not safe)) (gxc#runtime-identifier=? - _L129897_ + _L129902_ 'slot-ref)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L129897_ + _L129902_ 'unchecked-slot-ref))) (let () (declare (not safe)) (gx#free-identifier=? - _L129896_ - _self129224_))) - (___kont134811134812_ - _L129895_ - _L129896_ - _L129897_) - (___match135300135301_ - _e129340129815_ - _hd129339129818_ - _tl129338129820_ - _e129343129823_ - _hd129342129826_ - _tl129341129828_ - _e129346129831_ - _hd129345129834_ - _tl129344129836_ - _e129349129839_ - _hd129348129842_ - _tl129347129844_ - _e129352129847_ - _hd129351129850_ - _tl129350129852_ - _e129355129855_ - _hd129354129858_ - _tl129353129860_ - _e129358129863_ - _hd129357129866_ - _tl129356129868_ - _e129361129871_ - _hd129360129874_ - _tl129359129876_))))) - (___match135094135095_ - (lambda (_e129340129815_ - _hd129339129818_ - _tl129338129820_ - _e129343129823_ - _hd129342129826_ - _tl129341129828_ - _e129346129831_ - _hd129345129834_ - _tl129344129836_ - _e129349129839_ - _hd129348129842_ - _tl129347129844_ - _e129352129847_ - _hd129351129850_ - _tl129350129852_ - _e129355129855_ - _hd129354129858_ - _tl129353129860_ - _e129358129863_ - _hd129357129866_ - _tl129356129868_ - _e129361129871_ - _hd129360129874_ - _tl129359129876_ - _e129364129879_ - _hd129363129882_ - _tl129362129884_ - _e129367129887_ - _hd129366129890_ - _tl129365129892_) + _L129901_ + _self129229_))) + (___kont134816134817_ + _L129900_ + _L129901_ + _L129902_) + (___match135305135306_ + _e129345129820_ + _hd129344129823_ + _tl129343129825_ + _e129348129828_ + _hd129347129831_ + _tl129346129833_ + _e129351129836_ + _hd129350129839_ + _tl129349129841_ + _e129354129844_ + _hd129353129847_ + _tl129352129849_ + _e129357129852_ + _hd129356129855_ + _tl129355129857_ + _e129360129860_ + _hd129359129863_ + _tl129358129865_ + _e129363129868_ + _hd129362129871_ + _tl129361129873_ + _e129366129876_ + _hd129365129879_ + _tl129364129881_))))) + (___match135099135100_ + (lambda (_e129345129820_ + _hd129344129823_ + _tl129343129825_ + _e129348129828_ + _hd129347129831_ + _tl129346129833_ + _e129351129836_ + _hd129350129839_ + _tl129349129841_ + _e129354129844_ + _hd129353129847_ + _tl129352129849_ + _e129357129852_ + _hd129356129855_ + _tl129355129857_ + _e129360129860_ + _hd129359129863_ + _tl129358129865_ + _e129363129868_ + _hd129362129871_ + _tl129361129873_ + _e129366129876_ + _hd129365129879_ + _tl129364129881_ + _e129369129884_ + _hd129368129887_ + _tl129367129889_ + _e129372129892_ + _hd129371129895_ + _tl129370129897_) (if (let () (declare (not safe)) - (gx#stx-null? _tl129359129876_)) - (___match135096135097_ - _e129340129815_ - _hd129339129818_ - _tl129338129820_ - _e129343129823_ - _hd129342129826_ - _tl129341129828_ - _e129346129831_ - _hd129345129834_ - _tl129344129836_ - _e129349129839_ - _hd129348129842_ - _tl129347129844_ - _e129352129847_ - _hd129351129850_ - _tl129350129852_ - _e129355129855_ - _hd129354129858_ - _tl129353129860_ - _e129358129863_ - _hd129357129866_ - _tl129356129868_ - _e129361129871_ - _hd129360129874_ - _tl129359129876_ - _e129364129879_ - _hd129363129882_ - _tl129362129884_ - _e129367129887_ - _hd129366129890_ - _tl129365129892_) - (___match135174135175_ - _e129340129815_ - _hd129339129818_ - _tl129338129820_ - _e129343129823_ - _hd129342129826_ - _tl129341129828_ - _e129346129831_ - _hd129345129834_ - _tl129344129836_ - _e129349129839_ - _hd129348129842_ - _tl129347129844_ - _e129352129847_ - _hd129351129850_ - _tl129350129852_ - _e129355129855_ - _hd129354129858_ - _tl129353129860_ - _e129358129863_ - _hd129357129866_ - _tl129356129868_ - _e129361129871_ - _hd129360129874_ - _tl129359129876_ - _e129364129879_ - _hd129363129882_ - _tl129362129884_ - _e129367129887_ - _hd129366129890_ - _tl129365129892_)))) - (___match135084135085_ - (lambda (_e129340129815_ - _hd129339129818_ - _tl129338129820_ - _e129343129823_ - _hd129342129826_ - _tl129341129828_ - _e129346129831_ - _hd129345129834_ - _tl129344129836_ - _e129349129839_ - _hd129348129842_ - _tl129347129844_ - _e129352129847_ - _hd129351129850_ - _tl129350129852_ - _e129355129855_ - _hd129354129858_ - _tl129353129860_ - _e129358129863_ - _hd129357129866_ - _tl129356129868_ - _e129361129871_ - _hd129360129874_ - _tl129359129876_ - _e129364129879_ - _hd129363129882_ - _tl129362129884_) + (gx#stx-null? _tl129364129881_)) + (___match135101135102_ + _e129345129820_ + _hd129344129823_ + _tl129343129825_ + _e129348129828_ + _hd129347129831_ + _tl129346129833_ + _e129351129836_ + _hd129350129839_ + _tl129349129841_ + _e129354129844_ + _hd129353129847_ + _tl129352129849_ + _e129357129852_ + _hd129356129855_ + _tl129355129857_ + _e129360129860_ + _hd129359129863_ + _tl129358129865_ + _e129363129868_ + _hd129362129871_ + _tl129361129873_ + _e129366129876_ + _hd129365129879_ + _tl129364129881_ + _e129369129884_ + _hd129368129887_ + _tl129367129889_ + _e129372129892_ + _hd129371129895_ + _tl129370129897_) + (___match135179135180_ + _e129345129820_ + _hd129344129823_ + _tl129343129825_ + _e129348129828_ + _hd129347129831_ + _tl129346129833_ + _e129351129836_ + _hd129350129839_ + _tl129349129841_ + _e129354129844_ + _hd129353129847_ + _tl129352129849_ + _e129357129852_ + _hd129356129855_ + _tl129355129857_ + _e129360129860_ + _hd129359129863_ + _tl129358129865_ + _e129363129868_ + _hd129362129871_ + _tl129361129873_ + _e129366129876_ + _hd129365129879_ + _tl129364129881_ + _e129369129884_ + _hd129368129887_ + _tl129367129889_ + _e129372129892_ + _hd129371129895_ + _tl129370129897_)))) + (___match135089135090_ + (lambda (_e129345129820_ + _hd129344129823_ + _tl129343129825_ + _e129348129828_ + _hd129347129831_ + _tl129346129833_ + _e129351129836_ + _hd129350129839_ + _tl129349129841_ + _e129354129844_ + _hd129353129847_ + _tl129352129849_ + _e129357129852_ + _hd129356129855_ + _tl129355129857_ + _e129360129860_ + _hd129359129863_ + _tl129358129865_ + _e129363129868_ + _hd129362129871_ + _tl129361129873_ + _e129366129876_ + _hd129365129879_ + _tl129364129881_ + _e129369129884_ + _hd129368129887_ + _tl129367129889_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd129363129882_)) + (gx#stx-eq? '%#quote _hd129368129887_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl129362129884_)) - (let ((_e129367129887_ + (gx#stx-pair? _tl129367129889_)) + (let ((_e129372129892_ (let () (declare (not safe)) - (gx#stx-e _tl129362129884_)))) - (let ((_tl129365129892_ + (gx#stx-e _tl129367129889_)))) + (let ((_tl129370129897_ (let () (declare (not safe)) - (##cdr _e129367129887_))) - (_hd129366129890_ + (##cdr _e129372129892_))) + (_hd129371129895_ (let () (declare (not safe)) - (##car _e129367129887_)))) + (##car _e129372129892_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl129365129892_)) + (gx#stx-null? _tl129370129897_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl129359129876_)) - (___match135096135097_ - _e129340129815_ - _hd129339129818_ - _tl129338129820_ - _e129343129823_ - _hd129342129826_ - _tl129341129828_ - _e129346129831_ - _hd129345129834_ - _tl129344129836_ - _e129349129839_ - _hd129348129842_ - _tl129347129844_ - _e129352129847_ - _hd129351129850_ - _tl129350129852_ - _e129355129855_ - _hd129354129858_ - _tl129353129860_ - _e129358129863_ - _hd129357129866_ - _tl129356129868_ - _e129361129871_ - _hd129360129874_ - _tl129359129876_ - _e129364129879_ - _hd129363129882_ - _tl129362129884_ - _e129367129887_ - _hd129366129890_ - _tl129365129892_) - (___match135174135175_ - _e129340129815_ - _hd129339129818_ - _tl129338129820_ - _e129343129823_ - _hd129342129826_ - _tl129341129828_ - _e129346129831_ - _hd129345129834_ - _tl129344129836_ - _e129349129839_ - _hd129348129842_ - _tl129347129844_ - _e129352129847_ - _hd129351129850_ - _tl129350129852_ - _e129355129855_ - _hd129354129858_ - _tl129353129860_ - _e129358129863_ - _hd129357129866_ - _tl129356129868_ - _e129361129871_ - _hd129360129874_ - _tl129359129876_ - _e129364129879_ - _hd129363129882_ - _tl129362129884_ - _e129367129887_ - _hd129366129890_ - _tl129365129892_)) - (___match135298135299_ - _e129340129815_ - _hd129339129818_ - _tl129338129820_ - _e129343129823_ - _hd129342129826_ - _tl129341129828_ - _e129346129831_ - _hd129345129834_ - _tl129344129836_ - _e129349129839_ - _hd129348129842_ - _tl129347129844_ - _e129352129847_ - _hd129351129850_ - _tl129350129852_ - _e129355129855_ - _hd129354129858_ - _tl129353129860_ - _e129358129863_ - _hd129357129866_ - _tl129356129868_ - _e129361129871_ - _hd129360129874_ - _tl129359129876_)))) - (___match135298135299_ - _e129340129815_ - _hd129339129818_ - _tl129338129820_ - _e129343129823_ - _hd129342129826_ - _tl129341129828_ - _e129346129831_ - _hd129345129834_ - _tl129344129836_ - _e129349129839_ - _hd129348129842_ - _tl129347129844_ - _e129352129847_ - _hd129351129850_ - _tl129350129852_ - _e129355129855_ - _hd129354129858_ - _tl129353129860_ - _e129358129863_ - _hd129357129866_ - _tl129356129868_ - _e129361129871_ - _hd129360129874_ - _tl129359129876_)) - (___match135298135299_ - _e129340129815_ - _hd129339129818_ - _tl129338129820_ - _e129343129823_ - _hd129342129826_ - _tl129341129828_ - _e129346129831_ - _hd129345129834_ - _tl129344129836_ - _e129349129839_ - _hd129348129842_ - _tl129347129844_ - _e129352129847_ - _hd129351129850_ - _tl129350129852_ - _e129355129855_ - _hd129354129858_ - _tl129353129860_ - _e129358129863_ - _hd129357129866_ - _tl129356129868_ - _e129361129871_ - _hd129360129874_ - _tl129359129876_)))) - (___match135016135017_ - (lambda (_e129289129936_ - _hd129288129939_ - _tl129287129941_ - _e129292129944_ - _hd129291129947_ - _tl129290129949_ - _e129295129952_ - _hd129294129955_ - _tl129293129957_ - _e129298129960_ - _hd129297129963_ - _tl129296129965_ - _e129301129968_ - _hd129300129971_ - _tl129299129973_ - _e129304129976_ - _hd129303129979_ - _tl129302129981_ - _e129307129984_ - _hd129306129987_ - _tl129305129989_ - _e129310129992_ - _hd129309129995_ - _tl129308129997_ - _e129313130000_ - _hd129312130003_ - _tl129311130005_ - _e129316130008_ - _hd129315130011_ - _tl129314130013_ - _e129319130016_ - _hd129318130019_ - _tl129317130021_ - _e129322130024_ - _hd129321130027_ - _tl129320130029_ - _e129325130032_ - _hd129324130035_ - _tl129323130037_ - ___splice134809134810_ - _target129326130040_ - _tl129328130042_) - (letrec ((_loop129329130045_ - (lambda (_hd129327130048_ _args129333130050_) + (gx#stx-null? _tl129364129881_)) + (___match135101135102_ + _e129345129820_ + _hd129344129823_ + _tl129343129825_ + _e129348129828_ + _hd129347129831_ + _tl129346129833_ + _e129351129836_ + _hd129350129839_ + _tl129349129841_ + _e129354129844_ + _hd129353129847_ + _tl129352129849_ + _e129357129852_ + _hd129356129855_ + _tl129355129857_ + _e129360129860_ + _hd129359129863_ + _tl129358129865_ + _e129363129868_ + _hd129362129871_ + _tl129361129873_ + _e129366129876_ + _hd129365129879_ + _tl129364129881_ + _e129369129884_ + _hd129368129887_ + _tl129367129889_ + _e129372129892_ + _hd129371129895_ + _tl129370129897_) + (___match135179135180_ + _e129345129820_ + _hd129344129823_ + _tl129343129825_ + _e129348129828_ + _hd129347129831_ + _tl129346129833_ + _e129351129836_ + _hd129350129839_ + _tl129349129841_ + _e129354129844_ + _hd129353129847_ + _tl129352129849_ + _e129357129852_ + _hd129356129855_ + _tl129355129857_ + _e129360129860_ + _hd129359129863_ + _tl129358129865_ + _e129363129868_ + _hd129362129871_ + _tl129361129873_ + _e129366129876_ + _hd129365129879_ + _tl129364129881_ + _e129369129884_ + _hd129368129887_ + _tl129367129889_ + _e129372129892_ + _hd129371129895_ + _tl129370129897_)) + (___match135303135304_ + _e129345129820_ + _hd129344129823_ + _tl129343129825_ + _e129348129828_ + _hd129347129831_ + _tl129346129833_ + _e129351129836_ + _hd129350129839_ + _tl129349129841_ + _e129354129844_ + _hd129353129847_ + _tl129352129849_ + _e129357129852_ + _hd129356129855_ + _tl129355129857_ + _e129360129860_ + _hd129359129863_ + _tl129358129865_ + _e129363129868_ + _hd129362129871_ + _tl129361129873_ + _e129366129876_ + _hd129365129879_ + _tl129364129881_)))) + (___match135303135304_ + _e129345129820_ + _hd129344129823_ + _tl129343129825_ + _e129348129828_ + _hd129347129831_ + _tl129346129833_ + _e129351129836_ + _hd129350129839_ + _tl129349129841_ + _e129354129844_ + _hd129353129847_ + _tl129352129849_ + _e129357129852_ + _hd129356129855_ + _tl129355129857_ + _e129360129860_ + _hd129359129863_ + _tl129358129865_ + _e129363129868_ + _hd129362129871_ + _tl129361129873_ + _e129366129876_ + _hd129365129879_ + _tl129364129881_)) + (___match135303135304_ + _e129345129820_ + _hd129344129823_ + _tl129343129825_ + _e129348129828_ + _hd129347129831_ + _tl129346129833_ + _e129351129836_ + _hd129350129839_ + _tl129349129841_ + _e129354129844_ + _hd129353129847_ + _tl129352129849_ + _e129357129852_ + _hd129356129855_ + _tl129355129857_ + _e129360129860_ + _hd129359129863_ + _tl129358129865_ + _e129363129868_ + _hd129362129871_ + _tl129361129873_ + _e129366129876_ + _hd129365129879_ + _tl129364129881_)))) + (___match135021135022_ + (lambda (_e129294129941_ + _hd129293129944_ + _tl129292129946_ + _e129297129949_ + _hd129296129952_ + _tl129295129954_ + _e129300129957_ + _hd129299129960_ + _tl129298129962_ + _e129303129965_ + _hd129302129968_ + _tl129301129970_ + _e129306129973_ + _hd129305129976_ + _tl129304129978_ + _e129309129981_ + _hd129308129984_ + _tl129307129986_ + _e129312129989_ + _hd129311129992_ + _tl129310129994_ + _e129315129997_ + _hd129314130000_ + _tl129313130002_ + _e129318130005_ + _hd129317130008_ + _tl129316130010_ + _e129321130013_ + _hd129320130016_ + _tl129319130018_ + _e129324130021_ + _hd129323130024_ + _tl129322130026_ + _e129327130029_ + _hd129326130032_ + _tl129325130034_ + _e129330130037_ + _hd129329130040_ + _tl129328130042_ + ___splice134814134815_ + _target129331130045_ + _tl129333130047_) + (letrec ((_loop129334130050_ + (lambda (_hd129332130053_ _args129338130055_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd129327130048_)) - (let ((_e129330130053_ + (gx#stx-pair? _hd129332130053_)) + (let ((_e129335130058_ (let () (declare (not safe)) - (gx#stx-e _hd129327130048_)))) - (let ((_lp-tl129332130058_ + (gx#stx-e _hd129332130053_)))) + (let ((_lp-tl129337130063_ (let () (declare (not safe)) - (##cdr _e129330130053_))) - (_lp-hd129331130056_ + (##cdr _e129335130058_))) + (_lp-hd129336130061_ (let () (declare (not safe)) - (##car _e129330130053_)))) - (let ((__tmp135672 + (##car _e129335130058_)))) + (let ((__tmp135677 (let () (declare (not safe)) - (cons _lp-hd129331130056_ - _args129333130050_)))) + (cons _lp-hd129336130061_ + _args129338130055_)))) (declare (not safe)) - (_loop129329130045_ - _lp-tl129332130058_ - __tmp135672)))) - (let ((_args129334130061_ - (reverse _args129333130050_))) - (let ((_L130064_ _args129334130061_) - (_L130065_ _hd129324130035_) - (_L130066_ _hd129315130011_) - (_L130067_ _hd129306129987_) - (_L130068_ _hd129297129963_)) + (_loop129334130050_ + _lp-tl129337130063_ + __tmp135677)))) + (let ((_args129339130066_ + (reverse _args129338130055_))) + (let ((_L130069_ _args129339130066_) + (_L130070_ _hd129329130040_) + (_L130071_ _hd129320130016_) + (_L130072_ _hd129311129992_) + (_L130073_ _hd129302129968_)) (if (and (let () (declare (not safe)) (gxc#runtime-identifier=? - _L130068_ + _L130073_ 'apply)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L130067_ + _L130072_ 'call-method)) (let () (declare (not safe)) (gx#free-identifier=? - _L130066_ - _self129224_))) - (___kont134807134808_ - _L130064_ - _L130065_ - _L130066_ - _L130067_ - _L130068_) - (___kont134819134820_)))))))) + _L130071_ + _self129229_))) + (___kont134812134813_ + _L130069_ + _L130070_ + _L130071_ + _L130072_ + _L130073_) + (___kont134824134825_)))))))) (let () (declare (not safe)) - (_loop129329130045_ _target129326130040_ '()))))) - (___match134974134975_ - (lambda (_e129289129936_ - _hd129288129939_ - _tl129287129941_ - _e129292129944_ - _hd129291129947_ - _tl129290129949_ - _e129295129952_ - _hd129294129955_ - _tl129293129957_ - _e129298129960_ - _hd129297129963_ - _tl129296129965_ - _e129301129968_ - _hd129300129971_ - _tl129299129973_ - _e129304129976_ - _hd129303129979_ - _tl129302129981_ - _e129307129984_ - _hd129306129987_ - _tl129305129989_ - _e129310129992_ - _hd129309129995_ - _tl129308129997_ - _e129313130000_ - _hd129312130003_ - _tl129311130005_) + (_loop129334130050_ _target129331130045_ '()))))) + (___match134979134980_ + (lambda (_e129294129941_ + _hd129293129944_ + _tl129292129946_ + _e129297129949_ + _hd129296129952_ + _tl129295129954_ + _e129300129957_ + _hd129299129960_ + _tl129298129962_ + _e129303129965_ + _hd129302129968_ + _tl129301129970_ + _e129306129973_ + _hd129305129976_ + _tl129304129978_ + _e129309129981_ + _hd129308129984_ + _tl129307129986_ + _e129312129989_ + _hd129311129992_ + _tl129310129994_ + _e129315129997_ + _hd129314130000_ + _tl129313130002_ + _e129318130005_ + _hd129317130008_ + _tl129316130010_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd129312130003_)) + (gx#stx-eq? '%#ref _hd129317130008_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl129311130005_)) - (let ((_e129316130008_ + (gx#stx-pair? _tl129316130010_)) + (let ((_e129321130013_ (let () (declare (not safe)) - (gx#stx-e _tl129311130005_)))) - (let ((_tl129314130013_ + (gx#stx-e _tl129316130010_)))) + (let ((_tl129319130018_ (let () (declare (not safe)) - (##cdr _e129316130008_))) - (_hd129315130011_ + (##cdr _e129321130013_))) + (_hd129320130016_ (let () (declare (not safe)) - (##car _e129316130008_)))) + (##car _e129321130013_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl129314130013_)) + (gx#stx-null? _tl129319130018_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl129308129997_)) - (let ((_e129319130016_ + (gx#stx-pair? _tl129313130002_)) + (let ((_e129324130021_ (let () (declare (not safe)) (gx#stx-e - _tl129308129997_)))) - (let ((_tl129317130021_ + _tl129313130002_)))) + (let ((_tl129322130026_ (let () (declare (not safe)) - (##cdr _e129319130016_))) - (_hd129318130019_ + (##cdr _e129324130021_))) + (_hd129323130024_ (let () (declare (not safe)) - (##car _e129319130016_)))) + (##car _e129324130021_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd129318130019_)) - (let ((_e129322130024_ + _hd129323130024_)) + (let ((_e129327130029_ (let () (declare (not safe)) (gx#stx-e - _hd129318130019_)))) - (let ((_tl129320130029_ + _hd129323130024_)))) + (let ((_tl129325130034_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e129322130024_))) - (_hd129321130027_ - (let () (declare (not safe)) (##car _e129322130024_)))) + (##cdr _e129327130029_))) + (_hd129326130032_ + (let () (declare (not safe)) (##car _e129327130029_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd129321130027_)) + (gx#identifier? _hd129326130032_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd129321130027_)) + (gx#stx-eq? '%#quote _hd129326130032_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl129320130029_)) - (let ((_e129325130032_ + (gx#stx-pair? _tl129325130034_)) + (let ((_e129330130037_ (let () (declare (not safe)) - (gx#stx-e _tl129320130029_)))) - (let ((_tl129323130037_ + (gx#stx-e _tl129325130034_)))) + (let ((_tl129328130042_ (let () (declare (not safe)) - (##cdr _e129325130032_))) - (_hd129324130035_ + (##cdr _e129330130037_))) + (_hd129329130040_ (let () (declare (not safe)) - (##car _e129325130032_)))) + (##car _e129330130037_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl129323130037_)) + (gx#stx-null? _tl129328130042_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl129317130021_)) - (let ((___splice134809134810_ + (gx#stx-pair/null? _tl129322130026_)) + (let ((___splice134814134815_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl129317130021_ + _tl129322130026_ '0)))) - (let ((_tl129328130042_ + (let ((_tl129333130047_ (let () (declare (not safe)) (##vector-ref - ___splice134809134810_ + ___splice134814134815_ '1))) - (_target129326130040_ + (_target129331130045_ (let () (declare (not safe)) (##vector-ref - ___splice134809134810_ + ___splice134814134815_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl129328130042_)) - (___match135016135017_ - _e129289129936_ - _hd129288129939_ - _tl129287129941_ - _e129292129944_ - _hd129291129947_ - _tl129290129949_ - _e129295129952_ - _hd129294129955_ - _tl129293129957_ - _e129298129960_ - _hd129297129963_ - _tl129296129965_ - _e129301129968_ - _hd129300129971_ - _tl129299129973_ - _e129304129976_ - _hd129303129979_ - _tl129302129981_ - _e129307129984_ - _hd129306129987_ - _tl129305129989_ - _e129310129992_ - _hd129309129995_ - _tl129308129997_ - _e129313130000_ - _hd129312130003_ - _tl129311130005_ - _e129316130008_ - _hd129315130011_ - _tl129314130013_ - _e129319130016_ - _hd129318130019_ - _tl129317130021_ - _e129322130024_ - _hd129321130027_ - _tl129320130029_ - _e129325130032_ - _hd129324130035_ - _tl129323130037_ - ___splice134809134810_ - _target129326130040_ - _tl129328130042_) - (___kont134819134820_)))) - (___kont134819134820_)) - (___kont134819134820_)))) - (___kont134819134820_)) - (___kont134819134820_)) - (___kont134819134820_)))) + _tl129333130047_)) + (___match135021135022_ + _e129294129941_ + _hd129293129944_ + _tl129292129946_ + _e129297129949_ + _hd129296129952_ + _tl129295129954_ + _e129300129957_ + _hd129299129960_ + _tl129298129962_ + _e129303129965_ + _hd129302129968_ + _tl129301129970_ + _e129306129973_ + _hd129305129976_ + _tl129304129978_ + _e129309129981_ + _hd129308129984_ + _tl129307129986_ + _e129312129989_ + _hd129311129992_ + _tl129310129994_ + _e129315129997_ + _hd129314130000_ + _tl129313130002_ + _e129318130005_ + _hd129317130008_ + _tl129316130010_ + _e129321130013_ + _hd129320130016_ + _tl129319130018_ + _e129324130021_ + _hd129323130024_ + _tl129322130026_ + _e129327130029_ + _hd129326130032_ + _tl129325130034_ + _e129330130037_ + _hd129329130040_ + _tl129328130042_ + ___splice134814134815_ + _target129331130045_ + _tl129333130047_) + (___kont134824134825_)))) + (___kont134824134825_)) + (___kont134824134825_)))) + (___kont134824134825_)) + (___kont134824134825_)) + (___kont134824134825_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont134819134820_)))) - (___match135298135299_ - _e129289129936_ - _hd129288129939_ - _tl129287129941_ - _e129292129944_ - _hd129291129947_ - _tl129290129949_ - _e129295129952_ - _hd129294129955_ - _tl129293129957_ - _e129298129960_ - _hd129297129963_ - _tl129296129965_ - _e129301129968_ - _hd129300129971_ - _tl129299129973_ - _e129304129976_ - _hd129303129979_ - _tl129302129981_ - _e129307129984_ - _hd129306129987_ - _tl129305129989_ - _e129310129992_ - _hd129309129995_ - _tl129308129997_)) - (___match135298135299_ - _e129289129936_ - _hd129288129939_ - _tl129287129941_ - _e129292129944_ - _hd129291129947_ - _tl129290129949_ - _e129295129952_ - _hd129294129955_ - _tl129293129957_ - _e129298129960_ - _hd129297129963_ - _tl129296129965_ - _e129301129968_ - _hd129300129971_ - _tl129299129973_ - _e129304129976_ - _hd129303129979_ - _tl129302129981_ - _e129307129984_ - _hd129306129987_ - _tl129305129989_ - _e129310129992_ - _hd129309129995_ - _tl129308129997_)))) - (___match135298135299_ - _e129289129936_ - _hd129288129939_ - _tl129287129941_ - _e129292129944_ - _hd129291129947_ - _tl129290129949_ - _e129295129952_ - _hd129294129955_ - _tl129293129957_ - _e129298129960_ - _hd129297129963_ - _tl129296129965_ - _e129301129968_ - _hd129300129971_ - _tl129299129973_ - _e129304129976_ - _hd129303129979_ - _tl129302129981_ - _e129307129984_ - _hd129306129987_ - _tl129305129989_ - _e129310129992_ - _hd129309129995_ - _tl129308129997_)) - (___match135084135085_ - _e129289129936_ - _hd129288129939_ - _tl129287129941_ - _e129292129944_ - _hd129291129947_ - _tl129290129949_ - _e129295129952_ - _hd129294129955_ - _tl129293129957_ - _e129298129960_ - _hd129297129963_ - _tl129296129965_ - _e129301129968_ - _hd129300129971_ - _tl129299129973_ - _e129304129976_ - _hd129303129979_ - _tl129302129981_ - _e129307129984_ - _hd129306129987_ - _tl129305129989_ - _e129310129992_ - _hd129309129995_ - _tl129308129997_ - _e129313130000_ - _hd129312130003_ - _tl129311130005_)))) - (___match134906134907_ - (lambda (_e129245130128_ - _hd129244130131_ - _tl129243130133_ - _e129248130136_ - _hd129247130139_ - _tl129246130141_ - _e129251130144_ - _hd129250130147_ - _tl129249130149_ - _e129254130152_ - _hd129253130155_ - _tl129252130157_ - _e129257130160_ - _hd129256130163_ - _tl129255130165_ - _e129260130168_ - _hd129259130171_ - _tl129258130173_ - _e129263130176_ - _hd129262130179_ - _tl129261130181_ - _e129266130184_ - _hd129265130187_ - _tl129264130189_ - _e129269130192_ - _hd129268130195_ - _tl129267130197_ - _e129272130200_ - _hd129271130203_ - _tl129270130205_ - ___splice134805134806_ - _target129273130208_ - _tl129275130210_) - (letrec ((_loop129276130213_ - (lambda (_hd129274130216_ _args129280130218_) + (___kont134824134825_)))) + (___match135303135304_ + _e129294129941_ + _hd129293129944_ + _tl129292129946_ + _e129297129949_ + _hd129296129952_ + _tl129295129954_ + _e129300129957_ + _hd129299129960_ + _tl129298129962_ + _e129303129965_ + _hd129302129968_ + _tl129301129970_ + _e129306129973_ + _hd129305129976_ + _tl129304129978_ + _e129309129981_ + _hd129308129984_ + _tl129307129986_ + _e129312129989_ + _hd129311129992_ + _tl129310129994_ + _e129315129997_ + _hd129314130000_ + _tl129313130002_)) + (___match135303135304_ + _e129294129941_ + _hd129293129944_ + _tl129292129946_ + _e129297129949_ + _hd129296129952_ + _tl129295129954_ + _e129300129957_ + _hd129299129960_ + _tl129298129962_ + _e129303129965_ + _hd129302129968_ + _tl129301129970_ + _e129306129973_ + _hd129305129976_ + _tl129304129978_ + _e129309129981_ + _hd129308129984_ + _tl129307129986_ + _e129312129989_ + _hd129311129992_ + _tl129310129994_ + _e129315129997_ + _hd129314130000_ + _tl129313130002_)))) + (___match135303135304_ + _e129294129941_ + _hd129293129944_ + _tl129292129946_ + _e129297129949_ + _hd129296129952_ + _tl129295129954_ + _e129300129957_ + _hd129299129960_ + _tl129298129962_ + _e129303129965_ + _hd129302129968_ + _tl129301129970_ + _e129306129973_ + _hd129305129976_ + _tl129304129978_ + _e129309129981_ + _hd129308129984_ + _tl129307129986_ + _e129312129989_ + _hd129311129992_ + _tl129310129994_ + _e129315129997_ + _hd129314130000_ + _tl129313130002_)) + (___match135089135090_ + _e129294129941_ + _hd129293129944_ + _tl129292129946_ + _e129297129949_ + _hd129296129952_ + _tl129295129954_ + _e129300129957_ + _hd129299129960_ + _tl129298129962_ + _e129303129965_ + _hd129302129968_ + _tl129301129970_ + _e129306129973_ + _hd129305129976_ + _tl129304129978_ + _e129309129981_ + _hd129308129984_ + _tl129307129986_ + _e129312129989_ + _hd129311129992_ + _tl129310129994_ + _e129315129997_ + _hd129314130000_ + _tl129313130002_ + _e129318130005_ + _hd129317130008_ + _tl129316130010_)))) + (___match134911134912_ + (lambda (_e129250130133_ + _hd129249130136_ + _tl129248130138_ + _e129253130141_ + _hd129252130144_ + _tl129251130146_ + _e129256130149_ + _hd129255130152_ + _tl129254130154_ + _e129259130157_ + _hd129258130160_ + _tl129257130162_ + _e129262130165_ + _hd129261130168_ + _tl129260130170_ + _e129265130173_ + _hd129264130176_ + _tl129263130178_ + _e129268130181_ + _hd129267130184_ + _tl129266130186_ + _e129271130189_ + _hd129270130192_ + _tl129269130194_ + _e129274130197_ + _hd129273130200_ + _tl129272130202_ + _e129277130205_ + _hd129276130208_ + _tl129275130210_ + ___splice134810134811_ + _target129278130213_ + _tl129280130215_) + (letrec ((_loop129281130218_ + (lambda (_hd129279130221_ _args129285130223_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd129274130216_)) - (let ((_e129277130221_ + (gx#stx-pair? _hd129279130221_)) + (let ((_e129282130226_ (let () (declare (not safe)) - (gx#stx-e _hd129274130216_)))) - (let ((_lp-tl129279130226_ + (gx#stx-e _hd129279130221_)))) + (let ((_lp-tl129284130231_ (let () (declare (not safe)) - (##cdr _e129277130221_))) - (_lp-hd129278130224_ + (##cdr _e129282130226_))) + (_lp-hd129283130229_ (let () (declare (not safe)) - (##car _e129277130221_)))) - (let ((__tmp135673 + (##car _e129282130226_)))) + (let ((__tmp135678 (let () (declare (not safe)) - (cons _lp-hd129278130224_ - _args129280130218_)))) + (cons _lp-hd129283130229_ + _args129285130223_)))) (declare (not safe)) - (_loop129276130213_ - _lp-tl129279130226_ - __tmp135673)))) - (let ((_args129281130229_ - (reverse _args129280130218_))) - (let ((_L130232_ _args129281130229_) - (_L130233_ _hd129271130203_) - (_L130234_ _hd129262130179_) - (_L130235_ _hd129253130155_)) + (_loop129281130218_ + _lp-tl129284130231_ + __tmp135678)))) + (let ((_args129286130234_ + (reverse _args129285130223_))) + (let ((_L130237_ _args129286130234_) + (_L130238_ _hd129276130208_) + (_L130239_ _hd129267130184_) + (_L130240_ _hd129258130160_)) (if (and (let () (declare (not safe)) (gxc#runtime-identifier=? - _L130235_ + _L130240_ 'call-method)) (let () (declare (not safe)) (gx#free-identifier=? - _L130234_ - _self129224_))) - (___kont134803134804_ - _L130232_ - _L130233_ - _L130234_ - _L130235_) - (___match135094135095_ - _e129245130128_ - _hd129244130131_ - _tl129243130133_ - _e129248130136_ - _hd129247130139_ - _tl129246130141_ - _e129251130144_ - _hd129250130147_ - _tl129249130149_ - _e129254130152_ - _hd129253130155_ - _tl129252130157_ - _e129257130160_ - _hd129256130163_ - _tl129255130165_ - _e129260130168_ - _hd129259130171_ - _tl129258130173_ - _e129263130176_ - _hd129262130179_ - _tl129261130181_ - _e129266130184_ - _hd129265130187_ - _tl129264130189_ - _e129269130192_ - _hd129268130195_ - _tl129267130197_ - _e129272130200_ - _hd129271130203_ - _tl129270130205_)))))))) + _L130239_ + _self129229_))) + (___kont134808134809_ + _L130237_ + _L130238_ + _L130239_ + _L130240_) + (___match135099135100_ + _e129250130133_ + _hd129249130136_ + _tl129248130138_ + _e129253130141_ + _hd129252130144_ + _tl129251130146_ + _e129256130149_ + _hd129255130152_ + _tl129254130154_ + _e129259130157_ + _hd129258130160_ + _tl129257130162_ + _e129262130165_ + _hd129261130168_ + _tl129260130170_ + _e129265130173_ + _hd129264130176_ + _tl129263130178_ + _e129268130181_ + _hd129267130184_ + _tl129266130186_ + _e129271130189_ + _hd129270130192_ + _tl129269130194_ + _e129274130197_ + _hd129273130200_ + _tl129272130202_ + _e129277130205_ + _hd129276130208_ + _tl129275130210_)))))))) (let () (declare (not safe)) - (_loop129276130213_ _target129273130208_ '())))))) + (_loop129281130218_ _target129278130213_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx134801134802_)) - (let ((_e129245130128_ + (gx#stx-pair? ___stx134806134807_)) + (let ((_e129250130133_ (let () (declare (not safe)) - (gx#stx-e ___stx134801134802_)))) - (let ((_tl129243130133_ + (gx#stx-e ___stx134806134807_)))) + (let ((_tl129248130138_ (let () (declare (not safe)) - (##cdr _e129245130128_))) - (_hd129244130131_ + (##cdr _e129250130133_))) + (_hd129249130136_ (let () (declare (not safe)) - (##car _e129245130128_)))) + (##car _e129250130133_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl129243130133_)) - (let ((_e129248130136_ + (gx#stx-pair? _tl129248130138_)) + (let ((_e129253130141_ (let () (declare (not safe)) - (gx#stx-e _tl129243130133_)))) - (let ((_tl129246130141_ + (gx#stx-e _tl129248130138_)))) + (let ((_tl129251130146_ (let () (declare (not safe)) - (##cdr _e129248130136_))) - (_hd129247130139_ + (##cdr _e129253130141_))) + (_hd129252130144_ (let () (declare (not safe)) - (##car _e129248130136_)))) + (##car _e129253130141_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd129247130139_)) - (let ((_e129251130144_ + (gx#stx-pair? _hd129252130144_)) + (let ((_e129256130149_ (let () (declare (not safe)) - (gx#stx-e _hd129247130139_)))) - (let ((_tl129249130149_ + (gx#stx-e _hd129252130144_)))) + (let ((_tl129254130154_ (let () (declare (not safe)) - (##cdr _e129251130144_))) - (_hd129250130147_ + (##cdr _e129256130149_))) + (_hd129255130152_ (let () (declare (not safe)) - (##car _e129251130144_)))) + (##car _e129256130149_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd129250130147_)) + _hd129255130152_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd129250130147_)) + _hd129255130152_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl129249130149_)) - (let ((_e129254130152_ + _tl129254130154_)) + (let ((_e129259130157_ (let () (declare (not safe)) (gx#stx-e - _tl129249130149_)))) - (let ((_tl129252130157_ + _tl129254130154_)))) + (let ((_tl129257130162_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e129254130152_))) - (_hd129253130155_ - (let () (declare (not safe)) (##car _e129254130152_)))) + (##cdr _e129259130157_))) + (_hd129258130160_ + (let () (declare (not safe)) (##car _e129259130157_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl129252130157_)) + (gx#stx-null? _tl129257130162_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl129246130141_)) - (let ((_e129257130160_ + (gx#stx-pair? _tl129251130146_)) + (let ((_e129262130165_ (let () (declare (not safe)) - (gx#stx-e _tl129246130141_)))) - (let ((_tl129255130165_ + (gx#stx-e _tl129251130146_)))) + (let ((_tl129260130170_ (let () (declare (not safe)) - (##cdr _e129257130160_))) - (_hd129256130163_ + (##cdr _e129262130165_))) + (_hd129261130168_ (let () (declare (not safe)) - (##car _e129257130160_)))) + (##car _e129262130165_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd129256130163_)) - (let ((_e129260130168_ + (gx#stx-pair? _hd129261130168_)) + (let ((_e129265130173_ (let () (declare (not safe)) - (gx#stx-e _hd129256130163_)))) - (let ((_tl129258130173_ + (gx#stx-e _hd129261130168_)))) + (let ((_tl129263130178_ (let () (declare (not safe)) - (##cdr _e129260130168_))) - (_hd129259130171_ + (##cdr _e129265130173_))) + (_hd129264130176_ (let () (declare (not safe)) - (##car _e129260130168_)))) + (##car _e129265130173_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd129259130171_)) + (gx#identifier? _hd129264130176_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd129259130171_)) + _hd129264130176_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl129258130173_)) - (let ((_e129263130176_ + _tl129263130178_)) + (let ((_e129268130181_ (let () (declare (not safe)) (gx#stx-e - _tl129258130173_)))) - (let ((_tl129261130181_ + _tl129263130178_)))) + (let ((_tl129266130186_ (let () (declare (not safe)) - (##cdr _e129263130176_))) - (_hd129262130179_ + (##cdr _e129268130181_))) + (_hd129267130184_ (let () (declare (not safe)) - (##car _e129263130176_)))) + (##car _e129268130181_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl129261130181_)) + _tl129266130186_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl129255130165_)) - (let ((_e129266130184_ + _tl129260130170_)) + (let ((_e129271130189_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl129255130165_)))) - (let ((_tl129264130189_ + (gx#stx-e _tl129260130170_)))) + (let ((_tl129269130194_ (let () (declare (not safe)) - (##cdr _e129266130184_))) - (_hd129265130187_ + (##cdr _e129271130189_))) + (_hd129270130192_ (let () (declare (not safe)) - (##car _e129266130184_)))) + (##car _e129271130189_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd129265130187_)) - (let ((_e129269130192_ + (gx#stx-pair? _hd129270130192_)) + (let ((_e129274130197_ (let () (declare (not safe)) - (gx#stx-e _hd129265130187_)))) - (let ((_tl129267130197_ + (gx#stx-e _hd129270130192_)))) + (let ((_tl129272130202_ (let () (declare (not safe)) - (##cdr _e129269130192_))) - (_hd129268130195_ + (##cdr _e129274130197_))) + (_hd129273130200_ (let () (declare (not safe)) - (##car _e129269130192_)))) + (##car _e129274130197_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd129268130195_)) + (gx#identifier? _hd129273130200_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd129268130195_)) + _hd129273130200_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl129267130197_)) - (let ((_e129272130200_ + (gx#stx-pair? _tl129272130202_)) + (let ((_e129277130205_ (let () (declare (not safe)) (gx#stx-e - _tl129267130197_)))) - (let ((_tl129270130205_ + _tl129272130202_)))) + (let ((_tl129275130210_ (let () (declare (not safe)) - (##cdr _e129272130200_))) - (_hd129271130203_ + (##cdr _e129277130205_))) + (_hd129276130208_ (let () (declare (not safe)) - (##car _e129272130200_)))) + (##car _e129277130205_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl129270130205_)) + _tl129275130210_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl129264130189_)) - (let ((___splice134805134806_ + _tl129269130194_)) + (let ((___splice134810134811_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-split-splice _tl129264130189_ '0)))) - (let ((_tl129275130210_ + (gx#syntax-split-splice _tl129269130194_ '0)))) + (let ((_tl129280130215_ (let () (declare (not safe)) - (##vector-ref ___splice134805134806_ '1))) - (_target129273130208_ + (##vector-ref ___splice134810134811_ '1))) + (_target129278130213_ (let () (declare (not safe)) - (##vector-ref ___splice134805134806_ '0)))) + (##vector-ref ___splice134810134811_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl129275130210_)) - (___match134906134907_ - _e129245130128_ - _hd129244130131_ - _tl129243130133_ - _e129248130136_ - _hd129247130139_ - _tl129246130141_ - _e129251130144_ - _hd129250130147_ - _tl129249130149_ - _e129254130152_ - _hd129253130155_ - _tl129252130157_ - _e129257130160_ - _hd129256130163_ - _tl129255130165_ - _e129260130168_ - _hd129259130171_ - _tl129258130173_ - _e129263130176_ - _hd129262130179_ - _tl129261130181_ - _e129266130184_ - _hd129265130187_ - _tl129264130189_ - _e129269130192_ - _hd129268130195_ - _tl129267130197_ - _e129272130200_ - _hd129271130203_ - _tl129270130205_ - ___splice134805134806_ - _target129273130208_ - _tl129275130210_) - (___match135094135095_ - _e129245130128_ - _hd129244130131_ - _tl129243130133_ - _e129248130136_ - _hd129247130139_ - _tl129246130141_ - _e129251130144_ - _hd129250130147_ - _tl129249130149_ - _e129254130152_ - _hd129253130155_ - _tl129252130157_ - _e129257130160_ - _hd129256130163_ - _tl129255130165_ - _e129260130168_ - _hd129259130171_ - _tl129258130173_ - _e129263130176_ - _hd129262130179_ - _tl129261130181_ - _e129266130184_ - _hd129265130187_ - _tl129264130189_ - _e129269130192_ - _hd129268130195_ - _tl129267130197_ - _e129272130200_ - _hd129271130203_ - _tl129270130205_)))) - (___match135094135095_ - _e129245130128_ - _hd129244130131_ - _tl129243130133_ - _e129248130136_ - _hd129247130139_ - _tl129246130141_ - _e129251130144_ - _hd129250130147_ - _tl129249130149_ - _e129254130152_ - _hd129253130155_ - _tl129252130157_ - _e129257130160_ - _hd129256130163_ - _tl129255130165_ - _e129260130168_ - _hd129259130171_ - _tl129258130173_ - _e129263130176_ - _hd129262130179_ - _tl129261130181_ - _e129266130184_ - _hd129265130187_ - _tl129264130189_ - _e129269130192_ - _hd129268130195_ - _tl129267130197_ - _e129272130200_ - _hd129271130203_ - _tl129270130205_)) + (gx#stx-null? _tl129280130215_)) + (___match134911134912_ + _e129250130133_ + _hd129249130136_ + _tl129248130138_ + _e129253130141_ + _hd129252130144_ + _tl129251130146_ + _e129256130149_ + _hd129255130152_ + _tl129254130154_ + _e129259130157_ + _hd129258130160_ + _tl129257130162_ + _e129262130165_ + _hd129261130168_ + _tl129260130170_ + _e129265130173_ + _hd129264130176_ + _tl129263130178_ + _e129268130181_ + _hd129267130184_ + _tl129266130186_ + _e129271130189_ + _hd129270130192_ + _tl129269130194_ + _e129274130197_ + _hd129273130200_ + _tl129272130202_ + _e129277130205_ + _hd129276130208_ + _tl129275130210_ + ___splice134810134811_ + _target129278130213_ + _tl129280130215_) + (___match135099135100_ + _e129250130133_ + _hd129249130136_ + _tl129248130138_ + _e129253130141_ + _hd129252130144_ + _tl129251130146_ + _e129256130149_ + _hd129255130152_ + _tl129254130154_ + _e129259130157_ + _hd129258130160_ + _tl129257130162_ + _e129262130165_ + _hd129261130168_ + _tl129260130170_ + _e129265130173_ + _hd129264130176_ + _tl129263130178_ + _e129268130181_ + _hd129267130184_ + _tl129266130186_ + _e129271130189_ + _hd129270130192_ + _tl129269130194_ + _e129274130197_ + _hd129273130200_ + _tl129272130202_ + _e129277130205_ + _hd129276130208_ + _tl129275130210_)))) + (___match135099135100_ + _e129250130133_ + _hd129249130136_ + _tl129248130138_ + _e129253130141_ + _hd129252130144_ + _tl129251130146_ + _e129256130149_ + _hd129255130152_ + _tl129254130154_ + _e129259130157_ + _hd129258130160_ + _tl129257130162_ + _e129262130165_ + _hd129261130168_ + _tl129260130170_ + _e129265130173_ + _hd129264130176_ + _tl129263130178_ + _e129268130181_ + _hd129267130184_ + _tl129266130186_ + _e129271130189_ + _hd129270130192_ + _tl129269130194_ + _e129274130197_ + _hd129273130200_ + _tl129272130202_ + _e129277130205_ + _hd129276130208_ + _tl129275130210_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match135298135299_ - _e129245130128_ - _hd129244130131_ - _tl129243130133_ - _e129248130136_ - _hd129247130139_ - _tl129246130141_ - _e129251130144_ - _hd129250130147_ - _tl129249130149_ - _e129254130152_ - _hd129253130155_ - _tl129252130157_ - _e129257130160_ - _hd129256130163_ - _tl129255130165_ - _e129260130168_ - _hd129259130171_ - _tl129258130173_ - _e129263130176_ - _hd129262130179_ - _tl129261130181_ - _e129266130184_ - _hd129265130187_ - _tl129264130189_)))) - (___match135298135299_ - _e129245130128_ - _hd129244130131_ - _tl129243130133_ - _e129248130136_ - _hd129247130139_ - _tl129246130141_ - _e129251130144_ - _hd129250130147_ - _tl129249130149_ - _e129254130152_ - _hd129253130155_ - _tl129252130157_ - _e129257130160_ - _hd129256130163_ - _tl129255130165_ - _e129260130168_ - _hd129259130171_ - _tl129258130173_ - _e129263130176_ - _hd129262130179_ - _tl129261130181_ - _e129266130184_ - _hd129265130187_ - _tl129264130189_)) - (___match134974134975_ - _e129245130128_ - _hd129244130131_ - _tl129243130133_ - _e129248130136_ - _hd129247130139_ - _tl129246130141_ - _e129251130144_ - _hd129250130147_ - _tl129249130149_ - _e129254130152_ - _hd129253130155_ - _tl129252130157_ - _e129257130160_ - _hd129256130163_ - _tl129255130165_ - _e129260130168_ - _hd129259130171_ - _tl129258130173_ - _e129263130176_ - _hd129262130179_ - _tl129261130181_ - _e129266130184_ - _hd129265130187_ - _tl129264130189_ - _e129269130192_ - _hd129268130195_ - _tl129267130197_)) - (___match135298135299_ - _e129245130128_ - _hd129244130131_ - _tl129243130133_ - _e129248130136_ - _hd129247130139_ - _tl129246130141_ - _e129251130144_ - _hd129250130147_ - _tl129249130149_ - _e129254130152_ - _hd129253130155_ - _tl129252130157_ - _e129257130160_ - _hd129256130163_ - _tl129255130165_ - _e129260130168_ - _hd129259130171_ - _tl129258130173_ - _e129263130176_ - _hd129262130179_ - _tl129261130181_ - _e129266130184_ - _hd129265130187_ - _tl129264130189_)))) - (___match135298135299_ - _e129245130128_ - _hd129244130131_ - _tl129243130133_ - _e129248130136_ - _hd129247130139_ - _tl129246130141_ - _e129251130144_ - _hd129250130147_ - _tl129249130149_ - _e129254130152_ - _hd129253130155_ - _tl129252130157_ - _e129257130160_ - _hd129256130163_ - _tl129255130165_ - _e129260130168_ - _hd129259130171_ - _tl129258130173_ - _e129263130176_ - _hd129262130179_ - _tl129261130181_ - _e129266130184_ - _hd129265130187_ - _tl129264130189_)))) - (___match135236135237_ - _e129245130128_ - _hd129244130131_ - _tl129243130133_ - _e129248130136_ - _hd129247130139_ - _tl129246130141_ - _e129251130144_ - _hd129250130147_ - _tl129249130149_ - _e129254130152_ - _hd129253130155_ - _tl129252130157_ - _e129257130160_ - _hd129256130163_ - _tl129255130165_ - _e129260130168_ - _hd129259130171_ - _tl129258130173_ - _e129263130176_ - _hd129262130179_ - _tl129261130181_)) - (___kont134819134820_)))) + (___match135303135304_ + _e129250130133_ + _hd129249130136_ + _tl129248130138_ + _e129253130141_ + _hd129252130144_ + _tl129251130146_ + _e129256130149_ + _hd129255130152_ + _tl129254130154_ + _e129259130157_ + _hd129258130160_ + _tl129257130162_ + _e129262130165_ + _hd129261130168_ + _tl129260130170_ + _e129265130173_ + _hd129264130176_ + _tl129263130178_ + _e129268130181_ + _hd129267130184_ + _tl129266130186_ + _e129271130189_ + _hd129270130192_ + _tl129269130194_)))) + (___match135303135304_ + _e129250130133_ + _hd129249130136_ + _tl129248130138_ + _e129253130141_ + _hd129252130144_ + _tl129251130146_ + _e129256130149_ + _hd129255130152_ + _tl129254130154_ + _e129259130157_ + _hd129258130160_ + _tl129257130162_ + _e129262130165_ + _hd129261130168_ + _tl129260130170_ + _e129265130173_ + _hd129264130176_ + _tl129263130178_ + _e129268130181_ + _hd129267130184_ + _tl129266130186_ + _e129271130189_ + _hd129270130192_ + _tl129269130194_)) + (___match134979134980_ + _e129250130133_ + _hd129249130136_ + _tl129248130138_ + _e129253130141_ + _hd129252130144_ + _tl129251130146_ + _e129256130149_ + _hd129255130152_ + _tl129254130154_ + _e129259130157_ + _hd129258130160_ + _tl129257130162_ + _e129262130165_ + _hd129261130168_ + _tl129260130170_ + _e129265130173_ + _hd129264130176_ + _tl129263130178_ + _e129268130181_ + _hd129267130184_ + _tl129266130186_ + _e129271130189_ + _hd129270130192_ + _tl129269130194_ + _e129274130197_ + _hd129273130200_ + _tl129272130202_)) + (___match135303135304_ + _e129250130133_ + _hd129249130136_ + _tl129248130138_ + _e129253130141_ + _hd129252130144_ + _tl129251130146_ + _e129256130149_ + _hd129255130152_ + _tl129254130154_ + _e129259130157_ + _hd129258130160_ + _tl129257130162_ + _e129262130165_ + _hd129261130168_ + _tl129260130170_ + _e129265130173_ + _hd129264130176_ + _tl129263130178_ + _e129268130181_ + _hd129267130184_ + _tl129266130186_ + _e129271130189_ + _hd129270130192_ + _tl129269130194_)))) + (___match135303135304_ + _e129250130133_ + _hd129249130136_ + _tl129248130138_ + _e129253130141_ + _hd129252130144_ + _tl129251130146_ + _e129256130149_ + _hd129255130152_ + _tl129254130154_ + _e129259130157_ + _hd129258130160_ + _tl129257130162_ + _e129262130165_ + _hd129261130168_ + _tl129260130170_ + _e129265130173_ + _hd129264130176_ + _tl129263130178_ + _e129268130181_ + _hd129267130184_ + _tl129266130186_ + _e129271130189_ + _hd129270130192_ + _tl129269130194_)))) + (___match135241135242_ + _e129250130133_ + _hd129249130136_ + _tl129248130138_ + _e129253130141_ + _hd129252130144_ + _tl129251130146_ + _e129256130149_ + _hd129255130152_ + _tl129254130154_ + _e129259130157_ + _hd129258130160_ + _tl129257130162_ + _e129262130165_ + _hd129261130168_ + _tl129260130170_ + _e129265130173_ + _hd129264130176_ + _tl129263130178_ + _e129268130181_ + _hd129267130184_ + _tl129266130186_)) + (___kont134824134825_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont134819134820_)) - (___kont134819134820_)) - (___kont134819134820_)))) - (___kont134819134820_)))) - (___kont134819134820_)) - (___kont134819134820_)))) + (___kont134824134825_)) + (___kont134824134825_)) + (___kont134824134825_)))) + (___kont134824134825_)))) + (___kont134824134825_)) + (___kont134824134825_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont134819134820_)) - (___kont134819134820_)) - (___kont134819134820_)))) - (___kont134819134820_)))) - (___kont134819134820_)))) - (___kont134819134820_)))))))))) + (___kont134824134825_)) + (___kont134824134825_)) + (___kont134824134825_)))) + (___kont134824134825_)))) + (___kont134824134825_)))) + (___kont134824134825_)))))))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-top__0.scm b/src/bootstrap/gerbil/compiler/optimize-top__0.scm index f263c103..309ea826 100644 --- a/src/bootstrap/gerbil/compiler/optimize-top__0.scm +++ b/src/bootstrap/gerbil/compiler/optimize-top__0.scm @@ -1,2903 +1,2903 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize-top::timestamp 1709229971) + (define gerbil/compiler/optimize-top::timestamp 1709375799) (begin (define gxc#&collect-top-level-type-info (make-promise (lambda () - (let ((_tbl126717_ + (let ((_tbl126722_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp128810 (force gxc#&void))) + (let ((__tmp128815 (force gxc#&void))) (declare (not safe)) - (hash-merge! _tbl126717_ __tmp128810)) + (hash-merge! _tbl126722_ __tmp128815)) (let () (declare (not safe)) - (hash-put! _tbl126717_ '%#begin gxc#collect-begin%)) + (hash-put! _tbl126722_ '%#begin gxc#collect-begin%)) (let () (declare (not safe)) - (hash-put! _tbl126717_ '%#begin-syntax gxc#collect-begin-syntax%)) + (hash-put! _tbl126722_ '%#begin-syntax gxc#collect-begin-syntax%)) (let () (declare (not safe)) - (hash-put! _tbl126717_ '%#module gxc#collect-module%)) + (hash-put! _tbl126722_ '%#module gxc#collect-module%)) (let () (declare (not safe)) (hash-put! - _tbl126717_ + _tbl126722_ '%#define-values gxc#collect-top-level-type-define-values%)) - _tbl126717_)))) + _tbl126722_)))) (define gxc#apply-collect-top-level-type-info - (lambda (_stx126700_ . _args126702_) - (let ((__tmp128812 + (lambda (_stx126705_ . _args126707_) + (let ((__tmp128817 (lambda () (declare (not safe)) - (if (null? _args126702_) - (gxc#compile-e__0 _stx126700_) - (let ((_arg1126707_ (car _args126702_)) - (_rest126709_ (cdr _args126702_))) - (if (null? _rest126709_) - (gxc#compile-e__1 _stx126700_ _arg1126707_) - (let ((_arg2126712_ (car _rest126709_)) - (_rest126714_ (cdr _rest126709_))) - (if (null? _rest126714_) + (if (null? _args126707_) + (gxc#compile-e__0 _stx126705_) + (let ((_arg1126712_ (car _args126707_)) + (_rest126714_ (cdr _args126707_))) + (if (null? _rest126714_) + (gxc#compile-e__1 _stx126705_ _arg1126712_) + (let ((_arg2126717_ (car _rest126714_)) + (_rest126719_ (cdr _rest126714_))) + (if (null? _rest126719_) (gxc#compile-e__2 - _stx126700_ - _arg1126707_ - _arg2126712_) + _stx126705_ + _arg1126712_ + _arg2126717_) (apply gxc#compile-e - _stx126700_ - _arg1126707_ - _arg2126712_ - _rest126714_)))))))) - (__tmp128811 (force gxc#&collect-top-level-type-info))) + _stx126705_ + _arg1126712_ + _arg2126717_ + _rest126719_)))))))) + (__tmp128816 (force gxc#&collect-top-level-type-info))) (declare (not safe)) (call-with-parameters - __tmp128812 + __tmp128817 gxc#current-compile-methods - __tmp128811)))) + __tmp128816)))) (define gxc#&basic-expression-top-level-type (make-promise (lambda () - (let ((_tbl126697_ + (let ((_tbl126702_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp128813 (force gxc#&false))) + (let ((__tmp128818 (force gxc#&false))) (declare (not safe)) - (hash-merge! _tbl126697_ __tmp128813)) + (hash-merge! _tbl126702_ __tmp128818)) (let () (declare (not safe)) (hash-put! - _tbl126697_ + _tbl126702_ '%#begin-annotation gxc#basic-expression-type-begin-annotation%)) (let () (declare (not safe)) - (hash-put! _tbl126697_ '%#call gxc#basic-expression-type-call%)) - _tbl126697_)))) + (hash-put! _tbl126702_ '%#call gxc#basic-expression-type-call%)) + _tbl126702_)))) (define gxc#apply-basic-expression-top-level-type - (lambda (_stx126680_ . _args126682_) - (let ((__tmp128815 + (lambda (_stx126685_ . _args126687_) + (let ((__tmp128820 (lambda () (declare (not safe)) - (if (null? _args126682_) - (gxc#compile-e__0 _stx126680_) - (let ((_arg1126687_ (car _args126682_)) - (_rest126689_ (cdr _args126682_))) - (if (null? _rest126689_) - (gxc#compile-e__1 _stx126680_ _arg1126687_) - (let ((_arg2126692_ (car _rest126689_)) - (_rest126694_ (cdr _rest126689_))) - (if (null? _rest126694_) + (if (null? _args126687_) + (gxc#compile-e__0 _stx126685_) + (let ((_arg1126692_ (car _args126687_)) + (_rest126694_ (cdr _args126687_))) + (if (null? _rest126694_) + (gxc#compile-e__1 _stx126685_ _arg1126692_) + (let ((_arg2126697_ (car _rest126694_)) + (_rest126699_ (cdr _rest126694_))) + (if (null? _rest126699_) (gxc#compile-e__2 - _stx126680_ - _arg1126687_ - _arg2126692_) + _stx126685_ + _arg1126692_ + _arg2126697_) (apply gxc#compile-e - _stx126680_ - _arg1126687_ - _arg2126692_ - _rest126694_)))))))) - (__tmp128814 (force gxc#&basic-expression-top-level-type))) + _stx126685_ + _arg1126692_ + _arg2126697_ + _rest126699_)))))))) + (__tmp128819 (force gxc#&basic-expression-top-level-type))) (declare (not safe)) (call-with-parameters - __tmp128815 + __tmp128820 gxc#current-compile-methods - __tmp128814)))) + __tmp128819)))) (define gxc#&collect-type-info (make-promise (lambda () - (let ((_tbl126677_ + (let ((_tbl126682_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp128816 (force gxc#&void))) + (let ((__tmp128821 (force gxc#&void))) (declare (not safe)) - (hash-merge! _tbl126677_ __tmp128816)) + (hash-merge! _tbl126682_ __tmp128821)) (let () (declare (not safe)) - (hash-put! _tbl126677_ '%#begin gxc#collect-begin%)) + (hash-put! _tbl126682_ '%#begin gxc#collect-begin%)) (let () (declare (not safe)) - (hash-put! _tbl126677_ '%#begin-syntax gxc#collect-begin-syntax%)) + (hash-put! _tbl126682_ '%#begin-syntax gxc#collect-begin-syntax%)) (let () (declare (not safe)) - (hash-put! _tbl126677_ '%#module gxc#collect-module%)) + (hash-put! _tbl126682_ '%#module gxc#collect-module%)) (let () (declare (not safe)) (hash-put! - _tbl126677_ + _tbl126682_ '%#define-values gxc#collect-type-define-values%)) (let () (declare (not safe)) (hash-put! - _tbl126677_ + _tbl126682_ '%#begin-annotation gxc#collect-begin-annotation%)) (let () (declare (not safe)) - (hash-put! _tbl126677_ '%#lambda gxc#collect-body-lambda%)) + (hash-put! _tbl126682_ '%#lambda gxc#collect-body-lambda%)) (let () (declare (not safe)) (hash-put! - _tbl126677_ + _tbl126682_ '%#case-lambda gxc#collect-body-case-lambda%)) (let () (declare (not safe)) (hash-put! - _tbl126677_ + _tbl126682_ '%#let-values gxc#collect-type-let-values%)) (let () (declare (not safe)) (hash-put! - _tbl126677_ + _tbl126682_ '%#letrec-values gxc#collect-type-let-values%)) (let () (declare (not safe)) (hash-put! - _tbl126677_ + _tbl126682_ '%#letrec*-values gxc#collect-type-let-values%)) (let () (declare (not safe)) - (hash-put! _tbl126677_ '%#call gxc#collect-type-call%)) + (hash-put! _tbl126682_ '%#call gxc#collect-type-call%)) (let () (declare (not safe)) - (hash-put! _tbl126677_ '%#if gxc#collect-operands)) + (hash-put! _tbl126682_ '%#if gxc#collect-operands)) (let () (declare (not safe)) - (hash-put! _tbl126677_ '%#set! gxc#collect-body-setq%)) - _tbl126677_)))) + (hash-put! _tbl126682_ '%#set! gxc#collect-body-setq%)) + _tbl126682_)))) (define gxc#apply-collect-type-info - (lambda (_stx126660_ . _args126662_) - (let ((__tmp128818 + (lambda (_stx126665_ . _args126667_) + (let ((__tmp128823 (lambda () (declare (not safe)) - (if (null? _args126662_) - (gxc#compile-e__0 _stx126660_) - (let ((_arg1126667_ (car _args126662_)) - (_rest126669_ (cdr _args126662_))) - (if (null? _rest126669_) - (gxc#compile-e__1 _stx126660_ _arg1126667_) - (let ((_arg2126672_ (car _rest126669_)) - (_rest126674_ (cdr _rest126669_))) - (if (null? _rest126674_) + (if (null? _args126667_) + (gxc#compile-e__0 _stx126665_) + (let ((_arg1126672_ (car _args126667_)) + (_rest126674_ (cdr _args126667_))) + (if (null? _rest126674_) + (gxc#compile-e__1 _stx126665_ _arg1126672_) + (let ((_arg2126677_ (car _rest126674_)) + (_rest126679_ (cdr _rest126674_))) + (if (null? _rest126679_) (gxc#compile-e__2 - _stx126660_ - _arg1126667_ - _arg2126672_) + _stx126665_ + _arg1126672_ + _arg2126677_) (apply gxc#compile-e - _stx126660_ - _arg1126667_ - _arg2126672_ - _rest126674_)))))))) - (__tmp128817 (force gxc#&collect-type-info))) + _stx126665_ + _arg1126672_ + _arg2126677_ + _rest126679_)))))))) + (__tmp128822 (force gxc#&collect-type-info))) (declare (not safe)) (call-with-parameters - __tmp128818 + __tmp128823 gxc#current-compile-methods - __tmp128817)))) + __tmp128822)))) (define gxc#&basic-expression-type (make-promise (lambda () - (let ((_tbl126657_ + (let ((_tbl126662_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp128819 (force gxc#&false))) + (let ((__tmp128824 (force gxc#&false))) (declare (not safe)) - (hash-merge! _tbl126657_ __tmp128819)) + (hash-merge! _tbl126662_ __tmp128824)) (let () (declare (not safe)) - (hash-put! _tbl126657_ '%#begin gxc#basic-expression-type-begin%)) + (hash-put! _tbl126662_ '%#begin gxc#basic-expression-type-begin%)) (let () (declare (not safe)) (hash-put! - _tbl126657_ + _tbl126662_ '%#begin-annotation gxc#basic-expression-type-begin-annotation%)) (let () (declare (not safe)) (hash-put! - _tbl126657_ + _tbl126662_ '%#lambda gxc#basic-expression-type-lambda%)) (let () (declare (not safe)) (hash-put! - _tbl126657_ + _tbl126662_ '%#case-lambda gxc#basic-expression-type-case-lambda%)) (let () (declare (not safe)) (hash-put! - _tbl126657_ + _tbl126662_ '%#let-values gxc#basic-expression-type-let-values%)) (let () (declare (not safe)) (hash-put! - _tbl126657_ + _tbl126662_ '%#letrec-values gxc#basic-expression-type-let-values%)) (let () (declare (not safe)) (hash-put! - _tbl126657_ + _tbl126662_ '%#letrec*-values gxc#basic-expression-type-let-values%)) (let () (declare (not safe)) - (hash-put! _tbl126657_ '%#call gxc#basic-expression-type-call%)) + (hash-put! _tbl126662_ '%#call gxc#basic-expression-type-call%)) (let () (declare (not safe)) - (hash-put! _tbl126657_ '%#ref gxc#basic-expression-type-ref%)) - _tbl126657_)))) + (hash-put! _tbl126662_ '%#ref gxc#basic-expression-type-ref%)) + _tbl126662_)))) (define gxc#apply-basic-expression-type - (lambda (_stx126640_ . _args126642_) - (let ((__tmp128821 + (lambda (_stx126645_ . _args126647_) + (let ((__tmp128826 (lambda () (declare (not safe)) - (if (null? _args126642_) - (gxc#compile-e__0 _stx126640_) - (let ((_arg1126647_ (car _args126642_)) - (_rest126649_ (cdr _args126642_))) - (if (null? _rest126649_) - (gxc#compile-e__1 _stx126640_ _arg1126647_) - (let ((_arg2126652_ (car _rest126649_)) - (_rest126654_ (cdr _rest126649_))) - (if (null? _rest126654_) + (if (null? _args126647_) + (gxc#compile-e__0 _stx126645_) + (let ((_arg1126652_ (car _args126647_)) + (_rest126654_ (cdr _args126647_))) + (if (null? _rest126654_) + (gxc#compile-e__1 _stx126645_ _arg1126652_) + (let ((_arg2126657_ (car _rest126654_)) + (_rest126659_ (cdr _rest126654_))) + (if (null? _rest126659_) (gxc#compile-e__2 - _stx126640_ - _arg1126647_ - _arg2126652_) + _stx126645_ + _arg1126652_ + _arg2126657_) (apply gxc#compile-e - _stx126640_ - _arg1126647_ - _arg2126652_ - _rest126654_)))))))) - (__tmp128820 (force gxc#&basic-expression-type))) + _stx126645_ + _arg1126652_ + _arg2126657_ + _rest126659_)))))))) + (__tmp128825 (force gxc#&basic-expression-type))) (declare (not safe)) (call-with-parameters - __tmp128821 + __tmp128826 gxc#current-compile-methods - __tmp128820)))) + __tmp128825)))) (define gxc#&lift-top-lambdas (make-promise (lambda () - (let ((_tbl126637_ + (let ((_tbl126642_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp128822 (force gxc#&basic-xform))) + (let ((__tmp128827 (force gxc#&basic-xform))) (declare (not safe)) - (hash-merge! _tbl126637_ __tmp128822)) + (hash-merge! _tbl126642_ __tmp128827)) (let () (declare (not safe)) (hash-put! - _tbl126637_ + _tbl126642_ '%#define-values gxc#lift-top-lambda-define-values%)) (let () (declare (not safe)) (hash-put! - _tbl126637_ + _tbl126642_ '%#let-values gxc#lift-top-lambda-let-values%)) (let () (declare (not safe)) (hash-put! - _tbl126637_ + _tbl126642_ '%#letrec-values gxc#lift-top-lambda-letrec-values%)) (let () (declare (not safe)) (hash-put! - _tbl126637_ + _tbl126642_ '%#letrec*-values gxc#lift-top-lambda-letrec-values%)) - _tbl126637_)))) + _tbl126642_)))) (define gxc#apply-lift-top-lambdas - (lambda (_stx126620_ . _args126622_) - (let ((__tmp128824 + (lambda (_stx126625_ . _args126627_) + (let ((__tmp128829 (lambda () (declare (not safe)) - (if (null? _args126622_) - (gxc#compile-e__0 _stx126620_) - (let ((_arg1126627_ (car _args126622_)) - (_rest126629_ (cdr _args126622_))) - (if (null? _rest126629_) - (gxc#compile-e__1 _stx126620_ _arg1126627_) - (let ((_arg2126632_ (car _rest126629_)) - (_rest126634_ (cdr _rest126629_))) - (if (null? _rest126634_) + (if (null? _args126627_) + (gxc#compile-e__0 _stx126625_) + (let ((_arg1126632_ (car _args126627_)) + (_rest126634_ (cdr _args126627_))) + (if (null? _rest126634_) + (gxc#compile-e__1 _stx126625_ _arg1126632_) + (let ((_arg2126637_ (car _rest126634_)) + (_rest126639_ (cdr _rest126634_))) + (if (null? _rest126639_) (gxc#compile-e__2 - _stx126620_ - _arg1126627_ - _arg2126632_) + _stx126625_ + _arg1126632_ + _arg2126637_) (apply gxc#compile-e - _stx126620_ - _arg1126627_ - _arg2126632_ - _rest126634_)))))))) - (__tmp128823 (force gxc#&lift-top-lambdas))) + _stx126625_ + _arg1126632_ + _arg2126637_ + _rest126639_)))))))) + (__tmp128828 (force gxc#&lift-top-lambdas))) (declare (not safe)) (call-with-parameters - __tmp128824 + __tmp128829 gxc#current-compile-methods - __tmp128823)))) + __tmp128828)))) (define gxc#collect-top-level-type-define-values% - (lambda (_stx126523_) - (let* ((___stx126730126731_ _stx126523_) - (_g126526126546_ + (lambda (_stx126528_) + (let* ((___stx126735126736_ _stx126528_) + (_g126531126551_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx126730126731_))))) - (let ((___kont126732126733_ - (lambda (_L126590_ _L126591_) - (let ((_sym126609_ + ___stx126735126736_))))) + (let ((___kont126737126738_ + (lambda (_L126595_ _L126596_) + (let ((_sym126614_ (let () (declare (not safe)) - (gxc#identifier-symbol _L126591_)))) - (if (let ((__tmp128825 (gxc#current-compile-mutators))) + (gxc#identifier-symbol _L126596_)))) + (if (let ((__tmp128830 (gxc#current-compile-mutators))) (declare (not safe)) - (hash-get __tmp128825 _sym126609_)) + (hash-get __tmp128830 _sym126614_)) (let () (declare (not safe)) (gxc#verbose '"skipping type inference for mutable binding " - _sym126609_)) - (let ((_type126610126612_ + _sym126614_)) + (let ((_type126615126617_ (let () (declare (not safe)) (gxc#apply-basic-expression-top-level-type - _L126590_)))) - (if _type126610126612_ - (let ((_type126615_ _type126610126612_)) + _L126595_)))) + (if _type126615126617_ + (let ((_type126620_ _type126615126617_)) (declare (not safe)) (gxc#optimizer-declare-type!__0 - _sym126609_ - _type126615_)) + _sym126614_ + _type126620_)) '#f)))))) - (___kont126734126735_ (lambda () '#!void))) - (let ((___match126763126764_ - (lambda (_e126532126558_ - _hd126531126561_ - _tl126530126563_ - _e126535126566_ - _hd126534126569_ - _tl126533126571_ - _e126538126574_ - _hd126537126577_ - _tl126536126579_ - _e126541126582_ - _hd126540126585_ - _tl126539126587_) - (let ((_L126590_ _hd126540126585_) - (_L126591_ _hd126537126577_)) + (___kont126739126740_ (lambda () '#!void))) + (let ((___match126768126769_ + (lambda (_e126537126563_ + _hd126536126566_ + _tl126535126568_ + _e126540126571_ + _hd126539126574_ + _tl126538126576_ + _e126543126579_ + _hd126542126582_ + _tl126541126584_ + _e126546126587_ + _hd126545126590_ + _tl126544126592_) + (let ((_L126595_ _hd126545126590_) + (_L126596_ _hd126542126582_)) (if (let () (declare (not safe)) - (gx#identifier? _L126591_)) - (___kont126732126733_ _L126590_ _L126591_) - (___kont126734126735_)))))) + (gx#identifier? _L126596_)) + (___kont126737126738_ _L126595_ _L126596_) + (___kont126739126740_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx126730126731_)) - (let ((_e126532126558_ + (gx#stx-pair? ___stx126735126736_)) + (let ((_e126537126563_ (let () (declare (not safe)) - (gx#stx-e ___stx126730126731_)))) - (let ((_tl126530126563_ + (gx#stx-e ___stx126735126736_)))) + (let ((_tl126535126568_ (let () (declare (not safe)) - (##cdr _e126532126558_))) - (_hd126531126561_ + (##cdr _e126537126563_))) + (_hd126536126566_ (let () (declare (not safe)) - (##car _e126532126558_)))) + (##car _e126537126563_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl126530126563_)) - (let ((_e126535126566_ + (gx#stx-pair? _tl126535126568_)) + (let ((_e126540126571_ (let () (declare (not safe)) - (gx#stx-e _tl126530126563_)))) - (let ((_tl126533126571_ + (gx#stx-e _tl126535126568_)))) + (let ((_tl126538126576_ (let () (declare (not safe)) - (##cdr _e126535126566_))) - (_hd126534126569_ + (##cdr _e126540126571_))) + (_hd126539126574_ (let () (declare (not safe)) - (##car _e126535126566_)))) + (##car _e126540126571_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd126534126569_)) - (let ((_e126538126574_ + (gx#stx-pair? _hd126539126574_)) + (let ((_e126543126579_ (let () (declare (not safe)) - (gx#stx-e _hd126534126569_)))) - (let ((_tl126536126579_ + (gx#stx-e _hd126539126574_)))) + (let ((_tl126541126584_ (let () (declare (not safe)) - (##cdr _e126538126574_))) - (_hd126537126577_ + (##cdr _e126543126579_))) + (_hd126542126582_ (let () (declare (not safe)) - (##car _e126538126574_)))) + (##car _e126543126579_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl126536126579_)) + (gx#stx-null? _tl126541126584_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl126533126571_)) - (let ((_e126541126582_ + _tl126538126576_)) + (let ((_e126546126587_ (let () (declare (not safe)) (gx#stx-e - _tl126533126571_)))) - (let ((_tl126539126587_ + _tl126538126576_)))) + (let ((_tl126544126592_ (let () (declare (not safe)) - (##cdr _e126541126582_))) - (_hd126540126585_ + (##cdr _e126546126587_))) + (_hd126545126590_ (let () (declare (not safe)) - (##car _e126541126582_)))) + (##car _e126546126587_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl126539126587_)) - (___match126763126764_ - _e126532126558_ - _hd126531126561_ - _tl126530126563_ - _e126535126566_ - _hd126534126569_ - _tl126533126571_ - _e126538126574_ - _hd126537126577_ - _tl126536126579_ - _e126541126582_ - _hd126540126585_ - _tl126539126587_) - (___kont126734126735_)))) - (___kont126734126735_)) - (___kont126734126735_)))) - (___kont126734126735_)))) - (___kont126734126735_)))) - (___kont126734126735_))))))) + _tl126544126592_)) + (___match126768126769_ + _e126537126563_ + _hd126536126566_ + _tl126535126568_ + _e126540126571_ + _hd126539126574_ + _tl126538126576_ + _e126543126579_ + _hd126542126582_ + _tl126541126584_ + _e126546126587_ + _hd126545126590_ + _tl126544126592_) + (___kont126739126740_)))) + (___kont126739126740_)) + (___kont126739126740_)))) + (___kont126739126740_)))) + (___kont126739126740_)))) + (___kont126739126740_))))))) (define gxc#collect-type-define-values% - (lambda (_stx126379_) - (let* ((___stx126766126767_ _stx126379_) - (_g126382126413_ + (lambda (_stx126384_) + (let* ((___stx126771126772_ _stx126384_) + (_g126387126418_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx126766126767_))))) - (let ((___kont126768126769_ - (lambda (_L126495_ _L126496_) - (let ((_sym126512_ + ___stx126771126772_))))) + (let ((___kont126773126774_ + (lambda (_L126500_ _L126501_) + (let ((_sym126517_ (let () (declare (not safe)) - (gxc#identifier-symbol _L126496_)))) - (if (let ((__tmp128826 (gxc#current-compile-mutators))) + (gxc#identifier-symbol _L126501_)))) + (if (let ((__tmp128831 (gxc#current-compile-mutators))) (declare (not safe)) - (hash-get __tmp128826 _sym126512_)) + (hash-get __tmp128831 _sym126517_)) (let () (declare (not safe)) (gxc#verbose '"skipping type inference for mutable binding " - _sym126512_)) + _sym126517_)) (if (let () (declare (not safe)) - (gxc#optimizer-lookup-type _sym126512_)) + (gxc#optimizer-lookup-type _sym126517_)) (let () (declare (not safe)) (gxc#verbose '"skipping type inference for already declared type " - _sym126512_)) - (let ((_type126513126515_ + _sym126517_)) + (let ((_type126518126520_ (let () (declare (not safe)) (gxc#apply-basic-expression-type - _L126495_)))) - (if _type126513126515_ - (let ((_type126518_ _type126513126515_)) + _L126500_)))) + (if _type126518126520_ + (let ((_type126523_ _type126518126520_)) (declare (not safe)) (gxc#optimizer-declare-type!__0 - _sym126512_ - _type126518_)) + _sym126517_ + _type126523_)) '#f)))) (let () (declare (not safe)) - (gxc#compile-e__0 _L126495_))))) - (___kont126770126771_ - (lambda (_L126442_ _L126443_) + (gxc#compile-e__0 _L126500_))))) + (___kont126775126776_ + (lambda (_L126447_ _L126448_) (let () (declare (not safe)) - (gxc#compile-e__0 _L126442_))))) - (let ((___match126799126800_ - (lambda (_e126388126463_ - _hd126387126466_ - _tl126386126468_ - _e126391126471_ - _hd126390126474_ - _tl126389126476_ - _e126394126479_ - _hd126393126482_ - _tl126392126484_ - _e126397126487_ - _hd126396126490_ - _tl126395126492_) - (let ((_L126495_ _hd126396126490_) - (_L126496_ _hd126393126482_)) + (gxc#compile-e__0 _L126447_))))) + (let ((___match126804126805_ + (lambda (_e126393126468_ + _hd126392126471_ + _tl126391126473_ + _e126396126476_ + _hd126395126479_ + _tl126394126481_ + _e126399126484_ + _hd126398126487_ + _tl126397126489_ + _e126402126492_ + _hd126401126495_ + _tl126400126497_) + (let ((_L126500_ _hd126401126495_) + (_L126501_ _hd126398126487_)) (if (let () (declare (not safe)) - (gx#identifier? _L126496_)) - (___kont126768126769_ _L126495_ _L126496_) - (___kont126770126771_ - _hd126396126490_ - _hd126390126474_)))))) + (gx#identifier? _L126501_)) + (___kont126773126774_ _L126500_ _L126501_) + (___kont126775126776_ + _hd126401126495_ + _hd126395126479_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx126766126767_)) - (let ((_e126388126463_ + (gx#stx-pair? ___stx126771126772_)) + (let ((_e126393126468_ (let () (declare (not safe)) - (gx#stx-e ___stx126766126767_)))) - (let ((_tl126386126468_ + (gx#stx-e ___stx126771126772_)))) + (let ((_tl126391126473_ (let () (declare (not safe)) - (##cdr _e126388126463_))) - (_hd126387126466_ + (##cdr _e126393126468_))) + (_hd126392126471_ (let () (declare (not safe)) - (##car _e126388126463_)))) + (##car _e126393126468_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl126386126468_)) - (let ((_e126391126471_ + (gx#stx-pair? _tl126391126473_)) + (let ((_e126396126476_ (let () (declare (not safe)) - (gx#stx-e _tl126386126468_)))) - (let ((_tl126389126476_ + (gx#stx-e _tl126391126473_)))) + (let ((_tl126394126481_ (let () (declare (not safe)) - (##cdr _e126391126471_))) - (_hd126390126474_ + (##cdr _e126396126476_))) + (_hd126395126479_ (let () (declare (not safe)) - (##car _e126391126471_)))) + (##car _e126396126476_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd126390126474_)) - (let ((_e126394126479_ + (gx#stx-pair? _hd126395126479_)) + (let ((_e126399126484_ (let () (declare (not safe)) - (gx#stx-e _hd126390126474_)))) - (let ((_tl126392126484_ + (gx#stx-e _hd126395126479_)))) + (let ((_tl126397126489_ (let () (declare (not safe)) - (##cdr _e126394126479_))) - (_hd126393126482_ + (##cdr _e126399126484_))) + (_hd126398126487_ (let () (declare (not safe)) - (##car _e126394126479_)))) + (##car _e126399126484_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl126392126484_)) + (gx#stx-null? _tl126397126489_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl126389126476_)) - (let ((_e126397126487_ + _tl126394126481_)) + (let ((_e126402126492_ (let () (declare (not safe)) (gx#stx-e - _tl126389126476_)))) - (let ((_tl126395126492_ + _tl126394126481_)))) + (let ((_tl126400126497_ (let () (declare (not safe)) - (##cdr _e126397126487_))) - (_hd126396126490_ + (##cdr _e126402126492_))) + (_hd126401126495_ (let () (declare (not safe)) - (##car _e126397126487_)))) + (##car _e126402126492_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl126395126492_)) - (___match126799126800_ - _e126388126463_ - _hd126387126466_ - _tl126386126468_ - _e126391126471_ - _hd126390126474_ - _tl126389126476_ - _e126394126479_ - _hd126393126482_ - _tl126392126484_ - _e126397126487_ - _hd126396126490_ - _tl126395126492_) + _tl126400126497_)) + (___match126804126805_ + _e126393126468_ + _hd126392126471_ + _tl126391126473_ + _e126396126476_ + _hd126395126479_ + _tl126394126481_ + _e126399126484_ + _hd126398126487_ + _tl126397126489_ + _e126402126492_ + _hd126401126495_ + _tl126400126497_) (let () (declare (not safe)) - (_g126382126413_))))) + (_g126387126418_))))) (let () (declare (not safe)) - (_g126382126413_))) + (_g126387126418_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl126389126476_)) - (let ((_e126408126434_ + _tl126394126481_)) + (let ((_e126413126439_ (let () (declare (not safe)) (gx#stx-e - _tl126389126476_)))) - (let ((_tl126406126439_ + _tl126394126481_)))) + (let ((_tl126411126444_ (let () (declare (not safe)) - (##cdr _e126408126434_))) - (_hd126407126437_ + (##cdr _e126413126439_))) + (_hd126412126442_ (let () (declare (not safe)) - (##car _e126408126434_)))) + (##car _e126413126439_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl126406126439_)) - (___kont126770126771_ - _hd126407126437_ - _hd126390126474_) + _tl126411126444_)) + (___kont126775126776_ + _hd126412126442_ + _hd126395126479_) (let () (declare (not safe)) - (_g126382126413_))))) + (_g126387126418_))))) (let () (declare (not safe)) - (_g126382126413_)))))) + (_g126387126418_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl126389126476_)) - (let ((_e126408126434_ + (gx#stx-pair? _tl126394126481_)) + (let ((_e126413126439_ (let () (declare (not safe)) - (gx#stx-e _tl126389126476_)))) - (let ((_tl126406126439_ + (gx#stx-e _tl126394126481_)))) + (let ((_tl126411126444_ (let () (declare (not safe)) - (##cdr _e126408126434_))) - (_hd126407126437_ + (##cdr _e126413126439_))) + (_hd126412126442_ (let () (declare (not safe)) - (##car _e126408126434_)))) + (##car _e126413126439_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl126406126439_)) - (___kont126770126771_ - _hd126407126437_ - _hd126390126474_) + _tl126411126444_)) + (___kont126775126776_ + _hd126412126442_ + _hd126395126479_) (let () (declare (not safe)) - (_g126382126413_))))) + (_g126387126418_))))) (let () (declare (not safe)) - (_g126382126413_)))))) - (let () (declare (not safe)) (_g126382126413_))))) - (let () (declare (not safe)) (_g126382126413_)))))))) + (_g126387126418_)))))) + (let () (declare (not safe)) (_g126387126418_))))) + (let () (declare (not safe)) (_g126387126418_)))))))) (define gxc#collect-type-let-values% - (lambda (_stx126164_) - (letrec ((_collect-e126166_ - (lambda (_hd126323_ _expr126324_) - (let* ((___stx126822126823_ _hd126323_) - (_g126327126337_ + (lambda (_stx126169_) + (letrec ((_collect-e126171_ + (lambda (_hd126328_ _expr126329_) + (let* ((___stx126827126828_ _hd126328_) + (_g126332126342_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx126822126823_))))) - (let ((___kont126824126825_ - (lambda (_L126357_) - (let ((_sym126368_ + ___stx126827126828_))))) + (let ((___kont126829126830_ + (lambda (_L126362_) + (let ((_sym126373_ (let () (declare (not safe)) - (gxc#identifier-symbol _L126357_)))) - (if (let ((__tmp128827 + (gxc#identifier-symbol _L126362_)))) + (if (let ((__tmp128832 (gxc#current-compile-mutators))) (declare (not safe)) - (hash-get __tmp128827 _sym126368_)) + (hash-get __tmp128832 _sym126373_)) (let () (declare (not safe)) (gxc#verbose '"skipping type declaration for mutable binding " - _sym126368_)) - (let ((_type126369126371_ + _sym126373_)) + (let ((_type126374126376_ (let () (declare (not safe)) (gxc#apply-basic-expression-type - _expr126324_)))) - (if _type126369126371_ - (let ((_type126374_ - _type126369126371_)) + _expr126329_)))) + (if _type126374126376_ + (let ((_type126379_ + _type126374126376_)) (declare (not safe)) (gxc#optimizer-declare-type!__% - _sym126368_ - _type126374_ + _sym126373_ + _type126379_ '#t)) '#f)))))) - (___kont126826126827_ (lambda () '#!void))) - (let ((___match126835126836_ - (lambda (_e126332126349_ - _hd126331126352_ - _tl126330126354_) - (let ((_L126357_ _hd126331126352_)) + (___kont126831126832_ (lambda () '#!void))) + (let ((___match126840126841_ + (lambda (_e126337126354_ + _hd126336126357_ + _tl126335126359_) + (let ((_L126362_ _hd126336126357_)) (if (let () (declare (not safe)) - (gx#identifier? _L126357_)) - (___kont126824126825_ _L126357_) - (___kont126826126827_)))))) + (gx#identifier? _L126362_)) + (___kont126829126830_ _L126362_) + (___kont126831126832_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx126822126823_)) - (let ((_e126332126349_ + (gx#stx-pair? ___stx126827126828_)) + (let ((_e126337126354_ (let () (declare (not safe)) - (gx#stx-e ___stx126822126823_)))) - (let ((_tl126330126354_ + (gx#stx-e ___stx126827126828_)))) + (let ((_tl126335126359_ (let () (declare (not safe)) - (##cdr _e126332126349_))) - (_hd126331126352_ + (##cdr _e126337126354_))) + (_hd126336126357_ (let () (declare (not safe)) - (##car _e126332126349_)))) + (##car _e126337126354_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl126330126354_)) - (___match126835126836_ - _e126332126349_ - _hd126331126352_ - _tl126330126354_) - (___kont126826126827_)))) - (___kont126826126827_)))))))) - (let* ((_g126168126203_ - (lambda (_g126169126200_) + (gx#stx-null? _tl126335126359_)) + (___match126840126841_ + _e126337126354_ + _hd126336126357_ + _tl126335126359_) + (___kont126831126832_)))) + (___kont126831126832_)))))))) + (let* ((_g126173126208_ + (lambda (_g126174126205_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g126169126200_)))) - (_g126167126320_ - (lambda (_g126169126206_) + _g126174126205_)))) + (_g126172126325_ + (lambda (_g126174126211_) (if (let () (declare (not safe)) - (gx#stx-pair? _g126169126206_)) - (let ((_e126175126208_ + (gx#stx-pair? _g126174126211_)) + (let ((_e126180126213_ (let () (declare (not safe)) - (gx#stx-e _g126169126206_)))) - (let ((_hd126174126211_ + (gx#stx-e _g126174126211_)))) + (let ((_hd126179126216_ (let () (declare (not safe)) - (##car _e126175126208_))) - (_tl126173126213_ + (##car _e126180126213_))) + (_tl126178126218_ (let () (declare (not safe)) - (##cdr _e126175126208_)))) + (##cdr _e126180126213_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl126173126213_)) - (let ((_e126178126216_ + (gx#stx-pair? _tl126178126218_)) + (let ((_e126183126221_ (let () (declare (not safe)) - (gx#stx-e _tl126173126213_)))) - (let ((_hd126177126219_ + (gx#stx-e _tl126178126218_)))) + (let ((_hd126182126224_ (let () (declare (not safe)) - (##car _e126178126216_))) - (_tl126176126221_ + (##car _e126183126221_))) + (_tl126181126226_ (let () (declare (not safe)) - (##cdr _e126178126216_)))) + (##cdr _e126183126221_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd126177126219_)) - (let ((_g128828_ + (gx#stx-pair/null? _hd126182126224_)) + (let ((_g128833_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd126177126219_ + _hd126182126224_ '0)))) (begin - (let ((_g128829_ + (let ((_g128834_ (let () (declare (not safe)) - (if (##values? _g128828_) + (if (##values? _g128833_) (##vector-length - _g128828_) + _g128833_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g128829_ 2))) + (##fx= _g128834_ 2))) (error "Context expects 2 values" - _g128829_))) - (let ((_target126179126224_ + _g128834_))) + (let ((_target126184126229_ (let () (declare (not safe)) (##vector-ref - _g128828_ + _g128833_ 0))) - (_tl126181126226_ + (_tl126186126231_ (let () (declare (not safe)) (##vector-ref - _g128828_ + _g128833_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl126181126226_)) - (letrec ((_loop126182126229_ - (lambda (_hd126180126232_ + _tl126186126231_)) + (letrec ((_loop126187126234_ + (lambda (_hd126185126237_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _expr126186126234_ - _hd126187126236_) + _expr126191126239_ + _hd126192126241_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd126180126232_)) - (let ((_e126183126239_ + (gx#stx-pair? _hd126185126237_)) + (let ((_e126188126244_ (let () (declare (not safe)) - (gx#stx-e _hd126180126232_)))) - (let ((_lp-hd126184126242_ + (gx#stx-e _hd126185126237_)))) + (let ((_lp-hd126189126247_ (let () (declare (not safe)) - (##car _e126183126239_))) - (_lp-tl126185126244_ + (##car _e126188126244_))) + (_lp-tl126190126249_ (let () (declare (not safe)) - (##cdr _e126183126239_)))) + (##cdr _e126188126244_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd126184126242_)) - (let ((_e126192126247_ + (gx#stx-pair? _lp-hd126189126247_)) + (let ((_e126197126252_ (let () (declare (not safe)) - (gx#stx-e _lp-hd126184126242_)))) - (let ((_hd126191126250_ + (gx#stx-e _lp-hd126189126247_)))) + (let ((_hd126196126255_ (let () (declare (not safe)) - (##car _e126192126247_))) - (_tl126190126252_ + (##car _e126197126252_))) + (_tl126195126257_ (let () (declare (not safe)) - (##cdr _e126192126247_)))) + (##cdr _e126197126252_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl126190126252_)) - (let ((_e126195126255_ + (gx#stx-pair? _tl126195126257_)) + (let ((_e126200126260_ (let () (declare (not safe)) (gx#stx-e - _tl126190126252_)))) - (let ((_hd126194126258_ + _tl126195126257_)))) + (let ((_hd126199126263_ (let () (declare (not safe)) - (##car _e126195126255_))) - (_tl126193126260_ + (##car _e126200126260_))) + (_tl126198126265_ (let () (declare (not safe)) - (##cdr _e126195126255_)))) + (##cdr _e126200126260_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl126193126260_)) - (let ((__tmp128834 + _tl126198126265_)) + (let ((__tmp128839 (let () (declare (not safe)) - (cons _hd126194126258_ + (cons _hd126199126263_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _expr126186126234_))) - (__tmp128833 + _expr126191126239_))) + (__tmp128838 (let () (declare (not safe)) - (cons _hd126191126250_ _hd126187126236_)))) + (cons _hd126196126255_ _hd126192126241_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_loop126182126229_ - _lp-tl126185126244_ - __tmp128834 - __tmp128833)) + (_loop126187126234_ + _lp-tl126190126249_ + __tmp128839 + __tmp128838)) (let () (declare (not safe)) - (_g126168126203_ - _g126169126206_))))) + (_g126173126208_ + _g126174126211_))))) (let () (declare (not safe)) - (_g126168126203_ - _g126169126206_))))) + (_g126173126208_ + _g126174126211_))))) (let () (declare (not safe)) - (_g126168126203_ _g126169126206_))))) - (let ((_expr126188126263_ - (reverse _expr126186126234_)) - (_hd126189126265_ (reverse _hd126187126236_))) + (_g126173126208_ _g126174126211_))))) + (let ((_expr126193126268_ + (reverse _expr126191126239_)) + (_hd126194126270_ (reverse _hd126192126241_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl126176126221_)) - (let ((_e126198126268_ + (gx#stx-pair? _tl126181126226_)) + (let ((_e126203126273_ (let () (declare (not safe)) - (gx#stx-e _tl126176126221_)))) - (let ((_hd126197126271_ + (gx#stx-e _tl126181126226_)))) + (let ((_hd126202126276_ (let () (declare (not safe)) - (##car _e126198126268_))) - (_tl126196126273_ + (##car _e126203126273_))) + (_tl126201126278_ (let () (declare (not safe)) - (##cdr _e126198126268_)))) + (##cdr _e126203126273_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl126196126273_)) - ((lambda (_L126276_ - _L126277_ - _L126278_) + (gx#stx-null? _tl126201126278_)) + ((lambda (_L126281_ + _L126282_ + _L126283_) (for-each - _collect-e126166_ - (let ((__tmp128830 - (lambda (_g126298126301_ - _g126299126303_) + _collect-e126171_ + (let ((__tmp128835 + (lambda (_g126303126306_ + _g126304126308_) (let () (declare (not safe)) - (cons _g126298126301_ - _g126299126303_))))) + (cons _g126303126306_ + _g126304126308_))))) (declare (not safe)) - (foldr1 __tmp128830 + (foldr1 __tmp128835 '() - _L126278_)) - (let ((__tmp128831 - (lambda (_g126305126308_ - _g126306126310_) + _L126283_)) + (let ((__tmp128836 + (lambda (_g126310126313_ + _g126311126315_) (let () (declare (not safe)) - (cons _g126305126308_ - _g126306126310_))))) + (cons _g126310126313_ + _g126311126315_))))) (declare (not safe)) - (foldr1 __tmp128831 + (foldr1 __tmp128836 '() - _L126277_))) + _L126282_))) (for-each gxc#compile-e - (let ((__tmp128832 - (lambda (_g126312126315_ - _g126313126317_) + (let ((__tmp128837 + (lambda (_g126317126320_ + _g126318126322_) (let () (declare (not safe)) - (cons _g126312126315_ - _g126313126317_))))) + (cons _g126317126320_ + _g126318126322_))))) (declare (not safe)) - (foldr1 __tmp128832 + (foldr1 __tmp128837 '() - _L126277_))) + _L126282_))) (let () (declare (not safe)) - (gxc#compile-e__0 _L126276_))) - _hd126197126271_ - _expr126188126263_ - _hd126189126265_) + (gxc#compile-e__0 _L126281_))) + _hd126202126276_ + _expr126193126268_ + _hd126194126270_) (let () (declare (not safe)) - (_g126168126203_ _g126169126206_))))) + (_g126173126208_ _g126174126211_))))) (let () (declare (not safe)) - (_g126168126203_ _g126169126206_)))))))) + (_g126173126208_ _g126174126211_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop126182126229_ - _target126179126224_ + (_loop126187126234_ + _target126184126229_ '() '()))) (let () (declare (not safe)) - (_g126168126203_ - _g126169126206_)))))) + (_g126173126208_ + _g126174126211_)))))) (let () (declare (not safe)) - (_g126168126203_ _g126169126206_))))) + (_g126173126208_ _g126174126211_))))) (let () (declare (not safe)) - (_g126168126203_ _g126169126206_))))) + (_g126173126208_ _g126174126211_))))) (let () (declare (not safe)) - (_g126168126203_ _g126169126206_)))))) + (_g126173126208_ _g126174126211_)))))) (declare (not safe)) - (_g126167126320_ _stx126164_))))) + (_g126172126325_ _stx126169_))))) (define gxc#collect-type-call% - (lambda (_stx125656_) - (let* ((___stx126838126839_ _stx125656_) - (_g125660125775_ + (lambda (_stx125661_) + (let* ((___stx126843126844_ _stx125661_) + (_g125665125780_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx126838126839_))))) - (let ((___kont126840126841_ - (lambda (_L126114_ _L126115_ _L126116_ _L126117_ _L126118_) - (let ((__tmp128838 + ___stx126843126844_))))) + (let ((___kont126845126846_ + (lambda (_L126119_ _L126120_ _L126121_ _L126122_ _L126123_) + (let ((__tmp128843 (let () (declare (not safe)) - (gxc#identifier-symbol _L126117_))) - (__tmp128837 - (let () (declare (not safe)) (gx#stx-e _L126116_))) - (__tmp128836 + (gxc#identifier-symbol _L126122_))) + (__tmp128842 + (let () (declare (not safe)) (gx#stx-e _L126121_))) + (__tmp128841 (let () (declare (not safe)) - (gxc#identifier-symbol _L126115_))) - (__tmp128835 - (let () (declare (not safe)) (gx#stx-e _L126114_)))) + (gxc#identifier-symbol _L126120_))) + (__tmp128840 + (let () (declare (not safe)) (gx#stx-e _L126119_)))) (declare (not safe)) (gxc#optimizer-declare-method!__% - __tmp128838 - __tmp128837 - __tmp128836 - __tmp128835)))) - (___kont126842126843_ - (lambda (_L125942_ _L125943_ _L125944_ _L125945_) - (let ((__tmp128841 + __tmp128843 + __tmp128842 + __tmp128841 + __tmp128840)))) + (___kont126847126848_ + (lambda (_L125947_ _L125948_ _L125949_ _L125950_) + (let ((__tmp128846 (let () (declare (not safe)) - (gxc#identifier-symbol _L125944_))) - (__tmp128840 - (let () (declare (not safe)) (gx#stx-e _L125943_))) - (__tmp128839 + (gxc#identifier-symbol _L125949_))) + (__tmp128845 + (let () (declare (not safe)) (gx#stx-e _L125948_))) + (__tmp128844 (let () (declare (not safe)) - (gxc#identifier-symbol _L125942_)))) + (gxc#identifier-symbol _L125947_)))) (declare (not safe)) (gxc#optimizer-declare-method!__% - __tmp128841 - __tmp128840 - __tmp128839 + __tmp128846 + __tmp128845 + __tmp128844 '#f)))) - (___kont126844126845_ - (lambda (_L125812_) + (___kont126849126850_ + (lambda (_L125817_) (for-each gxc#compile-e - (let ((__tmp128842 - (lambda (_g125825125828_ _g125826125830_) + (let ((__tmp128847 + (lambda (_g125830125833_ _g125831125835_) (let () (declare (not safe)) - (cons _g125825125828_ _g125826125830_))))) + (cons _g125830125833_ _g125831125835_))))) (declare (not safe)) - (foldr1 __tmp128842 '() _L125812_)))))) - (let* ((___match127095127096_ - (lambda (_e125761125780_ - _hd125760125783_ - _tl125759125785_ - ___splice126846126847_ - _target125762125788_ - _tl125764125790_) - (letrec ((_loop125765125793_ - (lambda (_hd125763125796_ _expr125769125798_) + (foldr1 __tmp128847 '() _L125817_)))))) + (let* ((___match127100127101_ + (lambda (_e125766125785_ + _hd125765125788_ + _tl125764125790_ + ___splice126851126852_ + _target125767125793_ + _tl125769125795_) + (letrec ((_loop125770125798_ + (lambda (_hd125768125801_ _expr125774125803_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd125763125796_)) - (let ((_e125766125801_ + (gx#stx-pair? _hd125768125801_)) + (let ((_e125771125806_ (let () (declare (not safe)) - (gx#stx-e _hd125763125796_)))) - (let ((_lp-tl125768125806_ + (gx#stx-e _hd125768125801_)))) + (let ((_lp-tl125773125811_ (let () (declare (not safe)) - (##cdr _e125766125801_))) - (_lp-hd125767125804_ + (##cdr _e125771125806_))) + (_lp-hd125772125809_ (let () (declare (not safe)) - (##car _e125766125801_)))) - (let ((__tmp128843 + (##car _e125771125806_)))) + (let ((__tmp128848 (let () (declare (not safe)) - (cons _lp-hd125767125804_ - _expr125769125798_)))) + (cons _lp-hd125772125809_ + _expr125774125803_)))) (declare (not safe)) - (_loop125765125793_ - _lp-tl125768125806_ - __tmp128843)))) - (let ((_expr125770125809_ - (reverse _expr125769125798_))) - (___kont126844126845_ - _expr125770125809_)))))) + (_loop125770125798_ + _lp-tl125773125811_ + __tmp128848)))) + (let ((_expr125775125814_ + (reverse _expr125774125803_))) + (___kont126849126850_ + _expr125775125814_)))))) (let () (declare (not safe)) - (_loop125765125793_ _target125762125788_ '()))))) - (___match126975126976_ - (lambda (_e125669125986_ - _hd125668125989_ - _tl125667125991_ - _e125672125994_ - _hd125671125997_ - _tl125670125999_ - _e125675126002_ - _hd125674126005_ - _tl125673126007_ - _e125678126010_ - _hd125677126013_ - _tl125676126015_ - _e125681126018_ - _hd125680126021_ - _tl125679126023_ - _e125684126026_ - _hd125683126029_ - _tl125682126031_ - _e125687126034_ - _hd125686126037_ - _tl125685126039_ - _e125690126042_ - _hd125689126045_ - _tl125688126047_ - _e125693126050_ - _hd125692126053_ - _tl125691126055_ - _e125696126058_ - _hd125695126061_ - _tl125694126063_ - _e125699126066_ - _hd125698126069_ - _tl125697126071_ - _e125702126074_ - _hd125701126077_ - _tl125700126079_ - _e125705126082_ - _hd125704126085_ - _tl125703126087_ - _e125708126090_ - _hd125707126093_ - _tl125706126095_ - _e125711126098_ - _hd125710126101_ - _tl125709126103_ - _e125714126106_ - _hd125713126109_ - _tl125712126111_) - (let ((_L126114_ _hd125713126109_) - (_L126115_ _hd125704126085_) - (_L126116_ _hd125695126061_) - (_L126117_ _hd125686126037_) - (_L126118_ _hd125677126013_)) + (_loop125770125798_ _target125767125793_ '()))))) + (___match126980126981_ + (lambda (_e125674125991_ + _hd125673125994_ + _tl125672125996_ + _e125677125999_ + _hd125676126002_ + _tl125675126004_ + _e125680126007_ + _hd125679126010_ + _tl125678126012_ + _e125683126015_ + _hd125682126018_ + _tl125681126020_ + _e125686126023_ + _hd125685126026_ + _tl125684126028_ + _e125689126031_ + _hd125688126034_ + _tl125687126036_ + _e125692126039_ + _hd125691126042_ + _tl125690126044_ + _e125695126047_ + _hd125694126050_ + _tl125693126052_ + _e125698126055_ + _hd125697126058_ + _tl125696126060_ + _e125701126063_ + _hd125700126066_ + _tl125699126068_ + _e125704126071_ + _hd125703126074_ + _tl125702126076_ + _e125707126079_ + _hd125706126082_ + _tl125705126084_ + _e125710126087_ + _hd125709126090_ + _tl125708126092_ + _e125713126095_ + _hd125712126098_ + _tl125711126100_ + _e125716126103_ + _hd125715126106_ + _tl125714126108_ + _e125719126111_ + _hd125718126114_ + _tl125717126116_) + (let ((_L126119_ _hd125718126114_) + (_L126120_ _hd125709126090_) + (_L126121_ _hd125700126066_) + (_L126122_ _hd125691126042_) + (_L126123_ _hd125682126018_)) (if (let () (declare (not safe)) (gxc#runtime-identifier=? - _L126118_ + _L126123_ 'bind-method!)) - (___kont126840126841_ - _L126114_ - _L126115_ - _L126116_ - _L126117_ - _L126118_) + (___kont126845126846_ + _L126119_ + _L126120_ + _L126121_ + _L126122_ + _L126123_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl125667125991_)) - (let ((___splice126846126847_ + (gx#stx-pair/null? _tl125672125996_)) + (let ((___splice126851126852_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl125667125991_ + _tl125672125996_ '0)))) - (let ((_tl125764125790_ + (let ((_tl125769125795_ (let () (declare (not safe)) (##vector-ref - ___splice126846126847_ + ___splice126851126852_ '1))) - (_target125762125788_ + (_target125767125793_ (let () (declare (not safe)) (##vector-ref - ___splice126846126847_ + ___splice126851126852_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl125764125790_)) - (___match127095127096_ - _e125669125986_ - _hd125668125989_ - _tl125667125991_ - ___splice126846126847_ - _target125762125788_ - _tl125764125790_) + (gx#stx-null? _tl125769125795_)) + (___match127100127101_ + _e125674125991_ + _hd125673125994_ + _tl125672125996_ + ___splice126851126852_ + _target125767125793_ + _tl125769125795_) (let () (declare (not safe)) - (_g125660125775_))))) + (_g125665125780_))))) (let () (declare (not safe)) - (_g125660125775_)))))))) + (_g125665125780_)))))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx126838126839_)) - (let ((_e125669125986_ + (gx#stx-pair? ___stx126843126844_)) + (let ((_e125674125991_ (let () (declare (not safe)) - (gx#stx-e ___stx126838126839_)))) - (let ((_tl125667125991_ + (gx#stx-e ___stx126843126844_)))) + (let ((_tl125672125996_ (let () (declare (not safe)) - (##cdr _e125669125986_))) - (_hd125668125989_ + (##cdr _e125674125991_))) + (_hd125673125994_ (let () (declare (not safe)) - (##car _e125669125986_)))) + (##car _e125674125991_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125667125991_)) - (let ((_e125672125994_ + (gx#stx-pair? _tl125672125996_)) + (let ((_e125677125999_ (let () (declare (not safe)) - (gx#stx-e _tl125667125991_)))) - (let ((_tl125670125999_ + (gx#stx-e _tl125672125996_)))) + (let ((_tl125675126004_ (let () (declare (not safe)) - (##cdr _e125672125994_))) - (_hd125671125997_ + (##cdr _e125677125999_))) + (_hd125676126002_ (let () (declare (not safe)) - (##car _e125672125994_)))) + (##car _e125677125999_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd125671125997_)) - (let ((_e125675126002_ + (gx#stx-pair? _hd125676126002_)) + (let ((_e125680126007_ (let () (declare (not safe)) - (gx#stx-e _hd125671125997_)))) - (let ((_tl125673126007_ + (gx#stx-e _hd125676126002_)))) + (let ((_tl125678126012_ (let () (declare (not safe)) - (##cdr _e125675126002_))) - (_hd125674126005_ + (##cdr _e125680126007_))) + (_hd125679126010_ (let () (declare (not safe)) - (##car _e125675126002_)))) + (##car _e125680126007_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd125674126005_)) + (gx#identifier? _hd125679126010_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd125674126005_)) + _hd125679126010_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl125673126007_)) - (let ((_e125678126010_ + _tl125678126012_)) + (let ((_e125683126015_ (let () (declare (not safe)) (gx#stx-e - _tl125673126007_)))) - (let ((_tl125676126015_ + _tl125678126012_)))) + (let ((_tl125681126020_ (let () (declare (not safe)) - (##cdr _e125678126010_))) - (_hd125677126013_ + (##cdr _e125683126015_))) + (_hd125682126018_ (let () (declare (not safe)) - (##car _e125678126010_)))) + (##car _e125683126015_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125676126015_)) + _tl125681126020_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl125670125999_)) - (let ((_e125681126018_ + (gx#stx-pair? _tl125675126004_)) + (let ((_e125686126023_ (let () (declare (not safe)) - (gx#stx-e _tl125670125999_)))) - (let ((_tl125679126023_ + (gx#stx-e _tl125675126004_)))) + (let ((_tl125684126028_ (let () (declare (not safe)) - (##cdr _e125681126018_))) - (_hd125680126021_ + (##cdr _e125686126023_))) + (_hd125685126026_ (let () (declare (not safe)) - (##car _e125681126018_)))) + (##car _e125686126023_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd125680126021_)) - (let ((_e125684126026_ + (gx#stx-pair? _hd125685126026_)) + (let ((_e125689126031_ (let () (declare (not safe)) - (gx#stx-e _hd125680126021_)))) - (let ((_tl125682126031_ + (gx#stx-e _hd125685126026_)))) + (let ((_tl125687126036_ (let () (declare (not safe)) - (##cdr _e125684126026_))) - (_hd125683126029_ + (##cdr _e125689126031_))) + (_hd125688126034_ (let () (declare (not safe)) - (##car _e125684126026_)))) + (##car _e125689126031_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd125683126029_)) + (gx#identifier? _hd125688126034_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd125683126029_)) + _hd125688126034_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl125682126031_)) - (let ((_e125687126034_ + _tl125687126036_)) + (let ((_e125692126039_ (let () (declare (not safe)) (gx#stx-e - _tl125682126031_)))) - (let ((_tl125685126039_ + _tl125687126036_)))) + (let ((_tl125690126044_ (let () (declare (not safe)) - (##cdr _e125687126034_))) - (_hd125686126037_ + (##cdr _e125692126039_))) + (_hd125691126042_ (let () (declare (not safe)) - (##car _e125687126034_)))) + (##car _e125692126039_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125685126039_)) + _tl125690126044_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl125679126023_)) - (let ((_e125690126042_ + _tl125684126028_)) + (let ((_e125695126047_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl125679126023_)))) - (let ((_tl125688126047_ + (gx#stx-e _tl125684126028_)))) + (let ((_tl125693126052_ (let () (declare (not safe)) - (##cdr _e125690126042_))) - (_hd125689126045_ + (##cdr _e125695126047_))) + (_hd125694126050_ (let () (declare (not safe)) - (##car _e125690126042_)))) + (##car _e125695126047_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd125689126045_)) - (let ((_e125693126050_ + (gx#stx-pair? _hd125694126050_)) + (let ((_e125698126055_ (let () (declare (not safe)) - (gx#stx-e _hd125689126045_)))) - (let ((_tl125691126055_ + (gx#stx-e _hd125694126050_)))) + (let ((_tl125696126060_ (let () (declare (not safe)) - (##cdr _e125693126050_))) - (_hd125692126053_ + (##cdr _e125698126055_))) + (_hd125697126058_ (let () (declare (not safe)) - (##car _e125693126050_)))) + (##car _e125698126055_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd125692126053_)) + (gx#identifier? _hd125697126058_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd125692126053_)) + (gx#stx-eq? '%#quote _hd125697126058_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125691126055_)) - (let ((_e125696126058_ + (gx#stx-pair? _tl125696126060_)) + (let ((_e125701126063_ (let () (declare (not safe)) (gx#stx-e - _tl125691126055_)))) - (let ((_tl125694126063_ + _tl125696126060_)))) + (let ((_tl125699126068_ (let () (declare (not safe)) - (##cdr _e125696126058_))) - (_hd125695126061_ + (##cdr _e125701126063_))) + (_hd125700126066_ (let () (declare (not safe)) - (##car _e125696126058_)))) + (##car _e125701126063_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125694126063_)) + _tl125699126068_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl125688126047_)) - (let ((_e125699126066_ + _tl125693126052_)) + (let ((_e125704126071_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl125688126047_)))) - (let ((_tl125697126071_ - (let () (declare (not safe)) (##cdr _e125699126066_))) - (_hd125698126069_ - (let () (declare (not safe)) (##car _e125699126066_)))) + (gx#stx-e _tl125693126052_)))) + (let ((_tl125702126076_ + (let () (declare (not safe)) (##cdr _e125704126071_))) + (_hd125703126074_ + (let () (declare (not safe)) (##car _e125704126071_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd125698126069_)) - (let ((_e125702126074_ + (gx#stx-pair? _hd125703126074_)) + (let ((_e125707126079_ (let () (declare (not safe)) - (gx#stx-e _hd125698126069_)))) - (let ((_tl125700126079_ + (gx#stx-e _hd125703126074_)))) + (let ((_tl125705126084_ (let () (declare (not safe)) - (##cdr _e125702126074_))) - (_hd125701126077_ + (##cdr _e125707126079_))) + (_hd125706126082_ (let () (declare (not safe)) - (##car _e125702126074_)))) + (##car _e125707126079_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd125701126077_)) + (gx#identifier? _hd125706126082_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd125701126077_)) + (gx#stx-eq? '%#ref _hd125706126082_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125700126079_)) - (let ((_e125705126082_ + (gx#stx-pair? _tl125705126084_)) + (let ((_e125710126087_ (let () (declare (not safe)) - (gx#stx-e _tl125700126079_)))) - (let ((_tl125703126087_ + (gx#stx-e _tl125705126084_)))) + (let ((_tl125708126092_ (let () (declare (not safe)) - (##cdr _e125705126082_))) - (_hd125704126085_ + (##cdr _e125710126087_))) + (_hd125709126090_ (let () (declare (not safe)) - (##car _e125705126082_)))) + (##car _e125710126087_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125703126087_)) + _tl125708126092_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl125697126071_)) - (let ((_e125708126090_ + _tl125702126076_)) + (let ((_e125713126095_ (let () (declare (not safe)) (gx#stx-e - _tl125697126071_)))) - (let ((_tl125706126095_ + _tl125702126076_)))) + (let ((_tl125711126100_ (let () (declare (not safe)) - (##cdr _e125708126090_))) - (_hd125707126093_ + (##cdr _e125713126095_))) + (_hd125712126098_ (let () (declare (not safe)) - (##car _e125708126090_)))) + (##car _e125713126095_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd125707126093_)) - (let ((_e125711126098_ + _hd125712126098_)) + (let ((_e125716126103_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd125707126093_)))) - (let ((_tl125709126103_ + (gx#stx-e _hd125712126098_)))) + (let ((_tl125714126108_ (let () (declare (not safe)) - (##cdr _e125711126098_))) - (_hd125710126101_ + (##cdr _e125716126103_))) + (_hd125715126106_ (let () (declare (not safe)) - (##car _e125711126098_)))) + (##car _e125716126103_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd125710126101_)) + (gx#identifier? _hd125715126106_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd125710126101_)) + (gx#stx-eq? '%#quote _hd125715126106_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125709126103_)) - (let ((_e125714126106_ + (gx#stx-pair? _tl125714126108_)) + (let ((_e125719126111_ (let () (declare (not safe)) - (gx#stx-e _tl125709126103_)))) - (let ((_tl125712126111_ + (gx#stx-e _tl125714126108_)))) + (let ((_tl125717126116_ (let () (declare (not safe)) - (##cdr _e125714126106_))) - (_hd125713126109_ + (##cdr _e125719126111_))) + (_hd125718126114_ (let () (declare (not safe)) - (##car _e125714126106_)))) + (##car _e125719126111_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl125712126111_)) + (gx#stx-null? _tl125717126116_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl125706126095_)) - (___match126975126976_ - _e125669125986_ - _hd125668125989_ - _tl125667125991_ - _e125672125994_ - _hd125671125997_ - _tl125670125999_ - _e125675126002_ - _hd125674126005_ - _tl125673126007_ - _e125678126010_ - _hd125677126013_ - _tl125676126015_ - _e125681126018_ - _hd125680126021_ - _tl125679126023_ - _e125684126026_ - _hd125683126029_ - _tl125682126031_ - _e125687126034_ - _hd125686126037_ - _tl125685126039_ - _e125690126042_ - _hd125689126045_ - _tl125688126047_ - _e125693126050_ - _hd125692126053_ - _tl125691126055_ - _e125696126058_ - _hd125695126061_ - _tl125694126063_ - _e125699126066_ - _hd125698126069_ - _tl125697126071_ - _e125702126074_ - _hd125701126077_ - _tl125700126079_ - _e125705126082_ - _hd125704126085_ - _tl125703126087_ - _e125708126090_ - _hd125707126093_ - _tl125706126095_ - _e125711126098_ - _hd125710126101_ - _tl125709126103_ - _e125714126106_ - _hd125713126109_ - _tl125712126111_) + _tl125711126100_)) + (___match126980126981_ + _e125674125991_ + _hd125673125994_ + _tl125672125996_ + _e125677125999_ + _hd125676126002_ + _tl125675126004_ + _e125680126007_ + _hd125679126010_ + _tl125678126012_ + _e125683126015_ + _hd125682126018_ + _tl125681126020_ + _e125686126023_ + _hd125685126026_ + _tl125684126028_ + _e125689126031_ + _hd125688126034_ + _tl125687126036_ + _e125692126039_ + _hd125691126042_ + _tl125690126044_ + _e125695126047_ + _hd125694126050_ + _tl125693126052_ + _e125698126055_ + _hd125697126058_ + _tl125696126060_ + _e125701126063_ + _hd125700126066_ + _tl125699126068_ + _e125704126071_ + _hd125703126074_ + _tl125702126076_ + _e125707126079_ + _hd125706126082_ + _tl125705126084_ + _e125710126087_ + _hd125709126090_ + _tl125708126092_ + _e125713126095_ + _hd125712126098_ + _tl125711126100_ + _e125716126103_ + _hd125715126106_ + _tl125714126108_ + _e125719126111_ + _hd125718126114_ + _tl125717126116_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl125667125991_)) - (let ((___splice126846126847_ + _tl125672125996_)) + (let ((___splice126851126852_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl125667125991_ + _tl125672125996_ '0)))) - (let ((_tl125764125790_ + (let ((_tl125769125795_ (let () (declare (not safe)) (##vector-ref - ___splice126846126847_ + ___splice126851126852_ '1))) - (_target125762125788_ + (_target125767125793_ (let () (declare (not safe)) (##vector-ref - ___splice126846126847_ + ___splice126851126852_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125764125790_)) - (___match127095127096_ - _e125669125986_ - _hd125668125989_ - _tl125667125991_ - ___splice126846126847_ - _target125762125788_ - _tl125764125790_) + _tl125769125795_)) + (___match127100127101_ + _e125674125991_ + _hd125673125994_ + _tl125672125996_ + ___splice126851126852_ + _target125767125793_ + _tl125769125795_) (let () (declare (not safe)) - (_g125660125775_))))) + (_g125665125780_))))) (let () (declare (not safe)) - (_g125660125775_)))) + (_g125665125780_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl125667125991_)) - (let ((___splice126846126847_ + _tl125672125996_)) + (let ((___splice126851126852_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl125667125991_ + _tl125672125996_ '0)))) - (let ((_tl125764125790_ + (let ((_tl125769125795_ (let () (declare (not safe)) (##vector-ref - ___splice126846126847_ + ___splice126851126852_ '1))) - (_target125762125788_ + (_target125767125793_ (let () (declare (not safe)) (##vector-ref - ___splice126846126847_ + ___splice126851126852_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125764125790_)) - (___match127095127096_ - _e125669125986_ - _hd125668125989_ - _tl125667125991_ - ___splice126846126847_ - _target125762125788_ - _tl125764125790_) + _tl125769125795_)) + (___match127100127101_ + _e125674125991_ + _hd125673125994_ + _tl125672125996_ + ___splice126851126852_ + _target125767125793_ + _tl125769125795_) (let () (declare (not safe)) - (_g125660125775_))))) + (_g125665125780_))))) (let () (declare (not safe)) - (_g125660125775_)))))) + (_g125665125780_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl125667125991_)) - (let ((___splice126846126847_ + (gx#stx-pair/null? _tl125672125996_)) + (let ((___splice126851126852_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl125667125991_ + _tl125672125996_ '0)))) - (let ((_tl125764125790_ + (let ((_tl125769125795_ (let () (declare (not safe)) (##vector-ref - ___splice126846126847_ + ___splice126851126852_ '1))) - (_target125762125788_ + (_target125767125793_ (let () (declare (not safe)) (##vector-ref - ___splice126846126847_ + ___splice126851126852_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125764125790_)) - (___match127095127096_ - _e125669125986_ - _hd125668125989_ - _tl125667125991_ - ___splice126846126847_ - _target125762125788_ - _tl125764125790_) + _tl125769125795_)) + (___match127100127101_ + _e125674125991_ + _hd125673125994_ + _tl125672125996_ + ___splice126851126852_ + _target125767125793_ + _tl125769125795_) (let () (declare (not safe)) - (_g125660125775_))))) + (_g125665125780_))))) (let () (declare (not safe)) - (_g125660125775_)))) + (_g125665125780_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl125667125991_)) - (let ((___splice126846126847_ + (gx#stx-pair/null? _tl125672125996_)) + (let ((___splice126851126852_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl125667125991_ + _tl125672125996_ '0)))) - (let ((_tl125764125790_ + (let ((_tl125769125795_ (let () (declare (not safe)) (##vector-ref - ___splice126846126847_ + ___splice126851126852_ '1))) - (_target125762125788_ + (_target125767125793_ (let () (declare (not safe)) (##vector-ref - ___splice126846126847_ + ___splice126851126852_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl125764125790_)) - (___match127095127096_ - _e125669125986_ - _hd125668125989_ - _tl125667125991_ - ___splice126846126847_ - _target125762125788_ - _tl125764125790_) + (gx#stx-null? _tl125769125795_)) + (___match127100127101_ + _e125674125991_ + _hd125673125994_ + _tl125672125996_ + ___splice126851126852_ + _target125767125793_ + _tl125769125795_) (let () (declare (not safe)) - (_g125660125775_))))) + (_g125665125780_))))) (let () (declare (not safe)) - (_g125660125775_)))) + (_g125665125780_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl125667125991_)) - (let ((___splice126846126847_ + (gx#stx-pair/null? _tl125672125996_)) + (let ((___splice126851126852_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl125667125991_ + _tl125672125996_ '0)))) - (let ((_tl125764125790_ + (let ((_tl125769125795_ (let () (declare (not safe)) (##vector-ref - ___splice126846126847_ + ___splice126851126852_ '1))) - (_target125762125788_ + (_target125767125793_ (let () (declare (not safe)) (##vector-ref - ___splice126846126847_ + ___splice126851126852_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl125764125790_)) - (___match127095127096_ - _e125669125986_ - _hd125668125989_ - _tl125667125991_ - ___splice126846126847_ - _target125762125788_ - _tl125764125790_) + (gx#stx-null? _tl125769125795_)) + (___match127100127101_ + _e125674125991_ + _hd125673125994_ + _tl125672125996_ + ___splice126851126852_ + _target125767125793_ + _tl125769125795_) (let () (declare (not safe)) - (_g125660125775_))))) + (_g125665125780_))))) (let () (declare (not safe)) - (_g125660125775_)))))) + (_g125665125780_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl125667125991_)) - (let ((___splice126846126847_ + (gx#stx-pair/null? _tl125672125996_)) + (let ((___splice126851126852_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl125667125991_ '0)))) - (let ((_tl125764125790_ + (gx#syntax-split-splice _tl125672125996_ '0)))) + (let ((_tl125769125795_ (let () (declare (not safe)) - (##vector-ref ___splice126846126847_ '1))) - (_target125762125788_ + (##vector-ref ___splice126851126852_ '1))) + (_target125767125793_ (let () (declare (not safe)) - (##vector-ref ___splice126846126847_ '0)))) + (##vector-ref ___splice126851126852_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl125764125790_)) - (___match127095127096_ - _e125669125986_ - _hd125668125989_ - _tl125667125991_ - ___splice126846126847_ - _target125762125788_ - _tl125764125790_) + (gx#stx-null? _tl125769125795_)) + (___match127100127101_ + _e125674125991_ + _hd125673125994_ + _tl125672125996_ + ___splice126851126852_ + _target125767125793_ + _tl125769125795_) (let () (declare (not safe)) - (_g125660125775_))))) - (let () (declare (not safe)) (_g125660125775_)))))) + (_g125665125780_))))) + (let () (declare (not safe)) (_g125665125780_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _tl125697126071_)) - (if (let ((__tmp128844 + _tl125702126076_)) + (if (let ((__tmp128849 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '-bind-method)))) (declare (not safe)) - (gxc#runtime-identifier=? __tmp128844 'bind-method!)) - (let ((_L125942_ _hd125704126085_) - (_L125943_ _hd125695126061_) - (_L125944_ _hd125686126037_) - (_L125945_ _hd125677126013_)) - (___kont126842126843_ - _L125942_ - _L125943_ - _L125944_ - _L125945_)) + (gxc#runtime-identifier=? __tmp128849 'bind-method!)) + (let ((_L125947_ _hd125709126090_) + (_L125948_ _hd125700126066_) + (_L125949_ _hd125691126042_) + (_L125950_ _hd125682126018_)) + (___kont126847126848_ + _L125947_ + _L125948_ + _L125949_ + _L125950_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl125667125991_)) - (let ((___splice126846126847_ + (gx#stx-pair/null? _tl125672125996_)) + (let ((___splice126851126852_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl125667125991_ '0)))) - (let ((_tl125764125790_ + (gx#syntax-split-splice _tl125672125996_ '0)))) + (let ((_tl125769125795_ (let () (declare (not safe)) - (##vector-ref ___splice126846126847_ '1))) - (_target125762125788_ + (##vector-ref ___splice126851126852_ '1))) + (_target125767125793_ (let () (declare (not safe)) - (##vector-ref ___splice126846126847_ '0)))) + (##vector-ref ___splice126851126852_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl125764125790_)) - (___match127095127096_ - _e125669125986_ - _hd125668125989_ - _tl125667125991_ - ___splice126846126847_ - _target125762125788_ - _tl125764125790_) + (gx#stx-null? _tl125769125795_)) + (___match127100127101_ + _e125674125991_ + _hd125673125994_ + _tl125672125996_ + ___splice126851126852_ + _target125767125793_ + _tl125769125795_) (let () (declare (not safe)) - (_g125660125775_))))) - (let () (declare (not safe)) (_g125660125775_)))) + (_g125665125780_))))) + (let () (declare (not safe)) (_g125665125780_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl125667125991_)) - (let ((___splice126846126847_ + (gx#stx-pair/null? _tl125672125996_)) + (let ((___splice126851126852_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl125667125991_ '0)))) - (let ((_tl125764125790_ + (gx#syntax-split-splice _tl125672125996_ '0)))) + (let ((_tl125769125795_ (let () (declare (not safe)) - (##vector-ref ___splice126846126847_ '1))) - (_target125762125788_ + (##vector-ref ___splice126851126852_ '1))) + (_target125767125793_ (let () (declare (not safe)) - (##vector-ref ___splice126846126847_ '0)))) + (##vector-ref ___splice126851126852_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl125764125790_)) - (___match127095127096_ - _e125669125986_ - _hd125668125989_ - _tl125667125991_ - ___splice126846126847_ - _target125762125788_ - _tl125764125790_) - (let () (declare (not safe)) (_g125660125775_))))) - (let () (declare (not safe)) (_g125660125775_))))) + (gx#stx-null? _tl125769125795_)) + (___match127100127101_ + _e125674125991_ + _hd125673125994_ + _tl125672125996_ + ___splice126851126852_ + _target125767125793_ + _tl125769125795_) + (let () (declare (not safe)) (_g125665125780_))))) + (let () (declare (not safe)) (_g125665125780_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl125667125991_)) - (let ((___splice126846126847_ + _tl125672125996_)) + (let ((___splice126851126852_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl125667125991_ + _tl125672125996_ '0)))) - (let ((_tl125764125790_ + (let ((_tl125769125795_ (let () (declare (not safe)) (##vector-ref - ___splice126846126847_ + ___splice126851126852_ '1))) - (_target125762125788_ + (_target125767125793_ (let () (declare (not safe)) (##vector-ref - ___splice126846126847_ + ___splice126851126852_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125764125790_)) - (___match127095127096_ - _e125669125986_ - _hd125668125989_ - _tl125667125991_ - ___splice126846126847_ - _target125762125788_ - _tl125764125790_) + _tl125769125795_)) + (___match127100127101_ + _e125674125991_ + _hd125673125994_ + _tl125672125996_ + ___splice126851126852_ + _target125767125793_ + _tl125769125795_) (let () (declare (not safe)) - (_g125660125775_))))) + (_g125665125780_))))) (let () (declare (not safe)) - (_g125660125775_)))))) + (_g125665125780_)))))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl125667125991_)) - (let ((___splice126846126847_ + _tl125672125996_)) + (let ((___splice126851126852_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl125667125991_ + _tl125672125996_ '0)))) - (let ((_tl125764125790_ + (let ((_tl125769125795_ (let () (declare (not safe)) (##vector-ref - ___splice126846126847_ + ___splice126851126852_ '1))) - (_target125762125788_ + (_target125767125793_ (let () (declare (not safe)) (##vector-ref - ___splice126846126847_ + ___splice126851126852_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125764125790_)) - (___match127095127096_ - _e125669125986_ - _hd125668125989_ - _tl125667125991_ - ___splice126846126847_ - _target125762125788_ - _tl125764125790_) + _tl125769125795_)) + (___match127100127101_ + _e125674125991_ + _hd125673125994_ + _tl125672125996_ + ___splice126851126852_ + _target125767125793_ + _tl125769125795_) (let () (declare (not safe)) - (_g125660125775_))))) + (_g125665125780_))))) (let () (declare (not safe)) - (_g125660125775_)))) + (_g125665125780_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl125667125991_)) - (let ((___splice126846126847_ + (gx#stx-pair/null? _tl125672125996_)) + (let ((___splice126851126852_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl125667125991_ + _tl125672125996_ '0)))) - (let ((_tl125764125790_ + (let ((_tl125769125795_ (let () (declare (not safe)) (##vector-ref - ___splice126846126847_ + ___splice126851126852_ '1))) - (_target125762125788_ + (_target125767125793_ (let () (declare (not safe)) (##vector-ref - ___splice126846126847_ + ___splice126851126852_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125764125790_)) - (___match127095127096_ - _e125669125986_ - _hd125668125989_ - _tl125667125991_ - ___splice126846126847_ - _target125762125788_ - _tl125764125790_) + _tl125769125795_)) + (___match127100127101_ + _e125674125991_ + _hd125673125994_ + _tl125672125996_ + ___splice126851126852_ + _target125767125793_ + _tl125769125795_) (let () (declare (not safe)) - (_g125660125775_))))) + (_g125665125780_))))) (let () (declare (not safe)) - (_g125660125775_)))) + (_g125665125780_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl125667125991_)) - (let ((___splice126846126847_ + (gx#stx-pair/null? _tl125672125996_)) + (let ((___splice126851126852_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl125667125991_ + _tl125672125996_ '0)))) - (let ((_tl125764125790_ + (let ((_tl125769125795_ (let () (declare (not safe)) (##vector-ref - ___splice126846126847_ + ___splice126851126852_ '1))) - (_target125762125788_ + (_target125767125793_ (let () (declare (not safe)) (##vector-ref - ___splice126846126847_ + ___splice126851126852_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl125764125790_)) - (___match127095127096_ - _e125669125986_ - _hd125668125989_ - _tl125667125991_ - ___splice126846126847_ - _target125762125788_ - _tl125764125790_) + (gx#stx-null? _tl125769125795_)) + (___match127100127101_ + _e125674125991_ + _hd125673125994_ + _tl125672125996_ + ___splice126851126852_ + _target125767125793_ + _tl125769125795_) (let () (declare (not safe)) - (_g125660125775_))))) + (_g125665125780_))))) (let () (declare (not safe)) - (_g125660125775_)))))) + (_g125665125780_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl125667125991_)) - (let ((___splice126846126847_ + (gx#stx-pair/null? _tl125672125996_)) + (let ((___splice126851126852_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl125667125991_ + _tl125672125996_ '0)))) - (let ((_tl125764125790_ + (let ((_tl125769125795_ (let () (declare (not safe)) - (##vector-ref ___splice126846126847_ '1))) - (_target125762125788_ + (##vector-ref ___splice126851126852_ '1))) + (_target125767125793_ (let () (declare (not safe)) (##vector-ref - ___splice126846126847_ + ___splice126851126852_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl125764125790_)) - (___match127095127096_ - _e125669125986_ - _hd125668125989_ - _tl125667125991_ - ___splice126846126847_ - _target125762125788_ - _tl125764125790_) + (gx#stx-null? _tl125769125795_)) + (___match127100127101_ + _e125674125991_ + _hd125673125994_ + _tl125672125996_ + ___splice126851126852_ + _target125767125793_ + _tl125769125795_) (let () (declare (not safe)) - (_g125660125775_))))) - (let () (declare (not safe)) (_g125660125775_)))))) + (_g125665125780_))))) + (let () (declare (not safe)) (_g125665125780_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl125667125991_)) - (let ((___splice126846126847_ + (gx#stx-pair/null? _tl125672125996_)) + (let ((___splice126851126852_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl125667125991_ '0)))) - (let ((_tl125764125790_ + (gx#syntax-split-splice _tl125672125996_ '0)))) + (let ((_tl125769125795_ (let () (declare (not safe)) - (##vector-ref ___splice126846126847_ '1))) - (_target125762125788_ + (##vector-ref ___splice126851126852_ '1))) + (_target125767125793_ (let () (declare (not safe)) - (##vector-ref ___splice126846126847_ '0)))) + (##vector-ref ___splice126851126852_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl125764125790_)) - (___match127095127096_ - _e125669125986_ - _hd125668125989_ - _tl125667125991_ - ___splice126846126847_ - _target125762125788_ - _tl125764125790_) - (let () (declare (not safe)) (_g125660125775_))))) - (let () (declare (not safe)) (_g125660125775_)))) + (gx#stx-null? _tl125769125795_)) + (___match127100127101_ + _e125674125991_ + _hd125673125994_ + _tl125672125996_ + ___splice126851126852_ + _target125767125793_ + _tl125769125795_) + (let () (declare (not safe)) (_g125665125780_))))) + (let () (declare (not safe)) (_g125665125780_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl125667125991_)) - (let ((___splice126846126847_ + _tl125672125996_)) + (let ((___splice126851126852_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _tl125667125991_ '0)))) - (let ((_tl125764125790_ + (gx#syntax-split-splice _tl125672125996_ '0)))) + (let ((_tl125769125795_ (let () (declare (not safe)) - (##vector-ref ___splice126846126847_ '1))) - (_target125762125788_ + (##vector-ref ___splice126851126852_ '1))) + (_target125767125793_ (let () (declare (not safe)) - (##vector-ref ___splice126846126847_ '0)))) + (##vector-ref ___splice126851126852_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl125764125790_)) - (___match127095127096_ - _e125669125986_ - _hd125668125989_ - _tl125667125991_ - ___splice126846126847_ - _target125762125788_ - _tl125764125790_) - (let () (declare (not safe)) (_g125660125775_))))) - (let () (declare (not safe)) (_g125660125775_)))))) + (gx#stx-null? _tl125769125795_)) + (___match127100127101_ + _e125674125991_ + _hd125673125994_ + _tl125672125996_ + ___splice126851126852_ + _target125767125793_ + _tl125769125795_) + (let () (declare (not safe)) (_g125665125780_))))) + (let () (declare (not safe)) (_g125665125780_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl125667125991_)) - (let ((___splice126846126847_ + _tl125672125996_)) + (let ((___splice126851126852_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl125667125991_ + _tl125672125996_ '0)))) - (let ((_tl125764125790_ + (let ((_tl125769125795_ (let () (declare (not safe)) (##vector-ref - ___splice126846126847_ + ___splice126851126852_ '1))) - (_target125762125788_ + (_target125767125793_ (let () (declare (not safe)) (##vector-ref - ___splice126846126847_ + ___splice126851126852_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125764125790_)) - (___match127095127096_ - _e125669125986_ - _hd125668125989_ - _tl125667125991_ - ___splice126846126847_ - _target125762125788_ - _tl125764125790_) + _tl125769125795_)) + (___match127100127101_ + _e125674125991_ + _hd125673125994_ + _tl125672125996_ + ___splice126851126852_ + _target125767125793_ + _tl125769125795_) (let () (declare (not safe)) - (_g125660125775_))))) + (_g125665125780_))))) (let () (declare (not safe)) - (_g125660125775_)))) + (_g125665125780_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl125667125991_)) - (let ((___splice126846126847_ + _tl125672125996_)) + (let ((___splice126851126852_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl125667125991_ + _tl125672125996_ '0)))) - (let ((_tl125764125790_ + (let ((_tl125769125795_ (let () (declare (not safe)) (##vector-ref - ___splice126846126847_ + ___splice126851126852_ '1))) - (_target125762125788_ + (_target125767125793_ (let () (declare (not safe)) (##vector-ref - ___splice126846126847_ + ___splice126851126852_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125764125790_)) - (___match127095127096_ - _e125669125986_ - _hd125668125989_ - _tl125667125991_ - ___splice126846126847_ - _target125762125788_ - _tl125764125790_) + _tl125769125795_)) + (___match127100127101_ + _e125674125991_ + _hd125673125994_ + _tl125672125996_ + ___splice126851126852_ + _target125767125793_ + _tl125769125795_) (let () (declare (not safe)) - (_g125660125775_))))) + (_g125665125780_))))) (let () (declare (not safe)) - (_g125660125775_)))) + (_g125665125780_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl125667125991_)) - (let ((___splice126846126847_ + (gx#stx-pair/null? _tl125672125996_)) + (let ((___splice126851126852_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl125667125991_ + _tl125672125996_ '0)))) - (let ((_tl125764125790_ + (let ((_tl125769125795_ (let () (declare (not safe)) (##vector-ref - ___splice126846126847_ + ___splice126851126852_ '1))) - (_target125762125788_ + (_target125767125793_ (let () (declare (not safe)) (##vector-ref - ___splice126846126847_ + ___splice126851126852_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125764125790_)) - (___match127095127096_ - _e125669125986_ - _hd125668125989_ - _tl125667125991_ - ___splice126846126847_ - _target125762125788_ - _tl125764125790_) + _tl125769125795_)) + (___match127100127101_ + _e125674125991_ + _hd125673125994_ + _tl125672125996_ + ___splice126851126852_ + _target125767125793_ + _tl125769125795_) (let () (declare (not safe)) - (_g125660125775_))))) + (_g125665125780_))))) (let () (declare (not safe)) - (_g125660125775_)))))) + (_g125665125780_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl125667125991_)) - (let ((___splice126846126847_ + (gx#stx-pair/null? _tl125672125996_)) + (let ((___splice126851126852_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl125667125991_ + _tl125672125996_ '0)))) - (let ((_tl125764125790_ + (let ((_tl125769125795_ (let () (declare (not safe)) (##vector-ref - ___splice126846126847_ + ___splice126851126852_ '1))) - (_target125762125788_ + (_target125767125793_ (let () (declare (not safe)) (##vector-ref - ___splice126846126847_ + ___splice126851126852_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl125764125790_)) - (___match127095127096_ - _e125669125986_ - _hd125668125989_ - _tl125667125991_ - ___splice126846126847_ - _target125762125788_ - _tl125764125790_) + (gx#stx-null? _tl125769125795_)) + (___match127100127101_ + _e125674125991_ + _hd125673125994_ + _tl125672125996_ + ___splice126851126852_ + _target125767125793_ + _tl125769125795_) (let () (declare (not safe)) - (_g125660125775_))))) + (_g125665125780_))))) (let () (declare (not safe)) - (_g125660125775_)))))) + (_g125665125780_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl125667125991_)) - (let ((___splice126846126847_ + (gx#stx-pair/null? _tl125672125996_)) + (let ((___splice126851126852_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl125667125991_ '0)))) - (let ((_tl125764125790_ + (gx#syntax-split-splice _tl125672125996_ '0)))) + (let ((_tl125769125795_ (let () (declare (not safe)) - (##vector-ref ___splice126846126847_ '1))) - (_target125762125788_ + (##vector-ref ___splice126851126852_ '1))) + (_target125767125793_ (let () (declare (not safe)) - (##vector-ref ___splice126846126847_ '0)))) + (##vector-ref ___splice126851126852_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl125764125790_)) - (___match127095127096_ - _e125669125986_ - _hd125668125989_ - _tl125667125991_ - ___splice126846126847_ - _target125762125788_ - _tl125764125790_) + (gx#stx-null? _tl125769125795_)) + (___match127100127101_ + _e125674125991_ + _hd125673125994_ + _tl125672125996_ + ___splice126851126852_ + _target125767125793_ + _tl125769125795_) (let () (declare (not safe)) - (_g125660125775_))))) - (let () (declare (not safe)) (_g125660125775_)))) + (_g125665125780_))))) + (let () (declare (not safe)) (_g125665125780_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl125667125991_)) - (let ((___splice126846126847_ + (gx#stx-pair/null? _tl125672125996_)) + (let ((___splice126851126852_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl125667125991_ '0)))) - (let ((_tl125764125790_ + (gx#syntax-split-splice _tl125672125996_ '0)))) + (let ((_tl125769125795_ (let () (declare (not safe)) - (##vector-ref ___splice126846126847_ '1))) - (_target125762125788_ + (##vector-ref ___splice126851126852_ '1))) + (_target125767125793_ (let () (declare (not safe)) - (##vector-ref ___splice126846126847_ '0)))) + (##vector-ref ___splice126851126852_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl125764125790_)) - (___match127095127096_ - _e125669125986_ - _hd125668125989_ - _tl125667125991_ - ___splice126846126847_ - _target125762125788_ - _tl125764125790_) - (let () (declare (not safe)) (_g125660125775_))))) - (let () (declare (not safe)) (_g125660125775_)))))) + (gx#stx-null? _tl125769125795_)) + (___match127100127101_ + _e125674125991_ + _hd125673125994_ + _tl125672125996_ + ___splice126851126852_ + _target125767125793_ + _tl125769125795_) + (let () (declare (not safe)) (_g125665125780_))))) + (let () (declare (not safe)) (_g125665125780_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl125667125991_)) - (let ((___splice126846126847_ + _tl125672125996_)) + (let ((___splice126851126852_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl125667125991_ + _tl125672125996_ '0)))) - (let ((_tl125764125790_ + (let ((_tl125769125795_ (let () (declare (not safe)) (##vector-ref - ___splice126846126847_ + ___splice126851126852_ '1))) - (_target125762125788_ + (_target125767125793_ (let () (declare (not safe)) (##vector-ref - ___splice126846126847_ + ___splice126851126852_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125764125790_)) - (___match127095127096_ - _e125669125986_ - _hd125668125989_ - _tl125667125991_ - ___splice126846126847_ - _target125762125788_ - _tl125764125790_) + _tl125769125795_)) + (___match127100127101_ + _e125674125991_ + _hd125673125994_ + _tl125672125996_ + ___splice126851126852_ + _target125767125793_ + _tl125769125795_) (let () (declare (not safe)) - (_g125660125775_))))) + (_g125665125780_))))) (let () (declare (not safe)) - (_g125660125775_)))) + (_g125665125780_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl125667125991_)) - (let ((___splice126846126847_ + _tl125672125996_)) + (let ((___splice126851126852_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl125667125991_ + _tl125672125996_ '0)))) - (let ((_tl125764125790_ + (let ((_tl125769125795_ (let () (declare (not safe)) (##vector-ref - ___splice126846126847_ + ___splice126851126852_ '1))) - (_target125762125788_ + (_target125767125793_ (let () (declare (not safe)) (##vector-ref - ___splice126846126847_ + ___splice126851126852_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125764125790_)) - (___match127095127096_ - _e125669125986_ - _hd125668125989_ - _tl125667125991_ - ___splice126846126847_ - _target125762125788_ - _tl125764125790_) + _tl125769125795_)) + (___match127100127101_ + _e125674125991_ + _hd125673125994_ + _tl125672125996_ + ___splice126851126852_ + _target125767125793_ + _tl125769125795_) (let () (declare (not safe)) - (_g125660125775_))))) + (_g125665125780_))))) (let () (declare (not safe)) - (_g125660125775_)))) + (_g125665125780_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl125667125991_)) - (let ((___splice126846126847_ + _tl125672125996_)) + (let ((___splice126851126852_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl125667125991_ + _tl125672125996_ '0)))) - (let ((_tl125764125790_ + (let ((_tl125769125795_ (let () (declare (not safe)) (##vector-ref - ___splice126846126847_ + ___splice126851126852_ '1))) - (_target125762125788_ + (_target125767125793_ (let () (declare (not safe)) (##vector-ref - ___splice126846126847_ + ___splice126851126852_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125764125790_)) - (___match127095127096_ - _e125669125986_ - _hd125668125989_ - _tl125667125991_ - ___splice126846126847_ - _target125762125788_ - _tl125764125790_) + _tl125769125795_)) + (___match127100127101_ + _e125674125991_ + _hd125673125994_ + _tl125672125996_ + ___splice126851126852_ + _target125767125793_ + _tl125769125795_) (let () (declare (not safe)) - (_g125660125775_))))) + (_g125665125780_))))) (let () (declare (not safe)) - (_g125660125775_)))))) + (_g125665125780_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl125667125991_)) - (let ((___splice126846126847_ + (gx#stx-pair/null? _tl125672125996_)) + (let ((___splice126851126852_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl125667125991_ + _tl125672125996_ '0)))) - (let ((_tl125764125790_ + (let ((_tl125769125795_ (let () (declare (not safe)) (##vector-ref - ___splice126846126847_ + ___splice126851126852_ '1))) - (_target125762125788_ + (_target125767125793_ (let () (declare (not safe)) (##vector-ref - ___splice126846126847_ + ___splice126851126852_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl125764125790_)) - (___match127095127096_ - _e125669125986_ - _hd125668125989_ - _tl125667125991_ - ___splice126846126847_ - _target125762125788_ - _tl125764125790_) + (gx#stx-null? _tl125769125795_)) + (___match127100127101_ + _e125674125991_ + _hd125673125994_ + _tl125672125996_ + ___splice126851126852_ + _target125767125793_ + _tl125769125795_) (let () (declare (not safe)) - (_g125660125775_))))) + (_g125665125780_))))) (let () (declare (not safe)) - (_g125660125775_)))))) + (_g125665125780_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl125667125991_)) - (let ((___splice126846126847_ + (gx#stx-pair/null? _tl125672125996_)) + (let ((___splice126851126852_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl125667125991_ + _tl125672125996_ '0)))) - (let ((_tl125764125790_ + (let ((_tl125769125795_ (let () (declare (not safe)) - (##vector-ref ___splice126846126847_ '1))) - (_target125762125788_ + (##vector-ref ___splice126851126852_ '1))) + (_target125767125793_ (let () (declare (not safe)) (##vector-ref - ___splice126846126847_ + ___splice126851126852_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl125764125790_)) - (___match127095127096_ - _e125669125986_ - _hd125668125989_ - _tl125667125991_ - ___splice126846126847_ - _target125762125788_ - _tl125764125790_) + (gx#stx-null? _tl125769125795_)) + (___match127100127101_ + _e125674125991_ + _hd125673125994_ + _tl125672125996_ + ___splice126851126852_ + _target125767125793_ + _tl125769125795_) (let () (declare (not safe)) - (_g125660125775_))))) - (let () (declare (not safe)) (_g125660125775_)))) + (_g125665125780_))))) + (let () (declare (not safe)) (_g125665125780_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl125667125991_)) - (let ((___splice126846126847_ + (gx#stx-pair/null? _tl125672125996_)) + (let ((___splice126851126852_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl125667125991_ '0)))) - (let ((_tl125764125790_ + (gx#syntax-split-splice _tl125672125996_ '0)))) + (let ((_tl125769125795_ (let () (declare (not safe)) - (##vector-ref ___splice126846126847_ '1))) - (_target125762125788_ + (##vector-ref ___splice126851126852_ '1))) + (_target125767125793_ (let () (declare (not safe)) - (##vector-ref ___splice126846126847_ '0)))) + (##vector-ref ___splice126851126852_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl125764125790_)) - (___match127095127096_ - _e125669125986_ - _hd125668125989_ - _tl125667125991_ - ___splice126846126847_ - _target125762125788_ - _tl125764125790_) + (gx#stx-null? _tl125769125795_)) + (___match127100127101_ + _e125674125991_ + _hd125673125994_ + _tl125672125996_ + ___splice126851126852_ + _target125767125793_ + _tl125769125795_) (let () (declare (not safe)) - (_g125660125775_))))) - (let () (declare (not safe)) (_g125660125775_)))))) + (_g125665125780_))))) + (let () (declare (not safe)) (_g125665125780_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl125667125991_)) - (let ((___splice126846126847_ + _tl125672125996_)) + (let ((___splice126851126852_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _tl125667125991_ '0)))) - (let ((_tl125764125790_ + (gx#syntax-split-splice _tl125672125996_ '0)))) + (let ((_tl125769125795_ (let () (declare (not safe)) - (##vector-ref ___splice126846126847_ '1))) - (_target125762125788_ + (##vector-ref ___splice126851126852_ '1))) + (_target125767125793_ (let () (declare (not safe)) - (##vector-ref ___splice126846126847_ '0)))) + (##vector-ref ___splice126851126852_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl125764125790_)) - (___match127095127096_ - _e125669125986_ - _hd125668125989_ - _tl125667125991_ - ___splice126846126847_ - _target125762125788_ - _tl125764125790_) - (let () (declare (not safe)) (_g125660125775_))))) - (let () (declare (not safe)) (_g125660125775_)))) + (gx#stx-null? _tl125769125795_)) + (___match127100127101_ + _e125674125991_ + _hd125673125994_ + _tl125672125996_ + ___splice126851126852_ + _target125767125793_ + _tl125769125795_) + (let () (declare (not safe)) (_g125665125780_))))) + (let () (declare (not safe)) (_g125665125780_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl125667125991_)) - (let ((___splice126846126847_ + _tl125672125996_)) + (let ((___splice126851126852_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl125667125991_ + _tl125672125996_ '0)))) - (let ((_tl125764125790_ + (let ((_tl125769125795_ (let () (declare (not safe)) (##vector-ref - ___splice126846126847_ + ___splice126851126852_ '1))) - (_target125762125788_ + (_target125767125793_ (let () (declare (not safe)) (##vector-ref - ___splice126846126847_ + ___splice126851126852_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125764125790_)) - (___match127095127096_ - _e125669125986_ - _hd125668125989_ - _tl125667125991_ - ___splice126846126847_ - _target125762125788_ - _tl125764125790_) + _tl125769125795_)) + (___match127100127101_ + _e125674125991_ + _hd125673125994_ + _tl125672125996_ + ___splice126851126852_ + _target125767125793_ + _tl125769125795_) (let () (declare (not safe)) - (_g125660125775_))))) + (_g125665125780_))))) (let () (declare (not safe)) - (_g125660125775_)))) + (_g125665125780_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl125667125991_)) - (let ((___splice126846126847_ + _tl125672125996_)) + (let ((___splice126851126852_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl125667125991_ + _tl125672125996_ '0)))) - (let ((_tl125764125790_ + (let ((_tl125769125795_ (let () (declare (not safe)) (##vector-ref - ___splice126846126847_ + ___splice126851126852_ '1))) - (_target125762125788_ + (_target125767125793_ (let () (declare (not safe)) (##vector-ref - ___splice126846126847_ + ___splice126851126852_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125764125790_)) - (___match127095127096_ - _e125669125986_ - _hd125668125989_ - _tl125667125991_ - ___splice126846126847_ - _target125762125788_ - _tl125764125790_) + _tl125769125795_)) + (___match127100127101_ + _e125674125991_ + _hd125673125994_ + _tl125672125996_ + ___splice126851126852_ + _target125767125793_ + _tl125769125795_) (let () (declare (not safe)) - (_g125660125775_))))) + (_g125665125780_))))) (let () (declare (not safe)) - (_g125660125775_)))))) + (_g125665125780_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl125667125991_)) - (let ((___splice126846126847_ + (gx#stx-pair/null? _tl125672125996_)) + (let ((___splice126851126852_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl125667125991_ + _tl125672125996_ '0)))) - (let ((_tl125764125790_ + (let ((_tl125769125795_ (let () (declare (not safe)) (##vector-ref - ___splice126846126847_ + ___splice126851126852_ '1))) - (_target125762125788_ + (_target125767125793_ (let () (declare (not safe)) (##vector-ref - ___splice126846126847_ + ___splice126851126852_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125764125790_)) - (___match127095127096_ - _e125669125986_ - _hd125668125989_ - _tl125667125991_ - ___splice126846126847_ - _target125762125788_ - _tl125764125790_) + _tl125769125795_)) + (___match127100127101_ + _e125674125991_ + _hd125673125994_ + _tl125672125996_ + ___splice126851126852_ + _target125767125793_ + _tl125769125795_) (let () (declare (not safe)) - (_g125660125775_))))) + (_g125665125780_))))) (let () (declare (not safe)) - (_g125660125775_)))))) + (_g125665125780_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl125667125991_)) - (let ((___splice126846126847_ + (gx#stx-pair/null? _tl125672125996_)) + (let ((___splice126851126852_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl125667125991_ + _tl125672125996_ '0)))) - (let ((_tl125764125790_ + (let ((_tl125769125795_ (let () (declare (not safe)) (##vector-ref - ___splice126846126847_ + ___splice126851126852_ '1))) - (_target125762125788_ + (_target125767125793_ (let () (declare (not safe)) (##vector-ref - ___splice126846126847_ + ___splice126851126852_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl125764125790_)) - (___match127095127096_ - _e125669125986_ - _hd125668125989_ - _tl125667125991_ - ___splice126846126847_ - _target125762125788_ - _tl125764125790_) + (gx#stx-null? _tl125769125795_)) + (___match127100127101_ + _e125674125991_ + _hd125673125994_ + _tl125672125996_ + ___splice126851126852_ + _target125767125793_ + _tl125769125795_) (let () (declare (not safe)) - (_g125660125775_))))) + (_g125665125780_))))) (let () (declare (not safe)) - (_g125660125775_)))))) - (let () (declare (not safe)) (_g125660125775_)))))))) + (_g125665125780_)))))) + (let () (declare (not safe)) (_g125665125780_)))))))) (define gxc#current-compile-type-closure (make-parameter '#f)) (define gxc#basic-expression-type-begin% - (lambda (_stx125596_) - (let* ((___stx127098127099_ _stx125596_) - (_g125599125612_ + (lambda (_stx125601_) + (let* ((___stx127103127104_ _stx125601_) + (_g125604125617_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx127098127099_))))) - (let ((___kont127100127101_ - (lambda (_L125640_) - (let () (declare (not safe)) (gxc#compile-e__0 _L125640_)))) - (___kont127102127103_ (lambda () '#f))) + ___stx127103127104_))))) + (let ((___kont127105127106_ + (lambda (_L125645_) + (let () (declare (not safe)) (gxc#compile-e__0 _L125645_)))) + (___kont127107127108_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx127098127099_)) - (let ((_e125604125624_ + (gx#stx-pair? ___stx127103127104_)) + (let ((_e125609125629_ (let () (declare (not safe)) - (gx#stx-e ___stx127098127099_)))) - (let ((_tl125602125629_ - (let () (declare (not safe)) (##cdr _e125604125624_))) - (_hd125603125627_ + (gx#stx-e ___stx127103127104_)))) + (let ((_tl125607125634_ + (let () (declare (not safe)) (##cdr _e125609125629_))) + (_hd125608125632_ (let () (declare (not safe)) - (##car _e125604125624_)))) + (##car _e125609125629_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125602125629_)) - (let ((_e125607125632_ + (gx#stx-pair? _tl125607125634_)) + (let ((_e125612125637_ (let () (declare (not safe)) - (gx#stx-e _tl125602125629_)))) - (let ((_tl125605125637_ + (gx#stx-e _tl125607125634_)))) + (let ((_tl125610125642_ (let () (declare (not safe)) - (##cdr _e125607125632_))) - (_hd125606125635_ + (##cdr _e125612125637_))) + (_hd125611125640_ (let () (declare (not safe)) - (##car _e125607125632_)))) + (##car _e125612125637_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl125605125637_)) - (___kont127100127101_ _hd125606125635_) - (___kont127102127103_)))) - (___kont127102127103_)))) - (___kont127102127103_)))))) + (gx#stx-null? _tl125610125642_)) + (___kont127105127106_ _hd125611125640_) + (___kont127107127108_)))) + (___kont127107127108_)))) + (___kont127107127108_)))))) (define gxc#basic-expression-type-annotations (let () (declare (not safe)) (make-hash-table-eq))) (define gxc#basic-expression-type-begin-annotation% - (lambda (_stx125476_) - (let* ((_g125478125495_ - (lambda (_g125479125492_) + (lambda (_stx125481_) + (let* ((_g125483125500_ + (lambda (_g125484125497_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g125479125492_)))) - (_g125477125593_ - (lambda (_g125479125498_) + _g125484125497_)))) + (_g125482125598_ + (lambda (_g125484125503_) (if (let () (declare (not safe)) - (gx#stx-pair? _g125479125498_)) - (let ((_e125484125500_ + (gx#stx-pair? _g125484125503_)) + (let ((_e125489125505_ (let () (declare (not safe)) - (gx#stx-e _g125479125498_)))) - (let ((_hd125483125503_ + (gx#stx-e _g125484125503_)))) + (let ((_hd125488125508_ (let () (declare (not safe)) - (##car _e125484125500_))) - (_tl125482125505_ + (##car _e125489125505_))) + (_tl125487125510_ (let () (declare (not safe)) - (##cdr _e125484125500_)))) + (##cdr _e125489125505_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125482125505_)) - (let ((_e125487125508_ + (gx#stx-pair? _tl125487125510_)) + (let ((_e125492125513_ (let () (declare (not safe)) - (gx#stx-e _tl125482125505_)))) - (let ((_hd125486125511_ + (gx#stx-e _tl125487125510_)))) + (let ((_hd125491125516_ (let () (declare (not safe)) - (##car _e125487125508_))) - (_tl125485125513_ + (##car _e125492125513_))) + (_tl125490125518_ (let () (declare (not safe)) - (##cdr _e125487125508_)))) + (##cdr _e125492125513_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125485125513_)) - (let ((_e125490125516_ + (gx#stx-pair? _tl125490125518_)) + (let ((_e125495125521_ (let () (declare (not safe)) - (gx#stx-e _tl125485125513_)))) - (let ((_hd125489125519_ + (gx#stx-e _tl125490125518_)))) + (let ((_hd125494125524_ (let () (declare (not safe)) - (##car _e125490125516_))) - (_tl125488125521_ + (##car _e125495125521_))) + (_tl125493125526_ (let () (declare (not safe)) - (##cdr _e125490125516_)))) + (##cdr _e125495125521_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125488125521_)) - ((lambda (_L125524_ _L125525_) - (let* ((___stx127120127121_ - _L125525_) - (_g125541125552_ + _tl125493125526_)) + ((lambda (_L125529_ _L125530_) + (let* ((___stx127125127126_ + _L125530_) + (_g125546125557_ (lambda () (let () (declare @@ -2905,272 +2905,272 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx127120127121_))))) - (let ((___kont127122127123_ - (lambda (_L125572_ + ___stx127125127126_))))) + (let ((___kont127127127128_ + (lambda (_L125577_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L125573_) - (let ((_$e125585_ - (let ((__tmp128845 + _L125578_) + (let ((_$e125590_ + (let ((__tmp128850 (let () (declare (not safe)) - (gx#stx-e _L125573_)))) + (gx#stx-e _L125578_)))) (declare (not safe)) (hash-get gxc#basic-expression-type-annotations - __tmp128845)))) - (if _$e125585_ - ((lambda (_type-e125588_) - (_type-e125588_ _stx125476_ _L125525_)) - _$e125585_) + __tmp128850)))) + (if _$e125590_ + ((lambda (_type-e125593_) + (_type-e125593_ _stx125481_ _L125530_)) + _$e125590_) (let () (declare (not safe)) - (gxc#compile-e__0 _L125524_)))))) - (___kont127124127125_ + (gxc#compile-e__0 _L125529_)))))) + (___kont127129127130_ (lambda () (let () (declare (not safe)) - (gxc#compile-e__0 _L125524_))))) + (gxc#compile-e__0 _L125529_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((___match127131127132_ - (lambda (_e125547125564_ + (let ((___match127136127137_ + (lambda (_e125552125569_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd125546125567_ - _tl125545125569_) - (let ((_L125572_ _tl125545125569_) - (_L125573_ _hd125546125567_)) + _hd125551125572_ + _tl125550125574_) + (let ((_L125577_ _tl125550125574_) + (_L125578_ _hd125551125572_)) (if (let () (declare (not safe)) - (gx#identifier? _L125573_)) - (___kont127122127123_ _L125572_ _L125573_) - (___kont127124127125_)))))) + (gx#identifier? _L125578_)) + (___kont127127127128_ _L125577_ _L125578_) + (___kont127129127130_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx127120127121_)) - (let ((_e125547125564_ + (gx#stx-pair? ___stx127125127126_)) + (let ((_e125552125569_ (let () (declare (not safe)) - (gx#stx-e ___stx127120127121_)))) - (let ((_tl125545125569_ + (gx#stx-e ___stx127125127126_)))) + (let ((_tl125550125574_ (let () (declare (not safe)) - (##cdr _e125547125564_))) - (_hd125546125567_ + (##cdr _e125552125569_))) + (_hd125551125572_ (let () (declare (not safe)) - (##car _e125547125564_)))) - (___match127131127132_ - _e125547125564_ - _hd125546125567_ - _tl125545125569_))) - (___kont127124127125_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd125489125519_ - _hd125486125511_) + (##car _e125552125569_)))) + (___match127136127137_ + _e125552125569_ + _hd125551125572_ + _tl125550125574_))) + (___kont127129127130_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _hd125494125524_ + _hd125491125516_) (let () (declare (not safe)) - (_g125478125495_ - _g125479125498_))))) + (_g125483125500_ + _g125484125503_))))) (let () (declare (not safe)) - (_g125478125495_ _g125479125498_))))) + (_g125483125500_ _g125484125503_))))) (let () (declare (not safe)) - (_g125478125495_ _g125479125498_))))) + (_g125483125500_ _g125484125503_))))) (let () (declare (not safe)) - (_g125478125495_ _g125479125498_)))))) + (_g125483125500_ _g125484125503_)))))) (declare (not safe)) - (_g125477125593_ _stx125476_)))) + (_g125482125598_ _stx125481_)))) (define gxc#basic-expression-type-annotation-mop.class - (lambda (_stx125320_ _ann125321_) - (let* ((_g125323125360_ - (lambda (_g125324125357_) + (lambda (_stx125325_ _ann125326_) + (let* ((_g125328125365_ + (lambda (_g125329125362_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g125324125357_)))) - (_g125322125473_ - (lambda (_g125324125363_) + _g125329125362_)))) + (_g125327125478_ + (lambda (_g125329125368_) (if (let () (declare (not safe)) - (gx#stx-pair? _g125324125363_)) - (let ((_e125334125365_ + (gx#stx-pair? _g125329125368_)) + (let ((_e125339125370_ (let () (declare (not safe)) - (gx#stx-e _g125324125363_)))) - (let ((_hd125333125368_ + (gx#stx-e _g125329125368_)))) + (let ((_hd125338125373_ (let () (declare (not safe)) - (##car _e125334125365_))) - (_tl125332125370_ + (##car _e125339125370_))) + (_tl125337125375_ (let () (declare (not safe)) - (##cdr _e125334125365_)))) + (##cdr _e125339125370_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125332125370_)) - (let ((_e125337125373_ + (gx#stx-pair? _tl125337125375_)) + (let ((_e125342125378_ (let () (declare (not safe)) - (gx#stx-e _tl125332125370_)))) - (let ((_hd125336125376_ + (gx#stx-e _tl125337125375_)))) + (let ((_hd125341125381_ (let () (declare (not safe)) - (##car _e125337125373_))) - (_tl125335125378_ + (##car _e125342125378_))) + (_tl125340125383_ (let () (declare (not safe)) - (##cdr _e125337125373_)))) + (##cdr _e125342125378_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125335125378_)) - (let ((_e125340125381_ + (gx#stx-pair? _tl125340125383_)) + (let ((_e125345125386_ (let () (declare (not safe)) - (gx#stx-e _tl125335125378_)))) - (let ((_hd125339125384_ + (gx#stx-e _tl125340125383_)))) + (let ((_hd125344125389_ (let () (declare (not safe)) - (##car _e125340125381_))) - (_tl125338125386_ + (##car _e125345125386_))) + (_tl125343125391_ (let () (declare (not safe)) - (##cdr _e125340125381_)))) + (##cdr _e125345125386_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl125338125386_)) - (let ((_e125343125389_ + _tl125343125391_)) + (let ((_e125348125394_ (let () (declare (not safe)) (gx#stx-e - _tl125338125386_)))) - (let ((_hd125342125392_ + _tl125343125391_)))) + (let ((_hd125347125397_ (let () (declare (not safe)) - (##car _e125343125389_))) - (_tl125341125394_ + (##car _e125348125394_))) + (_tl125346125399_ (let () (declare (not safe)) - (##cdr _e125343125389_)))) + (##cdr _e125348125394_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl125341125394_)) - (let ((_e125346125397_ + _tl125346125399_)) + (let ((_e125351125402_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl125341125394_)))) - (let ((_hd125345125400_ - (let () (declare (not safe)) (##car _e125346125397_))) - (_tl125344125402_ - (let () (declare (not safe)) (##cdr _e125346125397_)))) + (gx#stx-e _tl125346125399_)))) + (let ((_hd125350125405_ + (let () (declare (not safe)) (##car _e125351125402_))) + (_tl125349125407_ + (let () (declare (not safe)) (##cdr _e125351125402_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125344125402_)) - (let ((_e125349125405_ + (gx#stx-pair? _tl125349125407_)) + (let ((_e125354125410_ (let () (declare (not safe)) - (gx#stx-e _tl125344125402_)))) - (let ((_hd125348125408_ + (gx#stx-e _tl125349125407_)))) + (let ((_hd125353125413_ (let () (declare (not safe)) - (##car _e125349125405_))) - (_tl125347125410_ + (##car _e125354125410_))) + (_tl125352125415_ (let () (declare (not safe)) - (##cdr _e125349125405_)))) + (##cdr _e125354125410_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125347125410_)) - (let ((_e125352125413_ + (gx#stx-pair? _tl125352125415_)) + (let ((_e125357125418_ (let () (declare (not safe)) - (gx#stx-e _tl125347125410_)))) - (let ((_hd125351125416_ + (gx#stx-e _tl125352125415_)))) + (let ((_hd125356125421_ (let () (declare (not safe)) - (##car _e125352125413_))) - (_tl125350125418_ + (##car _e125357125418_))) + (_tl125355125423_ (let () (declare (not safe)) - (##cdr _e125352125413_)))) + (##cdr _e125357125418_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125350125418_)) - (let ((_e125355125421_ + (gx#stx-pair? _tl125355125423_)) + (let ((_e125360125426_ (let () (declare (not safe)) - (gx#stx-e _tl125350125418_)))) - (let ((_hd125354125424_ + (gx#stx-e _tl125355125423_)))) + (let ((_hd125359125429_ (let () (declare (not safe)) - (##car _e125355125421_))) - (_tl125353125426_ + (##car _e125360125426_))) + (_tl125358125431_ (let () (declare (not safe)) - (##cdr _e125355125421_)))) + (##cdr _e125360125426_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125353125426_)) - ((lambda (_L125429_ - _L125430_ - _L125431_ - _L125432_ - _L125433_ - _L125434_ - _L125435_) - (let ((_type-id125465_ + _tl125358125431_)) + ((lambda (_L125434_ + _L125435_ + _L125436_ + _L125437_ + _L125438_ + _L125439_ + _L125440_) + (let ((_type-id125470_ (let () (declare (not safe)) (gx#stx-e - _L125435_))) - (_super125466_ + _L125440_))) + (_super125471_ (let () (declare (not safe)) (gx#stx-map1 gxc#identifier-symbol - _L125434_))) - (_slots125467_ + _L125439_))) + (_slots125472_ (let () (declare (not safe)) (gx#stx-map1 gx#stx-e - _L125433_))) - (_ctor-method125468_ + _L125438_))) + (_ctor-method125473_ (let () (declare (not safe)) (gx#stx-e - _L125432_))) - (_struct?125469_ + _L125437_))) + (_struct?125474_ (let () (declare (not safe)) (gx#stx-e - _L125431_))) - (_final?125470_ + _L125436_))) + (_final?125475_ (let () (declare (not safe)) (gx#stx-e - _L125430_))) - (_metaclass125471_ + _L125435_))) + (_metaclass125476_ (if (let () (declare (not safe)) (gx#stx-e - _L125429_)) + _L125434_)) (let () (declare (not safe)) (gxc#identifier-symbol - _L125429_)) + _L125434_)) '#f))) - (let ((__obj128803 + (let ((__obj128808 (let () (declare (not safe)) @@ -3187,424 +3187,424 @@ '#f '#f)))) (gxc#!class:::init! - __obj128803 - _type-id125465_ - _super125466_ - _slots125467_ - _ctor-method125468_ - _struct?125469_ - _final?125470_ - _metaclass125471_) - __obj128803))) - _hd125354125424_ - _hd125351125416_ - _hd125348125408_ - _hd125345125400_ - _hd125342125392_ - _hd125339125384_ - _hd125336125376_) + __obj128808 + _type-id125470_ + _super125471_ + _slots125472_ + _ctor-method125473_ + _struct?125474_ + _final?125475_ + _metaclass125476_) + __obj128808))) + _hd125359125429_ + _hd125356125421_ + _hd125353125413_ + _hd125350125405_ + _hd125347125397_ + _hd125344125389_ + _hd125341125381_) (let () (declare (not safe)) - (_g125323125360_ - _g125324125363_))))) + (_g125328125365_ + _g125329125368_))))) (let () (declare (not safe)) - (_g125323125360_ _g125324125363_))))) + (_g125328125365_ _g125329125368_))))) (let () (declare (not safe)) - (_g125323125360_ _g125324125363_))))) + (_g125328125365_ _g125329125368_))))) (let () (declare (not safe)) - (_g125323125360_ _g125324125363_))))) + (_g125328125365_ _g125329125368_))))) (let () (declare (not safe)) - (_g125323125360_ _g125324125363_))))) + (_g125328125365_ _g125329125368_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g125323125360_ - _g125324125363_))))) + (_g125328125365_ + _g125329125368_))))) (let () (declare (not safe)) - (_g125323125360_ _g125324125363_))))) + (_g125328125365_ _g125329125368_))))) (let () (declare (not safe)) - (_g125323125360_ _g125324125363_))))) + (_g125328125365_ _g125329125368_))))) (let () (declare (not safe)) - (_g125323125360_ _g125324125363_)))))) + (_g125328125365_ _g125329125368_)))))) (declare (not safe)) - (_g125322125473_ _ann125321_)))) + (_g125327125478_ _ann125326_)))) (define gxc#basic-expression-type-annotation-mop.constructor - (lambda (_stx125268_ _ann125269_) - (let* ((_g125271125284_ - (lambda (_g125272125281_) + (lambda (_stx125273_ _ann125274_) + (let* ((_g125276125289_ + (lambda (_g125277125286_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g125272125281_)))) - (_g125270125317_ - (lambda (_g125272125287_) + _g125277125286_)))) + (_g125275125322_ + (lambda (_g125277125292_) (if (let () (declare (not safe)) - (gx#stx-pair? _g125272125287_)) - (let ((_e125276125289_ + (gx#stx-pair? _g125277125292_)) + (let ((_e125281125294_ (let () (declare (not safe)) - (gx#stx-e _g125272125287_)))) - (let ((_hd125275125292_ + (gx#stx-e _g125277125292_)))) + (let ((_hd125280125297_ (let () (declare (not safe)) - (##car _e125276125289_))) - (_tl125274125294_ + (##car _e125281125294_))) + (_tl125279125299_ (let () (declare (not safe)) - (##cdr _e125276125289_)))) + (##cdr _e125281125294_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125274125294_)) - (let ((_e125279125297_ + (gx#stx-pair? _tl125279125299_)) + (let ((_e125284125302_ (let () (declare (not safe)) - (gx#stx-e _tl125274125294_)))) - (let ((_hd125278125300_ + (gx#stx-e _tl125279125299_)))) + (let ((_hd125283125305_ (let () (declare (not safe)) - (##car _e125279125297_))) - (_tl125277125302_ + (##car _e125284125302_))) + (_tl125282125307_ (let () (declare (not safe)) - (##cdr _e125279125297_)))) + (##cdr _e125284125302_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl125277125302_)) - ((lambda (_L125305_) - (let ((__tmp128846 + (gx#stx-null? _tl125282125307_)) + ((lambda (_L125310_) + (let ((__tmp128851 (let () (declare (not safe)) (gxc#identifier-symbol - _L125305_)))) + _L125310_)))) (declare (not safe)) (##structure gxc#!constructor::t - __tmp128846))) - _hd125278125300_) + __tmp128851))) + _hd125283125305_) (let () (declare (not safe)) - (_g125271125284_ _g125272125287_))))) + (_g125276125289_ _g125277125292_))))) (let () (declare (not safe)) - (_g125271125284_ _g125272125287_))))) + (_g125276125289_ _g125277125292_))))) (let () (declare (not safe)) - (_g125271125284_ _g125272125287_)))))) + (_g125276125289_ _g125277125292_)))))) (declare (not safe)) - (_g125270125317_ _ann125269_)))) + (_g125275125322_ _ann125274_)))) (define gxc#basic-expression-type-annotation-mop.predicate - (lambda (_stx125216_ _ann125217_) - (let* ((_g125219125232_ - (lambda (_g125220125229_) + (lambda (_stx125221_ _ann125222_) + (let* ((_g125224125237_ + (lambda (_g125225125234_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g125220125229_)))) - (_g125218125265_ - (lambda (_g125220125235_) + _g125225125234_)))) + (_g125223125270_ + (lambda (_g125225125240_) (if (let () (declare (not safe)) - (gx#stx-pair? _g125220125235_)) - (let ((_e125224125237_ + (gx#stx-pair? _g125225125240_)) + (let ((_e125229125242_ (let () (declare (not safe)) - (gx#stx-e _g125220125235_)))) - (let ((_hd125223125240_ + (gx#stx-e _g125225125240_)))) + (let ((_hd125228125245_ (let () (declare (not safe)) - (##car _e125224125237_))) - (_tl125222125242_ + (##car _e125229125242_))) + (_tl125227125247_ (let () (declare (not safe)) - (##cdr _e125224125237_)))) + (##cdr _e125229125242_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125222125242_)) - (let ((_e125227125245_ + (gx#stx-pair? _tl125227125247_)) + (let ((_e125232125250_ (let () (declare (not safe)) - (gx#stx-e _tl125222125242_)))) - (let ((_hd125226125248_ + (gx#stx-e _tl125227125247_)))) + (let ((_hd125231125253_ (let () (declare (not safe)) - (##car _e125227125245_))) - (_tl125225125250_ + (##car _e125232125250_))) + (_tl125230125255_ (let () (declare (not safe)) - (##cdr _e125227125245_)))) + (##cdr _e125232125250_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl125225125250_)) - ((lambda (_L125253_) - (let ((__tmp128847 + (gx#stx-null? _tl125230125255_)) + ((lambda (_L125258_) + (let ((__tmp128852 (let () (declare (not safe)) (gxc#identifier-symbol - _L125253_)))) + _L125258_)))) (declare (not safe)) (##structure gxc#!predicate::t - __tmp128847))) - _hd125226125248_) + __tmp128852))) + _hd125231125253_) (let () (declare (not safe)) - (_g125219125232_ _g125220125235_))))) + (_g125224125237_ _g125225125240_))))) (let () (declare (not safe)) - (_g125219125232_ _g125220125235_))))) + (_g125224125237_ _g125225125240_))))) (let () (declare (not safe)) - (_g125219125232_ _g125220125235_)))))) + (_g125224125237_ _g125225125240_)))))) (declare (not safe)) - (_g125218125265_ _ann125217_)))) + (_g125223125270_ _ann125222_)))) (define gxc#basic-expression-type-annotation-mop.accessor - (lambda (_stx125132_ _ann125133_) - (let* ((_g125135125156_ - (lambda (_g125136125153_) + (lambda (_stx125137_ _ann125138_) + (let* ((_g125140125161_ + (lambda (_g125141125158_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g125136125153_)))) - (_g125134125213_ - (lambda (_g125136125159_) + _g125141125158_)))) + (_g125139125218_ + (lambda (_g125141125164_) (if (let () (declare (not safe)) - (gx#stx-pair? _g125136125159_)) - (let ((_e125142125161_ + (gx#stx-pair? _g125141125164_)) + (let ((_e125147125166_ (let () (declare (not safe)) - (gx#stx-e _g125136125159_)))) - (let ((_hd125141125164_ + (gx#stx-e _g125141125164_)))) + (let ((_hd125146125169_ (let () (declare (not safe)) - (##car _e125142125161_))) - (_tl125140125166_ + (##car _e125147125166_))) + (_tl125145125171_ (let () (declare (not safe)) - (##cdr _e125142125161_)))) + (##cdr _e125147125166_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125140125166_)) - (let ((_e125145125169_ + (gx#stx-pair? _tl125145125171_)) + (let ((_e125150125174_ (let () (declare (not safe)) - (gx#stx-e _tl125140125166_)))) - (let ((_hd125144125172_ + (gx#stx-e _tl125145125171_)))) + (let ((_hd125149125177_ (let () (declare (not safe)) - (##car _e125145125169_))) - (_tl125143125174_ + (##car _e125150125174_))) + (_tl125148125179_ (let () (declare (not safe)) - (##cdr _e125145125169_)))) + (##cdr _e125150125174_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125143125174_)) - (let ((_e125148125177_ + (gx#stx-pair? _tl125148125179_)) + (let ((_e125153125182_ (let () (declare (not safe)) - (gx#stx-e _tl125143125174_)))) - (let ((_hd125147125180_ + (gx#stx-e _tl125148125179_)))) + (let ((_hd125152125185_ (let () (declare (not safe)) - (##car _e125148125177_))) - (_tl125146125182_ + (##car _e125153125182_))) + (_tl125151125187_ (let () (declare (not safe)) - (##cdr _e125148125177_)))) + (##cdr _e125153125182_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl125146125182_)) - (let ((_e125151125185_ + _tl125151125187_)) + (let ((_e125156125190_ (let () (declare (not safe)) (gx#stx-e - _tl125146125182_)))) - (let ((_hd125150125188_ + _tl125151125187_)))) + (let ((_hd125155125193_ (let () (declare (not safe)) - (##car _e125151125185_))) - (_tl125149125190_ + (##car _e125156125190_))) + (_tl125154125195_ (let () (declare (not safe)) - (##cdr _e125151125185_)))) + (##cdr _e125156125190_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125149125190_)) - ((lambda (_L125193_ - _L125194_ - _L125195_) - (let ((__tmp128850 + _tl125154125195_)) + ((lambda (_L125198_ + _L125199_ + _L125200_) + (let ((__tmp128855 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#identifier-symbol _L125195_))) - (__tmp128849 - (let () (declare (not safe)) (gx#stx-e _L125194_))) - (__tmp128848 - (let () (declare (not safe)) (gx#stx-e _L125193_)))) + (gxc#identifier-symbol _L125200_))) + (__tmp128854 + (let () (declare (not safe)) (gx#stx-e _L125199_))) + (__tmp128853 + (let () (declare (not safe)) (gx#stx-e _L125198_)))) (declare (not safe)) (##structure gxc#!accessor::t - __tmp128850 - __tmp128849 - __tmp128848))) - _hd125150125188_ - _hd125147125180_ - _hd125144125172_) + __tmp128855 + __tmp128854 + __tmp128853))) + _hd125155125193_ + _hd125152125185_ + _hd125149125177_) (let () (declare (not safe)) - (_g125135125156_ _g125136125159_))))) + (_g125140125161_ _g125141125164_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g125135125156_ - _g125136125159_))))) + (_g125140125161_ + _g125141125164_))))) (let () (declare (not safe)) - (_g125135125156_ _g125136125159_))))) + (_g125140125161_ _g125141125164_))))) (let () (declare (not safe)) - (_g125135125156_ _g125136125159_))))) + (_g125140125161_ _g125141125164_))))) (let () (declare (not safe)) - (_g125135125156_ _g125136125159_)))))) + (_g125140125161_ _g125141125164_)))))) (declare (not safe)) - (_g125134125213_ _ann125133_)))) + (_g125139125218_ _ann125138_)))) (define gxc#basic-expression-type-annotation-mop.mutator - (lambda (_stx125048_ _ann125049_) - (let* ((_g125051125072_ - (lambda (_g125052125069_) + (lambda (_stx125053_ _ann125054_) + (let* ((_g125056125077_ + (lambda (_g125057125074_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g125052125069_)))) - (_g125050125129_ - (lambda (_g125052125075_) + _g125057125074_)))) + (_g125055125134_ + (lambda (_g125057125080_) (if (let () (declare (not safe)) - (gx#stx-pair? _g125052125075_)) - (let ((_e125058125077_ + (gx#stx-pair? _g125057125080_)) + (let ((_e125063125082_ (let () (declare (not safe)) - (gx#stx-e _g125052125075_)))) - (let ((_hd125057125080_ + (gx#stx-e _g125057125080_)))) + (let ((_hd125062125085_ (let () (declare (not safe)) - (##car _e125058125077_))) - (_tl125056125082_ + (##car _e125063125082_))) + (_tl125061125087_ (let () (declare (not safe)) - (##cdr _e125058125077_)))) + (##cdr _e125063125082_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125056125082_)) - (let ((_e125061125085_ + (gx#stx-pair? _tl125061125087_)) + (let ((_e125066125090_ (let () (declare (not safe)) - (gx#stx-e _tl125056125082_)))) - (let ((_hd125060125088_ + (gx#stx-e _tl125061125087_)))) + (let ((_hd125065125093_ (let () (declare (not safe)) - (##car _e125061125085_))) - (_tl125059125090_ + (##car _e125066125090_))) + (_tl125064125095_ (let () (declare (not safe)) - (##cdr _e125061125085_)))) + (##cdr _e125066125090_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125059125090_)) - (let ((_e125064125093_ + (gx#stx-pair? _tl125064125095_)) + (let ((_e125069125098_ (let () (declare (not safe)) - (gx#stx-e _tl125059125090_)))) - (let ((_hd125063125096_ + (gx#stx-e _tl125064125095_)))) + (let ((_hd125068125101_ (let () (declare (not safe)) - (##car _e125064125093_))) - (_tl125062125098_ + (##car _e125069125098_))) + (_tl125067125103_ (let () (declare (not safe)) - (##cdr _e125064125093_)))) + (##cdr _e125069125098_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl125062125098_)) - (let ((_e125067125101_ + _tl125067125103_)) + (let ((_e125072125106_ (let () (declare (not safe)) (gx#stx-e - _tl125062125098_)))) - (let ((_hd125066125104_ + _tl125067125103_)))) + (let ((_hd125071125109_ (let () (declare (not safe)) - (##car _e125067125101_))) - (_tl125065125106_ + (##car _e125072125106_))) + (_tl125070125111_ (let () (declare (not safe)) - (##cdr _e125067125101_)))) + (##cdr _e125072125106_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125065125106_)) - ((lambda (_L125109_ - _L125110_ - _L125111_) - (let ((__tmp128853 + _tl125070125111_)) + ((lambda (_L125114_ + _L125115_ + _L125116_) + (let ((__tmp128858 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#identifier-symbol _L125111_))) - (__tmp128852 - (let () (declare (not safe)) (gx#stx-e _L125110_))) - (__tmp128851 - (let () (declare (not safe)) (gx#stx-e _L125109_)))) + (gxc#identifier-symbol _L125116_))) + (__tmp128857 + (let () (declare (not safe)) (gx#stx-e _L125115_))) + (__tmp128856 + (let () (declare (not safe)) (gx#stx-e _L125114_)))) (declare (not safe)) (##structure gxc#!mutator::t - __tmp128853 - __tmp128852 - __tmp128851))) - _hd125066125104_ - _hd125063125096_ - _hd125060125088_) + __tmp128858 + __tmp128857 + __tmp128856))) + _hd125071125109_ + _hd125068125101_ + _hd125065125093_) (let () (declare (not safe)) - (_g125051125072_ _g125052125075_))))) + (_g125056125077_ _g125057125080_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g125051125072_ - _g125052125075_))))) + (_g125056125077_ + _g125057125080_))))) (let () (declare (not safe)) - (_g125051125072_ _g125052125075_))))) + (_g125056125077_ _g125057125080_))))) (let () (declare (not safe)) - (_g125051125072_ _g125052125075_))))) + (_g125056125077_ _g125057125080_))))) (let () (declare (not safe)) - (_g125051125072_ _g125052125075_)))))) + (_g125056125077_ _g125057125080_)))))) (declare (not safe)) - (_g125050125129_ _ann125049_)))) + (_g125055125134_ _ann125054_)))) (let () (declare (not safe)) (hash-put! @@ -3636,2048 +3636,2048 @@ '@mop.mutator gxc#basic-expression-type-annotation-mop.mutator)) (define gxc#basic-expression-type-lambda% - (lambda (_stx124168_) - (let* ((___stx127134127135_ _stx124168_) - (_g124174124370_ + (lambda (_stx124173_) + (let* ((___stx127139127140_ _stx124173_) + (_g124179124375_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx127134127135_))))) - (let ((___kont127136127137_ - (lambda (_L125036_) - (let ((__obj128804 + ___stx127139127140_))))) + (let ((___kont127141127142_ + (lambda (_L125041_) + (let ((__obj128809 (let () (declare (not safe)) (##structure gxc#!lambda::t '#f '#f '#f '#f '#f)))) (gxc#!lambda:::init! - __obj128804 + __obj128809 'lambda (let () (declare (not safe)) - (gxc#lambda-form-arity _L125036_)) + (gxc#lambda-form-arity _L125041_)) '#f) - __obj128804))) - (___kont127138127139_ - (lambda (_L124963_ - _L124964_ - _L124965_ - _L124966_ - _L124967_ - _L124968_) - (let* ((_tab125018_ - (let () (declare (not safe)) (gx#stx-e _L124965_))) - (_keys125020_ - (if _tab125018_ - (let ((__tmp128854 (vector->list _tab125018_))) + __obj128809))) + (___kont127143127144_ + (lambda (_L124968_ + _L124969_ + _L124970_ + _L124971_ + _L124972_ + _L124973_) + (let* ((_tab125023_ + (let () (declare (not safe)) (gx#stx-e _L124970_))) + (_keys125025_ + (if _tab125023_ + (let ((__tmp128859 (vector->list _tab125023_))) (declare (not safe)) - (filter values __tmp128854)) + (filter values __tmp128859)) '#f))) - (let ((__tmp128855 + (let ((__tmp128860 (let () (declare (not safe)) - (gxc#identifier-symbol _L124964_)))) + (gxc#identifier-symbol _L124969_)))) (declare (not safe)) (##structure gxc#!kw-lambda::t 'kw-lambda - _keys125020_ - __tmp128855))))) - (___kont127140127141_ - (lambda (_L124696_ - _L124697_ - _L124698_ - _L124699_ - _L124700_ - _L124701_ + _keys125025_ + __tmp128860))))) + (___kont127145127146_ + (lambda (_L124701_ _L124702_ _L124703_ _L124704_ - _L124705_) - (let ((__tmp128857 + _L124705_ + _L124706_ + _L124707_ + _L124708_ + _L124709_ + _L124710_) + (let ((__tmp128862 (map gx#stx-e - (let ((__tmp128858 - (lambda (_g124798124801_ _g124799124803_) + (let ((__tmp128863 + (lambda (_g124803124806_ _g124804124808_) (let () (declare (not safe)) - (cons _g124798124801_ - _g124799124803_))))) + (cons _g124803124806_ + _g124804124808_))))) (declare (not safe)) - (foldr1 __tmp128858 '() _L124698_)))) - (__tmp128856 + (foldr1 __tmp128863 '() _L124703_)))) + (__tmp128861 (let () (declare (not safe)) - (gxc#identifier-symbol _L124702_)))) + (gxc#identifier-symbol _L124707_)))) (declare (not safe)) (##structure gxc#!kw-lambda-primary::t 'kw-lambda-dispatch - __tmp128857 - __tmp128856)))) - (___kont127144127145_ - (lambda (_L124406_) - (let ((__obj128805 + __tmp128862 + __tmp128861)))) + (___kont127149127150_ + (lambda (_L124411_) + (let ((__obj128810 (let () (declare (not safe)) (##structure gxc#!lambda::t '#f '#f '#f '#f '#f)))) (gxc#!lambda:::init! - __obj128805 + __obj128810 'lambda (let () (declare (not safe)) - (gxc#lambda-form-arity _L124406_)) + (gxc#lambda-form-arity _L124411_)) (let () (declare (not safe)) - (gxc#dispatch-lambda-form-delegate _L124406_))) - __obj128805))) - (___kont127146127147_ - (lambda (_L124383_) - (let ((__obj128806 + (gxc#dispatch-lambda-form-delegate _L124411_))) + __obj128810))) + (___kont127151127152_ + (lambda (_L124388_) + (let ((__obj128811 (let () (declare (not safe)) (##structure gxc#!lambda::t '#f '#f '#f '#f '#f)))) (gxc#!lambda:::init! - __obj128806 + __obj128811 'lambda (let () (declare (not safe)) - (gxc#lambda-form-arity _L124383_)) + (gxc#lambda-form-arity _L124388_)) '#f) - __obj128806)))) - (let* ((___match127453127454_ - (lambda (_e124361124398_ _hd124360124401_ _tl124359124403_) - (let ((_L124406_ _tl124359124403_)) + __obj128811)))) + (let* ((___match127458127459_ + (lambda (_e124366124403_ _hd124365124406_ _tl124364124408_) + (let ((_L124411_ _tl124364124408_)) (if (let () (declare (not safe)) - (gxc#dispatch-lambda-form? _L124406_)) - (___kont127144127145_ _L124406_) - (___kont127146127147_ _tl124359124403_))))) - (___match127447127448_ - (lambda (_e124255124420_ - _hd124254124423_ - _tl124253124425_ - _e124258124428_ - _hd124257124431_ - _tl124256124433_ - _e124261124436_ - _hd124260124439_ - _tl124259124441_ - _e124264124444_ - _hd124263124447_ - _tl124262124449_ - _e124267124452_ - _hd124266124455_ - _tl124265124457_ - _e124270124460_ - _hd124269124463_ - _tl124268124465_ - _e124273124468_ - _hd124272124471_ - _tl124271124473_ - _e124276124476_ - _hd124275124479_ - _tl124274124481_ - _e124279124484_ - _hd124278124487_ - _tl124277124489_ - _e124282124492_ - _hd124281124495_ - _tl124280124497_ - _e124285124500_ - _hd124284124503_ - _tl124283124505_ - _e124288124508_ - _hd124287124511_ - _tl124286124513_ - _e124291124516_ - _hd124290124519_ - _tl124289124521_ - _e124294124524_ - _hd124293124527_ - _tl124292124529_ - ___splice127142127143_ - _target124295124532_ + (gxc#dispatch-lambda-form? _L124411_)) + (___kont127149127150_ _L124411_) + (___kont127151127152_ _tl124364124408_))))) + (___match127452127453_ + (lambda (_e124260124425_ + _hd124259124428_ + _tl124258124430_ + _e124263124433_ + _hd124262124436_ + _tl124261124438_ + _e124266124441_ + _hd124265124444_ + _tl124264124446_ + _e124269124449_ + _hd124268124452_ + _tl124267124454_ + _e124272124457_ + _hd124271124460_ + _tl124270124462_ + _e124275124465_ + _hd124274124468_ + _tl124273124470_ + _e124278124473_ + _hd124277124476_ + _tl124276124478_ + _e124281124481_ + _hd124280124484_ + _tl124279124486_ + _e124284124489_ + _hd124283124492_ + _tl124282124494_ + _e124287124497_ + _hd124286124500_ + _tl124285124502_ + _e124290124505_ + _hd124289124508_ + _tl124288124510_ + _e124293124513_ + _hd124292124516_ + _tl124291124518_ + _e124296124521_ + _hd124295124524_ + _tl124294124526_ + _e124299124529_ + _hd124298124532_ _tl124297124534_ - _e124312124537_ - _hd124311124540_ - _tl124310124542_ - _e124315124545_ - _hd124314124548_ - _tl124313124550_ - _e124318124553_ - _hd124317124556_ - _tl124316124558_) - (letrec ((_loop124298124561_ - (lambda (_hd124296124564_ - _-absent-value124302124566_ - _key124303124568_ - _-xkwvar124304124570_ - _-hash-ref124305124572_) + ___splice127147127148_ + _target124300124537_ + _tl124302124539_ + _e124317124542_ + _hd124316124545_ + _tl124315124547_ + _e124320124550_ + _hd124319124553_ + _tl124318124555_ + _e124323124558_ + _hd124322124561_ + _tl124321124563_) + (letrec ((_loop124303124566_ + (lambda (_hd124301124569_ + _-absent-value124307124571_ + _key124308124573_ + _-xkwvar124309124575_ + _-hash-ref124310124577_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd124296124564_)) - (let ((_e124299124575_ + (gx#stx-pair? _hd124301124569_)) + (let ((_e124304124580_ (let () (declare (not safe)) - (gx#stx-e _hd124296124564_)))) - (let ((_lp-tl124301124580_ + (gx#stx-e _hd124301124569_)))) + (let ((_lp-tl124306124585_ (let () (declare (not safe)) - (##cdr _e124299124575_))) - (_lp-hd124300124578_ + (##cdr _e124304124580_))) + (_lp-hd124305124583_ (let () (declare (not safe)) - (##car _e124299124575_)))) + (##car _e124304124580_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd124300124578_)) - (let ((_e124321124583_ + _lp-hd124305124583_)) + (let ((_e124326124588_ (let () (declare (not safe)) (gx#stx-e - _lp-hd124300124578_)))) - (let ((_tl124319124588_ + _lp-hd124305124583_)))) + (let ((_tl124324124593_ (let () (declare (not safe)) - (##cdr _e124321124583_))) - (_hd124320124586_ + (##cdr _e124326124588_))) + (_hd124325124591_ (let () (declare (not safe)) - (##car _e124321124583_)))) + (##car _e124326124588_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd124320124586_)) + _hd124325124591_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd124320124586_)) + _hd124325124591_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl124319124588_)) - (let ((_e124324124591_ + (gx#stx-pair? _tl124324124593_)) + (let ((_e124329124596_ (let () (declare (not safe)) - (gx#stx-e _tl124319124588_)))) - (let ((_tl124322124596_ + (gx#stx-e _tl124324124593_)))) + (let ((_tl124327124601_ (let () (declare (not safe)) - (##cdr _e124324124591_))) - (_hd124323124594_ + (##cdr _e124329124596_))) + (_hd124328124599_ (let () (declare (not safe)) - (##car _e124324124591_)))) + (##car _e124329124596_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd124323124594_)) - (let ((_e124327124599_ + (gx#stx-pair? _hd124328124599_)) + (let ((_e124332124604_ (let () (declare (not safe)) - (gx#stx-e _hd124323124594_)))) - (let ((_tl124325124604_ + (gx#stx-e _hd124328124599_)))) + (let ((_tl124330124609_ (let () (declare (not safe)) - (##cdr _e124327124599_))) - (_hd124326124602_ + (##cdr _e124332124604_))) + (_hd124331124607_ (let () (declare (not safe)) - (##car _e124327124599_)))) + (##car _e124332124604_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd124326124602_)) + (gx#identifier? _hd124331124607_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd124326124602_)) + _hd124331124607_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl124325124604_)) - (let ((_e124330124607_ + _tl124330124609_)) + (let ((_e124335124612_ (let () (declare (not safe)) (gx#stx-e - _tl124325124604_)))) - (let ((_tl124328124612_ + _tl124330124609_)))) + (let ((_tl124333124617_ (let () (declare (not safe)) - (##cdr _e124330124607_))) - (_hd124329124610_ + (##cdr _e124335124612_))) + (_hd124334124615_ (let () (declare (not safe)) - (##car _e124330124607_)))) + (##car _e124335124612_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl124328124612_)) + _tl124333124617_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl124322124596_)) - (let ((_e124333124615_ + _tl124327124601_)) + (let ((_e124338124620_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl124322124596_)))) - (let ((_tl124331124620_ + (gx#stx-e _tl124327124601_)))) + (let ((_tl124336124625_ (let () (declare (not safe)) - (##cdr _e124333124615_))) - (_hd124332124618_ + (##cdr _e124338124620_))) + (_hd124337124623_ (let () (declare (not safe)) - (##car _e124333124615_)))) + (##car _e124338124620_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd124332124618_)) - (let ((_e124336124623_ + (gx#stx-pair? _hd124337124623_)) + (let ((_e124341124628_ (let () (declare (not safe)) - (gx#stx-e _hd124332124618_)))) - (let ((_tl124334124628_ + (gx#stx-e _hd124337124623_)))) + (let ((_tl124339124633_ (let () (declare (not safe)) - (##cdr _e124336124623_))) - (_hd124335124626_ + (##cdr _e124341124628_))) + (_hd124340124631_ (let () (declare (not safe)) - (##car _e124336124623_)))) + (##car _e124341124628_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd124335124626_)) + (gx#identifier? _hd124340124631_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd124335124626_)) + (gx#stx-eq? '%#ref _hd124340124631_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124334124628_)) - (let ((_e124339124631_ + (gx#stx-pair? _tl124339124633_)) + (let ((_e124344124636_ (let () (declare (not safe)) (gx#stx-e - _tl124334124628_)))) - (let ((_tl124337124636_ + _tl124339124633_)))) + (let ((_tl124342124641_ (let () (declare (not safe)) - (##cdr _e124339124631_))) - (_hd124338124634_ + (##cdr _e124344124636_))) + (_hd124343124639_ (let () (declare (not safe)) - (##car _e124339124631_)))) + (##car _e124344124636_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl124337124636_)) + _tl124342124641_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl124331124620_)) - (let ((_e124342124639_ + _tl124336124625_)) + (let ((_e124347124644_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl124331124620_)))) - (let ((_tl124340124644_ - (let () (declare (not safe)) (##cdr _e124342124639_))) - (_hd124341124642_ - (let () (declare (not safe)) (##car _e124342124639_)))) + (gx#stx-e _tl124336124625_)))) + (let ((_tl124345124649_ + (let () (declare (not safe)) (##cdr _e124347124644_))) + (_hd124346124647_ + (let () (declare (not safe)) (##car _e124347124644_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd124341124642_)) - (let ((_e124345124647_ + (gx#stx-pair? _hd124346124647_)) + (let ((_e124350124652_ (let () (declare (not safe)) - (gx#stx-e _hd124341124642_)))) - (let ((_tl124343124652_ + (gx#stx-e _hd124346124647_)))) + (let ((_tl124348124657_ (let () (declare (not safe)) - (##cdr _e124345124647_))) - (_hd124344124650_ + (##cdr _e124350124652_))) + (_hd124349124655_ (let () (declare (not safe)) - (##car _e124345124647_)))) + (##car _e124350124652_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd124344124650_)) + (gx#identifier? _hd124349124655_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd124344124650_)) + (gx#stx-eq? '%#quote _hd124349124655_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124343124652_)) - (let ((_e124348124655_ + (gx#stx-pair? _tl124348124657_)) + (let ((_e124353124660_ (let () (declare (not safe)) - (gx#stx-e _tl124343124652_)))) - (let ((_tl124346124660_ + (gx#stx-e _tl124348124657_)))) + (let ((_tl124351124665_ (let () (declare (not safe)) - (##cdr _e124348124655_))) - (_hd124347124658_ + (##cdr _e124353124660_))) + (_hd124352124663_ (let () (declare (not safe)) - (##car _e124348124655_)))) + (##car _e124353124660_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl124346124660_)) + _tl124351124665_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl124340124644_)) - (let ((_e124351124663_ + _tl124345124649_)) + (let ((_e124356124668_ (let () (declare (not safe)) (gx#stx-e - _tl124340124644_)))) - (let ((_tl124349124668_ + _tl124345124649_)))) + (let ((_tl124354124673_ (let () (declare (not safe)) - (##cdr _e124351124663_))) - (_hd124350124666_ + (##cdr _e124356124668_))) + (_hd124355124671_ (let () (declare (not safe)) - (##car _e124351124663_)))) + (##car _e124356124668_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd124350124666_)) - (let ((_e124354124671_ + _hd124355124671_)) + (let ((_e124359124676_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd124350124666_)))) - (let ((_tl124352124676_ + (gx#stx-e _hd124355124671_)))) + (let ((_tl124357124681_ (let () (declare (not safe)) - (##cdr _e124354124671_))) - (_hd124353124674_ + (##cdr _e124359124676_))) + (_hd124358124679_ (let () (declare (not safe)) - (##car _e124354124671_)))) + (##car _e124359124676_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd124353124674_)) + (gx#identifier? _hd124358124679_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd124353124674_)) + (gx#stx-eq? '%#ref _hd124358124679_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124352124676_)) - (let ((_e124357124679_ + (gx#stx-pair? _tl124357124681_)) + (let ((_e124362124684_ (let () (declare (not safe)) - (gx#stx-e _tl124352124676_)))) - (let ((_tl124355124684_ + (gx#stx-e _tl124357124681_)))) + (let ((_tl124360124689_ (let () (declare (not safe)) - (##cdr _e124357124679_))) - (_hd124356124682_ + (##cdr _e124362124684_))) + (_hd124361124687_ (let () (declare (not safe)) - (##car _e124357124679_)))) + (##car _e124362124684_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl124355124684_)) + (gx#stx-null? _tl124360124689_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl124349124668_)) - (let ((__tmp128873 + _tl124354124673_)) + (let ((__tmp128878 (let () (declare (not safe)) - (cons _hd124356124682_ - _-absent-value124302124566_))) - (__tmp128872 + (cons _hd124361124687_ + _-absent-value124307124571_))) + (__tmp128877 (let () (declare (not safe)) - (cons _hd124347124658_ - _key124303124568_))) - (__tmp128871 + (cons _hd124352124663_ + _key124308124573_))) + (__tmp128876 (let () (declare (not safe)) - (cons _hd124338124634_ - _-xkwvar124304124570_))) - (__tmp128870 + (cons _hd124343124639_ + _-xkwvar124309124575_))) + (__tmp128875 (let () (declare (not safe)) - (cons _hd124329124610_ - _-hash-ref124305124572_)))) + (cons _hd124334124615_ + _-hash-ref124310124577_)))) (declare (not safe)) - (_loop124298124561_ - _lp-tl124301124580_ - __tmp128873 - __tmp128872 - __tmp128871 - __tmp128870)) - (___match127453127454_ - _e124255124420_ - _hd124254124423_ - _tl124253124425_)) - (___match127453127454_ - _e124255124420_ - _hd124254124423_ - _tl124253124425_)))) - (___match127453127454_ - _e124255124420_ - _hd124254124423_ - _tl124253124425_)) - (___match127453127454_ - _e124255124420_ - _hd124254124423_ - _tl124253124425_)) - (___match127453127454_ - _e124255124420_ - _hd124254124423_ - _tl124253124425_)))) - (___match127453127454_ - _e124255124420_ - _hd124254124423_ - _tl124253124425_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match127453127454_ - _e124255124420_ - _hd124254124423_ - _tl124253124425_)) - (___match127453127454_ - _e124255124420_ - _hd124254124423_ - _tl124253124425_)))) - (___match127453127454_ - _e124255124420_ - _hd124254124423_ - _tl124253124425_)) - (___match127453127454_ - _e124255124420_ - _hd124254124423_ - _tl124253124425_)) - (___match127453127454_ - _e124255124420_ - _hd124254124423_ - _tl124253124425_)))) - (___match127453127454_ - _e124255124420_ - _hd124254124423_ - _tl124253124425_)))) - (___match127453127454_ - _e124255124420_ - _hd124254124423_ - _tl124253124425_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match127453127454_ - _e124255124420_ - _hd124254124423_ - _tl124253124425_)))) - (___match127453127454_ - _e124255124420_ - _hd124254124423_ - _tl124253124425_)) - (___match127453127454_ - _e124255124420_ - _hd124254124423_ - _tl124253124425_)) - (___match127453127454_ - _e124255124420_ - _hd124254124423_ - _tl124253124425_)))) - (___match127453127454_ - _e124255124420_ - _hd124254124423_ - _tl124253124425_)))) - (___match127453127454_ - _e124255124420_ - _hd124254124423_ - _tl124253124425_)) - (___match127453127454_ - _e124255124420_ - _hd124254124423_ - _tl124253124425_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match127453127454_ - _e124255124420_ - _hd124254124423_ - _tl124253124425_)) - (___match127453127454_ - _e124255124420_ - _hd124254124423_ - _tl124253124425_)) - (___match127453127454_ - _e124255124420_ - _hd124254124423_ - _tl124253124425_)))) - (___match127453127454_ - _e124255124420_ - _hd124254124423_ - _tl124253124425_)))) - (___match127453127454_ - _e124255124420_ - _hd124254124423_ - _tl124253124425_)) - (___match127453127454_ - _e124255124420_ - _hd124254124423_ - _tl124253124425_)) - (___match127453127454_ - _e124255124420_ - _hd124254124423_ - _tl124253124425_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match127453127454_ - _e124255124420_ - _hd124254124423_ - _tl124253124425_)))) - (let ((_-hash-ref124309124693_ - (reverse _-hash-ref124305124572_)) - (_-xkwvar124308124691_ - (reverse _-xkwvar124304124570_)) - (_key124307124689_ - (reverse _key124303124568_)) - (_-absent-value124306124687_ - (reverse _-absent-value124302124566_))) + (_loop124303124566_ + _lp-tl124306124585_ + __tmp128878 + __tmp128877 + __tmp128876 + __tmp128875)) + (___match127458127459_ + _e124260124425_ + _hd124259124428_ + _tl124258124430_)) + (___match127458127459_ + _e124260124425_ + _hd124259124428_ + _tl124258124430_)))) + (___match127458127459_ + _e124260124425_ + _hd124259124428_ + _tl124258124430_)) + (___match127458127459_ + _e124260124425_ + _hd124259124428_ + _tl124258124430_)) + (___match127458127459_ + _e124260124425_ + _hd124259124428_ + _tl124258124430_)))) + (___match127458127459_ + _e124260124425_ + _hd124259124428_ + _tl124258124430_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match127458127459_ + _e124260124425_ + _hd124259124428_ + _tl124258124430_)) + (___match127458127459_ + _e124260124425_ + _hd124259124428_ + _tl124258124430_)))) + (___match127458127459_ + _e124260124425_ + _hd124259124428_ + _tl124258124430_)) + (___match127458127459_ + _e124260124425_ + _hd124259124428_ + _tl124258124430_)) + (___match127458127459_ + _e124260124425_ + _hd124259124428_ + _tl124258124430_)))) + (___match127458127459_ + _e124260124425_ + _hd124259124428_ + _tl124258124430_)))) + (___match127458127459_ + _e124260124425_ + _hd124259124428_ + _tl124258124430_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match127458127459_ + _e124260124425_ + _hd124259124428_ + _tl124258124430_)))) + (___match127458127459_ + _e124260124425_ + _hd124259124428_ + _tl124258124430_)) + (___match127458127459_ + _e124260124425_ + _hd124259124428_ + _tl124258124430_)) + (___match127458127459_ + _e124260124425_ + _hd124259124428_ + _tl124258124430_)))) + (___match127458127459_ + _e124260124425_ + _hd124259124428_ + _tl124258124430_)))) + (___match127458127459_ + _e124260124425_ + _hd124259124428_ + _tl124258124430_)) + (___match127458127459_ + _e124260124425_ + _hd124259124428_ + _tl124258124430_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match127458127459_ + _e124260124425_ + _hd124259124428_ + _tl124258124430_)) + (___match127458127459_ + _e124260124425_ + _hd124259124428_ + _tl124258124430_)) + (___match127458127459_ + _e124260124425_ + _hd124259124428_ + _tl124258124430_)))) + (___match127458127459_ + _e124260124425_ + _hd124259124428_ + _tl124258124430_)))) + (___match127458127459_ + _e124260124425_ + _hd124259124428_ + _tl124258124430_)) + (___match127458127459_ + _e124260124425_ + _hd124259124428_ + _tl124258124430_)) + (___match127458127459_ + _e124260124425_ + _hd124259124428_ + _tl124258124430_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match127458127459_ + _e124260124425_ + _hd124259124428_ + _tl124258124430_)))) + (let ((_-hash-ref124314124698_ + (reverse _-hash-ref124310124577_)) + (_-xkwvar124313124696_ + (reverse _-xkwvar124309124575_)) + (_key124312124694_ + (reverse _key124308124573_)) + (_-absent-value124311124692_ + (reverse _-absent-value124307124571_))) (if (let () (declare (not safe)) - (gx#stx-null? _tl124262124449_)) - (let ((_L124696_ _hd124317124556_) - (_L124697_ - _-absent-value124306124687_) - (_L124698_ _key124307124689_) - (_L124699_ - _-xkwvar124308124691_) - (_L124700_ - _-hash-ref124309124693_) - (_L124701_ _hd124293124527_) - (_L124702_ _hd124284124503_) - (_L124703_ _hd124275124479_) - (_L124704_ _tl124259124441_) - (_L124705_ _hd124260124439_)) + (gx#stx-null? _tl124267124454_)) + (let ((_L124701_ _hd124322124561_) + (_L124702_ + _-absent-value124311124692_) + (_L124703_ _key124312124694_) + (_L124704_ + _-xkwvar124313124696_) + (_L124705_ + _-hash-ref124314124698_) + (_L124706_ _hd124298124532_) + (_L124707_ _hd124289124508_) + (_L124708_ _hd124280124484_) + (_L124709_ _tl124264124446_) + (_L124710_ _hd124265124444_)) (if (and (let () (declare (not safe)) (gx#identifier? - _L124705_)) + _L124710_)) (let () (declare (not safe)) (gx#identifier? - _L124704_)) + _L124709_)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L124703_ + _L124708_ 'apply)) (let () (declare (not safe)) (gx#free-identifier=? - _L124705_ - _L124701_)) - (let ((__tmp128868 - (let ((__tmp128869 + _L124710_ + _L124706_)) + (let ((__tmp128873 + (let ((__tmp128874 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g124758124761_ _g124759124763_) + (lambda (_g124763124766_ _g124764124768_) (let () (declare (not safe)) - (cons _g124758124761_ _g124759124763_))))) + (cons _g124763124766_ _g124764124768_))))) (declare (not safe)) - (foldr1 __tmp128869 '() _L124698_)))) + (foldr1 __tmp128874 '() _L124703_)))) (declare (not safe)) - (andmap1 gx#stx-keyword? __tmp128868)) - (let ((__tmp128867 - (lambda (_g124765124767_) + (andmap1 gx#stx-keyword? __tmp128873)) + (let ((__tmp128872 + (lambda (_g124770124772_) (let () (declare (not safe)) (gxc#runtime-identifier=? - _g124765124767_ + _g124770124772_ 'hash-ref)))) - (__tmp128865 - (let ((__tmp128866 - (lambda (_g124769124772_ _g124770124774_) + (__tmp128870 + (let ((__tmp128871 + (lambda (_g124774124777_ _g124775124779_) (let () (declare (not safe)) - (cons _g124769124772_ _g124770124774_))))) + (cons _g124774124777_ _g124775124779_))))) (declare (not safe)) - (foldr1 __tmp128866 '() _L124700_)))) + (foldr1 __tmp128871 '() _L124705_)))) (declare (not safe)) - (andmap1 __tmp128867 __tmp128865)) - (let ((__tmp128864 - (lambda (_g124776124778_) + (andmap1 __tmp128872 __tmp128870)) + (let ((__tmp128869 + (lambda (_g124781124783_) (let () (declare (not safe)) (gxc#runtime-identifier=? - _g124776124778_ + _g124781124783_ 'absent-value)))) - (__tmp128862 - (let ((__tmp128863 - (lambda (_g124780124783_ _g124781124785_) + (__tmp128867 + (let ((__tmp128868 + (lambda (_g124785124788_ _g124786124790_) (let () (declare (not safe)) - (cons _g124780124783_ _g124781124785_))))) + (cons _g124785124788_ _g124786124790_))))) (declare (not safe)) - (foldr1 __tmp128863 '() _L124697_)))) + (foldr1 __tmp128868 '() _L124702_)))) (declare (not safe)) - (andmap1 __tmp128864 __tmp128862)) - (let ((__tmp128861 - (lambda (_g124787124789_) + (andmap1 __tmp128869 __tmp128867)) + (let ((__tmp128866 + (lambda (_g124792124794_) (let () (declare (not safe)) - (gx#free-identifier=? _g124787124789_ _L124705_)))) - (__tmp128859 - (let ((__tmp128860 - (lambda (_g124791124794_ _g124792124796_) + (gx#free-identifier=? _g124792124794_ _L124710_)))) + (__tmp128864 + (let ((__tmp128865 + (lambda (_g124796124799_ _g124797124801_) (let () (declare (not safe)) - (cons _g124791124794_ _g124792124796_))))) + (cons _g124796124799_ _g124797124801_))))) (declare (not safe)) - (foldr1 __tmp128860 '() _L124699_)))) + (foldr1 __tmp128865 '() _L124704_)))) (declare (not safe)) - (andmap1 __tmp128861 __tmp128859))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont127140127141_ - _L124696_ - _L124697_ - _L124698_ - _L124699_ - _L124700_ + (andmap1 __tmp128866 __tmp128864))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont127145127146_ _L124701_ _L124702_ _L124703_ _L124704_ - _L124705_) - (___match127453127454_ - _e124255124420_ - _hd124254124423_ - _tl124253124425_))) - (___match127453127454_ - _e124255124420_ - _hd124254124423_ - _tl124253124425_))))))) + _L124705_ + _L124706_ + _L124707_ + _L124708_ + _L124709_ + _L124710_) + (___match127458127459_ + _e124260124425_ + _hd124259124428_ + _tl124258124430_))) + (___match127458127459_ + _e124260124425_ + _hd124259124428_ + _tl124258124430_))))))) (let () (declare (not safe)) - (_loop124298124561_ - _target124295124532_ + (_loop124303124566_ + _target124300124537_ '() '() '() '()))))) - (___match127319127320_ - (lambda (_e124255124420_ - _hd124254124423_ - _tl124253124425_ - _e124258124428_ - _hd124257124431_ - _tl124256124433_) + (___match127324127325_ + (lambda (_e124260124425_ + _hd124259124428_ + _tl124258124430_ + _e124263124433_ + _hd124262124436_ + _tl124261124438_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd124257124431_)) - (let ((_e124261124436_ + (gx#stx-pair? _hd124262124436_)) + (let ((_e124266124441_ (let () (declare (not safe)) - (gx#stx-e _hd124257124431_)))) - (let ((_tl124259124441_ + (gx#stx-e _hd124262124436_)))) + (let ((_tl124264124446_ (let () (declare (not safe)) - (##cdr _e124261124436_))) - (_hd124260124439_ + (##cdr _e124266124441_))) + (_hd124265124444_ (let () (declare (not safe)) - (##car _e124261124436_)))) + (##car _e124266124441_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124256124433_)) - (let ((_e124264124444_ + (gx#stx-pair? _tl124261124438_)) + (let ((_e124269124449_ (let () (declare (not safe)) - (gx#stx-e _tl124256124433_)))) - (let ((_tl124262124449_ + (gx#stx-e _tl124261124438_)))) + (let ((_tl124267124454_ (let () (declare (not safe)) - (##cdr _e124264124444_))) - (_hd124263124447_ + (##cdr _e124269124449_))) + (_hd124268124452_ (let () (declare (not safe)) - (##car _e124264124444_)))) + (##car _e124269124449_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd124263124447_)) - (let ((_e124267124452_ + (gx#stx-pair? _hd124268124452_)) + (let ((_e124272124457_ (let () (declare (not safe)) (gx#stx-e - _hd124263124447_)))) - (let ((_tl124265124457_ + _hd124268124452_)))) + (let ((_tl124270124462_ (let () (declare (not safe)) - (##cdr _e124267124452_))) - (_hd124266124455_ + (##cdr _e124272124457_))) + (_hd124271124460_ (let () (declare (not safe)) - (##car _e124267124452_)))) + (##car _e124272124457_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd124266124455_)) + _hd124271124460_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd124266124455_)) + _hd124271124460_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl124265124457_)) - (let ((_e124270124460_ + _tl124270124462_)) + (let ((_e124275124465_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl124265124457_)))) - (let ((_tl124268124465_ + (gx#stx-e _tl124270124462_)))) + (let ((_tl124273124470_ (let () (declare (not safe)) - (##cdr _e124270124460_))) - (_hd124269124463_ + (##cdr _e124275124465_))) + (_hd124274124468_ (let () (declare (not safe)) - (##car _e124270124460_)))) + (##car _e124275124465_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd124269124463_)) - (let ((_e124273124468_ + (gx#stx-pair? _hd124274124468_)) + (let ((_e124278124473_ (let () (declare (not safe)) - (gx#stx-e _hd124269124463_)))) - (let ((_tl124271124473_ + (gx#stx-e _hd124274124468_)))) + (let ((_tl124276124478_ (let () (declare (not safe)) - (##cdr _e124273124468_))) - (_hd124272124471_ + (##cdr _e124278124473_))) + (_hd124277124476_ (let () (declare (not safe)) - (##car _e124273124468_)))) + (##car _e124278124473_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd124272124471_)) + (gx#identifier? _hd124277124476_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd124272124471_)) + (gx#stx-eq? '%#ref _hd124277124476_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124271124473_)) - (let ((_e124276124476_ + (gx#stx-pair? _tl124276124478_)) + (let ((_e124281124481_ (let () (declare (not safe)) (gx#stx-e - _tl124271124473_)))) - (let ((_tl124274124481_ + _tl124276124478_)))) + (let ((_tl124279124486_ (let () (declare (not safe)) - (##cdr _e124276124476_))) - (_hd124275124479_ + (##cdr _e124281124481_))) + (_hd124280124484_ (let () (declare (not safe)) - (##car _e124276124476_)))) + (##car _e124281124481_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl124274124481_)) + _tl124279124486_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl124268124465_)) - (let ((_e124279124484_ + _tl124273124470_)) + (let ((_e124284124489_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl124268124465_)))) - (let ((_tl124277124489_ - (let () (declare (not safe)) (##cdr _e124279124484_))) - (_hd124278124487_ - (let () (declare (not safe)) (##car _e124279124484_)))) + (gx#stx-e _tl124273124470_)))) + (let ((_tl124282124494_ + (let () (declare (not safe)) (##cdr _e124284124489_))) + (_hd124283124492_ + (let () (declare (not safe)) (##car _e124284124489_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd124278124487_)) - (let ((_e124282124492_ + (gx#stx-pair? _hd124283124492_)) + (let ((_e124287124497_ (let () (declare (not safe)) - (gx#stx-e _hd124278124487_)))) - (let ((_tl124280124497_ + (gx#stx-e _hd124283124492_)))) + (let ((_tl124285124502_ (let () (declare (not safe)) - (##cdr _e124282124492_))) - (_hd124281124495_ + (##cdr _e124287124497_))) + (_hd124286124500_ (let () (declare (not safe)) - (##car _e124282124492_)))) + (##car _e124287124497_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd124281124495_)) + (gx#identifier? _hd124286124500_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd124281124495_)) + (gx#stx-eq? '%#ref _hd124286124500_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124280124497_)) - (let ((_e124285124500_ + (gx#stx-pair? _tl124285124502_)) + (let ((_e124290124505_ (let () (declare (not safe)) - (gx#stx-e _tl124280124497_)))) - (let ((_tl124283124505_ + (gx#stx-e _tl124285124502_)))) + (let ((_tl124288124510_ (let () (declare (not safe)) - (##cdr _e124285124500_))) - (_hd124284124503_ + (##cdr _e124290124505_))) + (_hd124289124508_ (let () (declare (not safe)) - (##car _e124285124500_)))) + (##car _e124290124505_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl124283124505_)) + _tl124288124510_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl124277124489_)) - (let ((_e124288124508_ + _tl124282124494_)) + (let ((_e124293124513_ (let () (declare (not safe)) (gx#stx-e - _tl124277124489_)))) - (let ((_tl124286124513_ + _tl124282124494_)))) + (let ((_tl124291124518_ (let () (declare (not safe)) - (##cdr _e124288124508_))) - (_hd124287124511_ + (##cdr _e124293124513_))) + (_hd124292124516_ (let () (declare (not safe)) - (##car _e124288124508_)))) + (##car _e124293124513_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd124287124511_)) - (let ((_e124291124516_ + _hd124292124516_)) + (let ((_e124296124521_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd124287124511_)))) - (let ((_tl124289124521_ + (gx#stx-e _hd124292124516_)))) + (let ((_tl124294124526_ (let () (declare (not safe)) - (##cdr _e124291124516_))) - (_hd124290124519_ + (##cdr _e124296124521_))) + (_hd124295124524_ (let () (declare (not safe)) - (##car _e124291124516_)))) + (##car _e124296124521_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd124290124519_)) + (gx#identifier? _hd124295124524_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd124290124519_)) + (gx#stx-eq? '%#ref _hd124295124524_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124289124521_)) - (let ((_e124294124524_ + (gx#stx-pair? _tl124294124526_)) + (let ((_e124299124529_ (let () (declare (not safe)) - (gx#stx-e _tl124289124521_)))) - (let ((_tl124292124529_ + (gx#stx-e _tl124294124526_)))) + (let ((_tl124297124534_ (let () (declare (not safe)) - (##cdr _e124294124524_))) - (_hd124293124527_ + (##cdr _e124299124529_))) + (_hd124298124532_ (let () (declare (not safe)) - (##car _e124294124524_)))) + (##car _e124299124529_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl124292124529_)) + (gx#stx-null? _tl124297124534_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl124286124513_)) + _tl124291124518_)) (if (fx>= (let () (declare (not safe)) (gx#stx-length - _tl124286124513_)) + _tl124291124518_)) '1) - (let ((___splice127142127143_ + (let ((___splice127147127148_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl124286124513_ + _tl124291124518_ '1)))) - (let ((_tl124297124534_ + (let ((_tl124302124539_ (let () (declare (not safe)) (##vector-ref - ___splice127142127143_ + ___splice127147127148_ '1))) - (_target124295124532_ + (_target124300124537_ (let () (declare (not safe)) (##vector-ref - ___splice127142127143_ + ___splice127147127148_ '0)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl124297124534_)) - (let ((_e124312124537_ + _tl124302124539_)) + (let ((_e124317124542_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl124297124534_)))) - (let ((_tl124310124542_ + (gx#stx-e _tl124302124539_)))) + (let ((_tl124315124547_ (let () (declare (not safe)) - (##cdr _e124312124537_))) - (_hd124311124540_ + (##cdr _e124317124542_))) + (_hd124316124545_ (let () (declare (not safe)) - (##car _e124312124537_)))) + (##car _e124317124542_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd124311124540_)) - (let ((_e124315124545_ + (gx#stx-pair? _hd124316124545_)) + (let ((_e124320124550_ (let () (declare (not safe)) - (gx#stx-e _hd124311124540_)))) - (let ((_tl124313124550_ + (gx#stx-e _hd124316124545_)))) + (let ((_tl124318124555_ (let () (declare (not safe)) - (##cdr _e124315124545_))) - (_hd124314124548_ + (##cdr _e124320124550_))) + (_hd124319124553_ (let () (declare (not safe)) - (##car _e124315124545_)))) + (##car _e124320124550_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd124314124548_)) + (gx#identifier? _hd124319124553_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd124314124548_)) + (gx#stx-eq? '%#ref _hd124319124553_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124313124550_)) - (let ((_e124318124553_ + (gx#stx-pair? _tl124318124555_)) + (let ((_e124323124558_ (let () (declare (not safe)) (gx#stx-e - _tl124313124550_)))) - (let ((_tl124316124558_ + _tl124318124555_)))) + (let ((_tl124321124563_ (let () (declare (not safe)) - (##cdr _e124318124553_))) - (_hd124317124556_ + (##cdr _e124323124558_))) + (_hd124322124561_ (let () (declare (not safe)) - (##car _e124318124553_)))) + (##car _e124323124558_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl124316124558_)) + _tl124321124563_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl124310124542_)) - (___match127447127448_ - _e124255124420_ - _hd124254124423_ - _tl124253124425_ - _e124258124428_ - _hd124257124431_ - _tl124256124433_ - _e124261124436_ - _hd124260124439_ - _tl124259124441_ - _e124264124444_ - _hd124263124447_ - _tl124262124449_ - _e124267124452_ - _hd124266124455_ - _tl124265124457_ - _e124270124460_ - _hd124269124463_ - _tl124268124465_ - _e124273124468_ - _hd124272124471_ - _tl124271124473_ - _e124276124476_ - _hd124275124479_ - _tl124274124481_ - _e124279124484_ - _hd124278124487_ - _tl124277124489_ - _e124282124492_ - _hd124281124495_ - _tl124280124497_ - _e124285124500_ - _hd124284124503_ - _tl124283124505_ - _e124288124508_ - _hd124287124511_ - _tl124286124513_ - _e124291124516_ - _hd124290124519_ - _tl124289124521_ - _e124294124524_ - _hd124293124527_ - _tl124292124529_ - ___splice127142127143_ - _target124295124532_ + _tl124315124547_)) + (___match127452127453_ + _e124260124425_ + _hd124259124428_ + _tl124258124430_ + _e124263124433_ + _hd124262124436_ + _tl124261124438_ + _e124266124441_ + _hd124265124444_ + _tl124264124446_ + _e124269124449_ + _hd124268124452_ + _tl124267124454_ + _e124272124457_ + _hd124271124460_ + _tl124270124462_ + _e124275124465_ + _hd124274124468_ + _tl124273124470_ + _e124278124473_ + _hd124277124476_ + _tl124276124478_ + _e124281124481_ + _hd124280124484_ + _tl124279124486_ + _e124284124489_ + _hd124283124492_ + _tl124282124494_ + _e124287124497_ + _hd124286124500_ + _tl124285124502_ + _e124290124505_ + _hd124289124508_ + _tl124288124510_ + _e124293124513_ + _hd124292124516_ + _tl124291124518_ + _e124296124521_ + _hd124295124524_ + _tl124294124526_ + _e124299124529_ + _hd124298124532_ _tl124297124534_ - _e124312124537_ - _hd124311124540_ - _tl124310124542_ - _e124315124545_ - _hd124314124548_ - _tl124313124550_ - _e124318124553_ - _hd124317124556_ - _tl124316124558_) - (___match127453127454_ - _e124255124420_ - _hd124254124423_ - _tl124253124425_)) - (___match127453127454_ - _e124255124420_ - _hd124254124423_ - _tl124253124425_)))) - (___match127453127454_ - _e124255124420_ - _hd124254124423_ - _tl124253124425_)) - (___match127453127454_ - _e124255124420_ - _hd124254124423_ - _tl124253124425_)) - (___match127453127454_ - _e124255124420_ - _hd124254124423_ - _tl124253124425_)))) - (___match127453127454_ - _e124255124420_ - _hd124254124423_ - _tl124253124425_)))) - (___match127453127454_ - _e124255124420_ - _hd124254124423_ - _tl124253124425_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match127453127454_ - _e124255124420_ - _hd124254124423_ - _tl124253124425_)) - (___match127453127454_ - _e124255124420_ - _hd124254124423_ - _tl124253124425_)) - (___match127453127454_ - _e124255124420_ - _hd124254124423_ - _tl124253124425_)))) - (___match127453127454_ - _e124255124420_ - _hd124254124423_ - _tl124253124425_)) - (___match127453127454_ - _e124255124420_ - _hd124254124423_ - _tl124253124425_)) - (___match127453127454_ - _e124255124420_ - _hd124254124423_ - _tl124253124425_)))) - (___match127453127454_ - _e124255124420_ - _hd124254124423_ - _tl124253124425_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match127453127454_ - _e124255124420_ - _hd124254124423_ - _tl124253124425_)) - (___match127453127454_ - _e124255124420_ - _hd124254124423_ - _tl124253124425_)))) - (___match127453127454_ - _e124255124420_ - _hd124254124423_ - _tl124253124425_)) - (___match127453127454_ - _e124255124420_ - _hd124254124423_ - _tl124253124425_)) - (___match127453127454_ - _e124255124420_ - _hd124254124423_ - _tl124253124425_)))) - (___match127453127454_ - _e124255124420_ - _hd124254124423_ - _tl124253124425_)))) - (___match127453127454_ - _e124255124420_ - _hd124254124423_ - _tl124253124425_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match127453127454_ - _e124255124420_ - _hd124254124423_ - _tl124253124425_)))) - (___match127453127454_ - _e124255124420_ - _hd124254124423_ - _tl124253124425_)) - (___match127453127454_ - _e124255124420_ - _hd124254124423_ - _tl124253124425_)) - (___match127453127454_ - _e124255124420_ - _hd124254124423_ - _tl124253124425_)))) - (___match127453127454_ - _e124255124420_ - _hd124254124423_ - _tl124253124425_)))) - (___match127453127454_ - _e124255124420_ - _hd124254124423_ - _tl124253124425_)) - (___match127453127454_ - _e124255124420_ - _hd124254124423_ - _tl124253124425_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match127453127454_ - _e124255124420_ - _hd124254124423_ - _tl124253124425_)))) - (___match127453127454_ - _e124255124420_ - _hd124254124423_ - _tl124253124425_)))) - (___match127453127454_ - _e124255124420_ - _hd124254124423_ - _tl124253124425_)))) - (___match127453127454_ - _e124255124420_ - _hd124254124423_ - _tl124253124425_)))) - (___match127307127308_ - (lambda (_e124188124811_ - _hd124187124814_ - _tl124186124816_ - _e124191124819_ - _hd124190124822_ - _tl124189124824_ - _e124194124827_ - _hd124193124830_ - _tl124192124832_ - _e124197124835_ - _hd124196124838_ - _tl124195124840_ - _e124200124843_ - _hd124199124846_ - _tl124198124848_ - _e124203124851_ - _hd124202124854_ - _tl124201124856_ - _e124206124859_ - _hd124205124862_ - _tl124204124864_ - _e124209124867_ - _hd124208124870_ - _tl124207124872_ - _e124212124875_ - _hd124211124878_ - _tl124210124880_ - _e124215124883_ - _hd124214124886_ - _tl124213124888_ - _e124218124891_ - _hd124217124894_ - _tl124216124896_ - _e124221124899_ - _hd124220124902_ - _tl124219124904_ - _e124224124907_ - _hd124223124910_ - _tl124222124912_ - _e124227124915_ - _hd124226124918_ - _tl124225124920_ - _e124230124923_ - _hd124229124926_ - _tl124228124928_ - _e124233124931_ - _hd124232124934_ - _tl124231124936_ - _e124236124939_ - _hd124235124942_ - _tl124234124944_ - _e124239124947_ - _hd124238124950_ - _tl124237124952_ - _e124242124955_ - _hd124241124958_ - _tl124240124960_) - (let ((_L124963_ _hd124241124958_) - (_L124964_ _hd124232124934_) - (_L124965_ _hd124223124910_) - (_L124966_ _hd124214124886_) - (_L124967_ _hd124205124862_) - (_L124968_ _hd124190124822_)) + ___splice127147127148_ + _target124300124537_ + _tl124302124539_ + _e124317124542_ + _hd124316124545_ + _tl124315124547_ + _e124320124550_ + _hd124319124553_ + _tl124318124555_ + _e124323124558_ + _hd124322124561_ + _tl124321124563_) + (___match127458127459_ + _e124260124425_ + _hd124259124428_ + _tl124258124430_)) + (___match127458127459_ + _e124260124425_ + _hd124259124428_ + _tl124258124430_)))) + (___match127458127459_ + _e124260124425_ + _hd124259124428_ + _tl124258124430_)) + (___match127458127459_ + _e124260124425_ + _hd124259124428_ + _tl124258124430_)) + (___match127458127459_ + _e124260124425_ + _hd124259124428_ + _tl124258124430_)))) + (___match127458127459_ + _e124260124425_ + _hd124259124428_ + _tl124258124430_)))) + (___match127458127459_ + _e124260124425_ + _hd124259124428_ + _tl124258124430_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match127458127459_ + _e124260124425_ + _hd124259124428_ + _tl124258124430_)) + (___match127458127459_ + _e124260124425_ + _hd124259124428_ + _tl124258124430_)) + (___match127458127459_ + _e124260124425_ + _hd124259124428_ + _tl124258124430_)))) + (___match127458127459_ + _e124260124425_ + _hd124259124428_ + _tl124258124430_)) + (___match127458127459_ + _e124260124425_ + _hd124259124428_ + _tl124258124430_)) + (___match127458127459_ + _e124260124425_ + _hd124259124428_ + _tl124258124430_)))) + (___match127458127459_ + _e124260124425_ + _hd124259124428_ + _tl124258124430_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match127458127459_ + _e124260124425_ + _hd124259124428_ + _tl124258124430_)) + (___match127458127459_ + _e124260124425_ + _hd124259124428_ + _tl124258124430_)))) + (___match127458127459_ + _e124260124425_ + _hd124259124428_ + _tl124258124430_)) + (___match127458127459_ + _e124260124425_ + _hd124259124428_ + _tl124258124430_)) + (___match127458127459_ + _e124260124425_ + _hd124259124428_ + _tl124258124430_)))) + (___match127458127459_ + _e124260124425_ + _hd124259124428_ + _tl124258124430_)))) + (___match127458127459_ + _e124260124425_ + _hd124259124428_ + _tl124258124430_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match127458127459_ + _e124260124425_ + _hd124259124428_ + _tl124258124430_)))) + (___match127458127459_ + _e124260124425_ + _hd124259124428_ + _tl124258124430_)) + (___match127458127459_ + _e124260124425_ + _hd124259124428_ + _tl124258124430_)) + (___match127458127459_ + _e124260124425_ + _hd124259124428_ + _tl124258124430_)))) + (___match127458127459_ + _e124260124425_ + _hd124259124428_ + _tl124258124430_)))) + (___match127458127459_ + _e124260124425_ + _hd124259124428_ + _tl124258124430_)) + (___match127458127459_ + _e124260124425_ + _hd124259124428_ + _tl124258124430_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match127458127459_ + _e124260124425_ + _hd124259124428_ + _tl124258124430_)))) + (___match127458127459_ + _e124260124425_ + _hd124259124428_ + _tl124258124430_)))) + (___match127458127459_ + _e124260124425_ + _hd124259124428_ + _tl124258124430_)))) + (___match127458127459_ + _e124260124425_ + _hd124259124428_ + _tl124258124430_)))) + (___match127312127313_ + (lambda (_e124193124816_ + _hd124192124819_ + _tl124191124821_ + _e124196124824_ + _hd124195124827_ + _tl124194124829_ + _e124199124832_ + _hd124198124835_ + _tl124197124837_ + _e124202124840_ + _hd124201124843_ + _tl124200124845_ + _e124205124848_ + _hd124204124851_ + _tl124203124853_ + _e124208124856_ + _hd124207124859_ + _tl124206124861_ + _e124211124864_ + _hd124210124867_ + _tl124209124869_ + _e124214124872_ + _hd124213124875_ + _tl124212124877_ + _e124217124880_ + _hd124216124883_ + _tl124215124885_ + _e124220124888_ + _hd124219124891_ + _tl124218124893_ + _e124223124896_ + _hd124222124899_ + _tl124221124901_ + _e124226124904_ + _hd124225124907_ + _tl124224124909_ + _e124229124912_ + _hd124228124915_ + _tl124227124917_ + _e124232124920_ + _hd124231124923_ + _tl124230124925_ + _e124235124928_ + _hd124234124931_ + _tl124233124933_ + _e124238124936_ + _hd124237124939_ + _tl124236124941_ + _e124241124944_ + _hd124240124947_ + _tl124239124949_ + _e124244124952_ + _hd124243124955_ + _tl124242124957_ + _e124247124960_ + _hd124246124963_ + _tl124245124965_) + (let ((_L124968_ _hd124246124963_) + (_L124969_ _hd124237124939_) + (_L124970_ _hd124228124915_) + (_L124971_ _hd124219124891_) + (_L124972_ _hd124210124867_) + (_L124973_ _hd124195124827_)) (if (and (let () (declare (not safe)) - (gx#identifier? _L124968_)) + (gx#identifier? _L124973_)) (let () (declare (not safe)) - (gxc#runtime-identifier=? _L124967_ 'apply)) + (gxc#runtime-identifier=? _L124972_ 'apply)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L124966_ + _L124971_ 'keyword-dispatch)) (let () (declare (not safe)) - (gx#free-identifier=? _L124968_ _L124963_))) - (___kont127138127139_ - _L124963_ - _L124964_ - _L124965_ - _L124966_ - _L124967_ - _L124968_) - (___match127319127320_ - _e124188124811_ - _hd124187124814_ - _tl124186124816_ - _e124191124819_ - _hd124190124822_ - _tl124189124824_))))) - (___match127161127162_ - (lambda (_e124188124811_ _hd124187124814_ _tl124186124816_) + (gx#free-identifier=? _L124973_ _L124968_))) + (___kont127143127144_ + _L124968_ + _L124969_ + _L124970_ + _L124971_ + _L124972_ + _L124973_) + (___match127324127325_ + _e124193124816_ + _hd124192124819_ + _tl124191124821_ + _e124196124824_ + _hd124195124827_ + _tl124194124829_))))) + (___match127166127167_ + (lambda (_e124193124816_ _hd124192124819_ _tl124191124821_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124186124816_)) - (let ((_e124191124819_ + (gx#stx-pair? _tl124191124821_)) + (let ((_e124196124824_ (let () (declare (not safe)) - (gx#stx-e _tl124186124816_)))) - (let ((_tl124189124824_ + (gx#stx-e _tl124191124821_)))) + (let ((_tl124194124829_ (let () (declare (not safe)) - (##cdr _e124191124819_))) - (_hd124190124822_ + (##cdr _e124196124824_))) + (_hd124195124827_ (let () (declare (not safe)) - (##car _e124191124819_)))) + (##car _e124196124824_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124189124824_)) - (let ((_e124194124827_ + (gx#stx-pair? _tl124194124829_)) + (let ((_e124199124832_ (let () (declare (not safe)) - (gx#stx-e _tl124189124824_)))) - (let ((_tl124192124832_ + (gx#stx-e _tl124194124829_)))) + (let ((_tl124197124837_ (let () (declare (not safe)) - (##cdr _e124194124827_))) - (_hd124193124830_ + (##cdr _e124199124832_))) + (_hd124198124835_ (let () (declare (not safe)) - (##car _e124194124827_)))) + (##car _e124199124832_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd124193124830_)) - (let ((_e124197124835_ + (gx#stx-pair? _hd124198124835_)) + (let ((_e124202124840_ (let () (declare (not safe)) (gx#stx-e - _hd124193124830_)))) - (let ((_tl124195124840_ + _hd124198124835_)))) + (let ((_tl124200124845_ (let () (declare (not safe)) - (##cdr _e124197124835_))) - (_hd124196124838_ + (##cdr _e124202124840_))) + (_hd124201124843_ (let () (declare (not safe)) - (##car _e124197124835_)))) + (##car _e124202124840_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd124196124838_)) + _hd124201124843_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd124196124838_)) + _hd124201124843_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl124195124840_)) - (let ((_e124200124843_ + _tl124200124845_)) + (let ((_e124205124848_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl124195124840_)))) - (let ((_tl124198124848_ + (gx#stx-e _tl124200124845_)))) + (let ((_tl124203124853_ (let () (declare (not safe)) - (##cdr _e124200124843_))) - (_hd124199124846_ + (##cdr _e124205124848_))) + (_hd124204124851_ (let () (declare (not safe)) - (##car _e124200124843_)))) + (##car _e124205124848_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd124199124846_)) - (let ((_e124203124851_ + (gx#stx-pair? _hd124204124851_)) + (let ((_e124208124856_ (let () (declare (not safe)) - (gx#stx-e _hd124199124846_)))) - (let ((_tl124201124856_ + (gx#stx-e _hd124204124851_)))) + (let ((_tl124206124861_ (let () (declare (not safe)) - (##cdr _e124203124851_))) - (_hd124202124854_ + (##cdr _e124208124856_))) + (_hd124207124859_ (let () (declare (not safe)) - (##car _e124203124851_)))) + (##car _e124208124856_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd124202124854_)) + (gx#identifier? _hd124207124859_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd124202124854_)) + (gx#stx-eq? '%#ref _hd124207124859_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124201124856_)) - (let ((_e124206124859_ + (gx#stx-pair? _tl124206124861_)) + (let ((_e124211124864_ (let () (declare (not safe)) (gx#stx-e - _tl124201124856_)))) - (let ((_tl124204124864_ + _tl124206124861_)))) + (let ((_tl124209124869_ (let () (declare (not safe)) - (##cdr _e124206124859_))) - (_hd124205124862_ + (##cdr _e124211124864_))) + (_hd124210124867_ (let () (declare (not safe)) - (##car _e124206124859_)))) + (##car _e124211124864_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl124204124864_)) + _tl124209124869_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl124198124848_)) - (let ((_e124209124867_ + _tl124203124853_)) + (let ((_e124214124872_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl124198124848_)))) - (let ((_tl124207124872_ - (let () (declare (not safe)) (##cdr _e124209124867_))) - (_hd124208124870_ - (let () (declare (not safe)) (##car _e124209124867_)))) + (gx#stx-e _tl124203124853_)))) + (let ((_tl124212124877_ + (let () (declare (not safe)) (##cdr _e124214124872_))) + (_hd124213124875_ + (let () (declare (not safe)) (##car _e124214124872_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd124208124870_)) - (let ((_e124212124875_ + (gx#stx-pair? _hd124213124875_)) + (let ((_e124217124880_ (let () (declare (not safe)) - (gx#stx-e _hd124208124870_)))) - (let ((_tl124210124880_ + (gx#stx-e _hd124213124875_)))) + (let ((_tl124215124885_ (let () (declare (not safe)) - (##cdr _e124212124875_))) - (_hd124211124878_ + (##cdr _e124217124880_))) + (_hd124216124883_ (let () (declare (not safe)) - (##car _e124212124875_)))) + (##car _e124217124880_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd124211124878_)) + (gx#identifier? _hd124216124883_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd124211124878_)) + (gx#stx-eq? '%#ref _hd124216124883_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124210124880_)) - (let ((_e124215124883_ + (gx#stx-pair? _tl124215124885_)) + (let ((_e124220124888_ (let () (declare (not safe)) - (gx#stx-e _tl124210124880_)))) - (let ((_tl124213124888_ + (gx#stx-e _tl124215124885_)))) + (let ((_tl124218124893_ (let () (declare (not safe)) - (##cdr _e124215124883_))) - (_hd124214124886_ + (##cdr _e124220124888_))) + (_hd124219124891_ (let () (declare (not safe)) - (##car _e124215124883_)))) + (##car _e124220124888_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl124213124888_)) + _tl124218124893_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl124207124872_)) - (let ((_e124218124891_ + _tl124212124877_)) + (let ((_e124223124896_ (let () (declare (not safe)) (gx#stx-e - _tl124207124872_)))) - (let ((_tl124216124896_ + _tl124212124877_)))) + (let ((_tl124221124901_ (let () (declare (not safe)) - (##cdr _e124218124891_))) - (_hd124217124894_ + (##cdr _e124223124896_))) + (_hd124222124899_ (let () (declare (not safe)) - (##car _e124218124891_)))) + (##car _e124223124896_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd124217124894_)) - (let ((_e124221124899_ + _hd124222124899_)) + (let ((_e124226124904_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd124217124894_)))) - (let ((_tl124219124904_ + (gx#stx-e _hd124222124899_)))) + (let ((_tl124224124909_ (let () (declare (not safe)) - (##cdr _e124221124899_))) - (_hd124220124902_ + (##cdr _e124226124904_))) + (_hd124225124907_ (let () (declare (not safe)) - (##car _e124221124899_)))) + (##car _e124226124904_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd124220124902_)) + (gx#identifier? _hd124225124907_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd124220124902_)) + (gx#stx-eq? '%#quote _hd124225124907_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124219124904_)) - (let ((_e124224124907_ + (gx#stx-pair? _tl124224124909_)) + (let ((_e124229124912_ (let () (declare (not safe)) - (gx#stx-e _tl124219124904_)))) - (let ((_tl124222124912_ + (gx#stx-e _tl124224124909_)))) + (let ((_tl124227124917_ (let () (declare (not safe)) - (##cdr _e124224124907_))) - (_hd124223124910_ + (##cdr _e124229124912_))) + (_hd124228124915_ (let () (declare (not safe)) - (##car _e124224124907_)))) + (##car _e124229124912_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl124222124912_)) + (gx#stx-null? _tl124227124917_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl124216124896_)) - (let ((_e124227124915_ + _tl124221124901_)) + (let ((_e124232124920_ (let () (declare (not safe)) (gx#stx-e - _tl124216124896_)))) - (let ((_tl124225124920_ + _tl124221124901_)))) + (let ((_tl124230124925_ (let () (declare (not safe)) - (##cdr _e124227124915_))) - (_hd124226124918_ + (##cdr _e124232124920_))) + (_hd124231124923_ (let () (declare (not safe)) - (##car _e124227124915_)))) + (##car _e124232124920_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd124226124918_)) - (let ((_e124230124923_ + _hd124231124923_)) + (let ((_e124235124928_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd124226124918_)))) - (let ((_tl124228124928_ - (let () (declare (not safe)) (##cdr _e124230124923_))) - (_hd124229124926_ - (let () (declare (not safe)) (##car _e124230124923_)))) + (gx#stx-e _hd124231124923_)))) + (let ((_tl124233124933_ + (let () (declare (not safe)) (##cdr _e124235124928_))) + (_hd124234124931_ + (let () (declare (not safe)) (##car _e124235124928_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd124229124926_)) + (gx#identifier? _hd124234124931_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd124229124926_)) + (gx#stx-eq? '%#ref _hd124234124931_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124228124928_)) - (let ((_e124233124931_ + (gx#stx-pair? _tl124233124933_)) + (let ((_e124238124936_ (let () (declare (not safe)) - (gx#stx-e _tl124228124928_)))) - (let ((_tl124231124936_ + (gx#stx-e _tl124233124933_)))) + (let ((_tl124236124941_ (let () (declare (not safe)) - (##cdr _e124233124931_))) - (_hd124232124934_ + (##cdr _e124238124936_))) + (_hd124237124939_ (let () (declare (not safe)) - (##car _e124233124931_)))) + (##car _e124238124936_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl124231124936_)) + (gx#stx-null? _tl124236124941_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124225124920_)) - (let ((_e124236124939_ + (gx#stx-pair? _tl124230124925_)) + (let ((_e124241124944_ (let () (declare (not safe)) (gx#stx-e - _tl124225124920_)))) - (let ((_tl124234124944_ + _tl124230124925_)))) + (let ((_tl124239124949_ (let () (declare (not safe)) - (##cdr _e124236124939_))) - (_hd124235124942_ + (##cdr _e124241124944_))) + (_hd124240124947_ (let () (declare (not safe)) - (##car _e124236124939_)))) + (##car _e124241124944_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd124235124942_)) - (let ((_e124239124947_ + _hd124240124947_)) + (let ((_e124244124952_ (let () (declare (not safe)) (gx#stx-e - _hd124235124942_)))) - (let ((_tl124237124952_ + _hd124240124947_)))) + (let ((_tl124242124957_ (let () (declare (not safe)) - (##cdr _e124239124947_))) - (_hd124238124950_ + (##cdr _e124244124952_))) + (_hd124243124955_ (let () (declare (not safe)) - (##car _e124239124947_)))) + (##car _e124244124952_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd124238124950_)) + _hd124243124955_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _hd124238124950_)) + (gx#stx-eq? '%#ref _hd124243124955_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124237124952_)) - (let ((_e124242124955_ + (gx#stx-pair? _tl124242124957_)) + (let ((_e124247124960_ (let () (declare (not safe)) - (gx#stx-e _tl124237124952_)))) - (let ((_tl124240124960_ + (gx#stx-e _tl124242124957_)))) + (let ((_tl124245124965_ (let () (declare (not safe)) - (##cdr _e124242124955_))) - (_hd124241124958_ + (##cdr _e124247124960_))) + (_hd124246124963_ (let () (declare (not safe)) - (##car _e124242124955_)))) + (##car _e124247124960_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl124240124960_)) + (gx#stx-null? _tl124245124965_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl124234124944_)) + (gx#stx-null? _tl124239124949_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl124192124832_)) - (___match127307127308_ - _e124188124811_ - _hd124187124814_ - _tl124186124816_ - _e124191124819_ - _hd124190124822_ - _tl124189124824_ - _e124194124827_ - _hd124193124830_ - _tl124192124832_ - _e124197124835_ - _hd124196124838_ - _tl124195124840_ - _e124200124843_ - _hd124199124846_ - _tl124198124848_ - _e124203124851_ - _hd124202124854_ - _tl124201124856_ - _e124206124859_ - _hd124205124862_ - _tl124204124864_ - _e124209124867_ - _hd124208124870_ - _tl124207124872_ - _e124212124875_ - _hd124211124878_ - _tl124210124880_ - _e124215124883_ - _hd124214124886_ - _tl124213124888_ - _e124218124891_ - _hd124217124894_ - _tl124216124896_ - _e124221124899_ - _hd124220124902_ - _tl124219124904_ - _e124224124907_ - _hd124223124910_ - _tl124222124912_ - _e124227124915_ - _hd124226124918_ - _tl124225124920_ - _e124230124923_ - _hd124229124926_ - _tl124228124928_ - _e124233124931_ - _hd124232124934_ - _tl124231124936_ - _e124236124939_ - _hd124235124942_ - _tl124234124944_ - _e124239124947_ - _hd124238124950_ - _tl124237124952_ - _e124242124955_ - _hd124241124958_ - _tl124240124960_) - (___match127319127320_ - _e124188124811_ - _hd124187124814_ - _tl124186124816_ - _e124191124819_ - _hd124190124822_ - _tl124189124824_)) - (___match127319127320_ - _e124188124811_ - _hd124187124814_ - _tl124186124816_ - _e124191124819_ - _hd124190124822_ - _tl124189124824_)) - (___match127319127320_ - _e124188124811_ - _hd124187124814_ - _tl124186124816_ - _e124191124819_ - _hd124190124822_ - _tl124189124824_)))) - (___match127319127320_ - _e124188124811_ - _hd124187124814_ - _tl124186124816_ - _e124191124819_ - _hd124190124822_ - _tl124189124824_)) - (___match127319127320_ - _e124188124811_ - _hd124187124814_ - _tl124186124816_ - _e124191124819_ - _hd124190124822_ - _tl124189124824_)) - (___match127319127320_ - _e124188124811_ - _hd124187124814_ - _tl124186124816_ - _e124191124819_ - _hd124190124822_ - _tl124189124824_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match127319127320_ - _e124188124811_ - _hd124187124814_ - _tl124186124816_ - _e124191124819_ - _hd124190124822_ - _tl124189124824_)))) - (___match127319127320_ - _e124188124811_ - _hd124187124814_ - _tl124186124816_ - _e124191124819_ - _hd124190124822_ - _tl124189124824_)) - (___match127319127320_ - _e124188124811_ - _hd124187124814_ - _tl124186124816_ - _e124191124819_ - _hd124190124822_ - _tl124189124824_)))) - (___match127319127320_ - _e124188124811_ - _hd124187124814_ - _tl124186124816_ - _e124191124819_ - _hd124190124822_ - _tl124189124824_)) - (___match127319127320_ - _e124188124811_ - _hd124187124814_ - _tl124186124816_ - _e124191124819_ - _hd124190124822_ - _tl124189124824_)) - (___match127319127320_ - _e124188124811_ - _hd124187124814_ - _tl124186124816_ - _e124191124819_ - _hd124190124822_ - _tl124189124824_)))) - (___match127319127320_ - _e124188124811_ - _hd124187124814_ - _tl124186124816_ - _e124191124819_ - _hd124190124822_ - _tl124189124824_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match127319127320_ - _e124188124811_ - _hd124187124814_ - _tl124186124816_ - _e124191124819_ - _hd124190124822_ - _tl124189124824_)) - (___match127319127320_ - _e124188124811_ - _hd124187124814_ - _tl124186124816_ - _e124191124819_ - _hd124190124822_ - _tl124189124824_)))) - (___match127319127320_ - _e124188124811_ - _hd124187124814_ - _tl124186124816_ - _e124191124819_ - _hd124190124822_ - _tl124189124824_)) - (___match127319127320_ - _e124188124811_ - _hd124187124814_ - _tl124186124816_ - _e124191124819_ - _hd124190124822_ - _tl124189124824_)) - (___match127319127320_ - _e124188124811_ - _hd124187124814_ - _tl124186124816_ - _e124191124819_ - _hd124190124822_ - _tl124189124824_)))) - (___match127319127320_ - _e124188124811_ - _hd124187124814_ - _tl124186124816_ - _e124191124819_ - _hd124190124822_ - _tl124189124824_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match127319127320_ - _e124188124811_ - _hd124187124814_ - _tl124186124816_ - _e124191124819_ - _hd124190124822_ - _tl124189124824_)) - (___match127319127320_ - _e124188124811_ - _hd124187124814_ - _tl124186124816_ - _e124191124819_ - _hd124190124822_ - _tl124189124824_)))) - (___match127319127320_ - _e124188124811_ - _hd124187124814_ - _tl124186124816_ - _e124191124819_ - _hd124190124822_ - _tl124189124824_)) - (___match127319127320_ - _e124188124811_ - _hd124187124814_ - _tl124186124816_ - _e124191124819_ - _hd124190124822_ - _tl124189124824_)) - (___match127319127320_ - _e124188124811_ - _hd124187124814_ - _tl124186124816_ - _e124191124819_ - _hd124190124822_ - _tl124189124824_)))) - (___match127319127320_ - _e124188124811_ - _hd124187124814_ - _tl124186124816_ - _e124191124819_ - _hd124190124822_ - _tl124189124824_)))) - (___match127319127320_ - _e124188124811_ - _hd124187124814_ - _tl124186124816_ - _e124191124819_ - _hd124190124822_ - _tl124189124824_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match127319127320_ - _e124188124811_ - _hd124187124814_ - _tl124186124816_ - _e124191124819_ - _hd124190124822_ - _tl124189124824_)))) - (___match127319127320_ - _e124188124811_ - _hd124187124814_ - _tl124186124816_ - _e124191124819_ - _hd124190124822_ - _tl124189124824_)) - (___match127319127320_ - _e124188124811_ - _hd124187124814_ - _tl124186124816_ - _e124191124819_ - _hd124190124822_ - _tl124189124824_)) - (___match127319127320_ - _e124188124811_ - _hd124187124814_ - _tl124186124816_ - _e124191124819_ - _hd124190124822_ - _tl124189124824_)))) - (___match127319127320_ - _e124188124811_ - _hd124187124814_ - _tl124186124816_ - _e124191124819_ - _hd124190124822_ - _tl124189124824_)))) - (___match127319127320_ - _e124188124811_ - _hd124187124814_ - _tl124186124816_ - _e124191124819_ - _hd124190124822_ - _tl124189124824_)) - (___match127319127320_ - _e124188124811_ - _hd124187124814_ - _tl124186124816_ - _e124191124819_ - _hd124190124822_ - _tl124189124824_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match127319127320_ - _e124188124811_ - _hd124187124814_ - _tl124186124816_ - _e124191124819_ - _hd124190124822_ - _tl124189124824_)))) - (___match127319127320_ - _e124188124811_ - _hd124187124814_ - _tl124186124816_ - _e124191124819_ - _hd124190124822_ - _tl124189124824_)))) - (___match127319127320_ - _e124188124811_ - _hd124187124814_ - _tl124186124816_ - _e124191124819_ - _hd124190124822_ - _tl124189124824_)))) - (___match127453127454_ - _e124188124811_ - _hd124187124814_ - _tl124186124816_))))) + (gx#stx-null? _tl124197124837_)) + (___match127312127313_ + _e124193124816_ + _hd124192124819_ + _tl124191124821_ + _e124196124824_ + _hd124195124827_ + _tl124194124829_ + _e124199124832_ + _hd124198124835_ + _tl124197124837_ + _e124202124840_ + _hd124201124843_ + _tl124200124845_ + _e124205124848_ + _hd124204124851_ + _tl124203124853_ + _e124208124856_ + _hd124207124859_ + _tl124206124861_ + _e124211124864_ + _hd124210124867_ + _tl124209124869_ + _e124214124872_ + _hd124213124875_ + _tl124212124877_ + _e124217124880_ + _hd124216124883_ + _tl124215124885_ + _e124220124888_ + _hd124219124891_ + _tl124218124893_ + _e124223124896_ + _hd124222124899_ + _tl124221124901_ + _e124226124904_ + _hd124225124907_ + _tl124224124909_ + _e124229124912_ + _hd124228124915_ + _tl124227124917_ + _e124232124920_ + _hd124231124923_ + _tl124230124925_ + _e124235124928_ + _hd124234124931_ + _tl124233124933_ + _e124238124936_ + _hd124237124939_ + _tl124236124941_ + _e124241124944_ + _hd124240124947_ + _tl124239124949_ + _e124244124952_ + _hd124243124955_ + _tl124242124957_ + _e124247124960_ + _hd124246124963_ + _tl124245124965_) + (___match127324127325_ + _e124193124816_ + _hd124192124819_ + _tl124191124821_ + _e124196124824_ + _hd124195124827_ + _tl124194124829_)) + (___match127324127325_ + _e124193124816_ + _hd124192124819_ + _tl124191124821_ + _e124196124824_ + _hd124195124827_ + _tl124194124829_)) + (___match127324127325_ + _e124193124816_ + _hd124192124819_ + _tl124191124821_ + _e124196124824_ + _hd124195124827_ + _tl124194124829_)))) + (___match127324127325_ + _e124193124816_ + _hd124192124819_ + _tl124191124821_ + _e124196124824_ + _hd124195124827_ + _tl124194124829_)) + (___match127324127325_ + _e124193124816_ + _hd124192124819_ + _tl124191124821_ + _e124196124824_ + _hd124195124827_ + _tl124194124829_)) + (___match127324127325_ + _e124193124816_ + _hd124192124819_ + _tl124191124821_ + _e124196124824_ + _hd124195124827_ + _tl124194124829_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match127324127325_ + _e124193124816_ + _hd124192124819_ + _tl124191124821_ + _e124196124824_ + _hd124195124827_ + _tl124194124829_)))) + (___match127324127325_ + _e124193124816_ + _hd124192124819_ + _tl124191124821_ + _e124196124824_ + _hd124195124827_ + _tl124194124829_)) + (___match127324127325_ + _e124193124816_ + _hd124192124819_ + _tl124191124821_ + _e124196124824_ + _hd124195124827_ + _tl124194124829_)))) + (___match127324127325_ + _e124193124816_ + _hd124192124819_ + _tl124191124821_ + _e124196124824_ + _hd124195124827_ + _tl124194124829_)) + (___match127324127325_ + _e124193124816_ + _hd124192124819_ + _tl124191124821_ + _e124196124824_ + _hd124195124827_ + _tl124194124829_)) + (___match127324127325_ + _e124193124816_ + _hd124192124819_ + _tl124191124821_ + _e124196124824_ + _hd124195124827_ + _tl124194124829_)))) + (___match127324127325_ + _e124193124816_ + _hd124192124819_ + _tl124191124821_ + _e124196124824_ + _hd124195124827_ + _tl124194124829_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match127324127325_ + _e124193124816_ + _hd124192124819_ + _tl124191124821_ + _e124196124824_ + _hd124195124827_ + _tl124194124829_)) + (___match127324127325_ + _e124193124816_ + _hd124192124819_ + _tl124191124821_ + _e124196124824_ + _hd124195124827_ + _tl124194124829_)))) + (___match127324127325_ + _e124193124816_ + _hd124192124819_ + _tl124191124821_ + _e124196124824_ + _hd124195124827_ + _tl124194124829_)) + (___match127324127325_ + _e124193124816_ + _hd124192124819_ + _tl124191124821_ + _e124196124824_ + _hd124195124827_ + _tl124194124829_)) + (___match127324127325_ + _e124193124816_ + _hd124192124819_ + _tl124191124821_ + _e124196124824_ + _hd124195124827_ + _tl124194124829_)))) + (___match127324127325_ + _e124193124816_ + _hd124192124819_ + _tl124191124821_ + _e124196124824_ + _hd124195124827_ + _tl124194124829_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match127324127325_ + _e124193124816_ + _hd124192124819_ + _tl124191124821_ + _e124196124824_ + _hd124195124827_ + _tl124194124829_)) + (___match127324127325_ + _e124193124816_ + _hd124192124819_ + _tl124191124821_ + _e124196124824_ + _hd124195124827_ + _tl124194124829_)))) + (___match127324127325_ + _e124193124816_ + _hd124192124819_ + _tl124191124821_ + _e124196124824_ + _hd124195124827_ + _tl124194124829_)) + (___match127324127325_ + _e124193124816_ + _hd124192124819_ + _tl124191124821_ + _e124196124824_ + _hd124195124827_ + _tl124194124829_)) + (___match127324127325_ + _e124193124816_ + _hd124192124819_ + _tl124191124821_ + _e124196124824_ + _hd124195124827_ + _tl124194124829_)))) + (___match127324127325_ + _e124193124816_ + _hd124192124819_ + _tl124191124821_ + _e124196124824_ + _hd124195124827_ + _tl124194124829_)))) + (___match127324127325_ + _e124193124816_ + _hd124192124819_ + _tl124191124821_ + _e124196124824_ + _hd124195124827_ + _tl124194124829_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match127324127325_ + _e124193124816_ + _hd124192124819_ + _tl124191124821_ + _e124196124824_ + _hd124195124827_ + _tl124194124829_)))) + (___match127324127325_ + _e124193124816_ + _hd124192124819_ + _tl124191124821_ + _e124196124824_ + _hd124195124827_ + _tl124194124829_)) + (___match127324127325_ + _e124193124816_ + _hd124192124819_ + _tl124191124821_ + _e124196124824_ + _hd124195124827_ + _tl124194124829_)) + (___match127324127325_ + _e124193124816_ + _hd124192124819_ + _tl124191124821_ + _e124196124824_ + _hd124195124827_ + _tl124194124829_)))) + (___match127324127325_ + _e124193124816_ + _hd124192124819_ + _tl124191124821_ + _e124196124824_ + _hd124195124827_ + _tl124194124829_)))) + (___match127324127325_ + _e124193124816_ + _hd124192124819_ + _tl124191124821_ + _e124196124824_ + _hd124195124827_ + _tl124194124829_)) + (___match127324127325_ + _e124193124816_ + _hd124192124819_ + _tl124191124821_ + _e124196124824_ + _hd124195124827_ + _tl124194124829_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match127324127325_ + _e124193124816_ + _hd124192124819_ + _tl124191124821_ + _e124196124824_ + _hd124195124827_ + _tl124194124829_)))) + (___match127324127325_ + _e124193124816_ + _hd124192124819_ + _tl124191124821_ + _e124196124824_ + _hd124195124827_ + _tl124194124829_)))) + (___match127324127325_ + _e124193124816_ + _hd124192124819_ + _tl124191124821_ + _e124196124824_ + _hd124195124827_ + _tl124194124829_)))) + (___match127458127459_ + _e124193124816_ + _hd124192124819_ + _tl124191124821_))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx127134127135_)) - (let ((_e124179125028_ + (gx#stx-pair? ___stx127139127140_)) + (let ((_e124184125033_ (let () (declare (not safe)) - (gx#stx-e ___stx127134127135_)))) - (let ((_tl124177125033_ + (gx#stx-e ___stx127139127140_)))) + (let ((_tl124182125038_ (let () (declare (not safe)) - (##cdr _e124179125028_))) - (_hd124178125031_ + (##cdr _e124184125033_))) + (_hd124183125036_ (let () (declare (not safe)) - (##car _e124179125028_)))) + (##car _e124184125033_)))) (if (gxc#current-compile-type-closure) - (let ((_L125036_ _tl124177125033_)) - (___kont127136127137_ _L125036_)) - (___match127161127162_ - _e124179125028_ - _hd124178125031_ - _tl124177125033_)))) - (let () (declare (not safe)) (_g124174124370_)))))))) + (let ((_L125041_ _tl124182125038_)) + (___kont127141127142_ _L125041_)) + (___match127166127167_ + _e124184125033_ + _hd124183125036_ + _tl124182125038_)))) + (let () (declare (not safe)) (_g124179124375_)))))))) (define gxc#basic-expression-type-case-lambda% - (lambda (_stx124123_) - (letrec ((_clause-e124125_ - (lambda (_form124166_) - (let ((__obj128807 + (lambda (_stx124128_) + (letrec ((_clause-e124130_ + (lambda (_form124171_) + (let ((__obj128812 (let () (declare (not safe)) (##structure @@ -5688,4953 +5688,4953 @@ '#f '#f)))) (gxc#!lambda:::init! - __obj128807 + __obj128812 'case-lambda-clause (let () (declare (not safe)) - (gxc#lambda-form-arity _form124166_)) - (if (let ((__tmp128874 + (gxc#lambda-form-arity _form124171_)) + (if (let ((__tmp128879 (gxc#current-compile-type-closure))) (declare (not safe)) - (not __tmp128874)) + (not __tmp128879)) (if (let () (declare (not safe)) - (gxc#dispatch-lambda-form? _form124166_)) + (gxc#dispatch-lambda-form? _form124171_)) (let () (declare (not safe)) (gxc#dispatch-lambda-form-delegate - _form124166_)) + _form124171_)) '#f) '#f)) - __obj128807)))) - (let* ((_g124127124137_ - (lambda (_g124128124134_) + __obj128812)))) + (let* ((_g124132124142_ + (lambda (_g124133124139_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g124128124134_)))) - (_g124126124163_ - (lambda (_g124128124140_) + _g124133124139_)))) + (_g124131124168_ + (lambda (_g124133124145_) (if (let () (declare (not safe)) - (gx#stx-pair? _g124128124140_)) - (let ((_e124132124142_ + (gx#stx-pair? _g124133124145_)) + (let ((_e124137124147_ (let () (declare (not safe)) - (gx#stx-e _g124128124140_)))) - (let ((_hd124131124145_ + (gx#stx-e _g124133124145_)))) + (let ((_hd124136124150_ (let () (declare (not safe)) - (##car _e124132124142_))) - (_tl124130124147_ + (##car _e124137124147_))) + (_tl124135124152_ (let () (declare (not safe)) - (##cdr _e124132124142_)))) - ((lambda (_L124150_) - (let ((_clauses124161_ - (map _clause-e124125_ _L124150_))) + (##cdr _e124137124147_)))) + ((lambda (_L124155_) + (let ((_clauses124166_ + (map _clause-e124130_ _L124155_))) (declare (not safe)) (##structure gxc#!case-lambda::t 'case-lambda - _clauses124161_))) - _tl124130124147_))) + _clauses124166_))) + _tl124135124152_))) (let () (declare (not safe)) - (_g124127124137_ _g124128124140_)))))) + (_g124132124142_ _g124133124145_)))))) (declare (not safe)) - (_g124126124163_ _stx124123_))))) + (_g124131124168_ _stx124128_))))) (define gxc#basic-expression-type-let-values% - (lambda (_stx124055_) - (let* ((_g124057124074_ - (lambda (_g124058124071_) + (lambda (_stx124060_) + (let* ((_g124062124079_ + (lambda (_g124063124076_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g124058124071_)))) - (_g124056124120_ - (lambda (_g124058124077_) + _g124063124076_)))) + (_g124061124125_ + (lambda (_g124063124082_) (if (let () (declare (not safe)) - (gx#stx-pair? _g124058124077_)) - (let ((_e124063124079_ + (gx#stx-pair? _g124063124082_)) + (let ((_e124068124084_ (let () (declare (not safe)) - (gx#stx-e _g124058124077_)))) - (let ((_hd124062124082_ + (gx#stx-e _g124063124082_)))) + (let ((_hd124067124087_ (let () (declare (not safe)) - (##car _e124063124079_))) - (_tl124061124084_ + (##car _e124068124084_))) + (_tl124066124089_ (let () (declare (not safe)) - (##cdr _e124063124079_)))) + (##cdr _e124068124084_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124061124084_)) - (let ((_e124066124087_ + (gx#stx-pair? _tl124066124089_)) + (let ((_e124071124092_ (let () (declare (not safe)) - (gx#stx-e _tl124061124084_)))) - (let ((_hd124065124090_ + (gx#stx-e _tl124066124089_)))) + (let ((_hd124070124095_ (let () (declare (not safe)) - (##car _e124066124087_))) - (_tl124064124092_ + (##car _e124071124092_))) + (_tl124069124097_ (let () (declare (not safe)) - (##cdr _e124066124087_)))) + (##cdr _e124071124092_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124064124092_)) - (let ((_e124069124095_ + (gx#stx-pair? _tl124069124097_)) + (let ((_e124074124100_ (let () (declare (not safe)) - (gx#stx-e _tl124064124092_)))) - (let ((_hd124068124098_ + (gx#stx-e _tl124069124097_)))) + (let ((_hd124073124103_ (let () (declare (not safe)) - (##car _e124069124095_))) - (_tl124067124100_ + (##car _e124074124100_))) + (_tl124072124105_ (let () (declare (not safe)) - (##cdr _e124069124095_)))) + (##cdr _e124074124100_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl124067124100_)) - ((lambda (_L124103_ _L124104_) - (let ((__tmp128875 + _tl124072124105_)) + ((lambda (_L124108_ _L124109_) + (let ((__tmp128880 (lambda () (let () (declare (not safe)) (gxc#compile-e__0 - _L124103_))))) + _L124108_))))) (declare (not safe)) (call-with-parameters - __tmp128875 + __tmp128880 gxc#current-compile-type-closure '#t))) - _hd124068124098_ - _hd124065124090_) + _hd124073124103_ + _hd124070124095_) (let () (declare (not safe)) - (_g124057124074_ - _g124058124077_))))) + (_g124062124079_ + _g124063124082_))))) (let () (declare (not safe)) - (_g124057124074_ _g124058124077_))))) + (_g124062124079_ _g124063124082_))))) (let () (declare (not safe)) - (_g124057124074_ _g124058124077_))))) + (_g124062124079_ _g124063124082_))))) (let () (declare (not safe)) - (_g124057124074_ _g124058124077_)))))) + (_g124062124079_ _g124063124082_)))))) (declare (not safe)) - (_g124056124120_ _stx124055_)))) + (_g124061124125_ _stx124060_)))) (define gxc#basic-expression-type-builtin (let () (declare (not safe)) (make-hash-table-eq))) (define gxc#basic-expression-type-call% - (lambda (_stx123960_) - (let* ((___stx127462127463_ _stx123960_) - (_g123963123983_ + (lambda (_stx123965_) + (let* ((___stx127467127468_ _stx123965_) + (_g123968123988_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx127462127463_))))) - (let ((___kont127464127465_ - (lambda (_L124027_ _L124028_) - (let ((_type-e124045124047_ - (let ((__tmp128876 + ___stx127467127468_))))) + (let ((___kont127469127470_ + (lambda (_L124032_ _L124033_) + (let ((_type-e124050124052_ + (let ((__tmp128881 (let () (declare (not safe)) - (gxc#identifier-symbol _L124028_)))) + (gxc#identifier-symbol _L124033_)))) (declare (not safe)) (hash-get gxc#basic-expression-type-builtin - __tmp128876)))) - (if _type-e124045124047_ - (let ((_type-e124050_ _type-e124045124047_)) - (_type-e124050_ _stx123960_ _L124027_)) + __tmp128881)))) + (if _type-e124050124052_ + (let ((_type-e124055_ _type-e124050124052_)) + (_type-e124055_ _stx123965_ _L124032_)) '#f)))) - (___kont127466127467_ (lambda () '#f))) + (___kont127471127472_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx127462127463_)) - (let ((_e123969123995_ + (gx#stx-pair? ___stx127467127468_)) + (let ((_e123974124000_ (let () (declare (not safe)) - (gx#stx-e ___stx127462127463_)))) - (let ((_tl123967124000_ - (let () (declare (not safe)) (##cdr _e123969123995_))) - (_hd123968123998_ + (gx#stx-e ___stx127467127468_)))) + (let ((_tl123972124005_ + (let () (declare (not safe)) (##cdr _e123974124000_))) + (_hd123973124003_ (let () (declare (not safe)) - (##car _e123969123995_)))) + (##car _e123974124000_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl123967124000_)) - (let ((_e123972124003_ + (gx#stx-pair? _tl123972124005_)) + (let ((_e123977124008_ (let () (declare (not safe)) - (gx#stx-e _tl123967124000_)))) - (let ((_tl123970124008_ + (gx#stx-e _tl123972124005_)))) + (let ((_tl123975124013_ (let () (declare (not safe)) - (##cdr _e123972124003_))) - (_hd123971124006_ + (##cdr _e123977124008_))) + (_hd123976124011_ (let () (declare (not safe)) - (##car _e123972124003_)))) + (##car _e123977124008_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd123971124006_)) - (let ((_e123975124011_ + (gx#stx-pair? _hd123976124011_)) + (let ((_e123980124016_ (let () (declare (not safe)) - (gx#stx-e _hd123971124006_)))) - (let ((_tl123973124016_ + (gx#stx-e _hd123976124011_)))) + (let ((_tl123978124021_ (let () (declare (not safe)) - (##cdr _e123975124011_))) - (_hd123974124014_ + (##cdr _e123980124016_))) + (_hd123979124019_ (let () (declare (not safe)) - (##car _e123975124011_)))) + (##car _e123980124016_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd123974124014_)) + (gx#identifier? _hd123979124019_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd123974124014_)) + _hd123979124019_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl123973124016_)) - (let ((_e123978124019_ + _tl123978124021_)) + (let ((_e123983124024_ (let () (declare (not safe)) (gx#stx-e - _tl123973124016_)))) - (let ((_tl123976124024_ + _tl123978124021_)))) + (let ((_tl123981124029_ (let () (declare (not safe)) - (##cdr _e123978124019_))) - (_hd123977124022_ + (##cdr _e123983124024_))) + (_hd123982124027_ (let () (declare (not safe)) - (##car _e123978124019_)))) + (##car _e123983124024_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl123976124024_)) - (___kont127464127465_ - _tl123970124008_ - _hd123977124022_) - (___kont127466127467_)))) - (___kont127466127467_)) - (___kont127466127467_)) - (___kont127466127467_)))) - (___kont127466127467_)))) - (___kont127466127467_)))) - (___kont127466127467_)))))) + _tl123981124029_)) + (___kont127469127470_ + _tl123975124013_ + _hd123982124027_) + (___kont127471127472_)))) + (___kont127471127472_)) + (___kont127471127472_)) + (___kont127471127472_)))) + (___kont127471127472_)))) + (___kont127471127472_)))) + (___kont127471127472_)))))) (define gxc#basic-expression-type-ref% - (lambda (_stx123909_) - (let* ((_g123911123924_ - (lambda (_g123912123921_) + (lambda (_stx123914_) + (let* ((_g123916123929_ + (lambda (_g123917123926_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g123912123921_)))) - (_g123910123957_ - (lambda (_g123912123927_) + _g123917123926_)))) + (_g123915123962_ + (lambda (_g123917123932_) (if (let () (declare (not safe)) - (gx#stx-pair? _g123912123927_)) - (let ((_e123916123929_ + (gx#stx-pair? _g123917123932_)) + (let ((_e123921123934_ (let () (declare (not safe)) - (gx#stx-e _g123912123927_)))) - (let ((_hd123915123932_ + (gx#stx-e _g123917123932_)))) + (let ((_hd123920123937_ (let () (declare (not safe)) - (##car _e123916123929_))) - (_tl123914123934_ + (##car _e123921123934_))) + (_tl123919123939_ (let () (declare (not safe)) - (##cdr _e123916123929_)))) + (##cdr _e123921123934_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl123914123934_)) - (let ((_e123919123937_ + (gx#stx-pair? _tl123919123939_)) + (let ((_e123924123942_ (let () (declare (not safe)) - (gx#stx-e _tl123914123934_)))) - (let ((_hd123918123940_ + (gx#stx-e _tl123919123939_)))) + (let ((_hd123923123945_ (let () (declare (not safe)) - (##car _e123919123937_))) - (_tl123917123942_ + (##car _e123924123942_))) + (_tl123922123947_ (let () (declare (not safe)) - (##cdr _e123919123937_)))) + (##cdr _e123924123942_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl123917123942_)) - ((lambda (_L123945_) - (let ((__tmp128877 + (gx#stx-null? _tl123922123947_)) + ((lambda (_L123950_) + (let ((__tmp128882 (let () (declare (not safe)) (gxc#identifier-symbol - _L123945_)))) + _L123950_)))) (declare (not safe)) (gxc#optimizer-lookup-type - __tmp128877))) - _hd123918123940_) + __tmp128882))) + _hd123923123945_) (let () (declare (not safe)) - (_g123911123924_ _g123912123927_))))) + (_g123916123929_ _g123917123932_))))) (let () (declare (not safe)) - (_g123911123924_ _g123912123927_))))) + (_g123916123929_ _g123917123932_))))) (let () (declare (not safe)) - (_g123911123924_ _g123912123927_)))))) + (_g123916123929_ _g123917123932_)))))) (declare (not safe)) - (_g123910123957_ _stx123909_)))) + (_g123915123962_ _stx123914_)))) (define gxc#dispatch-lambda-form? - (lambda (_form123143_) - (let* ((___stx127500127501_ _form123143_) - (_g123148123305_ + (lambda (_form123148_) + (let* ((___stx127505127506_ _form123148_) + (_g123153123310_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx127500127501_))))) - (let ((___kont127502127503_ - (lambda (_L123829_ _L123830_ _L123831_) '#t)) - (___kont127508127509_ - (lambda (_L123617_ - _L123618_ - _L123619_ - _L123620_ - _L123621_ - _L123622_) + ___stx127505127506_))))) + (let ((___kont127507127508_ + (lambda (_L123834_ _L123835_ _L123836_) '#t)) + (___kont127513127514_ + (lambda (_L123622_ + _L123623_ + _L123624_ + _L123625_ + _L123626_ + _L123627_) '#t)) - (___kont127514127515_ - (lambda (_L123413_ _L123414_ _L123415_ _L123416_) '#t)) - (___kont127516127517_ (lambda () '#f))) - (let* ((___match127641127642_ - (lambda (_e123267123317_ - _hd123266123320_ - _tl123265123322_ - _e123270123325_ - _hd123269123328_ - _tl123268123330_ - _e123273123333_ - _hd123272123336_ - _tl123271123338_ - _e123276123341_ - _hd123275123344_ - _tl123274123346_ - _e123279123349_ - _hd123278123352_ - _tl123277123354_ - _e123282123357_ - _hd123281123360_ - _tl123280123362_ - _e123285123365_ - _hd123284123368_ - _tl123283123370_ - _e123288123373_ - _hd123287123376_ - _tl123286123378_ - _e123291123381_ - _hd123290123384_ - _tl123289123386_ - _e123294123389_ - _hd123293123392_ - _tl123292123394_ - _e123297123397_ - _hd123296123400_ - _tl123295123402_ - _e123300123405_ - _hd123299123408_ - _tl123298123410_) - (let ((_L123413_ _hd123299123408_) - (_L123414_ _hd123290123384_) - (_L123415_ _hd123281123360_) - (_L123416_ _hd123266123320_)) + (___kont127519127520_ + (lambda (_L123418_ _L123419_ _L123420_ _L123421_) '#t)) + (___kont127521127522_ (lambda () '#f))) + (let* ((___match127646127647_ + (lambda (_e123272123322_ + _hd123271123325_ + _tl123270123327_ + _e123275123330_ + _hd123274123333_ + _tl123273123335_ + _e123278123338_ + _hd123277123341_ + _tl123276123343_ + _e123281123346_ + _hd123280123349_ + _tl123279123351_ + _e123284123354_ + _hd123283123357_ + _tl123282123359_ + _e123287123362_ + _hd123286123365_ + _tl123285123367_ + _e123290123370_ + _hd123289123373_ + _tl123288123375_ + _e123293123378_ + _hd123292123381_ + _tl123291123383_ + _e123296123386_ + _hd123295123389_ + _tl123294123391_ + _e123299123394_ + _hd123298123397_ + _tl123297123399_ + _e123302123402_ + _hd123301123405_ + _tl123300123407_ + _e123305123410_ + _hd123304123413_ + _tl123303123415_) + (let ((_L123418_ _hd123304123413_) + (_L123419_ _hd123295123389_) + (_L123420_ _hd123286123365_) + (_L123421_ _hd123271123325_)) (if (and (let () (declare (not safe)) - (gx#identifier? _L123416_)) + (gx#identifier? _L123421_)) (let () (declare (not safe)) - (gxc#runtime-identifier=? _L123415_ 'apply)) + (gxc#runtime-identifier=? _L123420_ 'apply)) (let () (declare (not safe)) - (gx#free-identifier=? _L123416_ _L123413_)) - (let ((__tmp128878 + (gx#free-identifier=? _L123421_ _L123418_)) + (let ((__tmp128883 (let () (declare (not safe)) (gx#free-identifier=? - _L123414_ - _L123416_)))) + _L123419_ + _L123421_)))) (declare (not safe)) - (not __tmp128878))) - (___kont127514127515_ - _L123413_ - _L123414_ - _L123415_ - _L123416_) - (___kont127516127517_))))) - (___match127613127614_ - (lambda (_e123267123317_ - _hd123266123320_ - _tl123265123322_ - _e123270123325_ - _hd123269123328_ - _tl123268123330_ - _e123273123333_ - _hd123272123336_ - _tl123271123338_ - _e123276123341_ - _hd123275123344_ - _tl123274123346_ - _e123279123349_ - _hd123278123352_ - _tl123277123354_ - _e123282123357_ - _hd123281123360_ - _tl123280123362_ - _e123285123365_ - _hd123284123368_ - _tl123283123370_ - _e123288123373_ - _hd123287123376_ - _tl123286123378_ - _e123291123381_ - _hd123290123384_ - _tl123289123386_) + (not __tmp128883))) + (___kont127519127520_ + _L123418_ + _L123419_ + _L123420_ + _L123421_) + (___kont127521127522_))))) + (___match127618127619_ + (lambda (_e123272123322_ + _hd123271123325_ + _tl123270123327_ + _e123275123330_ + _hd123274123333_ + _tl123273123335_ + _e123278123338_ + _hd123277123341_ + _tl123276123343_ + _e123281123346_ + _hd123280123349_ + _tl123279123351_ + _e123284123354_ + _hd123283123357_ + _tl123282123359_ + _e123287123362_ + _hd123286123365_ + _tl123285123367_ + _e123290123370_ + _hd123289123373_ + _tl123288123375_ + _e123293123378_ + _hd123292123381_ + _tl123291123383_ + _e123296123386_ + _hd123295123389_ + _tl123294123391_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl123283123370_)) - (let ((_e123294123389_ + (gx#stx-pair? _tl123288123375_)) + (let ((_e123299123394_ (let () (declare (not safe)) - (gx#stx-e _tl123283123370_)))) - (let ((_tl123292123394_ + (gx#stx-e _tl123288123375_)))) + (let ((_tl123297123399_ (let () (declare (not safe)) - (##cdr _e123294123389_))) - (_hd123293123392_ + (##cdr _e123299123394_))) + (_hd123298123397_ (let () (declare (not safe)) - (##car _e123294123389_)))) + (##car _e123299123394_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd123293123392_)) - (let ((_e123297123397_ + (gx#stx-pair? _hd123298123397_)) + (let ((_e123302123402_ (let () (declare (not safe)) - (gx#stx-e _hd123293123392_)))) - (let ((_tl123295123402_ + (gx#stx-e _hd123298123397_)))) + (let ((_tl123300123407_ (let () (declare (not safe)) - (##cdr _e123297123397_))) - (_hd123296123400_ + (##cdr _e123302123402_))) + (_hd123301123405_ (let () (declare (not safe)) - (##car _e123297123397_)))) + (##car _e123302123402_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd123296123400_)) + (gx#identifier? _hd123301123405_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd123296123400_)) + _hd123301123405_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl123295123402_)) - (let ((_e123300123405_ + _tl123300123407_)) + (let ((_e123305123410_ (let () (declare (not safe)) (gx#stx-e - _tl123295123402_)))) - (let ((_tl123298123410_ + _tl123300123407_)))) + (let ((_tl123303123415_ (let () (declare (not safe)) - (##cdr _e123300123405_))) - (_hd123299123408_ + (##cdr _e123305123410_))) + (_hd123304123413_ (let () (declare (not safe)) - (##car _e123300123405_)))) + (##car _e123305123410_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl123298123410_)) + _tl123303123415_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl123292123394_)) + (gx#stx-null? _tl123297123399_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl123268123330_)) - (___match127641127642_ - _e123267123317_ - _hd123266123320_ - _tl123265123322_ - _e123270123325_ - _hd123269123328_ - _tl123268123330_ - _e123273123333_ - _hd123272123336_ - _tl123271123338_ - _e123276123341_ - _hd123275123344_ - _tl123274123346_ - _e123279123349_ - _hd123278123352_ - _tl123277123354_ - _e123282123357_ - _hd123281123360_ - _tl123280123362_ - _e123285123365_ - _hd123284123368_ - _tl123283123370_ - _e123288123373_ - _hd123287123376_ - _tl123286123378_ - _e123291123381_ - _hd123290123384_ - _tl123289123386_ - _e123294123389_ - _hd123293123392_ - _tl123292123394_ - _e123297123397_ - _hd123296123400_ - _tl123295123402_ - _e123300123405_ - _hd123299123408_ - _tl123298123410_) - (___kont127516127517_)) - (___kont127516127517_)) - (___kont127516127517_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont127516127517_)) - (___kont127516127517_)) - (___kont127516127517_)))) - (___kont127516127517_)))) - (___kont127516127517_)))) - (___match127543127544_ - (lambda (_e123203123457_ - _hd123202123460_ - _tl123201123462_ - ___splice127510127511_ - _target123204123465_ - _tl123206123467_) - (letrec ((_loop123207123470_ - (lambda (_hd123205123473_ _arg123211123475_) + (gx#stx-null? _tl123273123335_)) + (___match127646127647_ + _e123272123322_ + _hd123271123325_ + _tl123270123327_ + _e123275123330_ + _hd123274123333_ + _tl123273123335_ + _e123278123338_ + _hd123277123341_ + _tl123276123343_ + _e123281123346_ + _hd123280123349_ + _tl123279123351_ + _e123284123354_ + _hd123283123357_ + _tl123282123359_ + _e123287123362_ + _hd123286123365_ + _tl123285123367_ + _e123290123370_ + _hd123289123373_ + _tl123288123375_ + _e123293123378_ + _hd123292123381_ + _tl123291123383_ + _e123296123386_ + _hd123295123389_ + _tl123294123391_ + _e123299123394_ + _hd123298123397_ + _tl123297123399_ + _e123302123402_ + _hd123301123405_ + _tl123300123407_ + _e123305123410_ + _hd123304123413_ + _tl123303123415_) + (___kont127521127522_)) + (___kont127521127522_)) + (___kont127521127522_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont127521127522_)) + (___kont127521127522_)) + (___kont127521127522_)))) + (___kont127521127522_)))) + (___kont127521127522_)))) + (___match127548127549_ + (lambda (_e123208123462_ + _hd123207123465_ + _tl123206123467_ + ___splice127515127516_ + _target123209123470_ + _tl123211123472_) + (letrec ((_loop123212123475_ + (lambda (_hd123210123478_ _arg123216123480_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd123205123473_)) - (let ((_e123208123478_ + (gx#stx-pair? _hd123210123478_)) + (let ((_e123213123483_ (let () (declare (not safe)) - (gx#stx-e _hd123205123473_)))) - (let ((_lp-tl123210123483_ + (gx#stx-e _hd123210123478_)))) + (let ((_lp-tl123215123488_ (let () (declare (not safe)) - (##cdr _e123208123478_))) - (_lp-hd123209123481_ + (##cdr _e123213123483_))) + (_lp-hd123214123486_ (let () (declare (not safe)) - (##car _e123208123478_)))) - (let ((__tmp128893 + (##car _e123213123483_)))) + (let ((__tmp128898 (let () (declare (not safe)) - (cons _lp-hd123209123481_ - _arg123211123475_)))) + (cons _lp-hd123214123486_ + _arg123216123480_)))) (declare (not safe)) - (_loop123207123470_ - _lp-tl123210123483_ - __tmp128893)))) - (let ((_arg123212123486_ - (reverse _arg123211123475_))) + (_loop123212123475_ + _lp-tl123215123488_ + __tmp128898)))) + (let ((_arg123217123491_ + (reverse _arg123216123480_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl123201123462_)) - (let ((_e123215123489_ + (gx#stx-pair? _tl123206123467_)) + (let ((_e123220123494_ (let () (declare (not safe)) (gx#stx-e - _tl123201123462_)))) - (let ((_tl123213123494_ + _tl123206123467_)))) + (let ((_tl123218123499_ (let () (declare (not safe)) - (##cdr _e123215123489_))) - (_hd123214123492_ + (##cdr _e123220123494_))) + (_hd123219123497_ (let () (declare (not safe)) - (##car _e123215123489_)))) + (##car _e123220123494_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd123214123492_)) - (let ((_e123218123497_ + _hd123219123497_)) + (let ((_e123223123502_ (let () (declare (not safe)) (gx#stx-e - _hd123214123492_)))) - (let ((_tl123216123502_ + _hd123219123497_)))) + (let ((_tl123221123507_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e123218123497_))) - (_hd123217123500_ - (let () (declare (not safe)) (##car _e123218123497_)))) + (##cdr _e123223123502_))) + (_hd123222123505_ + (let () (declare (not safe)) (##car _e123223123502_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd123217123500_)) + (gx#identifier? _hd123222123505_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd123217123500_)) + (gx#stx-eq? '%#call _hd123222123505_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl123216123502_)) - (let ((_e123221123505_ + (gx#stx-pair? _tl123221123507_)) + (let ((_e123226123510_ (let () (declare (not safe)) - (gx#stx-e _tl123216123502_)))) - (let ((_tl123219123510_ + (gx#stx-e _tl123221123507_)))) + (let ((_tl123224123515_ (let () (declare (not safe)) - (##cdr _e123221123505_))) - (_hd123220123508_ + (##cdr _e123226123510_))) + (_hd123225123513_ (let () (declare (not safe)) - (##car _e123221123505_)))) + (##car _e123226123510_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd123220123508_)) - (let ((_e123224123513_ + (gx#stx-pair? _hd123225123513_)) + (let ((_e123229123518_ (let () (declare (not safe)) - (gx#stx-e _hd123220123508_)))) - (let ((_tl123222123518_ + (gx#stx-e _hd123225123513_)))) + (let ((_tl123227123523_ (let () (declare (not safe)) - (##cdr _e123224123513_))) - (_hd123223123516_ + (##cdr _e123229123518_))) + (_hd123228123521_ (let () (declare (not safe)) - (##car _e123224123513_)))) + (##car _e123229123518_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd123223123516_)) + _hd123228123521_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd123223123516_)) + _hd123228123521_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl123222123518_)) - (let ((_e123227123521_ + _tl123227123523_)) + (let ((_e123232123526_ (let () (declare (not safe)) (gx#stx-e - _tl123222123518_)))) - (let ((_tl123225123526_ + _tl123227123523_)))) + (let ((_tl123230123531_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e123227123521_))) - (_hd123226123524_ - (let () (declare (not safe)) (##car _e123227123521_)))) + (##cdr _e123232123526_))) + (_hd123231123529_ + (let () (declare (not safe)) (##car _e123232123526_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl123225123526_)) + (gx#stx-null? _tl123230123531_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl123219123510_)) - (let ((_e123230123529_ + (gx#stx-pair? _tl123224123515_)) + (let ((_e123235123534_ (let () (declare (not safe)) - (gx#stx-e _tl123219123510_)))) - (let ((_tl123228123534_ + (gx#stx-e _tl123224123515_)))) + (let ((_tl123233123539_ (let () (declare (not safe)) - (##cdr _e123230123529_))) - (_hd123229123532_ + (##cdr _e123235123534_))) + (_hd123234123537_ (let () (declare (not safe)) - (##car _e123230123529_)))) + (##car _e123235123534_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd123229123532_)) - (let ((_e123233123537_ + (gx#stx-pair? _hd123234123537_)) + (let ((_e123238123542_ (let () (declare (not safe)) - (gx#stx-e _hd123229123532_)))) - (let ((_tl123231123542_ + (gx#stx-e _hd123234123537_)))) + (let ((_tl123236123547_ (let () (declare (not safe)) - (##cdr _e123233123537_))) - (_hd123232123540_ + (##cdr _e123238123542_))) + (_hd123237123545_ (let () (declare (not safe)) - (##car _e123233123537_)))) + (##car _e123238123542_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd123232123540_)) + (gx#identifier? _hd123237123545_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd123232123540_)) + _hd123237123545_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl123231123542_)) - (let ((_e123236123545_ + _tl123236123547_)) + (let ((_e123241123550_ (let () (declare (not safe)) (gx#stx-e - _tl123231123542_)))) - (let ((_tl123234123550_ + _tl123236123547_)))) + (let ((_tl123239123555_ (let () (declare (not safe)) - (##cdr _e123236123545_))) - (_hd123235123548_ + (##cdr _e123241123550_))) + (_hd123240123553_ (let () (declare (not safe)) - (##car _e123236123545_)))) + (##car _e123241123550_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl123234123550_)) + _tl123239123555_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl123228123534_)) + _tl123233123539_)) (if (fx>= (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-length _tl123228123534_)) + (gx#stx-length _tl123233123539_)) '1) - (let ((___splice127512127513_ + (let ((___splice127517127518_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl123228123534_ + _tl123233123539_ '1)))) - (let ((_tl123239123555_ + (let ((_tl123244123560_ (let () (declare (not safe)) - (##vector-ref ___splice127512127513_ '1))) - (_target123237123553_ + (##vector-ref ___splice127517127518_ '1))) + (_target123242123558_ (let () (declare (not safe)) - (##vector-ref ___splice127512127513_ '0)))) + (##vector-ref ___splice127517127518_ '0)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl123239123555_)) - (let ((_e123248123558_ + (gx#stx-pair? _tl123244123560_)) + (let ((_e123253123563_ (let () (declare (not safe)) - (gx#stx-e _tl123239123555_)))) - (let ((_tl123246123563_ + (gx#stx-e _tl123244123560_)))) + (let ((_tl123251123568_ (let () (declare (not safe)) - (##cdr _e123248123558_))) - (_hd123247123561_ + (##cdr _e123253123563_))) + (_hd123252123566_ (let () (declare (not safe)) - (##car _e123248123558_)))) + (##car _e123253123563_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd123247123561_)) - (let ((_e123251123566_ + (gx#stx-pair? _hd123252123566_)) + (let ((_e123256123571_ (let () (declare (not safe)) - (gx#stx-e _hd123247123561_)))) - (let ((_tl123249123571_ + (gx#stx-e _hd123252123566_)))) + (let ((_tl123254123576_ (let () (declare (not safe)) - (##cdr _e123251123566_))) - (_hd123250123569_ + (##cdr _e123256123571_))) + (_hd123255123574_ (let () (declare (not safe)) - (##car _e123251123566_)))) + (##car _e123256123571_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd123250123569_)) + _hd123255123574_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd123250123569_)) + _hd123255123574_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl123249123571_)) - (let ((_e123254123574_ + _tl123254123576_)) + (let ((_e123259123579_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl123249123571_)))) - (let ((_tl123252123579_ - (let () (declare (not safe)) (##cdr _e123254123574_))) - (_hd123253123577_ + (gx#stx-e _tl123254123576_)))) + (let ((_tl123257123584_ + (let () (declare (not safe)) (##cdr _e123259123579_))) + (_hd123258123582_ (let () (declare (not safe)) - (##car _e123254123574_)))) + (##car _e123259123579_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl123252123579_)) + (gx#stx-null? _tl123257123584_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl123246123563_)) - (letrec ((_loop123240123582_ - (lambda (_hd123238123585_ - _xarg123244123587_) + (gx#stx-null? _tl123251123568_)) + (letrec ((_loop123245123587_ + (lambda (_hd123243123590_ + _xarg123249123592_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd123238123585_)) - (let ((_e123241123590_ + (gx#stx-pair? _hd123243123590_)) + (let ((_e123246123595_ (let () (declare (not safe)) (gx#stx-e - _hd123238123585_)))) - (let ((_lp-tl123243123595_ + _hd123243123590_)))) + (let ((_lp-tl123248123600_ (let () (declare (not safe)) - (##cdr _e123241123590_))) - (_lp-hd123242123593_ + (##cdr _e123246123595_))) + (_lp-hd123247123598_ (let () (declare (not safe)) - (##car _e123241123590_)))) + (##car _e123246123595_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd123242123593_)) - (let ((_e123257123598_ + _lp-hd123247123598_)) + (let ((_e123262123603_ (let () (declare (not safe)) (gx#stx-e - _lp-hd123242123593_)))) - (let ((_tl123255123603_ + _lp-hd123247123598_)))) + (let ((_tl123260123608_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e123257123598_))) - (_hd123256123601_ - (let () (declare (not safe)) (##car _e123257123598_)))) + (##cdr _e123262123603_))) + (_hd123261123606_ + (let () (declare (not safe)) (##car _e123262123603_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd123256123601_)) + (gx#identifier? _hd123261123606_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd123256123601_)) + (gx#stx-eq? '%#ref _hd123261123606_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl123255123603_)) - (let ((_e123260123606_ + (gx#stx-pair? _tl123260123608_)) + (let ((_e123265123611_ (let () (declare (not safe)) - (gx#stx-e _tl123255123603_)))) - (let ((_tl123258123611_ + (gx#stx-e _tl123260123608_)))) + (let ((_tl123263123616_ (let () (declare (not safe)) - (##cdr _e123260123606_))) - (_hd123259123609_ + (##cdr _e123265123611_))) + (_hd123264123614_ (let () (declare (not safe)) - (##car _e123260123606_)))) + (##car _e123265123611_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl123258123611_)) - (let ((__tmp128892 + (gx#stx-null? _tl123263123616_)) + (let ((__tmp128897 (let () (declare (not safe)) - (cons _hd123259123609_ - _xarg123244123587_)))) + (cons _hd123264123614_ + _xarg123249123592_)))) (declare (not safe)) - (_loop123240123582_ - _lp-tl123243123595_ - __tmp128892)) - (___match127613127614_ - _e123203123457_ - _hd123202123460_ - _tl123201123462_ - _e123215123489_ - _hd123214123492_ - _tl123213123494_ - _e123218123497_ - _hd123217123500_ - _tl123216123502_ - _e123221123505_ - _hd123220123508_ - _tl123219123510_ - _e123224123513_ - _hd123223123516_ - _tl123222123518_ - _e123227123521_ - _hd123226123524_ - _tl123225123526_ - _e123230123529_ - _hd123229123532_ - _tl123228123534_ - _e123233123537_ - _hd123232123540_ - _tl123231123542_ - _e123236123545_ - _hd123235123548_ - _tl123234123550_)))) - (___match127613127614_ - _e123203123457_ - _hd123202123460_ - _tl123201123462_ - _e123215123489_ - _hd123214123492_ - _tl123213123494_ - _e123218123497_ - _hd123217123500_ - _tl123216123502_ - _e123221123505_ - _hd123220123508_ - _tl123219123510_ - _e123224123513_ - _hd123223123516_ - _tl123222123518_ - _e123227123521_ - _hd123226123524_ - _tl123225123526_ - _e123230123529_ - _hd123229123532_ - _tl123228123534_ - _e123233123537_ - _hd123232123540_ - _tl123231123542_ - _e123236123545_ - _hd123235123548_ - _tl123234123550_)) - (___match127613127614_ - _e123203123457_ - _hd123202123460_ - _tl123201123462_ - _e123215123489_ - _hd123214123492_ - _tl123213123494_ - _e123218123497_ - _hd123217123500_ - _tl123216123502_ - _e123221123505_ - _hd123220123508_ - _tl123219123510_ - _e123224123513_ - _hd123223123516_ - _tl123222123518_ - _e123227123521_ - _hd123226123524_ - _tl123225123526_ - _e123230123529_ - _hd123229123532_ - _tl123228123534_ - _e123233123537_ - _hd123232123540_ - _tl123231123542_ - _e123236123545_ - _hd123235123548_ - _tl123234123550_)) - (___match127613127614_ - _e123203123457_ - _hd123202123460_ - _tl123201123462_ - _e123215123489_ - _hd123214123492_ - _tl123213123494_ - _e123218123497_ - _hd123217123500_ - _tl123216123502_ - _e123221123505_ - _hd123220123508_ - _tl123219123510_ - _e123224123513_ - _hd123223123516_ - _tl123222123518_ - _e123227123521_ - _hd123226123524_ - _tl123225123526_ - _e123230123529_ - _hd123229123532_ - _tl123228123534_ - _e123233123537_ - _hd123232123540_ - _tl123231123542_ - _e123236123545_ - _hd123235123548_ - _tl123234123550_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match127613127614_ - _e123203123457_ - _hd123202123460_ - _tl123201123462_ - _e123215123489_ - _hd123214123492_ - _tl123213123494_ - _e123218123497_ - _hd123217123500_ - _tl123216123502_ - _e123221123505_ - _hd123220123508_ - _tl123219123510_ - _e123224123513_ - _hd123223123516_ - _tl123222123518_ - _e123227123521_ - _hd123226123524_ - _tl123225123526_ - _e123230123529_ - _hd123229123532_ - _tl123228123534_ - _e123233123537_ - _hd123232123540_ - _tl123231123542_ - _e123236123545_ - _hd123235123548_ - _tl123234123550_)))) - (let ((_xarg123245123614_ - (reverse _xarg123244123587_))) + (_loop123245123587_ + _lp-tl123248123600_ + __tmp128897)) + (___match127618127619_ + _e123208123462_ + _hd123207123465_ + _tl123206123467_ + _e123220123494_ + _hd123219123497_ + _tl123218123499_ + _e123223123502_ + _hd123222123505_ + _tl123221123507_ + _e123226123510_ + _hd123225123513_ + _tl123224123515_ + _e123229123518_ + _hd123228123521_ + _tl123227123523_ + _e123232123526_ + _hd123231123529_ + _tl123230123531_ + _e123235123534_ + _hd123234123537_ + _tl123233123539_ + _e123238123542_ + _hd123237123545_ + _tl123236123547_ + _e123241123550_ + _hd123240123553_ + _tl123239123555_)))) + (___match127618127619_ + _e123208123462_ + _hd123207123465_ + _tl123206123467_ + _e123220123494_ + _hd123219123497_ + _tl123218123499_ + _e123223123502_ + _hd123222123505_ + _tl123221123507_ + _e123226123510_ + _hd123225123513_ + _tl123224123515_ + _e123229123518_ + _hd123228123521_ + _tl123227123523_ + _e123232123526_ + _hd123231123529_ + _tl123230123531_ + _e123235123534_ + _hd123234123537_ + _tl123233123539_ + _e123238123542_ + _hd123237123545_ + _tl123236123547_ + _e123241123550_ + _hd123240123553_ + _tl123239123555_)) + (___match127618127619_ + _e123208123462_ + _hd123207123465_ + _tl123206123467_ + _e123220123494_ + _hd123219123497_ + _tl123218123499_ + _e123223123502_ + _hd123222123505_ + _tl123221123507_ + _e123226123510_ + _hd123225123513_ + _tl123224123515_ + _e123229123518_ + _hd123228123521_ + _tl123227123523_ + _e123232123526_ + _hd123231123529_ + _tl123230123531_ + _e123235123534_ + _hd123234123537_ + _tl123233123539_ + _e123238123542_ + _hd123237123545_ + _tl123236123547_ + _e123241123550_ + _hd123240123553_ + _tl123239123555_)) + (___match127618127619_ + _e123208123462_ + _hd123207123465_ + _tl123206123467_ + _e123220123494_ + _hd123219123497_ + _tl123218123499_ + _e123223123502_ + _hd123222123505_ + _tl123221123507_ + _e123226123510_ + _hd123225123513_ + _tl123224123515_ + _e123229123518_ + _hd123228123521_ + _tl123227123523_ + _e123232123526_ + _hd123231123529_ + _tl123230123531_ + _e123235123534_ + _hd123234123537_ + _tl123233123539_ + _e123238123542_ + _hd123237123545_ + _tl123236123547_ + _e123241123550_ + _hd123240123553_ + _tl123239123555_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match127618127619_ + _e123208123462_ + _hd123207123465_ + _tl123206123467_ + _e123220123494_ + _hd123219123497_ + _tl123218123499_ + _e123223123502_ + _hd123222123505_ + _tl123221123507_ + _e123226123510_ + _hd123225123513_ + _tl123224123515_ + _e123229123518_ + _hd123228123521_ + _tl123227123523_ + _e123232123526_ + _hd123231123529_ + _tl123230123531_ + _e123235123534_ + _hd123234123537_ + _tl123233123539_ + _e123238123542_ + _hd123237123545_ + _tl123236123547_ + _e123241123550_ + _hd123240123553_ + _tl123239123555_)))) + (let ((_xarg123250123619_ + (reverse _xarg123249123592_))) (if (let () (declare (not safe)) (gx#stx-null? - _tl123213123494_)) - (let ((_L123617_ - _hd123253123577_) - (_L123618_ - _xarg123245123614_) - (_L123619_ - _hd123235123548_) - (_L123620_ - _hd123226123524_) - (_L123621_ - _tl123206123467_) - (_L123622_ - _arg123212123486_)) - (if (and (let ((__tmp128890 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp128891 - (lambda (_g123665123668_ _g123666123670_) + _tl123218123499_)) + (let ((_L123622_ + _hd123258123582_) + (_L123623_ + _xarg123250123619_) + (_L123624_ + _hd123240123553_) + (_L123625_ + _hd123231123529_) + (_L123626_ + _tl123211123472_) + (_L123627_ + _arg123217123491_)) + (if (and (let ((__tmp128895 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp128896 + (lambda (_g123670123673_ _g123671123675_) (let () (declare (not safe)) - (cons _g123665123668_ - _g123666123670_))))) + (cons _g123670123673_ + _g123671123675_))))) (declare (not safe)) - (foldr1 __tmp128891 '() _L123622_)))) + (foldr1 __tmp128896 '() _L123627_)))) (declare (not safe)) - (gx#identifier-list? __tmp128890)) - (let () (declare (not safe)) (gx#identifier? _L123621_)) + (gx#identifier-list? __tmp128895)) + (let () (declare (not safe)) (gx#identifier? _L123626_)) (let () (declare (not safe)) - (gxc#runtime-identifier=? _L123620_ 'apply)) - (fx= (length (let ((__tmp128888 - (lambda (_g123672123675_ - _g123673123677_) + (gxc#runtime-identifier=? _L123625_ 'apply)) + (fx= (length (let ((__tmp128893 + (lambda (_g123677123680_ + _g123678123682_) (let () (declare (not safe)) - (cons _g123672123675_ - _g123673123677_))))) + (cons _g123677123680_ + _g123678123682_))))) (declare (not safe)) - (foldr1 __tmp128888 '() _L123622_))) - (length (let ((__tmp128889 - (lambda (_g123679123682_ - _g123680123684_) + (foldr1 __tmp128893 '() _L123627_))) + (length (let ((__tmp128894 + (lambda (_g123684123687_ + _g123685123689_) (let () (declare (not safe)) - (cons _g123679123682_ - _g123680123684_))))) + (cons _g123684123687_ + _g123685123689_))))) (declare (not safe)) - (foldr1 __tmp128889 '() _L123618_)))) - (let ((__tmp128886 - (let ((__tmp128887 - (lambda (_g123686123689_ _g123687123691_) + (foldr1 __tmp128894 '() _L123623_)))) + (let ((__tmp128891 + (let ((__tmp128892 + (lambda (_g123691123694_ _g123692123696_) (let () (declare (not safe)) - (cons _g123686123689_ - _g123687123691_))))) + (cons _g123691123694_ + _g123692123696_))))) (declare (not safe)) - (foldr1 __tmp128887 '() _L123622_))) - (__tmp128884 - (let ((__tmp128885 - (lambda (_g123693123696_ _g123694123698_) + (foldr1 __tmp128892 '() _L123627_))) + (__tmp128889 + (let ((__tmp128890 + (lambda (_g123698123701_ _g123699123703_) (let () (declare (not safe)) - (cons _g123693123696_ - _g123694123698_))))) + (cons _g123698123701_ + _g123699123703_))))) (declare (not safe)) - (foldr1 __tmp128885 '() _L123618_)))) + (foldr1 __tmp128890 '() _L123623_)))) (declare (not safe)) - (andmap2 gx#free-identifier=? __tmp128886 __tmp128884)) + (andmap2 gx#free-identifier=? __tmp128891 __tmp128889)) (let () (declare (not safe)) - (gx#free-identifier=? _L123621_ _L123617_)) - (let ((__tmp128879 - (let ((__tmp128883 - (lambda (_g123700123702_) + (gx#free-identifier=? _L123626_ _L123622_)) + (let ((__tmp128884 + (let ((__tmp128888 + (lambda (_g123705123707_) (let () (declare (not safe)) (gx#free-identifier=? - _g123700123702_ - _L123619_)))) - (__tmp128880 - (let ((__tmp128882 - (lambda (_g123704123707_ - _g123705123709_) + _g123705123707_ + _L123624_)))) + (__tmp128885 + (let ((__tmp128887 + (lambda (_g123709123712_ + _g123710123714_) (let () (declare (not safe)) - (cons _g123704123707_ - _g123705123709_)))) - (__tmp128881 + (cons _g123709123712_ + _g123710123714_)))) + (__tmp128886 (let () (declare (not safe)) - (cons _L123621_ '())))) + (cons _L123626_ '())))) (declare (not safe)) - (foldr1 __tmp128882 - __tmp128881 - _L123622_)))) + (foldr1 __tmp128887 + __tmp128886 + _L123627_)))) (declare (not safe)) - (find __tmp128883 __tmp128880)))) + (find __tmp128888 __tmp128885)))) (declare (not safe)) - (not __tmp128879))) - (___kont127508127509_ - _L123617_ - _L123618_ - _L123619_ - _L123620_ - _L123621_ - _L123622_) - (___match127613127614_ - _e123203123457_ - _hd123202123460_ - _tl123201123462_ - _e123215123489_ - _hd123214123492_ - _tl123213123494_ - _e123218123497_ - _hd123217123500_ - _tl123216123502_ - _e123221123505_ - _hd123220123508_ - _tl123219123510_ - _e123224123513_ - _hd123223123516_ - _tl123222123518_ - _e123227123521_ - _hd123226123524_ - _tl123225123526_ - _e123230123529_ - _hd123229123532_ - _tl123228123534_ - _e123233123537_ - _hd123232123540_ - _tl123231123542_ - _e123236123545_ - _hd123235123548_ - _tl123234123550_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match127613127614_ - _e123203123457_ - _hd123202123460_ - _tl123201123462_ - _e123215123489_ - _hd123214123492_ - _tl123213123494_ - _e123218123497_ - _hd123217123500_ - _tl123216123502_ - _e123221123505_ - _hd123220123508_ - _tl123219123510_ - _e123224123513_ - _hd123223123516_ - _tl123222123518_ - _e123227123521_ - _hd123226123524_ - _tl123225123526_ - _e123230123529_ - _hd123229123532_ - _tl123228123534_ - _e123233123537_ - _hd123232123540_ - _tl123231123542_ - _e123236123545_ - _hd123235123548_ - _tl123234123550_))))))) + (not __tmp128884))) + (___kont127513127514_ + _L123622_ + _L123623_ + _L123624_ + _L123625_ + _L123626_ + _L123627_) + (___match127618127619_ + _e123208123462_ + _hd123207123465_ + _tl123206123467_ + _e123220123494_ + _hd123219123497_ + _tl123218123499_ + _e123223123502_ + _hd123222123505_ + _tl123221123507_ + _e123226123510_ + _hd123225123513_ + _tl123224123515_ + _e123229123518_ + _hd123228123521_ + _tl123227123523_ + _e123232123526_ + _hd123231123529_ + _tl123230123531_ + _e123235123534_ + _hd123234123537_ + _tl123233123539_ + _e123238123542_ + _hd123237123545_ + _tl123236123547_ + _e123241123550_ + _hd123240123553_ + _tl123239123555_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match127618127619_ + _e123208123462_ + _hd123207123465_ + _tl123206123467_ + _e123220123494_ + _hd123219123497_ + _tl123218123499_ + _e123223123502_ + _hd123222123505_ + _tl123221123507_ + _e123226123510_ + _hd123225123513_ + _tl123224123515_ + _e123229123518_ + _hd123228123521_ + _tl123227123523_ + _e123232123526_ + _hd123231123529_ + _tl123230123531_ + _e123235123534_ + _hd123234123537_ + _tl123233123539_ + _e123238123542_ + _hd123237123545_ + _tl123236123547_ + _e123241123550_ + _hd123240123553_ + _tl123239123555_))))))) (let () (declare (not safe)) - (_loop123240123582_ _target123237123553_ '()))) - (___match127613127614_ - _e123203123457_ - _hd123202123460_ - _tl123201123462_ - _e123215123489_ - _hd123214123492_ - _tl123213123494_ - _e123218123497_ - _hd123217123500_ - _tl123216123502_ - _e123221123505_ - _hd123220123508_ - _tl123219123510_ - _e123224123513_ - _hd123223123516_ - _tl123222123518_ - _e123227123521_ - _hd123226123524_ - _tl123225123526_ - _e123230123529_ - _hd123229123532_ - _tl123228123534_ - _e123233123537_ - _hd123232123540_ - _tl123231123542_ - _e123236123545_ - _hd123235123548_ - _tl123234123550_)) - (___match127613127614_ - _e123203123457_ - _hd123202123460_ - _tl123201123462_ - _e123215123489_ - _hd123214123492_ - _tl123213123494_ - _e123218123497_ - _hd123217123500_ - _tl123216123502_ - _e123221123505_ - _hd123220123508_ - _tl123219123510_ - _e123224123513_ - _hd123223123516_ - _tl123222123518_ - _e123227123521_ - _hd123226123524_ - _tl123225123526_ - _e123230123529_ - _hd123229123532_ - _tl123228123534_ - _e123233123537_ - _hd123232123540_ - _tl123231123542_ - _e123236123545_ - _hd123235123548_ - _tl123234123550_)))) - (___match127613127614_ - _e123203123457_ - _hd123202123460_ - _tl123201123462_ - _e123215123489_ - _hd123214123492_ - _tl123213123494_ - _e123218123497_ - _hd123217123500_ - _tl123216123502_ - _e123221123505_ - _hd123220123508_ - _tl123219123510_ - _e123224123513_ - _hd123223123516_ - _tl123222123518_ - _e123227123521_ - _hd123226123524_ - _tl123225123526_ - _e123230123529_ - _hd123229123532_ - _tl123228123534_ - _e123233123537_ - _hd123232123540_ - _tl123231123542_ - _e123236123545_ - _hd123235123548_ - _tl123234123550_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match127613127614_ - _e123203123457_ - _hd123202123460_ - _tl123201123462_ - _e123215123489_ - _hd123214123492_ - _tl123213123494_ - _e123218123497_ - _hd123217123500_ - _tl123216123502_ - _e123221123505_ - _hd123220123508_ - _tl123219123510_ - _e123224123513_ - _hd123223123516_ - _tl123222123518_ - _e123227123521_ - _hd123226123524_ - _tl123225123526_ - _e123230123529_ - _hd123229123532_ - _tl123228123534_ - _e123233123537_ - _hd123232123540_ - _tl123231123542_ - _e123236123545_ - _hd123235123548_ - _tl123234123550_)) - (___match127613127614_ - _e123203123457_ - _hd123202123460_ - _tl123201123462_ - _e123215123489_ - _hd123214123492_ - _tl123213123494_ - _e123218123497_ - _hd123217123500_ - _tl123216123502_ - _e123221123505_ - _hd123220123508_ - _tl123219123510_ - _e123224123513_ - _hd123223123516_ - _tl123222123518_ - _e123227123521_ - _hd123226123524_ - _tl123225123526_ - _e123230123529_ - _hd123229123532_ - _tl123228123534_ - _e123233123537_ - _hd123232123540_ - _tl123231123542_ - _e123236123545_ - _hd123235123548_ - _tl123234123550_)))) - (___match127613127614_ - _e123203123457_ - _hd123202123460_ - _tl123201123462_ - _e123215123489_ - _hd123214123492_ - _tl123213123494_ - _e123218123497_ - _hd123217123500_ - _tl123216123502_ - _e123221123505_ - _hd123220123508_ - _tl123219123510_ - _e123224123513_ - _hd123223123516_ - _tl123222123518_ - _e123227123521_ - _hd123226123524_ - _tl123225123526_ - _e123230123529_ - _hd123229123532_ - _tl123228123534_ - _e123233123537_ - _hd123232123540_ - _tl123231123542_ - _e123236123545_ - _hd123235123548_ - _tl123234123550_)))) - (___match127613127614_ - _e123203123457_ - _hd123202123460_ - _tl123201123462_ - _e123215123489_ - _hd123214123492_ - _tl123213123494_ - _e123218123497_ - _hd123217123500_ - _tl123216123502_ - _e123221123505_ - _hd123220123508_ - _tl123219123510_ - _e123224123513_ - _hd123223123516_ - _tl123222123518_ - _e123227123521_ - _hd123226123524_ - _tl123225123526_ - _e123230123529_ - _hd123229123532_ - _tl123228123534_ - _e123233123537_ - _hd123232123540_ - _tl123231123542_ - _e123236123545_ - _hd123235123548_ - _tl123234123550_)))) - (___match127613127614_ - _e123203123457_ - _hd123202123460_ - _tl123201123462_ - _e123215123489_ - _hd123214123492_ - _tl123213123494_ - _e123218123497_ - _hd123217123500_ - _tl123216123502_ - _e123221123505_ - _hd123220123508_ - _tl123219123510_ - _e123224123513_ - _hd123223123516_ - _tl123222123518_ - _e123227123521_ - _hd123226123524_ - _tl123225123526_ - _e123230123529_ - _hd123229123532_ - _tl123228123534_ - _e123233123537_ - _hd123232123540_ - _tl123231123542_ - _e123236123545_ - _hd123235123548_ - _tl123234123550_)) - (___match127613127614_ - _e123203123457_ - _hd123202123460_ - _tl123201123462_ - _e123215123489_ - _hd123214123492_ - _tl123213123494_ - _e123218123497_ - _hd123217123500_ - _tl123216123502_ - _e123221123505_ - _hd123220123508_ - _tl123219123510_ - _e123224123513_ - _hd123223123516_ - _tl123222123518_ - _e123227123521_ - _hd123226123524_ - _tl123225123526_ - _e123230123529_ - _hd123229123532_ - _tl123228123534_ - _e123233123537_ - _hd123232123540_ - _tl123231123542_ - _e123236123545_ - _hd123235123548_ - _tl123234123550_)) - (___kont127516127517_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont127516127517_)) - (___kont127516127517_)) - (___kont127516127517_)))) - (___kont127516127517_)))) - (___kont127516127517_)) - (___kont127516127517_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont127516127517_)) - (___kont127516127517_)) - (___kont127516127517_)))) - (___kont127516127517_)))) - (___kont127516127517_)) - (___kont127516127517_)) - (___kont127516127517_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont127516127517_)))) - (___kont127516127517_))))))) + (_loop123245123587_ _target123242123558_ '()))) + (___match127618127619_ + _e123208123462_ + _hd123207123465_ + _tl123206123467_ + _e123220123494_ + _hd123219123497_ + _tl123218123499_ + _e123223123502_ + _hd123222123505_ + _tl123221123507_ + _e123226123510_ + _hd123225123513_ + _tl123224123515_ + _e123229123518_ + _hd123228123521_ + _tl123227123523_ + _e123232123526_ + _hd123231123529_ + _tl123230123531_ + _e123235123534_ + _hd123234123537_ + _tl123233123539_ + _e123238123542_ + _hd123237123545_ + _tl123236123547_ + _e123241123550_ + _hd123240123553_ + _tl123239123555_)) + (___match127618127619_ + _e123208123462_ + _hd123207123465_ + _tl123206123467_ + _e123220123494_ + _hd123219123497_ + _tl123218123499_ + _e123223123502_ + _hd123222123505_ + _tl123221123507_ + _e123226123510_ + _hd123225123513_ + _tl123224123515_ + _e123229123518_ + _hd123228123521_ + _tl123227123523_ + _e123232123526_ + _hd123231123529_ + _tl123230123531_ + _e123235123534_ + _hd123234123537_ + _tl123233123539_ + _e123238123542_ + _hd123237123545_ + _tl123236123547_ + _e123241123550_ + _hd123240123553_ + _tl123239123555_)))) + (___match127618127619_ + _e123208123462_ + _hd123207123465_ + _tl123206123467_ + _e123220123494_ + _hd123219123497_ + _tl123218123499_ + _e123223123502_ + _hd123222123505_ + _tl123221123507_ + _e123226123510_ + _hd123225123513_ + _tl123224123515_ + _e123229123518_ + _hd123228123521_ + _tl123227123523_ + _e123232123526_ + _hd123231123529_ + _tl123230123531_ + _e123235123534_ + _hd123234123537_ + _tl123233123539_ + _e123238123542_ + _hd123237123545_ + _tl123236123547_ + _e123241123550_ + _hd123240123553_ + _tl123239123555_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match127618127619_ + _e123208123462_ + _hd123207123465_ + _tl123206123467_ + _e123220123494_ + _hd123219123497_ + _tl123218123499_ + _e123223123502_ + _hd123222123505_ + _tl123221123507_ + _e123226123510_ + _hd123225123513_ + _tl123224123515_ + _e123229123518_ + _hd123228123521_ + _tl123227123523_ + _e123232123526_ + _hd123231123529_ + _tl123230123531_ + _e123235123534_ + _hd123234123537_ + _tl123233123539_ + _e123238123542_ + _hd123237123545_ + _tl123236123547_ + _e123241123550_ + _hd123240123553_ + _tl123239123555_)) + (___match127618127619_ + _e123208123462_ + _hd123207123465_ + _tl123206123467_ + _e123220123494_ + _hd123219123497_ + _tl123218123499_ + _e123223123502_ + _hd123222123505_ + _tl123221123507_ + _e123226123510_ + _hd123225123513_ + _tl123224123515_ + _e123229123518_ + _hd123228123521_ + _tl123227123523_ + _e123232123526_ + _hd123231123529_ + _tl123230123531_ + _e123235123534_ + _hd123234123537_ + _tl123233123539_ + _e123238123542_ + _hd123237123545_ + _tl123236123547_ + _e123241123550_ + _hd123240123553_ + _tl123239123555_)))) + (___match127618127619_ + _e123208123462_ + _hd123207123465_ + _tl123206123467_ + _e123220123494_ + _hd123219123497_ + _tl123218123499_ + _e123223123502_ + _hd123222123505_ + _tl123221123507_ + _e123226123510_ + _hd123225123513_ + _tl123224123515_ + _e123229123518_ + _hd123228123521_ + _tl123227123523_ + _e123232123526_ + _hd123231123529_ + _tl123230123531_ + _e123235123534_ + _hd123234123537_ + _tl123233123539_ + _e123238123542_ + _hd123237123545_ + _tl123236123547_ + _e123241123550_ + _hd123240123553_ + _tl123239123555_)))) + (___match127618127619_ + _e123208123462_ + _hd123207123465_ + _tl123206123467_ + _e123220123494_ + _hd123219123497_ + _tl123218123499_ + _e123223123502_ + _hd123222123505_ + _tl123221123507_ + _e123226123510_ + _hd123225123513_ + _tl123224123515_ + _e123229123518_ + _hd123228123521_ + _tl123227123523_ + _e123232123526_ + _hd123231123529_ + _tl123230123531_ + _e123235123534_ + _hd123234123537_ + _tl123233123539_ + _e123238123542_ + _hd123237123545_ + _tl123236123547_ + _e123241123550_ + _hd123240123553_ + _tl123239123555_)))) + (___match127618127619_ + _e123208123462_ + _hd123207123465_ + _tl123206123467_ + _e123220123494_ + _hd123219123497_ + _tl123218123499_ + _e123223123502_ + _hd123222123505_ + _tl123221123507_ + _e123226123510_ + _hd123225123513_ + _tl123224123515_ + _e123229123518_ + _hd123228123521_ + _tl123227123523_ + _e123232123526_ + _hd123231123529_ + _tl123230123531_ + _e123235123534_ + _hd123234123537_ + _tl123233123539_ + _e123238123542_ + _hd123237123545_ + _tl123236123547_ + _e123241123550_ + _hd123240123553_ + _tl123239123555_)) + (___match127618127619_ + _e123208123462_ + _hd123207123465_ + _tl123206123467_ + _e123220123494_ + _hd123219123497_ + _tl123218123499_ + _e123223123502_ + _hd123222123505_ + _tl123221123507_ + _e123226123510_ + _hd123225123513_ + _tl123224123515_ + _e123229123518_ + _hd123228123521_ + _tl123227123523_ + _e123232123526_ + _hd123231123529_ + _tl123230123531_ + _e123235123534_ + _hd123234123537_ + _tl123233123539_ + _e123238123542_ + _hd123237123545_ + _tl123236123547_ + _e123241123550_ + _hd123240123553_ + _tl123239123555_)) + (___kont127521127522_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont127521127522_)) + (___kont127521127522_)) + (___kont127521127522_)))) + (___kont127521127522_)))) + (___kont127521127522_)) + (___kont127521127522_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont127521127522_)) + (___kont127521127522_)) + (___kont127521127522_)))) + (___kont127521127522_)))) + (___kont127521127522_)) + (___kont127521127522_)) + (___kont127521127522_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont127521127522_)))) + (___kont127521127522_))))))) (let () (declare (not safe)) - (_loop123207123470_ _target123204123465_ '()))))) - (___match127531127532_ - (lambda (_e123155123717_ - _hd123154123720_ - _tl123153123722_ - ___splice127504127505_ - _target123156123725_ - _tl123158123727_) - (letrec ((_loop123159123730_ - (lambda (_hd123157123733_ _arg123163123735_) + (_loop123212123475_ _target123209123470_ '()))))) + (___match127536127537_ + (lambda (_e123160123722_ + _hd123159123725_ + _tl123158123727_ + ___splice127509127510_ + _target123161123730_ + _tl123163123732_) + (letrec ((_loop123164123735_ + (lambda (_hd123162123738_ _arg123168123740_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd123157123733_)) - (let ((_e123160123738_ + (gx#stx-pair? _hd123162123738_)) + (let ((_e123165123743_ (let () (declare (not safe)) - (gx#stx-e _hd123157123733_)))) - (let ((_lp-tl123162123743_ + (gx#stx-e _hd123162123738_)))) + (let ((_lp-tl123167123748_ (let () (declare (not safe)) - (##cdr _e123160123738_))) - (_lp-hd123161123741_ + (##cdr _e123165123743_))) + (_lp-hd123166123746_ (let () (declare (not safe)) - (##car _e123160123738_)))) - (let ((__tmp128907 + (##car _e123165123743_)))) + (let ((__tmp128912 (let () (declare (not safe)) - (cons _lp-hd123161123741_ - _arg123163123735_)))) + (cons _lp-hd123166123746_ + _arg123168123740_)))) (declare (not safe)) - (_loop123159123730_ - _lp-tl123162123743_ - __tmp128907)))) - (let ((_arg123164123746_ - (reverse _arg123163123735_))) + (_loop123164123735_ + _lp-tl123167123748_ + __tmp128912)))) + (let ((_arg123169123751_ + (reverse _arg123168123740_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl123153123722_)) - (let ((_e123167123749_ + (gx#stx-pair? _tl123158123727_)) + (let ((_e123172123754_ (let () (declare (not safe)) (gx#stx-e - _tl123153123722_)))) - (let ((_tl123165123754_ + _tl123158123727_)))) + (let ((_tl123170123759_ (let () (declare (not safe)) - (##cdr _e123167123749_))) - (_hd123166123752_ + (##cdr _e123172123754_))) + (_hd123171123757_ (let () (declare (not safe)) - (##car _e123167123749_)))) + (##car _e123172123754_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd123166123752_)) - (let ((_e123170123757_ + _hd123171123757_)) + (let ((_e123175123762_ (let () (declare (not safe)) (gx#stx-e - _hd123166123752_)))) - (let ((_tl123168123762_ + _hd123171123757_)))) + (let ((_tl123173123767_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e123170123757_))) - (_hd123169123760_ - (let () (declare (not safe)) (##car _e123170123757_)))) + (##cdr _e123175123762_))) + (_hd123174123765_ + (let () (declare (not safe)) (##car _e123175123762_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd123169123760_)) + (gx#identifier? _hd123174123765_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd123169123760_)) + (gx#stx-eq? '%#call _hd123174123765_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl123168123762_)) - (let ((_e123173123765_ + (gx#stx-pair? _tl123173123767_)) + (let ((_e123178123770_ (let () (declare (not safe)) - (gx#stx-e _tl123168123762_)))) - (let ((_tl123171123770_ + (gx#stx-e _tl123173123767_)))) + (let ((_tl123176123775_ (let () (declare (not safe)) - (##cdr _e123173123765_))) - (_hd123172123768_ + (##cdr _e123178123770_))) + (_hd123177123773_ (let () (declare (not safe)) - (##car _e123173123765_)))) + (##car _e123178123770_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd123172123768_)) - (let ((_e123176123773_ + (gx#stx-pair? _hd123177123773_)) + (let ((_e123181123778_ (let () (declare (not safe)) - (gx#stx-e _hd123172123768_)))) - (let ((_tl123174123778_ + (gx#stx-e _hd123177123773_)))) + (let ((_tl123179123783_ (let () (declare (not safe)) - (##cdr _e123176123773_))) - (_hd123175123776_ + (##cdr _e123181123778_))) + (_hd123180123781_ (let () (declare (not safe)) - (##car _e123176123773_)))) + (##car _e123181123778_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd123175123776_)) + _hd123180123781_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd123175123776_)) + _hd123180123781_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl123174123778_)) - (let ((_e123179123781_ + _tl123179123783_)) + (let ((_e123184123786_ (let () (declare (not safe)) (gx#stx-e - _tl123174123778_)))) - (let ((_tl123177123786_ + _tl123179123783_)))) + (let ((_tl123182123791_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e123179123781_))) - (_hd123178123784_ - (let () (declare (not safe)) (##car _e123179123781_)))) + (##cdr _e123184123786_))) + (_hd123183123789_ + (let () (declare (not safe)) (##car _e123184123786_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl123177123786_)) + (gx#stx-null? _tl123182123791_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl123171123770_)) - (let ((___splice127506127507_ + (gx#stx-pair/null? _tl123176123775_)) + (let ((___splice127511127512_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl123171123770_ + _tl123176123775_ '0)))) - (let ((_tl123182123791_ + (let ((_tl123187123796_ (let () (declare (not safe)) - (##vector-ref ___splice127506127507_ '1))) - (_target123180123789_ + (##vector-ref ___splice127511127512_ '1))) + (_target123185123794_ (let () (declare (not safe)) - (##vector-ref ___splice127506127507_ '0)))) + (##vector-ref ___splice127511127512_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl123182123791_)) - (letrec ((_loop123183123794_ - (lambda (_hd123181123797_ - _xarg123187123799_) + (gx#stx-null? _tl123187123796_)) + (letrec ((_loop123188123799_ + (lambda (_hd123186123802_ + _xarg123192123804_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd123181123797_)) - (let ((_e123184123802_ + _hd123186123802_)) + (let ((_e123189123807_ (let () (declare (not safe)) (gx#stx-e - _hd123181123797_)))) - (let ((_lp-tl123186123807_ + _hd123186123802_)))) + (let ((_lp-tl123191123812_ (let () (declare (not safe)) - (##cdr _e123184123802_))) - (_lp-hd123185123805_ + (##cdr _e123189123807_))) + (_lp-hd123190123810_ (let () (declare (not safe)) - (##car _e123184123802_)))) + (##car _e123189123807_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd123185123805_)) - (let ((_e123191123810_ + _lp-hd123190123810_)) + (let ((_e123196123815_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _lp-hd123185123805_)))) - (let ((_tl123189123815_ - (let () (declare (not safe)) (##cdr _e123191123810_))) - (_hd123190123813_ + (gx#stx-e _lp-hd123190123810_)))) + (let ((_tl123194123820_ + (let () (declare (not safe)) (##cdr _e123196123815_))) + (_hd123195123818_ (let () (declare (not safe)) - (##car _e123191123810_)))) + (##car _e123196123815_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd123190123813_)) + (gx#identifier? _hd123195123818_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd123190123813_)) + (gx#stx-eq? '%#ref _hd123195123818_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl123189123815_)) - (let ((_e123194123818_ + (gx#stx-pair? _tl123194123820_)) + (let ((_e123199123823_ (let () (declare (not safe)) - (gx#stx-e _tl123189123815_)))) - (let ((_tl123192123823_ + (gx#stx-e _tl123194123820_)))) + (let ((_tl123197123828_ (let () (declare (not safe)) - (##cdr _e123194123818_))) - (_hd123193123821_ + (##cdr _e123199123823_))) + (_hd123198123826_ (let () (declare (not safe)) - (##car _e123194123818_)))) + (##car _e123199123823_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl123192123823_)) - (let ((__tmp128906 + (gx#stx-null? _tl123197123828_)) + (let ((__tmp128911 (let () (declare (not safe)) - (cons _hd123193123821_ - _xarg123187123799_)))) + (cons _hd123198123826_ + _xarg123192123804_)))) (declare (not safe)) - (_loop123183123794_ - _lp-tl123186123807_ - __tmp128906)) - (___match127543127544_ - _e123155123717_ - _hd123154123720_ - _tl123153123722_ - ___splice127504127505_ - _target123156123725_ - _tl123158123727_)))) - (___match127543127544_ - _e123155123717_ - _hd123154123720_ - _tl123153123722_ - ___splice127504127505_ - _target123156123725_ - _tl123158123727_)) - (___match127543127544_ - _e123155123717_ - _hd123154123720_ - _tl123153123722_ - ___splice127504127505_ - _target123156123725_ - _tl123158123727_)) - (___match127543127544_ - _e123155123717_ - _hd123154123720_ - _tl123153123722_ - ___splice127504127505_ - _target123156123725_ - _tl123158123727_)))) - (___match127543127544_ - _e123155123717_ - _hd123154123720_ - _tl123153123722_ - ___splice127504127505_ - _target123156123725_ - _tl123158123727_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_xarg123188123826_ - (reverse _xarg123187123799_))) + (_loop123188123799_ + _lp-tl123191123812_ + __tmp128911)) + (___match127548127549_ + _e123160123722_ + _hd123159123725_ + _tl123158123727_ + ___splice127509127510_ + _target123161123730_ + _tl123163123732_)))) + (___match127548127549_ + _e123160123722_ + _hd123159123725_ + _tl123158123727_ + ___splice127509127510_ + _target123161123730_ + _tl123163123732_)) + (___match127548127549_ + _e123160123722_ + _hd123159123725_ + _tl123158123727_ + ___splice127509127510_ + _target123161123730_ + _tl123163123732_)) + (___match127548127549_ + _e123160123722_ + _hd123159123725_ + _tl123158123727_ + ___splice127509127510_ + _target123161123730_ + _tl123163123732_)))) + (___match127548127549_ + _e123160123722_ + _hd123159123725_ + _tl123158123727_ + ___splice127509127510_ + _target123161123730_ + _tl123163123732_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_xarg123193123831_ + (reverse _xarg123192123804_))) (if (let () (declare (not safe)) (gx#stx-null? - _tl123165123754_)) - (let ((_L123829_ - _xarg123188123826_) - (_L123830_ - _hd123178123784_) - (_L123831_ - _arg123164123746_)) - (if (and (let ((__tmp128904 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp128905 - (lambda (_g123859123862_ - _g123860123864_) + _tl123170123759_)) + (let ((_L123834_ + _xarg123193123831_) + (_L123835_ + _hd123183123789_) + (_L123836_ + _arg123169123751_)) + (if (and (let ((__tmp128909 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp128910 + (lambda (_g123864123867_ + _g123865123869_) (let () (declare (not safe)) - (cons _g123859123862_ - _g123860123864_))))) + (cons _g123864123867_ + _g123865123869_))))) (declare (not safe)) - (foldr1 __tmp128905 '() _L123831_)))) + (foldr1 __tmp128910 '() _L123836_)))) (declare (not safe)) - (gx#identifier-list? __tmp128904)) - (fx= (length (let ((__tmp128902 - (lambda (_g123866123869_ - _g123867123871_) + (gx#identifier-list? __tmp128909)) + (fx= (length (let ((__tmp128907 + (lambda (_g123871123874_ + _g123872123876_) (let () (declare (not safe)) - (cons _g123866123869_ - _g123867123871_))))) + (cons _g123871123874_ + _g123872123876_))))) (declare (not safe)) - (foldr1 __tmp128902 '() _L123831_))) - (length (let ((__tmp128903 - (lambda (_g123873123876_ - _g123874123878_) + (foldr1 __tmp128907 '() _L123836_))) + (length (let ((__tmp128908 + (lambda (_g123878123881_ + _g123879123883_) (let () (declare (not safe)) - (cons _g123873123876_ - _g123874123878_))))) + (cons _g123878123881_ + _g123879123883_))))) (declare (not safe)) - (foldr1 __tmp128903 '() _L123829_)))) - (let ((__tmp128900 - (let ((__tmp128901 - (lambda (_g123880123883_ - _g123881123885_) + (foldr1 __tmp128908 '() _L123834_)))) + (let ((__tmp128905 + (let ((__tmp128906 + (lambda (_g123885123888_ + _g123886123890_) (let () (declare (not safe)) - (cons _g123880123883_ - _g123881123885_))))) + (cons _g123885123888_ + _g123886123890_))))) (declare (not safe)) - (foldr1 __tmp128901 '() _L123831_))) - (__tmp128898 - (let ((__tmp128899 - (lambda (_g123887123890_ - _g123888123892_) + (foldr1 __tmp128906 '() _L123836_))) + (__tmp128903 + (let ((__tmp128904 + (lambda (_g123892123895_ + _g123893123897_) (let () (declare (not safe)) - (cons _g123887123890_ - _g123888123892_))))) + (cons _g123892123895_ + _g123893123897_))))) (declare (not safe)) - (foldr1 __tmp128899 '() _L123829_)))) + (foldr1 __tmp128904 '() _L123834_)))) (declare (not safe)) (andmap2 gx#free-identifier=? - __tmp128900 - __tmp128898)) - (let ((__tmp128894 - (let ((__tmp128897 - (lambda (_g123894123896_) + __tmp128905 + __tmp128903)) + (let ((__tmp128899 + (let ((__tmp128902 + (lambda (_g123899123901_) (let () (declare (not safe)) (gx#free-identifier=? - _g123894123896_ - _L123830_)))) - (__tmp128895 - (let ((__tmp128896 - (lambda (_g123898123901_ - _g123899123903_) + _g123899123901_ + _L123835_)))) + (__tmp128900 + (let ((__tmp128901 + (lambda (_g123903123906_ + _g123904123908_) (let () (declare (not safe)) - (cons _g123898123901_ - _g123899123903_))))) + (cons _g123903123906_ + _g123904123908_))))) (declare (not safe)) - (foldr1 __tmp128896 '() _L123831_)))) + (foldr1 __tmp128901 '() _L123836_)))) (declare (not safe)) - (find __tmp128897 __tmp128895)))) + (find __tmp128902 __tmp128900)))) (declare (not safe)) - (not __tmp128894))) - (___kont127502127503_ _L123829_ _L123830_ _L123831_) - (___match127543127544_ - _e123155123717_ - _hd123154123720_ - _tl123153123722_ - ___splice127504127505_ - _target123156123725_ - _tl123158123727_))) - (___match127543127544_ - _e123155123717_ - _hd123154123720_ - _tl123153123722_ - ___splice127504127505_ - _target123156123725_ - _tl123158123727_))))))) + (not __tmp128899))) + (___kont127507127508_ _L123834_ _L123835_ _L123836_) + (___match127548127549_ + _e123160123722_ + _hd123159123725_ + _tl123158123727_ + ___splice127509127510_ + _target123161123730_ + _tl123163123732_))) + (___match127548127549_ + _e123160123722_ + _hd123159123725_ + _tl123158123727_ + ___splice127509127510_ + _target123161123730_ + _tl123163123732_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop123183123794_ - _target123180123789_ + (_loop123188123799_ + _target123185123794_ '()))) - (___match127543127544_ - _e123155123717_ - _hd123154123720_ - _tl123153123722_ - ___splice127504127505_ - _target123156123725_ - _tl123158123727_)))) - (___match127543127544_ - _e123155123717_ - _hd123154123720_ - _tl123153123722_ - ___splice127504127505_ - _target123156123725_ - _tl123158123727_)) - (___match127543127544_ - _e123155123717_ - _hd123154123720_ - _tl123153123722_ - ___splice127504127505_ - _target123156123725_ - _tl123158123727_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match127543127544_ - _e123155123717_ - _hd123154123720_ - _tl123153123722_ - ___splice127504127505_ - _target123156123725_ - _tl123158123727_)) - (___match127543127544_ - _e123155123717_ - _hd123154123720_ - _tl123153123722_ - ___splice127504127505_ - _target123156123725_ - _tl123158123727_)) - (___match127543127544_ - _e123155123717_ - _hd123154123720_ - _tl123153123722_ - ___splice127504127505_ - _target123156123725_ - _tl123158123727_)))) - (___match127543127544_ - _e123155123717_ - _hd123154123720_ - _tl123153123722_ - ___splice127504127505_ - _target123156123725_ - _tl123158123727_)))) - (___match127543127544_ - _e123155123717_ - _hd123154123720_ - _tl123153123722_ - ___splice127504127505_ - _target123156123725_ - _tl123158123727_)) - (___match127543127544_ - _e123155123717_ - _hd123154123720_ - _tl123153123722_ - ___splice127504127505_ - _target123156123725_ - _tl123158123727_)) - (___match127543127544_ - _e123155123717_ - _hd123154123720_ - _tl123153123722_ - ___splice127504127505_ - _target123156123725_ - _tl123158123727_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match127543127544_ - _e123155123717_ - _hd123154123720_ - _tl123153123722_ - ___splice127504127505_ - _target123156123725_ - _tl123158123727_)))) - (___match127543127544_ - _e123155123717_ - _hd123154123720_ - _tl123153123722_ - ___splice127504127505_ - _target123156123725_ - _tl123158123727_))))))) + (___match127548127549_ + _e123160123722_ + _hd123159123725_ + _tl123158123727_ + ___splice127509127510_ + _target123161123730_ + _tl123163123732_)))) + (___match127548127549_ + _e123160123722_ + _hd123159123725_ + _tl123158123727_ + ___splice127509127510_ + _target123161123730_ + _tl123163123732_)) + (___match127548127549_ + _e123160123722_ + _hd123159123725_ + _tl123158123727_ + ___splice127509127510_ + _target123161123730_ + _tl123163123732_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match127548127549_ + _e123160123722_ + _hd123159123725_ + _tl123158123727_ + ___splice127509127510_ + _target123161123730_ + _tl123163123732_)) + (___match127548127549_ + _e123160123722_ + _hd123159123725_ + _tl123158123727_ + ___splice127509127510_ + _target123161123730_ + _tl123163123732_)) + (___match127548127549_ + _e123160123722_ + _hd123159123725_ + _tl123158123727_ + ___splice127509127510_ + _target123161123730_ + _tl123163123732_)))) + (___match127548127549_ + _e123160123722_ + _hd123159123725_ + _tl123158123727_ + ___splice127509127510_ + _target123161123730_ + _tl123163123732_)))) + (___match127548127549_ + _e123160123722_ + _hd123159123725_ + _tl123158123727_ + ___splice127509127510_ + _target123161123730_ + _tl123163123732_)) + (___match127548127549_ + _e123160123722_ + _hd123159123725_ + _tl123158123727_ + ___splice127509127510_ + _target123161123730_ + _tl123163123732_)) + (___match127548127549_ + _e123160123722_ + _hd123159123725_ + _tl123158123727_ + ___splice127509127510_ + _target123161123730_ + _tl123163123732_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match127548127549_ + _e123160123722_ + _hd123159123725_ + _tl123158123727_ + ___splice127509127510_ + _target123161123730_ + _tl123163123732_)))) + (___match127548127549_ + _e123160123722_ + _hd123159123725_ + _tl123158123727_ + ___splice127509127510_ + _target123161123730_ + _tl123163123732_))))))) (let () (declare (not safe)) - (_loop123159123730_ _target123156123725_ '())))))) + (_loop123164123735_ _target123161123730_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx127500127501_)) - (let ((_e123155123717_ + (gx#stx-pair? ___stx127505127506_)) + (let ((_e123160123722_ (let () (declare (not safe)) - (gx#stx-e ___stx127500127501_)))) - (let ((_tl123153123722_ + (gx#stx-e ___stx127505127506_)))) + (let ((_tl123158123727_ (let () (declare (not safe)) - (##cdr _e123155123717_))) - (_hd123154123720_ + (##cdr _e123160123722_))) + (_hd123159123725_ (let () (declare (not safe)) - (##car _e123155123717_)))) + (##car _e123160123722_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd123154123720_)) - (let ((___splice127504127505_ + (gx#stx-pair/null? _hd123159123725_)) + (let ((___splice127509127510_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd123154123720_ + _hd123159123725_ '0)))) - (let ((_tl123158123727_ + (let ((_tl123163123732_ (let () (declare (not safe)) - (##vector-ref ___splice127504127505_ '1))) - (_target123156123725_ + (##vector-ref ___splice127509127510_ '1))) + (_target123161123730_ (let () (declare (not safe)) (##vector-ref - ___splice127504127505_ + ___splice127509127510_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl123158123727_)) - (___match127531127532_ - _e123155123717_ - _hd123154123720_ - _tl123153123722_ - ___splice127504127505_ - _target123156123725_ - _tl123158123727_) - (___match127543127544_ - _e123155123717_ - _hd123154123720_ - _tl123153123722_ - ___splice127504127505_ - _target123156123725_ - _tl123158123727_)))) + (gx#stx-null? _tl123163123732_)) + (___match127536127537_ + _e123160123722_ + _hd123159123725_ + _tl123158123727_ + ___splice127509127510_ + _target123161123730_ + _tl123163123732_) + (___match127548127549_ + _e123160123722_ + _hd123159123725_ + _tl123158123727_ + ___splice127509127510_ + _target123161123730_ + _tl123163123732_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl123153123722_)) - (let ((_e123270123325_ + (gx#stx-pair? _tl123158123727_)) + (let ((_e123275123330_ (let () (declare (not safe)) - (gx#stx-e _tl123153123722_)))) - (let ((_tl123268123330_ + (gx#stx-e _tl123158123727_)))) + (let ((_tl123273123335_ (let () (declare (not safe)) - (##cdr _e123270123325_))) - (_hd123269123328_ + (##cdr _e123275123330_))) + (_hd123274123333_ (let () (declare (not safe)) - (##car _e123270123325_)))) + (##car _e123275123330_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd123269123328_)) - (let ((_e123273123333_ + (gx#stx-pair? _hd123274123333_)) + (let ((_e123278123338_ (let () (declare (not safe)) - (gx#stx-e _hd123269123328_)))) - (let ((_tl123271123338_ + (gx#stx-e _hd123274123333_)))) + (let ((_tl123276123343_ (let () (declare (not safe)) - (##cdr _e123273123333_))) - (_hd123272123336_ + (##cdr _e123278123338_))) + (_hd123277123341_ (let () (declare (not safe)) - (##car _e123273123333_)))) + (##car _e123278123338_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd123272123336_)) + _hd123277123341_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd123272123336_)) + _hd123277123341_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl123271123338_)) - (let ((_e123276123341_ + _tl123276123343_)) + (let ((_e123281123346_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl123271123338_)))) - (let ((_tl123274123346_ - (let () (declare (not safe)) (##cdr _e123276123341_))) - (_hd123275123344_ - (let () (declare (not safe)) (##car _e123276123341_)))) + (gx#stx-e _tl123276123343_)))) + (let ((_tl123279123351_ + (let () (declare (not safe)) (##cdr _e123281123346_))) + (_hd123280123349_ + (let () (declare (not safe)) (##car _e123281123346_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd123275123344_)) - (let ((_e123279123349_ + (gx#stx-pair? _hd123280123349_)) + (let ((_e123284123354_ (let () (declare (not safe)) - (gx#stx-e _hd123275123344_)))) - (let ((_tl123277123354_ + (gx#stx-e _hd123280123349_)))) + (let ((_tl123282123359_ (let () (declare (not safe)) - (##cdr _e123279123349_))) - (_hd123278123352_ + (##cdr _e123284123354_))) + (_hd123283123357_ (let () (declare (not safe)) - (##car _e123279123349_)))) + (##car _e123284123354_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd123278123352_)) + (gx#identifier? _hd123283123357_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd123278123352_)) + (gx#stx-eq? '%#ref _hd123283123357_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl123277123354_)) - (let ((_e123282123357_ + (gx#stx-pair? _tl123282123359_)) + (let ((_e123287123362_ (let () (declare (not safe)) - (gx#stx-e _tl123277123354_)))) - (let ((_tl123280123362_ + (gx#stx-e _tl123282123359_)))) + (let ((_tl123285123367_ (let () (declare (not safe)) - (##cdr _e123282123357_))) - (_hd123281123360_ + (##cdr _e123287123362_))) + (_hd123286123365_ (let () (declare (not safe)) - (##car _e123282123357_)))) + (##car _e123287123362_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl123280123362_)) + _tl123285123367_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl123274123346_)) - (let ((_e123285123365_ + _tl123279123351_)) + (let ((_e123290123370_ (let () (declare (not safe)) (gx#stx-e - _tl123274123346_)))) - (let ((_tl123283123370_ + _tl123279123351_)))) + (let ((_tl123288123375_ (let () (declare (not safe)) - (##cdr _e123285123365_))) - (_hd123284123368_ + (##cdr _e123290123370_))) + (_hd123289123373_ (let () (declare (not safe)) - (##car _e123285123365_)))) + (##car _e123290123370_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd123284123368_)) - (let ((_e123288123373_ + _hd123289123373_)) + (let ((_e123293123378_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd123284123368_)))) - (let ((_tl123286123378_ + (gx#stx-e _hd123289123373_)))) + (let ((_tl123291123383_ (let () (declare (not safe)) - (##cdr _e123288123373_))) - (_hd123287123376_ + (##cdr _e123293123378_))) + (_hd123292123381_ (let () (declare (not safe)) - (##car _e123288123373_)))) + (##car _e123293123378_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd123287123376_)) + (gx#identifier? _hd123292123381_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd123287123376_)) + (gx#stx-eq? '%#ref _hd123292123381_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl123286123378_)) - (let ((_e123291123381_ + (gx#stx-pair? _tl123291123383_)) + (let ((_e123296123386_ (let () (declare (not safe)) - (gx#stx-e _tl123286123378_)))) - (let ((_tl123289123386_ + (gx#stx-e _tl123291123383_)))) + (let ((_tl123294123391_ (let () (declare (not safe)) - (##cdr _e123291123381_))) - (_hd123290123384_ + (##cdr _e123296123386_))) + (_hd123295123389_ (let () (declare (not safe)) - (##car _e123291123381_)))) + (##car _e123296123386_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl123289123386_)) + (gx#stx-null? _tl123294123391_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl123283123370_)) - (let ((_e123294123389_ + _tl123288123375_)) + (let ((_e123299123394_ (let () (declare (not safe)) (gx#stx-e - _tl123283123370_)))) - (let ((_tl123292123394_ + _tl123288123375_)))) + (let ((_tl123297123399_ (let () (declare (not safe)) - (##cdr _e123294123389_))) - (_hd123293123392_ + (##cdr _e123299123394_))) + (_hd123298123397_ (let () (declare (not safe)) - (##car _e123294123389_)))) + (##car _e123299123394_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd123293123392_)) - (let ((_e123297123397_ + _hd123298123397_)) + (let ((_e123302123402_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd123293123392_)))) - (let ((_tl123295123402_ - (let () (declare (not safe)) (##cdr _e123297123397_))) - (_hd123296123400_ - (let () (declare (not safe)) (##car _e123297123397_)))) + (gx#stx-e _hd123298123397_)))) + (let ((_tl123300123407_ + (let () (declare (not safe)) (##cdr _e123302123402_))) + (_hd123301123405_ + (let () (declare (not safe)) (##car _e123302123402_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd123296123400_)) + (gx#identifier? _hd123301123405_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd123296123400_)) + (gx#stx-eq? '%#ref _hd123301123405_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl123295123402_)) - (let ((_e123300123405_ + (gx#stx-pair? _tl123300123407_)) + (let ((_e123305123410_ (let () (declare (not safe)) - (gx#stx-e _tl123295123402_)))) - (let ((_tl123298123410_ + (gx#stx-e _tl123300123407_)))) + (let ((_tl123303123415_ (let () (declare (not safe)) - (##cdr _e123300123405_))) - (_hd123299123408_ + (##cdr _e123305123410_))) + (_hd123304123413_ (let () (declare (not safe)) - (##car _e123300123405_)))) + (##car _e123305123410_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl123298123410_)) + (gx#stx-null? _tl123303123415_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl123292123394_)) + (gx#stx-null? _tl123297123399_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl123268123330_)) - (___match127641127642_ - _e123155123717_ - _hd123154123720_ - _tl123153123722_ - _e123270123325_ - _hd123269123328_ - _tl123268123330_ - _e123273123333_ - _hd123272123336_ - _tl123271123338_ - _e123276123341_ - _hd123275123344_ - _tl123274123346_ - _e123279123349_ - _hd123278123352_ - _tl123277123354_ - _e123282123357_ - _hd123281123360_ - _tl123280123362_ - _e123285123365_ - _hd123284123368_ - _tl123283123370_ - _e123288123373_ - _hd123287123376_ - _tl123286123378_ - _e123291123381_ - _hd123290123384_ - _tl123289123386_ - _e123294123389_ - _hd123293123392_ - _tl123292123394_ - _e123297123397_ - _hd123296123400_ - _tl123295123402_ - _e123300123405_ - _hd123299123408_ - _tl123298123410_) - (___kont127516127517_)) - (___kont127516127517_)) - (___kont127516127517_)))) - (___kont127516127517_)) - (___kont127516127517_)) - (___kont127516127517_)))) - (___kont127516127517_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont127516127517_)) - (___kont127516127517_)))) - (___kont127516127517_)) - (___kont127516127517_)) - (___kont127516127517_)))) - (___kont127516127517_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont127516127517_)) - (___kont127516127517_)))) - (___kont127516127517_)) - (___kont127516127517_)) - (___kont127516127517_)))) - (___kont127516127517_)))) - (___kont127516127517_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont127516127517_)) - (___kont127516127517_)))) - (___kont127516127517_)))) - (___kont127516127517_))))) - (___kont127516127517_))))))) + _tl123273123335_)) + (___match127646127647_ + _e123160123722_ + _hd123159123725_ + _tl123158123727_ + _e123275123330_ + _hd123274123333_ + _tl123273123335_ + _e123278123338_ + _hd123277123341_ + _tl123276123343_ + _e123281123346_ + _hd123280123349_ + _tl123279123351_ + _e123284123354_ + _hd123283123357_ + _tl123282123359_ + _e123287123362_ + _hd123286123365_ + _tl123285123367_ + _e123290123370_ + _hd123289123373_ + _tl123288123375_ + _e123293123378_ + _hd123292123381_ + _tl123291123383_ + _e123296123386_ + _hd123295123389_ + _tl123294123391_ + _e123299123394_ + _hd123298123397_ + _tl123297123399_ + _e123302123402_ + _hd123301123405_ + _tl123300123407_ + _e123305123410_ + _hd123304123413_ + _tl123303123415_) + (___kont127521127522_)) + (___kont127521127522_)) + (___kont127521127522_)))) + (___kont127521127522_)) + (___kont127521127522_)) + (___kont127521127522_)))) + (___kont127521127522_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont127521127522_)) + (___kont127521127522_)))) + (___kont127521127522_)) + (___kont127521127522_)) + (___kont127521127522_)))) + (___kont127521127522_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont127521127522_)) + (___kont127521127522_)))) + (___kont127521127522_)) + (___kont127521127522_)) + (___kont127521127522_)))) + (___kont127521127522_)))) + (___kont127521127522_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont127521127522_)) + (___kont127521127522_)))) + (___kont127521127522_)))) + (___kont127521127522_))))) + (___kont127521127522_))))))) (define gxc#dispatch-lambda-form-delegate - (lambda (_form122611_) - (let* ((___stx127644127645_ _form122611_) - (_g122615122739_ + (lambda (_form122616_) + (let* ((___stx127649127650_ _form122616_) + (_g122620122744_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx127644127645_))))) - (let ((___kont127646127647_ - (lambda (_L123109_ _L123110_ _L123111_) + ___stx127649127650_))))) + (let ((___kont127651127652_ + (lambda (_L123114_ _L123115_ _L123116_) (let () (declare (not safe)) - (gxc#identifier-symbol _L123110_)))) - (___kont127652127653_ - (lambda (_L122957_ _L122958_ _L122959_ _L122960_) + (gxc#identifier-symbol _L123115_)))) + (___kont127657127658_ + (lambda (_L122962_ _L122963_ _L122964_ _L122965_) (let () (declare (not safe)) - (gxc#identifier-symbol _L122957_)))) - (___kont127656127657_ - (lambda (_L122824_ _L122825_ _L122826_) + (gxc#identifier-symbol _L122962_)))) + (___kont127661127662_ + (lambda (_L122829_ _L122830_ _L122831_) (let () (declare (not safe)) - (gxc#identifier-symbol _L122824_))))) - (let* ((___match127753127754_ - (lambda (_e122707122744_ - _hd122706122747_ - _tl122705122749_ - _e122710122752_ - _hd122709122755_ - _tl122708122757_ - _e122713122760_ - _hd122712122763_ - _tl122711122765_ - _e122716122768_ - _hd122715122771_ - _tl122714122773_ - _e122719122776_ - _hd122718122779_ - _tl122717122781_ - _e122722122784_ - _hd122721122787_ - _tl122720122789_ - _e122725122792_ - _hd122724122795_ - _tl122723122797_ - _e122728122800_ - _hd122727122803_ - _tl122726122805_ - _e122731122808_ - _hd122730122811_ - _tl122729122813_) + (gxc#identifier-symbol _L122829_))))) + (let* ((___match127758127759_ + (lambda (_e122712122749_ + _hd122711122752_ + _tl122710122754_ + _e122715122757_ + _hd122714122760_ + _tl122713122762_ + _e122718122765_ + _hd122717122768_ + _tl122716122770_ + _e122721122773_ + _hd122720122776_ + _tl122719122778_ + _e122724122781_ + _hd122723122784_ + _tl122722122786_ + _e122727122789_ + _hd122726122792_ + _tl122725122794_ + _e122730122797_ + _hd122729122800_ + _tl122728122802_ + _e122733122805_ + _hd122732122808_ + _tl122731122810_ + _e122736122813_ + _hd122735122816_ + _tl122734122818_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl122723122797_)) - (let ((_e122734122816_ + (gx#stx-pair? _tl122728122802_)) + (let ((_e122739122821_ (let () (declare (not safe)) - (gx#stx-e _tl122723122797_)))) - (let ((_tl122732122821_ + (gx#stx-e _tl122728122802_)))) + (let ((_tl122737122826_ (let () (declare (not safe)) - (##cdr _e122734122816_))) - (_hd122733122819_ + (##cdr _e122739122821_))) + (_hd122738122824_ (let () (declare (not safe)) - (##car _e122734122816_)))) + (##car _e122739122821_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl122732122821_)) + (gx#stx-null? _tl122737122826_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl122708122757_)) - (___kont127656127657_ - _hd122730122811_ - _hd122721122787_ - _hd122706122747_) + (gx#stx-null? _tl122713122762_)) + (___kont127661127662_ + _hd122735122816_ + _hd122726122792_ + _hd122711122752_) (let () (declare (not safe)) - (_g122615122739_))) + (_g122620122744_))) (let () (declare (not safe)) - (_g122615122739_))))) - (let () (declare (not safe)) (_g122615122739_))))) - (___match127683127684_ - (lambda (_e122668122861_ - _hd122667122864_ - _tl122666122866_ - ___splice127654127655_ - _target122669122869_ - _tl122671122871_) - (letrec ((_loop122672122874_ - (lambda (_hd122670122877_ _arg122676122879_) + (_g122620122744_))))) + (let () (declare (not safe)) (_g122620122744_))))) + (___match127688127689_ + (lambda (_e122673122866_ + _hd122672122869_ + _tl122671122871_ + ___splice127659127660_ + _target122674122874_ + _tl122676122876_) + (letrec ((_loop122677122879_ + (lambda (_hd122675122882_ _arg122681122884_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd122670122877_)) - (let ((_e122673122882_ + (gx#stx-pair? _hd122675122882_)) + (let ((_e122678122887_ (let () (declare (not safe)) - (gx#stx-e _hd122670122877_)))) - (let ((_lp-tl122675122887_ + (gx#stx-e _hd122675122882_)))) + (let ((_lp-tl122680122892_ (let () (declare (not safe)) - (##cdr _e122673122882_))) - (_lp-hd122674122885_ + (##cdr _e122678122887_))) + (_lp-hd122679122890_ (let () (declare (not safe)) - (##car _e122673122882_)))) - (let ((__tmp128908 + (##car _e122678122887_)))) + (let ((__tmp128913 (let () (declare (not safe)) - (cons _lp-hd122674122885_ - _arg122676122879_)))) + (cons _lp-hd122679122890_ + _arg122681122884_)))) (declare (not safe)) - (_loop122672122874_ - _lp-tl122675122887_ - __tmp128908)))) - (let ((_arg122677122890_ - (reverse _arg122676122879_))) + (_loop122677122879_ + _lp-tl122680122892_ + __tmp128913)))) + (let ((_arg122682122895_ + (reverse _arg122681122884_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl122666122866_)) - (let ((_e122680122893_ + (gx#stx-pair? _tl122671122871_)) + (let ((_e122685122898_ (let () (declare (not safe)) (gx#stx-e - _tl122666122866_)))) - (let ((_tl122678122898_ + _tl122671122871_)))) + (let ((_tl122683122903_ (let () (declare (not safe)) - (##cdr _e122680122893_))) - (_hd122679122896_ + (##cdr _e122685122898_))) + (_hd122684122901_ (let () (declare (not safe)) - (##car _e122680122893_)))) + (##car _e122685122898_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd122679122896_)) - (let ((_e122683122901_ + _hd122684122901_)) + (let ((_e122688122906_ (let () (declare (not safe)) (gx#stx-e - _hd122679122896_)))) - (let ((_tl122681122906_ + _hd122684122901_)))) + (let ((_tl122686122911_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e122683122901_))) - (_hd122682122904_ - (let () (declare (not safe)) (##car _e122683122901_)))) + (##cdr _e122688122906_))) + (_hd122687122909_ + (let () (declare (not safe)) (##car _e122688122906_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd122682122904_)) + (gx#identifier? _hd122687122909_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd122682122904_)) + (gx#stx-eq? '%#call _hd122687122909_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl122681122906_)) - (let ((_e122686122909_ + (gx#stx-pair? _tl122686122911_)) + (let ((_e122691122914_ (let () (declare (not safe)) - (gx#stx-e _tl122681122906_)))) - (let ((_tl122684122914_ + (gx#stx-e _tl122686122911_)))) + (let ((_tl122689122919_ (let () (declare (not safe)) - (##cdr _e122686122909_))) - (_hd122685122912_ + (##cdr _e122691122914_))) + (_hd122690122917_ (let () (declare (not safe)) - (##car _e122686122909_)))) + (##car _e122691122914_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd122685122912_)) - (let ((_e122689122917_ + (gx#stx-pair? _hd122690122917_)) + (let ((_e122694122922_ (let () (declare (not safe)) - (gx#stx-e _hd122685122912_)))) - (let ((_tl122687122922_ + (gx#stx-e _hd122690122917_)))) + (let ((_tl122692122927_ (let () (declare (not safe)) - (##cdr _e122689122917_))) - (_hd122688122920_ + (##cdr _e122694122922_))) + (_hd122693122925_ (let () (declare (not safe)) - (##car _e122689122917_)))) + (##car _e122694122922_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd122688122920_)) + _hd122693122925_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd122688122920_)) + _hd122693122925_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl122687122922_)) - (let ((_e122692122925_ + _tl122692122927_)) + (let ((_e122697122930_ (let () (declare (not safe)) (gx#stx-e - _tl122687122922_)))) - (let ((_tl122690122930_ + _tl122692122927_)))) + (let ((_tl122695122935_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e122692122925_))) - (_hd122691122928_ - (let () (declare (not safe)) (##car _e122692122925_)))) + (##cdr _e122697122930_))) + (_hd122696122933_ + (let () (declare (not safe)) (##car _e122697122930_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl122690122930_)) + (gx#stx-null? _tl122695122935_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl122684122914_)) - (let ((_e122695122933_ + (gx#stx-pair? _tl122689122919_)) + (let ((_e122700122938_ (let () (declare (not safe)) - (gx#stx-e _tl122684122914_)))) - (let ((_tl122693122938_ + (gx#stx-e _tl122689122919_)))) + (let ((_tl122698122943_ (let () (declare (not safe)) - (##cdr _e122695122933_))) - (_hd122694122936_ + (##cdr _e122700122938_))) + (_hd122699122941_ (let () (declare (not safe)) - (##car _e122695122933_)))) + (##car _e122700122938_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd122694122936_)) - (let ((_e122698122941_ + (gx#stx-pair? _hd122699122941_)) + (let ((_e122703122946_ (let () (declare (not safe)) - (gx#stx-e _hd122694122936_)))) - (let ((_tl122696122946_ + (gx#stx-e _hd122699122941_)))) + (let ((_tl122701122951_ (let () (declare (not safe)) - (##cdr _e122698122941_))) - (_hd122697122944_ + (##cdr _e122703122946_))) + (_hd122702122949_ (let () (declare (not safe)) - (##car _e122698122941_)))) + (##car _e122703122946_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd122697122944_)) + (gx#identifier? _hd122702122949_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd122697122944_)) + _hd122702122949_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl122696122946_)) - (let ((_e122701122949_ + _tl122701122951_)) + (let ((_e122706122954_ (let () (declare (not safe)) (gx#stx-e - _tl122696122946_)))) - (let ((_tl122699122954_ + _tl122701122951_)))) + (let ((_tl122704122959_ (let () (declare (not safe)) - (##cdr _e122701122949_))) - (_hd122700122952_ + (##cdr _e122706122954_))) + (_hd122705122957_ (let () (declare (not safe)) - (##car _e122701122949_)))) + (##car _e122706122954_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl122699122954_)) + _tl122704122959_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl122678122898_)) - (___kont127652127653_ - _hd122700122952_ - _hd122691122928_ + _tl122683122903_)) + (___kont127657127658_ + _hd122705122957_ + _hd122696122933_ + _tl122676122876_ + _arg122682122895_) + (___match127758127759_ + _e122673122866_ + _hd122672122869_ _tl122671122871_ - _arg122677122890_) - (___match127753127754_ - _e122668122861_ - _hd122667122864_ - _tl122666122866_ - _e122680122893_ - _hd122679122896_ - _tl122678122898_ - _e122683122901_ - _hd122682122904_ - _tl122681122906_ - _e122686122909_ - _hd122685122912_ - _tl122684122914_ - _e122689122917_ - _hd122688122920_ - _tl122687122922_ - _e122692122925_ - _hd122691122928_ - _tl122690122930_ - _e122695122933_ - _hd122694122936_ - _tl122693122938_ - _e122698122941_ - _hd122697122944_ - _tl122696122946_ - _e122701122949_ - _hd122700122952_ - _tl122699122954_)) + _e122685122898_ + _hd122684122901_ + _tl122683122903_ + _e122688122906_ + _hd122687122909_ + _tl122686122911_ + _e122691122914_ + _hd122690122917_ + _tl122689122919_ + _e122694122922_ + _hd122693122925_ + _tl122692122927_ + _e122697122930_ + _hd122696122933_ + _tl122695122935_ + _e122700122938_ + _hd122699122941_ + _tl122698122943_ + _e122703122946_ + _hd122702122949_ + _tl122701122951_ + _e122706122954_ + _hd122705122957_ + _tl122704122959_)) (let () (declare (not safe)) - (_g122615122739_))))) + (_g122620122744_))))) (let () (declare (not safe)) - (_g122615122739_))) + (_g122620122744_))) (let () (declare (not safe)) - (_g122615122739_))) + (_g122620122744_))) (let () (declare (not safe)) - (_g122615122739_))))) + (_g122620122744_))))) (let () (declare (not safe)) - (_g122615122739_))))) - (let () (declare (not safe)) (_g122615122739_))) - (let () (declare (not safe)) (_g122615122739_))))) + (_g122620122744_))))) + (let () (declare (not safe)) (_g122620122744_))) + (let () (declare (not safe)) (_g122620122744_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g122615122739_))) + (_g122620122744_))) (let () (declare (not safe)) - (_g122615122739_))) + (_g122620122744_))) (let () (declare (not safe)) - (_g122615122739_))))) + (_g122620122744_))))) (let () (declare (not safe)) - (_g122615122739_))))) - (let () (declare (not safe)) (_g122615122739_))) - (let () (declare (not safe)) (_g122615122739_))) - (let () (declare (not safe)) (_g122615122739_))))) + (_g122620122744_))))) + (let () (declare (not safe)) (_g122620122744_))) + (let () (declare (not safe)) (_g122620122744_))) + (let () (declare (not safe)) (_g122620122744_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g122615122739_))))) + (_g122620122744_))))) (let () (declare (not safe)) - (_g122615122739_)))))))) + (_g122620122744_)))))))) (let () (declare (not safe)) - (_loop122672122874_ _target122669122869_ '()))))) - (___match127671127672_ - (lambda (_e122622122997_ - _hd122621123000_ - _tl122620123002_ - ___splice127648127649_ - _target122623123005_ - _tl122625123007_) - (letrec ((_loop122626123010_ - (lambda (_hd122624123013_ _arg122630123015_) + (_loop122677122879_ _target122674122874_ '()))))) + (___match127676127677_ + (lambda (_e122627123002_ + _hd122626123005_ + _tl122625123007_ + ___splice127653127654_ + _target122628123010_ + _tl122630123012_) + (letrec ((_loop122631123015_ + (lambda (_hd122629123018_ _arg122635123020_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd122624123013_)) - (let ((_e122627123018_ + (gx#stx-pair? _hd122629123018_)) + (let ((_e122632123023_ (let () (declare (not safe)) - (gx#stx-e _hd122624123013_)))) - (let ((_lp-tl122629123023_ + (gx#stx-e _hd122629123018_)))) + (let ((_lp-tl122634123028_ (let () (declare (not safe)) - (##cdr _e122627123018_))) - (_lp-hd122628123021_ + (##cdr _e122632123023_))) + (_lp-hd122633123026_ (let () (declare (not safe)) - (##car _e122627123018_)))) - (let ((__tmp128910 + (##car _e122632123023_)))) + (let ((__tmp128915 (let () (declare (not safe)) - (cons _lp-hd122628123021_ - _arg122630123015_)))) + (cons _lp-hd122633123026_ + _arg122635123020_)))) (declare (not safe)) - (_loop122626123010_ - _lp-tl122629123023_ - __tmp128910)))) - (let ((_arg122631123026_ - (reverse _arg122630123015_))) + (_loop122631123015_ + _lp-tl122634123028_ + __tmp128915)))) + (let ((_arg122636123031_ + (reverse _arg122635123020_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl122620123002_)) - (let ((_e122634123029_ + (gx#stx-pair? _tl122625123007_)) + (let ((_e122639123034_ (let () (declare (not safe)) (gx#stx-e - _tl122620123002_)))) - (let ((_tl122632123034_ + _tl122625123007_)))) + (let ((_tl122637123039_ (let () (declare (not safe)) - (##cdr _e122634123029_))) - (_hd122633123032_ + (##cdr _e122639123034_))) + (_hd122638123037_ (let () (declare (not safe)) - (##car _e122634123029_)))) + (##car _e122639123034_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd122633123032_)) - (let ((_e122637123037_ + _hd122638123037_)) + (let ((_e122642123042_ (let () (declare (not safe)) (gx#stx-e - _hd122633123032_)))) - (let ((_tl122635123042_ + _hd122638123037_)))) + (let ((_tl122640123047_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e122637123037_))) - (_hd122636123040_ - (let () (declare (not safe)) (##car _e122637123037_)))) + (##cdr _e122642123042_))) + (_hd122641123045_ + (let () (declare (not safe)) (##car _e122642123042_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd122636123040_)) + (gx#identifier? _hd122641123045_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd122636123040_)) + (gx#stx-eq? '%#call _hd122641123045_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl122635123042_)) - (let ((_e122640123045_ + (gx#stx-pair? _tl122640123047_)) + (let ((_e122645123050_ (let () (declare (not safe)) - (gx#stx-e _tl122635123042_)))) - (let ((_tl122638123050_ + (gx#stx-e _tl122640123047_)))) + (let ((_tl122643123055_ (let () (declare (not safe)) - (##cdr _e122640123045_))) - (_hd122639123048_ + (##cdr _e122645123050_))) + (_hd122644123053_ (let () (declare (not safe)) - (##car _e122640123045_)))) + (##car _e122645123050_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd122639123048_)) - (let ((_e122643123053_ + (gx#stx-pair? _hd122644123053_)) + (let ((_e122648123058_ (let () (declare (not safe)) - (gx#stx-e _hd122639123048_)))) - (let ((_tl122641123058_ + (gx#stx-e _hd122644123053_)))) + (let ((_tl122646123063_ (let () (declare (not safe)) - (##cdr _e122643123053_))) - (_hd122642123056_ + (##cdr _e122648123058_))) + (_hd122647123061_ (let () (declare (not safe)) - (##car _e122643123053_)))) + (##car _e122648123058_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd122642123056_)) + _hd122647123061_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd122642123056_)) + _hd122647123061_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl122641123058_)) - (let ((_e122646123061_ + _tl122646123063_)) + (let ((_e122651123066_ (let () (declare (not safe)) (gx#stx-e - _tl122641123058_)))) - (let ((_tl122644123066_ + _tl122646123063_)))) + (let ((_tl122649123071_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e122646123061_))) - (_hd122645123064_ - (let () (declare (not safe)) (##car _e122646123061_)))) + (##cdr _e122651123066_))) + (_hd122650123069_ + (let () (declare (not safe)) (##car _e122651123066_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl122644123066_)) + (gx#stx-null? _tl122649123071_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl122638123050_)) - (let ((___splice127650127651_ + (gx#stx-pair/null? _tl122643123055_)) + (let ((___splice127655127656_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl122638123050_ + _tl122643123055_ '0)))) - (let ((_tl122649123071_ + (let ((_tl122654123076_ (let () (declare (not safe)) - (##vector-ref ___splice127650127651_ '1))) - (_target122647123069_ + (##vector-ref ___splice127655127656_ '1))) + (_target122652123074_ (let () (declare (not safe)) - (##vector-ref ___splice127650127651_ '0)))) + (##vector-ref ___splice127655127656_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl122649123071_)) - (letrec ((_loop122650123074_ - (lambda (_hd122648123077_ - _xarg122654123079_) + (gx#stx-null? _tl122654123076_)) + (letrec ((_loop122655123079_ + (lambda (_hd122653123082_ + _xarg122659123084_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd122648123077_)) - (let ((_e122651123082_ + _hd122653123082_)) + (let ((_e122656123087_ (let () (declare (not safe)) (gx#stx-e - _hd122648123077_)))) - (let ((_lp-tl122653123087_ + _hd122653123082_)))) + (let ((_lp-tl122658123092_ (let () (declare (not safe)) - (##cdr _e122651123082_))) - (_lp-hd122652123085_ + (##cdr _e122656123087_))) + (_lp-hd122657123090_ (let () (declare (not safe)) - (##car _e122651123082_)))) + (##car _e122656123087_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd122652123085_)) - (let ((_e122658123090_ + _lp-hd122657123090_)) + (let ((_e122663123095_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _lp-hd122652123085_)))) - (let ((_tl122656123095_ - (let () (declare (not safe)) (##cdr _e122658123090_))) - (_hd122657123093_ + (gx#stx-e _lp-hd122657123090_)))) + (let ((_tl122661123100_ + (let () (declare (not safe)) (##cdr _e122663123095_))) + (_hd122662123098_ (let () (declare (not safe)) - (##car _e122658123090_)))) + (##car _e122663123095_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd122657123093_)) + (gx#identifier? _hd122662123098_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd122657123093_)) + (gx#stx-eq? '%#ref _hd122662123098_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl122656123095_)) - (let ((_e122661123098_ + (gx#stx-pair? _tl122661123100_)) + (let ((_e122666123103_ (let () (declare (not safe)) - (gx#stx-e _tl122656123095_)))) - (let ((_tl122659123103_ + (gx#stx-e _tl122661123100_)))) + (let ((_tl122664123108_ (let () (declare (not safe)) - (##cdr _e122661123098_))) - (_hd122660123101_ + (##cdr _e122666123103_))) + (_hd122665123106_ (let () (declare (not safe)) - (##car _e122661123098_)))) + (##car _e122666123103_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl122659123103_)) - (let ((__tmp128909 + (gx#stx-null? _tl122664123108_)) + (let ((__tmp128914 (let () (declare (not safe)) - (cons _hd122660123101_ - _xarg122654123079_)))) + (cons _hd122665123106_ + _xarg122659123084_)))) (declare (not safe)) - (_loop122650123074_ - _lp-tl122653123087_ - __tmp128909)) - (___match127683127684_ - _e122622122997_ - _hd122621123000_ - _tl122620123002_ - ___splice127648127649_ - _target122623123005_ - _tl122625123007_)))) - (___match127683127684_ - _e122622122997_ - _hd122621123000_ - _tl122620123002_ - ___splice127648127649_ - _target122623123005_ - _tl122625123007_)) - (___match127683127684_ - _e122622122997_ - _hd122621123000_ - _tl122620123002_ - ___splice127648127649_ - _target122623123005_ - _tl122625123007_)) - (___match127683127684_ - _e122622122997_ - _hd122621123000_ - _tl122620123002_ - ___splice127648127649_ - _target122623123005_ - _tl122625123007_)))) - (___match127683127684_ - _e122622122997_ - _hd122621123000_ - _tl122620123002_ - ___splice127648127649_ - _target122623123005_ - _tl122625123007_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_xarg122655123106_ - (reverse _xarg122654123079_))) + (_loop122655123079_ + _lp-tl122658123092_ + __tmp128914)) + (___match127688127689_ + _e122627123002_ + _hd122626123005_ + _tl122625123007_ + ___splice127653127654_ + _target122628123010_ + _tl122630123012_)))) + (___match127688127689_ + _e122627123002_ + _hd122626123005_ + _tl122625123007_ + ___splice127653127654_ + _target122628123010_ + _tl122630123012_)) + (___match127688127689_ + _e122627123002_ + _hd122626123005_ + _tl122625123007_ + ___splice127653127654_ + _target122628123010_ + _tl122630123012_)) + (___match127688127689_ + _e122627123002_ + _hd122626123005_ + _tl122625123007_ + ___splice127653127654_ + _target122628123010_ + _tl122630123012_)))) + (___match127688127689_ + _e122627123002_ + _hd122626123005_ + _tl122625123007_ + ___splice127653127654_ + _target122628123010_ + _tl122630123012_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_xarg122660123111_ + (reverse _xarg122659123084_))) (if (let () (declare (not safe)) (gx#stx-null? - _tl122632123034_)) - (___kont127646127647_ - _xarg122655123106_ - _hd122645123064_ - _arg122631123026_) - (___match127683127684_ - _e122622122997_ - _hd122621123000_ - _tl122620123002_ - ___splice127648127649_ - _target122623123005_ - _tl122625123007_))))))) + _tl122637123039_)) + (___kont127651127652_ + _xarg122660123111_ + _hd122650123069_ + _arg122636123031_) + (___match127688127689_ + _e122627123002_ + _hd122626123005_ + _tl122625123007_ + ___splice127653127654_ + _target122628123010_ + _tl122630123012_))))))) (let () (declare (not safe)) - (_loop122650123074_ - _target122647123069_ + (_loop122655123079_ + _target122652123074_ '()))) - (___match127683127684_ - _e122622122997_ - _hd122621123000_ - _tl122620123002_ - ___splice127648127649_ - _target122623123005_ - _tl122625123007_)))) - (___match127683127684_ - _e122622122997_ - _hd122621123000_ - _tl122620123002_ - ___splice127648127649_ - _target122623123005_ - _tl122625123007_)) - (___match127683127684_ - _e122622122997_ - _hd122621123000_ - _tl122620123002_ - ___splice127648127649_ - _target122623123005_ - _tl122625123007_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match127683127684_ - _e122622122997_ - _hd122621123000_ - _tl122620123002_ - ___splice127648127649_ - _target122623123005_ - _tl122625123007_)) - (___match127683127684_ - _e122622122997_ - _hd122621123000_ - _tl122620123002_ - ___splice127648127649_ - _target122623123005_ - _tl122625123007_)) - (___match127683127684_ - _e122622122997_ - _hd122621123000_ - _tl122620123002_ - ___splice127648127649_ - _target122623123005_ - _tl122625123007_)))) - (___match127683127684_ - _e122622122997_ - _hd122621123000_ - _tl122620123002_ - ___splice127648127649_ - _target122623123005_ - _tl122625123007_)))) - (___match127683127684_ - _e122622122997_ - _hd122621123000_ - _tl122620123002_ - ___splice127648127649_ - _target122623123005_ - _tl122625123007_)) - (___match127683127684_ - _e122622122997_ - _hd122621123000_ - _tl122620123002_ - ___splice127648127649_ - _target122623123005_ - _tl122625123007_)) - (___match127683127684_ - _e122622122997_ - _hd122621123000_ - _tl122620123002_ - ___splice127648127649_ - _target122623123005_ - _tl122625123007_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match127683127684_ - _e122622122997_ - _hd122621123000_ - _tl122620123002_ - ___splice127648127649_ - _target122623123005_ - _tl122625123007_)))) - (___match127683127684_ - _e122622122997_ - _hd122621123000_ - _tl122620123002_ - ___splice127648127649_ - _target122623123005_ - _tl122625123007_))))))) + (___match127688127689_ + _e122627123002_ + _hd122626123005_ + _tl122625123007_ + ___splice127653127654_ + _target122628123010_ + _tl122630123012_)))) + (___match127688127689_ + _e122627123002_ + _hd122626123005_ + _tl122625123007_ + ___splice127653127654_ + _target122628123010_ + _tl122630123012_)) + (___match127688127689_ + _e122627123002_ + _hd122626123005_ + _tl122625123007_ + ___splice127653127654_ + _target122628123010_ + _tl122630123012_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match127688127689_ + _e122627123002_ + _hd122626123005_ + _tl122625123007_ + ___splice127653127654_ + _target122628123010_ + _tl122630123012_)) + (___match127688127689_ + _e122627123002_ + _hd122626123005_ + _tl122625123007_ + ___splice127653127654_ + _target122628123010_ + _tl122630123012_)) + (___match127688127689_ + _e122627123002_ + _hd122626123005_ + _tl122625123007_ + ___splice127653127654_ + _target122628123010_ + _tl122630123012_)))) + (___match127688127689_ + _e122627123002_ + _hd122626123005_ + _tl122625123007_ + ___splice127653127654_ + _target122628123010_ + _tl122630123012_)))) + (___match127688127689_ + _e122627123002_ + _hd122626123005_ + _tl122625123007_ + ___splice127653127654_ + _target122628123010_ + _tl122630123012_)) + (___match127688127689_ + _e122627123002_ + _hd122626123005_ + _tl122625123007_ + ___splice127653127654_ + _target122628123010_ + _tl122630123012_)) + (___match127688127689_ + _e122627123002_ + _hd122626123005_ + _tl122625123007_ + ___splice127653127654_ + _target122628123010_ + _tl122630123012_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match127688127689_ + _e122627123002_ + _hd122626123005_ + _tl122625123007_ + ___splice127653127654_ + _target122628123010_ + _tl122630123012_)))) + (___match127688127689_ + _e122627123002_ + _hd122626123005_ + _tl122625123007_ + ___splice127653127654_ + _target122628123010_ + _tl122630123012_))))))) (let () (declare (not safe)) - (_loop122626123010_ _target122623123005_ '())))))) + (_loop122631123015_ _target122628123010_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx127644127645_)) - (let ((_e122622122997_ + (gx#stx-pair? ___stx127649127650_)) + (let ((_e122627123002_ (let () (declare (not safe)) - (gx#stx-e ___stx127644127645_)))) - (let ((_tl122620123002_ + (gx#stx-e ___stx127649127650_)))) + (let ((_tl122625123007_ (let () (declare (not safe)) - (##cdr _e122622122997_))) - (_hd122621123000_ + (##cdr _e122627123002_))) + (_hd122626123005_ (let () (declare (not safe)) - (##car _e122622122997_)))) + (##car _e122627123002_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd122621123000_)) - (let ((___splice127648127649_ + (gx#stx-pair/null? _hd122626123005_)) + (let ((___splice127653127654_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd122621123000_ + _hd122626123005_ '0)))) - (let ((_tl122625123007_ + (let ((_tl122630123012_ (let () (declare (not safe)) - (##vector-ref ___splice127648127649_ '1))) - (_target122623123005_ + (##vector-ref ___splice127653127654_ '1))) + (_target122628123010_ (let () (declare (not safe)) (##vector-ref - ___splice127648127649_ + ___splice127653127654_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl122625123007_)) - (___match127671127672_ - _e122622122997_ - _hd122621123000_ - _tl122620123002_ - ___splice127648127649_ - _target122623123005_ - _tl122625123007_) - (___match127683127684_ - _e122622122997_ - _hd122621123000_ - _tl122620123002_ - ___splice127648127649_ - _target122623123005_ - _tl122625123007_)))) + (gx#stx-null? _tl122630123012_)) + (___match127676127677_ + _e122627123002_ + _hd122626123005_ + _tl122625123007_ + ___splice127653127654_ + _target122628123010_ + _tl122630123012_) + (___match127688127689_ + _e122627123002_ + _hd122626123005_ + _tl122625123007_ + ___splice127653127654_ + _target122628123010_ + _tl122630123012_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl122620123002_)) - (let ((_e122710122752_ + (gx#stx-pair? _tl122625123007_)) + (let ((_e122715122757_ (let () (declare (not safe)) - (gx#stx-e _tl122620123002_)))) - (let ((_tl122708122757_ + (gx#stx-e _tl122625123007_)))) + (let ((_tl122713122762_ (let () (declare (not safe)) - (##cdr _e122710122752_))) - (_hd122709122755_ + (##cdr _e122715122757_))) + (_hd122714122760_ (let () (declare (not safe)) - (##car _e122710122752_)))) + (##car _e122715122757_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd122709122755_)) - (let ((_e122713122760_ + (gx#stx-pair? _hd122714122760_)) + (let ((_e122718122765_ (let () (declare (not safe)) - (gx#stx-e _hd122709122755_)))) - (let ((_tl122711122765_ + (gx#stx-e _hd122714122760_)))) + (let ((_tl122716122770_ (let () (declare (not safe)) - (##cdr _e122713122760_))) - (_hd122712122763_ + (##cdr _e122718122765_))) + (_hd122717122768_ (let () (declare (not safe)) - (##car _e122713122760_)))) + (##car _e122718122765_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd122712122763_)) + _hd122717122768_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd122712122763_)) + _hd122717122768_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl122711122765_)) - (let ((_e122716122768_ + _tl122716122770_)) + (let ((_e122721122773_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl122711122765_)))) - (let ((_tl122714122773_ - (let () (declare (not safe)) (##cdr _e122716122768_))) - (_hd122715122771_ - (let () (declare (not safe)) (##car _e122716122768_)))) + (gx#stx-e _tl122716122770_)))) + (let ((_tl122719122778_ + (let () (declare (not safe)) (##cdr _e122721122773_))) + (_hd122720122776_ + (let () (declare (not safe)) (##car _e122721122773_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd122715122771_)) - (let ((_e122719122776_ + (gx#stx-pair? _hd122720122776_)) + (let ((_e122724122781_ (let () (declare (not safe)) - (gx#stx-e _hd122715122771_)))) - (let ((_tl122717122781_ + (gx#stx-e _hd122720122776_)))) + (let ((_tl122722122786_ (let () (declare (not safe)) - (##cdr _e122719122776_))) - (_hd122718122779_ + (##cdr _e122724122781_))) + (_hd122723122784_ (let () (declare (not safe)) - (##car _e122719122776_)))) + (##car _e122724122781_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd122718122779_)) + (gx#identifier? _hd122723122784_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd122718122779_)) + (gx#stx-eq? '%#ref _hd122723122784_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl122717122781_)) - (let ((_e122722122784_ + (gx#stx-pair? _tl122722122786_)) + (let ((_e122727122789_ (let () (declare (not safe)) - (gx#stx-e _tl122717122781_)))) - (let ((_tl122720122789_ + (gx#stx-e _tl122722122786_)))) + (let ((_tl122725122794_ (let () (declare (not safe)) - (##cdr _e122722122784_))) - (_hd122721122787_ + (##cdr _e122727122789_))) + (_hd122726122792_ (let () (declare (not safe)) - (##car _e122722122784_)))) + (##car _e122727122789_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl122720122789_)) + _tl122725122794_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl122714122773_)) - (let ((_e122725122792_ + _tl122719122778_)) + (let ((_e122730122797_ (let () (declare (not safe)) (gx#stx-e - _tl122714122773_)))) - (let ((_tl122723122797_ + _tl122719122778_)))) + (let ((_tl122728122802_ (let () (declare (not safe)) - (##cdr _e122725122792_))) - (_hd122724122795_ + (##cdr _e122730122797_))) + (_hd122729122800_ (let () (declare (not safe)) - (##car _e122725122792_)))) + (##car _e122730122797_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd122724122795_)) - (let ((_e122728122800_ + _hd122729122800_)) + (let ((_e122733122805_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd122724122795_)))) - (let ((_tl122726122805_ + (gx#stx-e _hd122729122800_)))) + (let ((_tl122731122810_ (let () (declare (not safe)) - (##cdr _e122728122800_))) - (_hd122727122803_ + (##cdr _e122733122805_))) + (_hd122732122808_ (let () (declare (not safe)) - (##car _e122728122800_)))) + (##car _e122733122805_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd122727122803_)) + (gx#identifier? _hd122732122808_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd122727122803_)) + (gx#stx-eq? '%#ref _hd122732122808_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl122726122805_)) - (let ((_e122731122808_ + (gx#stx-pair? _tl122731122810_)) + (let ((_e122736122813_ (let () (declare (not safe)) - (gx#stx-e _tl122726122805_)))) - (let ((_tl122729122813_ + (gx#stx-e _tl122731122810_)))) + (let ((_tl122734122818_ (let () (declare (not safe)) - (##cdr _e122731122808_))) - (_hd122730122811_ + (##cdr _e122736122813_))) + (_hd122735122816_ (let () (declare (not safe)) - (##car _e122731122808_)))) + (##car _e122736122813_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl122729122813_)) + (gx#stx-null? _tl122734122818_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl122723122797_)) - (let ((_e122734122816_ + _tl122728122802_)) + (let ((_e122739122821_ (let () (declare (not safe)) (gx#stx-e - _tl122723122797_)))) - (let ((_tl122732122821_ + _tl122728122802_)))) + (let ((_tl122737122826_ (let () (declare (not safe)) - (##cdr _e122734122816_))) - (_hd122733122819_ + (##cdr _e122739122821_))) + (_hd122738122824_ (let () (declare (not safe)) - (##car _e122734122816_)))) + (##car _e122739122821_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl122732122821_)) + _tl122737122826_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl122708122757_)) - (___kont127656127657_ - _hd122730122811_ - _hd122721122787_ - _hd122621123000_) + _tl122713122762_)) + (___kont127661127662_ + _hd122735122816_ + _hd122726122792_ + _hd122626123005_) (let () (declare (not safe)) - (_g122615122739_))) + (_g122620122744_))) (let () (declare (not safe)) - (_g122615122739_))))) + (_g122620122744_))))) (let () (declare (not safe)) - (_g122615122739_))) + (_g122620122744_))) (let () (declare (not safe)) - (_g122615122739_))))) + (_g122620122744_))))) (let () (declare (not safe)) - (_g122615122739_))) - (let () (declare (not safe)) (_g122615122739_))) - (let () (declare (not safe)) (_g122615122739_))))) - (let () (declare (not safe)) (_g122615122739_))))) + (_g122620122744_))) + (let () (declare (not safe)) (_g122620122744_))) + (let () (declare (not safe)) (_g122620122744_))))) + (let () (declare (not safe)) (_g122620122744_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g122615122739_))) + (_g122620122744_))) (let () (declare (not safe)) - (_g122615122739_))))) + (_g122620122744_))))) (let () (declare (not safe)) - (_g122615122739_))) + (_g122620122744_))) (let () (declare (not safe)) - (_g122615122739_))) + (_g122620122744_))) (let () (declare (not safe)) - (_g122615122739_))))) - (let () (declare (not safe)) (_g122615122739_))))) - (let () (declare (not safe)) (_g122615122739_))) + (_g122620122744_))))) + (let () (declare (not safe)) (_g122620122744_))))) + (let () (declare (not safe)) (_g122620122744_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g122615122739_))) + (_g122620122744_))) (let () (declare (not safe)) - (_g122615122739_))))) + (_g122620122744_))))) (let () (declare (not safe)) - (_g122615122739_))))) + (_g122620122744_))))) (let () (declare (not safe)) - (_g122615122739_)))))) - (let () (declare (not safe)) (_g122615122739_)))))))) + (_g122620122744_)))))) + (let () (declare (not safe)) (_g122620122744_)))))))) (define gxc#lambda-form-arity - (lambda (_form122415_) - (let* ((_g122417122431_ - (lambda (_g122418122428_) + (lambda (_form122420_) + (let* ((_g122422122436_ + (lambda (_g122423122433_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g122418122428_)))) - (_g122416122608_ - (lambda (_g122418122434_) + _g122423122433_)))) + (_g122421122613_ + (lambda (_g122423122439_) (if (let () (declare (not safe)) - (gx#stx-pair? _g122418122434_)) - (let ((_e122423122436_ + (gx#stx-pair? _g122423122439_)) + (let ((_e122428122441_ (let () (declare (not safe)) - (gx#stx-e _g122418122434_)))) - (let ((_hd122422122439_ + (gx#stx-e _g122423122439_)))) + (let ((_hd122427122444_ (let () (declare (not safe)) - (##car _e122423122436_))) - (_tl122421122441_ + (##car _e122428122441_))) + (_tl122426122446_ (let () (declare (not safe)) - (##cdr _e122423122436_)))) + (##cdr _e122428122441_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl122421122441_)) - (let ((_e122426122444_ + (gx#stx-pair? _tl122426122446_)) + (let ((_e122431122449_ (let () (declare (not safe)) - (gx#stx-e _tl122421122441_)))) - (let ((_hd122425122447_ + (gx#stx-e _tl122426122446_)))) + (let ((_hd122430122452_ (let () (declare (not safe)) - (##car _e122426122444_))) - (_tl122424122449_ + (##car _e122431122449_))) + (_tl122429122454_ (let () (declare (not safe)) - (##cdr _e122426122444_)))) + (##cdr _e122431122449_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl122424122449_)) - ((lambda (_L122452_ _L122453_) - (let* ((___stx127766127767_ _L122453_) - (_g122468122496_ + (gx#stx-null? _tl122429122454_)) + ((lambda (_L122457_ _L122458_) + (let* ((___stx127771127772_ _L122458_) + (_g122473122501_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx127766127767_))))) - (let ((___kont127768127769_ - (lambda (_L122587_) - (length (let ((__tmp128911 + ___stx127771127772_))))) + (let ((___kont127773127774_ + (lambda (_L122592_) + (length (let ((__tmp128916 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g122597122600_ _g122598122602_) + (lambda (_g122602122605_ _g122603122607_) (let () (declare (not safe)) - (cons _g122597122600_ _g122598122602_))))) + (cons _g122602122605_ _g122603122607_))))) (declare (not safe)) - (foldr1 __tmp128911 '() _L122587_))))) + (foldr1 __tmp128916 '() _L122592_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont127772127773_ - (lambda (_L122538_ _L122539_) - (let ((__tmp128912 - (length (let ((__tmp128913 + (___kont127777127778_ + (lambda (_L122543_ _L122544_) + (let ((__tmp128917 + (length (let ((__tmp128918 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g122550122553_ _g122551122555_) + (lambda (_g122555122558_ _g122556122560_) (let () (declare (not safe)) - (cons _g122550122553_ - _g122551122555_))))) + (cons _g122555122558_ + _g122556122560_))))) (declare (not safe)) - (foldr1 __tmp128913 '() _L122539_))))) + (foldr1 __tmp128918 '() _L122544_))))) (declare (not safe)) - (cons __tmp128912 '())))) + (cons __tmp128917 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont127776127777_ - (lambda (_L122501_) + (___kont127781127782_ + (lambda (_L122506_) (let () (declare (not safe)) (cons '0 '()))))) - (let* ((___match127791127792_ - (lambda (___splice127774127775_ - _target122482122514_ - _tl122484122516_) - (letrec ((_loop122485122519_ + (let* ((___match127796127797_ + (lambda (___splice127779127780_ + _target122487122519_ + _tl122489122521_) + (letrec ((_loop122490122524_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd122483122522_ _arg122489122524_) + (lambda (_hd122488122527_ _arg122494122529_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd122483122522_)) - (let ((_e122486122527_ + (gx#stx-pair? _hd122488122527_)) + (let ((_e122491122532_ (let () (declare (not safe)) - (gx#stx-e _hd122483122522_)))) - (let ((_lp-tl122488122532_ + (gx#stx-e _hd122488122527_)))) + (let ((_lp-tl122493122537_ (let () (declare (not safe)) - (##cdr _e122486122527_))) - (_lp-hd122487122530_ + (##cdr _e122491122532_))) + (_lp-hd122492122535_ (let () (declare (not safe)) - (##car _e122486122527_)))) - (let ((__tmp128914 + (##car _e122491122532_)))) + (let ((__tmp128919 (let () (declare (not safe)) - (cons _lp-hd122487122530_ - _arg122489122524_)))) + (cons _lp-hd122492122535_ + _arg122494122529_)))) (declare (not safe)) - (_loop122485122519_ - _lp-tl122488122532_ - __tmp128914)))) - (let ((_arg122490122535_ - (reverse _arg122489122524_))) - (___kont127772127773_ - _tl122484122516_ - _arg122490122535_)))))) + (_loop122490122524_ + _lp-tl122493122537_ + __tmp128919)))) + (let ((_arg122495122540_ + (reverse _arg122494122529_))) + (___kont127777127778_ + _tl122489122521_ + _arg122495122540_)))))) (let () (declare (not safe)) - (_loop122485122519_ _target122482122514_ '()))))) + (_loop122490122524_ _target122487122519_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match127785127786_ - (lambda (___splice127770127771_ - _target122471122563_ - _tl122473122565_) - (letrec ((_loop122474122568_ + (___match127790127791_ + (lambda (___splice127775127776_ + _target122476122568_ + _tl122478122570_) + (letrec ((_loop122479122573_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd122472122571_ _arg122478122573_) + (lambda (_hd122477122576_ _arg122483122578_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd122472122571_)) - (let ((_e122475122576_ + (gx#stx-pair? _hd122477122576_)) + (let ((_e122480122581_ (let () (declare (not safe)) - (gx#stx-e _hd122472122571_)))) - (let ((_lp-tl122477122581_ + (gx#stx-e _hd122477122576_)))) + (let ((_lp-tl122482122586_ (let () (declare (not safe)) - (##cdr _e122475122576_))) - (_lp-hd122476122579_ + (##cdr _e122480122581_))) + (_lp-hd122481122584_ (let () (declare (not safe)) - (##car _e122475122576_)))) - (let ((__tmp128915 + (##car _e122480122581_)))) + (let ((__tmp128920 (let () (declare (not safe)) - (cons _lp-hd122476122579_ - _arg122478122573_)))) + (cons _lp-hd122481122584_ + _arg122483122578_)))) (declare (not safe)) - (_loop122474122568_ - _lp-tl122477122581_ - __tmp128915)))) - (let ((_arg122479122584_ - (reverse _arg122478122573_))) - (___kont127768127769_ _arg122479122584_)))))) + (_loop122479122573_ + _lp-tl122482122586_ + __tmp128920)))) + (let ((_arg122484122589_ + (reverse _arg122483122578_))) + (___kont127773127774_ _arg122484122589_)))))) (let () (declare (not safe)) - (_loop122474122568_ _target122471122563_ '())))))) + (_loop122479122573_ _target122476122568_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - ___stx127766127767_)) - (let ((___splice127770127771_ + ___stx127771127772_)) + (let ((___splice127775127776_ (let () (declare (not safe)) (gx#syntax-split-splice - ___stx127766127767_ + ___stx127771127772_ '0)))) - (let ((_tl122473122565_ + (let ((_tl122478122570_ (let () (declare (not safe)) (##vector-ref - ___splice127770127771_ + ___splice127775127776_ '1))) - (_target122471122563_ + (_target122476122568_ (let () (declare (not safe)) (##vector-ref - ___splice127770127771_ + ___splice127775127776_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl122473122565_)) - (___match127785127786_ - ___splice127770127771_ - _target122471122563_ - _tl122473122565_) - (___match127791127792_ - ___splice127770127771_ - _target122471122563_ - _tl122473122565_)))) - (___kont127776127777_ - ___stx127766127767_)))))) - _hd122425122447_ - _hd122422122439_) + _tl122478122570_)) + (___match127790127791_ + ___splice127775127776_ + _target122476122568_ + _tl122478122570_) + (___match127796127797_ + ___splice127775127776_ + _target122476122568_ + _tl122478122570_)))) + (___kont127781127782_ + ___stx127771127772_)))))) + _hd122430122452_ + _hd122427122444_) (let () (declare (not safe)) - (_g122417122431_ _g122418122434_))))) + (_g122422122436_ _g122423122439_))))) (let () (declare (not safe)) - (_g122417122431_ _g122418122434_))))) + (_g122422122436_ _g122423122439_))))) (let () (declare (not safe)) - (_g122417122431_ _g122418122434_)))))) + (_g122422122436_ _g122423122439_)))))) (declare (not safe)) - (_g122416122608_ _form122415_)))) + (_g122421122613_ _form122420_)))) (define gxc#lambda-expr? - (lambda (_expr122368_) - (let* ((___stx127794127795_ _expr122368_) - (_g122371122381_ + (lambda (_expr122373_) + (let* ((___stx127799127800_ _expr122373_) + (_g122376122386_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx127794127795_))))) - (let ((___kont127796127797_ (lambda (_L122401_) '#t)) - (___kont127798127799_ (lambda () '#f))) + ___stx127799127800_))))) + (let ((___kont127801127802_ (lambda (_L122406_) '#t)) + (___kont127803127804_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx127794127795_)) - (let ((_e122376122393_ + (gx#stx-pair? ___stx127799127800_)) + (let ((_e122381122398_ (let () (declare (not safe)) - (gx#stx-e ___stx127794127795_)))) - (let ((_tl122374122398_ - (let () (declare (not safe)) (##cdr _e122376122393_))) - (_hd122375122396_ + (gx#stx-e ___stx127799127800_)))) + (let ((_tl122379122403_ + (let () (declare (not safe)) (##cdr _e122381122398_))) + (_hd122380122401_ (let () (declare (not safe)) - (##car _e122376122393_)))) + (##car _e122381122398_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd122375122396_)) + (gx#identifier? _hd122380122401_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _hd122375122396_)) - (___kont127796127797_ _tl122374122398_) - (___kont127798127799_)) - (___kont127798127799_)))) - (___kont127798127799_)))))) + (gx#stx-eq? '%#lambda _hd122380122401_)) + (___kont127801127802_ _tl122379122403_) + (___kont127803127804_)) + (___kont127803127804_)))) + (___kont127803127804_)))))) (define gxc#case-lambda-expr? - (lambda (_expr122321_) - (let* ((___stx127812127813_ _expr122321_) - (_g122324122334_ + (lambda (_expr122326_) + (let* ((___stx127817127818_ _expr122326_) + (_g122329122339_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx127812127813_))))) - (let ((___kont127814127815_ (lambda (_L122354_) '#t)) - (___kont127816127817_ (lambda () '#f))) + ___stx127817127818_))))) + (let ((___kont127819127820_ (lambda (_L122359_) '#t)) + (___kont127821127822_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx127812127813_)) - (let ((_e122329122346_ + (gx#stx-pair? ___stx127817127818_)) + (let ((_e122334122351_ (let () (declare (not safe)) - (gx#stx-e ___stx127812127813_)))) - (let ((_tl122327122351_ - (let () (declare (not safe)) (##cdr _e122329122346_))) - (_hd122328122349_ + (gx#stx-e ___stx127817127818_)))) + (let ((_tl122332122356_ + (let () (declare (not safe)) (##cdr _e122334122351_))) + (_hd122333122354_ (let () (declare (not safe)) - (##car _e122329122346_)))) + (##car _e122334122351_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd122328122349_)) + (gx#identifier? _hd122333122354_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#case-lambda _hd122328122349_)) - (___kont127814127815_ _tl122327122351_) - (___kont127816127817_)) - (___kont127816127817_)))) - (___kont127816127817_)))))) + (gx#stx-eq? '%#case-lambda _hd122333122354_)) + (___kont127819127820_ _tl122332122356_) + (___kont127821127822_)) + (___kont127821127822_)))) + (___kont127821127822_)))))) (define gxc#opt-lambda-expr? - (lambda (_expr122190_) - (let* ((___stx127830127831_ _expr122190_) - (_g122193122223_ + (lambda (_expr122195_) + (let* ((___stx127835127836_ _expr122195_) + (_g122198122228_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx127830127831_))))) - (let ((___kont127832127833_ - (lambda (_L122291_ _L122292_ _L122293_) - (if (let () (declare (not safe)) (gx#identifier? _L122293_)) + ___stx127835127836_))))) + (let ((___kont127837127838_ + (lambda (_L122296_ _L122297_ _L122298_) + (if (let () (declare (not safe)) (gx#identifier? _L122298_)) (if (let () (declare (not safe)) - (gxc#lambda-expr? _L122292_)) + (gxc#lambda-expr? _L122297_)) (let () (declare (not safe)) - (gxc#case-lambda-expr? _L122291_)) + (gxc#case-lambda-expr? _L122296_)) '#f) '#f))) - (___kont127834127835_ (lambda () '#f))) + (___kont127839127840_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx127830127831_)) - (let ((_e122200122235_ + (gx#stx-pair? ___stx127835127836_)) + (let ((_e122205122240_ (let () (declare (not safe)) - (gx#stx-e ___stx127830127831_)))) - (let ((_tl122198122240_ - (let () (declare (not safe)) (##cdr _e122200122235_))) - (_hd122199122238_ + (gx#stx-e ___stx127835127836_)))) + (let ((_tl122203122245_ + (let () (declare (not safe)) (##cdr _e122205122240_))) + (_hd122204122243_ (let () (declare (not safe)) - (##car _e122200122235_)))) + (##car _e122205122240_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd122199122238_)) + (gx#identifier? _hd122204122243_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#let-values _hd122199122238_)) + (gx#stx-eq? '%#let-values _hd122204122243_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl122198122240_)) - (let ((_e122203122243_ + (gx#stx-pair? _tl122203122245_)) + (let ((_e122208122248_ (let () (declare (not safe)) - (gx#stx-e _tl122198122240_)))) - (let ((_tl122201122248_ + (gx#stx-e _tl122203122245_)))) + (let ((_tl122206122253_ (let () (declare (not safe)) - (##cdr _e122203122243_))) - (_hd122202122246_ + (##cdr _e122208122248_))) + (_hd122207122251_ (let () (declare (not safe)) - (##car _e122203122243_)))) + (##car _e122208122248_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd122202122246_)) - (let ((_e122206122251_ + (gx#stx-pair? _hd122207122251_)) + (let ((_e122211122256_ (let () (declare (not safe)) - (gx#stx-e _hd122202122246_)))) - (let ((_tl122204122256_ + (gx#stx-e _hd122207122251_)))) + (let ((_tl122209122261_ (let () (declare (not safe)) - (##cdr _e122206122251_))) - (_hd122205122254_ + (##cdr _e122211122256_))) + (_hd122210122259_ (let () (declare (not safe)) - (##car _e122206122251_)))) + (##car _e122211122256_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd122205122254_)) - (let ((_e122209122259_ + _hd122210122259_)) + (let ((_e122214122264_ (let () (declare (not safe)) (gx#stx-e - _hd122205122254_)))) - (let ((_tl122207122264_ + _hd122210122259_)))) + (let ((_tl122212122269_ (let () (declare (not safe)) - (##cdr _e122209122259_))) - (_hd122208122262_ + (##cdr _e122214122264_))) + (_hd122213122267_ (let () (declare (not safe)) - (##car _e122209122259_)))) + (##car _e122214122264_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd122208122262_)) - (let ((_e122212122267_ + _hd122213122267_)) + (let ((_e122217122272_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd122208122262_)))) - (let ((_tl122210122272_ - (let () (declare (not safe)) (##cdr _e122212122267_))) - (_hd122211122270_ + (gx#stx-e _hd122213122267_)))) + (let ((_tl122215122277_ + (let () (declare (not safe)) (##cdr _e122217122272_))) + (_hd122216122275_ (let () (declare (not safe)) - (##car _e122212122267_)))) + (##car _e122217122272_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl122210122272_)) + (gx#stx-null? _tl122215122277_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl122207122264_)) - (let ((_e122215122275_ + (gx#stx-pair? _tl122212122269_)) + (let ((_e122220122280_ (let () (declare (not safe)) - (gx#stx-e _tl122207122264_)))) - (let ((_tl122213122280_ + (gx#stx-e _tl122212122269_)))) + (let ((_tl122218122285_ (let () (declare (not safe)) - (##cdr _e122215122275_))) - (_hd122214122278_ + (##cdr _e122220122280_))) + (_hd122219122283_ (let () (declare (not safe)) - (##car _e122215122275_)))) + (##car _e122220122280_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl122213122280_)) + (gx#stx-null? _tl122218122285_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl122204122256_)) + (gx#stx-null? _tl122209122261_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl122201122248_)) - (let ((_e122218122283_ + (gx#stx-pair? _tl122206122253_)) + (let ((_e122223122288_ (let () (declare (not safe)) (gx#stx-e - _tl122201122248_)))) - (let ((_tl122216122288_ + _tl122206122253_)))) + (let ((_tl122221122293_ (let () (declare (not safe)) - (##cdr _e122218122283_))) - (_hd122217122286_ + (##cdr _e122223122288_))) + (_hd122222122291_ (let () (declare (not safe)) - (##car _e122218122283_)))) + (##car _e122223122288_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl122216122288_)) - (___kont127832127833_ - _hd122217122286_ - _hd122214122278_ - _hd122211122270_) - (___kont127834127835_)))) - (___kont127834127835_)) - (___kont127834127835_)) - (___kont127834127835_)))) - (___kont127834127835_)) - (___kont127834127835_)))) - (___kont127834127835_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont127834127835_)))) - (___kont127834127835_)))) - (___kont127834127835_)) - (___kont127834127835_)) - (___kont127834127835_)))) - (___kont127834127835_)))))) + _tl122221122293_)) + (___kont127837127838_ + _hd122222122291_ + _hd122219122283_ + _hd122216122275_) + (___kont127839127840_)))) + (___kont127839127840_)) + (___kont127839127840_)) + (___kont127839127840_)))) + (___kont127839127840_)) + (___kont127839127840_)))) + (___kont127839127840_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont127839127840_)))) + (___kont127839127840_)))) + (___kont127839127840_)) + (___kont127839127840_)) + (___kont127839127840_)))) + (___kont127839127840_)))))) (define gxc#kw-lambda-expr? - (lambda (_expr121515_) - (let* ((___stx127892127893_ _expr121515_) - (_g121518121676_ + (lambda (_expr121520_) + (let* ((___stx127897127898_ _expr121520_) + (_g121523121681_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx127892127893_))))) - (let ((___kont127894127895_ - (lambda (_L122064_ - _L122065_ - _L122066_ - _L122067_ - _L122068_ - _L122069_ + ___stx127897127898_))))) + (let ((___kont127899127900_ + (lambda (_L122069_ _L122070_ _L122071_ _L122072_ _L122073_ - _L122074_) + _L122074_ + _L122075_ + _L122076_ + _L122077_ + _L122078_ + _L122079_) (if (let () (declare (not safe)) - (gxc#runtime-identifier=? _L122071_ 'apply)) + (gxc#runtime-identifier=? _L122076_ 'apply)) (if (let () (declare (not safe)) - (gxc#runtime-identifier=? _L122067_ 'apply)) + (gxc#runtime-identifier=? _L122072_ 'apply)) (if (let () (declare (not safe)) (gxc#runtime-identifier=? - _L122066_ + _L122071_ 'keyword-dispatch)) (if (let () (declare (not safe)) (gx#free-identifier=? - _L122074_ - _L122065_)) + _L122079_ + _L122070_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _L122073_ - _L122070_)) + _L122078_ + _L122075_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _L122068_ - _L122064_)) + _L122073_ + _L122069_)) (let () (declare (not safe)) (gx#free-identifier=? - _L122072_ - _L122069_)) + _L122077_ + _L122074_)) '#f) '#f) '#f) '#f) '#f) '#f))) - (___kont127896127897_ (lambda () '#f))) + (___kont127901127902_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx127892127893_)) - (let ((_e121533121688_ + (gx#stx-pair? ___stx127897127898_)) + (let ((_e121538121693_ (let () (declare (not safe)) - (gx#stx-e ___stx127892127893_)))) - (let ((_tl121531121693_ - (let () (declare (not safe)) (##cdr _e121533121688_))) - (_hd121532121691_ + (gx#stx-e ___stx127897127898_)))) + (let ((_tl121536121698_ + (let () (declare (not safe)) (##cdr _e121538121693_))) + (_hd121537121696_ (let () (declare (not safe)) - (##car _e121533121688_)))) + (##car _e121538121693_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd121532121691_)) + (gx#identifier? _hd121537121696_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#let-values _hd121532121691_)) + (gx#stx-eq? '%#let-values _hd121537121696_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl121531121693_)) - (let ((_e121536121696_ + (gx#stx-pair? _tl121536121698_)) + (let ((_e121541121701_ (let () (declare (not safe)) - (gx#stx-e _tl121531121693_)))) - (let ((_tl121534121701_ + (gx#stx-e _tl121536121698_)))) + (let ((_tl121539121706_ (let () (declare (not safe)) - (##cdr _e121536121696_))) - (_hd121535121699_ + (##cdr _e121541121701_))) + (_hd121540121704_ (let () (declare (not safe)) - (##car _e121536121696_)))) + (##car _e121541121701_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd121535121699_)) - (let ((_e121539121704_ + (gx#stx-pair? _hd121540121704_)) + (let ((_e121544121709_ (let () (declare (not safe)) - (gx#stx-e _hd121535121699_)))) - (let ((_tl121537121709_ + (gx#stx-e _hd121540121704_)))) + (let ((_tl121542121714_ (let () (declare (not safe)) - (##cdr _e121539121704_))) - (_hd121538121707_ + (##cdr _e121544121709_))) + (_hd121543121712_ (let () (declare (not safe)) - (##car _e121539121704_)))) + (##car _e121544121709_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd121538121707_)) - (let ((_e121542121712_ + _hd121543121712_)) + (let ((_e121547121717_ (let () (declare (not safe)) (gx#stx-e - _hd121538121707_)))) - (let ((_tl121540121717_ + _hd121543121712_)))) + (let ((_tl121545121722_ (let () (declare (not safe)) - (##cdr _e121542121712_))) - (_hd121541121715_ + (##cdr _e121547121717_))) + (_hd121546121720_ (let () (declare (not safe)) - (##car _e121542121712_)))) + (##car _e121547121717_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd121541121715_)) - (let ((_e121545121720_ + _hd121546121720_)) + (let ((_e121550121725_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd121541121715_)))) - (let ((_tl121543121725_ - (let () (declare (not safe)) (##cdr _e121545121720_))) - (_hd121544121723_ + (gx#stx-e _hd121546121720_)))) + (let ((_tl121548121730_ + (let () (declare (not safe)) (##cdr _e121550121725_))) + (_hd121549121728_ (let () (declare (not safe)) - (##car _e121545121720_)))) + (##car _e121550121725_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl121543121725_)) + (gx#stx-null? _tl121548121730_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl121540121717_)) - (let ((_e121548121728_ + (gx#stx-pair? _tl121545121722_)) + (let ((_e121553121733_ (let () (declare (not safe)) - (gx#stx-e _tl121540121717_)))) - (let ((_tl121546121733_ + (gx#stx-e _tl121545121722_)))) + (let ((_tl121551121738_ (let () (declare (not safe)) - (##cdr _e121548121728_))) - (_hd121547121731_ + (##cdr _e121553121733_))) + (_hd121552121736_ (let () (declare (not safe)) - (##car _e121548121728_)))) + (##car _e121553121733_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd121547121731_)) - (let ((_e121551121736_ + (gx#stx-pair? _hd121552121736_)) + (let ((_e121556121741_ (let () (declare (not safe)) - (gx#stx-e _hd121547121731_)))) - (let ((_tl121549121741_ + (gx#stx-e _hd121552121736_)))) + (let ((_tl121554121746_ (let () (declare (not safe)) - (##cdr _e121551121736_))) - (_hd121550121739_ + (##cdr _e121556121741_))) + (_hd121555121744_ (let () (declare (not safe)) - (##car _e121551121736_)))) + (##car _e121556121741_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd121550121739_)) + _hd121555121744_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd121550121739_)) + _hd121555121744_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl121549121741_)) - (let ((_e121554121744_ + _tl121554121746_)) + (let ((_e121559121749_ (let () (declare (not safe)) (gx#stx-e - _tl121549121741_)))) - (let ((_tl121552121749_ + _tl121554121746_)))) + (let ((_tl121557121754_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e121554121744_))) - (_hd121553121747_ - (let () (declare (not safe)) (##car _e121554121744_)))) + (##cdr _e121559121749_))) + (_hd121558121752_ + (let () (declare (not safe)) (##car _e121559121749_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd121553121747_)) - (let ((_e121557121752_ + (gx#stx-pair? _hd121558121752_)) + (let ((_e121562121757_ (let () (declare (not safe)) - (gx#stx-e _hd121553121747_)))) - (let ((_tl121555121757_ + (gx#stx-e _hd121558121752_)))) + (let ((_tl121560121762_ (let () (declare (not safe)) - (##cdr _e121557121752_))) - (_hd121556121755_ + (##cdr _e121562121757_))) + (_hd121561121760_ (let () (declare (not safe)) - (##car _e121557121752_)))) + (##car _e121562121757_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd121556121755_)) - (let ((_e121560121760_ + (gx#stx-pair? _hd121561121760_)) + (let ((_e121565121765_ (let () (declare (not safe)) - (gx#stx-e _hd121556121755_)))) - (let ((_tl121558121765_ + (gx#stx-e _hd121561121760_)))) + (let ((_tl121563121770_ (let () (declare (not safe)) - (##cdr _e121560121760_))) - (_hd121559121763_ + (##cdr _e121565121765_))) + (_hd121564121768_ (let () (declare (not safe)) - (##car _e121560121760_)))) + (##car _e121565121765_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd121559121763_)) - (let ((_e121563121768_ + (gx#stx-pair? _hd121564121768_)) + (let ((_e121568121773_ (let () (declare (not safe)) - (gx#stx-e _hd121559121763_)))) - (let ((_tl121561121773_ + (gx#stx-e _hd121564121768_)))) + (let ((_tl121566121778_ (let () (declare (not safe)) - (##cdr _e121563121768_))) - (_hd121562121771_ + (##cdr _e121568121773_))) + (_hd121567121776_ (let () (declare (not safe)) - (##car _e121563121768_)))) + (##car _e121568121773_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl121561121773_)) + (gx#stx-null? _tl121566121778_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl121558121765_)) - (let ((_e121566121776_ + _tl121563121770_)) + (let ((_e121571121781_ (let () (declare (not safe)) (gx#stx-e - _tl121558121765_)))) - (let ((_tl121564121781_ + _tl121563121770_)))) + (let ((_tl121569121786_ (let () (declare (not safe)) - (##cdr _e121566121776_))) - (_hd121565121779_ + (##cdr _e121571121781_))) + (_hd121570121784_ (let () (declare (not safe)) - (##car _e121566121776_)))) + (##car _e121571121781_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl121564121781_)) + _tl121569121786_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl121555121757_)) + _tl121560121762_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl121552121749_)) - (let ((_e121569121784_ + (gx#stx-pair? _tl121557121754_)) + (let ((_e121574121789_ (let () (declare (not safe)) - (gx#stx-e _tl121552121749_)))) - (let ((_tl121567121789_ + (gx#stx-e _tl121557121754_)))) + (let ((_tl121572121794_ (let () (declare (not safe)) - (##cdr _e121569121784_))) - (_hd121568121787_ + (##cdr _e121574121789_))) + (_hd121573121792_ (let () (declare (not safe)) - (##car _e121569121784_)))) + (##car _e121574121789_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd121568121787_)) - (let ((_e121572121792_ + (gx#stx-pair? _hd121573121792_)) + (let ((_e121577121797_ (let () (declare (not safe)) - (gx#stx-e _hd121568121787_)))) - (let ((_tl121570121797_ + (gx#stx-e _hd121573121792_)))) + (let ((_tl121575121802_ (let () (declare (not safe)) - (##cdr _e121572121792_))) - (_hd121571121795_ + (##cdr _e121577121797_))) + (_hd121576121800_ (let () (declare (not safe)) - (##car _e121572121792_)))) + (##car _e121577121797_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd121571121795_)) + (gx#identifier? _hd121576121800_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd121571121795_)) + _hd121576121800_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl121570121797_)) - (let ((_e121575121800_ + _tl121575121802_)) + (let ((_e121580121805_ (let () (declare (not safe)) (gx#stx-e - _tl121570121797_)))) - (let ((_tl121573121805_ + _tl121575121802_)))) + (let ((_tl121578121810_ (let () (declare (not safe)) - (##cdr _e121575121800_))) - (_hd121574121803_ + (##cdr _e121580121805_))) + (_hd121579121808_ (let () (declare (not safe)) - (##car _e121575121800_)))) + (##car _e121580121805_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd121574121803_)) - (let ((_e121578121808_ + _hd121579121808_)) + (let ((_e121583121813_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd121574121803_)))) - (let ((_tl121576121813_ - (let () (declare (not safe)) (##cdr _e121578121808_))) - (_hd121577121811_ + (gx#stx-e _hd121579121808_)))) + (let ((_tl121581121818_ + (let () (declare (not safe)) (##cdr _e121583121813_))) + (_hd121582121816_ (let () (declare (not safe)) - (##car _e121578121808_)))) + (##car _e121583121813_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl121573121805_)) - (let ((_e121581121816_ + (gx#stx-pair? _tl121578121810_)) + (let ((_e121586121821_ (let () (declare (not safe)) - (gx#stx-e _tl121573121805_)))) - (let ((_tl121579121821_ + (gx#stx-e _tl121578121810_)))) + (let ((_tl121584121826_ (let () (declare (not safe)) - (##cdr _e121581121816_))) - (_hd121580121819_ + (##cdr _e121586121821_))) + (_hd121585121824_ (let () (declare (not safe)) - (##car _e121581121816_)))) + (##car _e121586121821_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd121580121819_)) - (let ((_e121584121824_ + (gx#stx-pair? _hd121585121824_)) + (let ((_e121589121829_ (let () (declare (not safe)) - (gx#stx-e _hd121580121819_)))) - (let ((_tl121582121829_ + (gx#stx-e _hd121585121824_)))) + (let ((_tl121587121834_ (let () (declare (not safe)) - (##cdr _e121584121824_))) - (_hd121583121827_ + (##cdr _e121589121829_))) + (_hd121588121832_ (let () (declare (not safe)) - (##car _e121584121824_)))) + (##car _e121589121829_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd121583121827_)) + (gx#identifier? _hd121588121832_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd121583121827_)) + _hd121588121832_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl121582121829_)) - (let ((_e121587121832_ + _tl121587121834_)) + (let ((_e121592121837_ (let () (declare (not safe)) (gx#stx-e - _tl121582121829_)))) - (let ((_tl121585121837_ + _tl121587121834_)))) + (let ((_tl121590121842_ (let () (declare (not safe)) - (##cdr _e121587121832_))) - (_hd121586121835_ + (##cdr _e121592121837_))) + (_hd121591121840_ (let () (declare (not safe)) - (##car _e121587121832_)))) + (##car _e121592121837_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd121586121835_)) - (let ((_e121590121840_ + _hd121591121840_)) + (let ((_e121595121845_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd121586121835_)))) - (let ((_tl121588121845_ - (let () (declare (not safe)) (##cdr _e121590121840_))) - (_hd121589121843_ + (gx#stx-e _hd121591121840_)))) + (let ((_tl121593121850_ + (let () (declare (not safe)) (##cdr _e121595121845_))) + (_hd121594121848_ (let () (declare (not safe)) - (##car _e121590121840_)))) + (##car _e121595121845_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd121589121843_)) + (gx#identifier? _hd121594121848_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd121589121843_)) + (gx#stx-eq? '%#ref _hd121594121848_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl121588121845_)) - (let ((_e121593121848_ + (gx#stx-pair? _tl121593121850_)) + (let ((_e121598121853_ (let () (declare (not safe)) - (gx#stx-e _tl121588121845_)))) - (let ((_tl121591121853_ + (gx#stx-e _tl121593121850_)))) + (let ((_tl121596121858_ (let () (declare (not safe)) - (##cdr _e121593121848_))) - (_hd121592121851_ + (##cdr _e121598121853_))) + (_hd121597121856_ (let () (declare (not safe)) - (##car _e121593121848_)))) + (##car _e121598121853_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl121591121853_)) + (gx#stx-null? _tl121596121858_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl121585121837_)) - (let ((_e121596121856_ + (gx#stx-pair? _tl121590121842_)) + (let ((_e121601121861_ (let () (declare (not safe)) (gx#stx-e - _tl121585121837_)))) - (let ((_tl121594121861_ + _tl121590121842_)))) + (let ((_tl121599121866_ (let () (declare (not safe)) - (##cdr _e121596121856_))) - (_hd121595121859_ + (##cdr _e121601121861_))) + (_hd121600121864_ (let () (declare (not safe)) - (##car _e121596121856_)))) + (##car _e121601121861_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd121595121859_)) - (let ((_e121599121864_ + _hd121600121864_)) + (let ((_e121604121869_ (let () (declare (not safe)) (gx#stx-e - _hd121595121859_)))) - (let ((_tl121597121869_ + _hd121600121864_)))) + (let ((_tl121602121874_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e121599121864_))) - (_hd121598121867_ - (let () (declare (not safe)) (##car _e121599121864_)))) + (##cdr _e121604121869_))) + (_hd121603121872_ + (let () (declare (not safe)) (##car _e121604121869_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd121598121867_)) + (gx#identifier? _hd121603121872_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd121598121867_)) + (gx#stx-eq? '%#ref _hd121603121872_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl121597121869_)) - (let ((_e121602121872_ + (gx#stx-pair? _tl121602121874_)) + (let ((_e121607121877_ (let () (declare (not safe)) - (gx#stx-e _tl121597121869_)))) - (let ((_tl121600121877_ + (gx#stx-e _tl121602121874_)))) + (let ((_tl121605121882_ (let () (declare (not safe)) - (##cdr _e121602121872_))) - (_hd121601121875_ + (##cdr _e121607121877_))) + (_hd121606121880_ (let () (declare (not safe)) - (##car _e121602121872_)))) + (##car _e121607121877_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl121600121877_)) + (gx#stx-null? _tl121605121882_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl121594121861_)) - (let ((_e121605121880_ + (gx#stx-pair? _tl121599121866_)) + (let ((_e121610121885_ (let () (declare (not safe)) - (gx#stx-e _tl121594121861_)))) - (let ((_tl121603121885_ + (gx#stx-e _tl121599121866_)))) + (let ((_tl121608121890_ (let () (declare (not safe)) - (##cdr _e121605121880_))) - (_hd121604121883_ + (##cdr _e121610121885_))) + (_hd121609121888_ (let () (declare (not safe)) - (##car _e121605121880_)))) + (##car _e121610121885_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd121604121883_)) - (let ((_e121608121888_ + _hd121609121888_)) + (let ((_e121613121893_ (let () (declare (not safe)) (gx#stx-e - _hd121604121883_)))) - (let ((_tl121606121893_ + _hd121609121888_)))) + (let ((_tl121611121898_ (let () (declare (not safe)) - (##cdr _e121608121888_))) - (_hd121607121891_ + (##cdr _e121613121893_))) + (_hd121612121896_ (let () (declare (not safe)) - (##car _e121608121888_)))) + (##car _e121613121893_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd121607121891_)) + _hd121612121896_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd121607121891_)) + _hd121612121896_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl121606121893_)) - (let ((_e121611121896_ + (gx#stx-pair? _tl121611121898_)) + (let ((_e121616121901_ (let () (declare (not safe)) - (gx#stx-e _tl121606121893_)))) - (let ((_tl121609121901_ + (gx#stx-e _tl121611121898_)))) + (let ((_tl121614121906_ (let () (declare (not safe)) - (##cdr _e121611121896_))) - (_hd121610121899_ + (##cdr _e121616121901_))) + (_hd121615121904_ (let () (declare (not safe)) - (##car _e121611121896_)))) + (##car _e121616121901_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl121609121901_)) + (gx#stx-null? _tl121614121906_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl121579121821_)) + (gx#stx-null? _tl121584121826_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl121567121789_)) + (gx#stx-null? _tl121572121794_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl121546121733_)) + (gx#stx-null? _tl121551121738_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl121537121709_)) + _tl121542121714_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl121534121701_)) - (let ((_e121614121904_ + _tl121539121706_)) + (let ((_e121619121909_ (let () (declare (not safe)) (gx#stx-e - _tl121534121701_)))) - (let ((_tl121612121909_ + _tl121539121706_)))) + (let ((_tl121617121914_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e121614121904_))) - (_hd121613121907_ - (let () (declare (not safe)) (##car _e121614121904_)))) + (##cdr _e121619121909_))) + (_hd121618121912_ + (let () (declare (not safe)) (##car _e121619121909_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd121613121907_)) - (let ((_e121617121912_ + (gx#stx-pair? _hd121618121912_)) + (let ((_e121622121917_ (let () (declare (not safe)) - (gx#stx-e _hd121613121907_)))) - (let ((_tl121615121917_ + (gx#stx-e _hd121618121912_)))) + (let ((_tl121620121922_ (let () (declare (not safe)) - (##cdr _e121617121912_))) - (_hd121616121915_ + (##cdr _e121622121917_))) + (_hd121621121920_ (let () (declare (not safe)) - (##car _e121617121912_)))) + (##car _e121622121917_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd121616121915_)) + (gx#identifier? _hd121621121920_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _hd121616121915_)) + (gx#stx-eq? '%#lambda _hd121621121920_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl121615121917_)) - (let ((_e121620121920_ + (gx#stx-pair? _tl121620121922_)) + (let ((_e121625121925_ (let () (declare (not safe)) - (gx#stx-e _tl121615121917_)))) - (let ((_tl121618121925_ + (gx#stx-e _tl121620121922_)))) + (let ((_tl121623121930_ (let () (declare (not safe)) - (##cdr _e121620121920_))) - (_hd121619121923_ + (##cdr _e121625121925_))) + (_hd121624121928_ (let () (declare (not safe)) - (##car _e121620121920_)))) + (##car _e121625121925_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl121618121925_)) - (let ((_e121623121928_ + (gx#stx-pair? _tl121623121930_)) + (let ((_e121628121933_ (let () (declare (not safe)) (gx#stx-e - _tl121618121925_)))) - (let ((_tl121621121933_ + _tl121623121930_)))) + (let ((_tl121626121938_ (let () (declare (not safe)) - (##cdr _e121623121928_))) - (_hd121622121931_ + (##cdr _e121628121933_))) + (_hd121627121936_ (let () (declare (not safe)) - (##car _e121623121928_)))) + (##car _e121628121933_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd121622121931_)) - (let ((_e121626121936_ + _hd121627121936_)) + (let ((_e121631121941_ (let () (declare (not safe)) (gx#stx-e - _hd121622121931_)))) - (let ((_tl121624121941_ + _hd121627121936_)))) + (let ((_tl121629121946_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e121626121936_))) - (_hd121625121939_ - (let () (declare (not safe)) (##car _e121626121936_)))) + (##cdr _e121631121941_))) + (_hd121630121944_ + (let () (declare (not safe)) (##car _e121631121941_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd121625121939_)) + (gx#identifier? _hd121630121944_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd121625121939_)) + (gx#stx-eq? '%#call _hd121630121944_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl121624121941_)) - (let ((_e121629121944_ + (gx#stx-pair? _tl121629121946_)) + (let ((_e121634121949_ (let () (declare (not safe)) - (gx#stx-e _tl121624121941_)))) - (let ((_tl121627121949_ + (gx#stx-e _tl121629121946_)))) + (let ((_tl121632121954_ (let () (declare (not safe)) - (##cdr _e121629121944_))) - (_hd121628121947_ + (##cdr _e121634121949_))) + (_hd121633121952_ (let () (declare (not safe)) - (##car _e121629121944_)))) + (##car _e121634121949_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd121628121947_)) - (let ((_e121632121952_ + (gx#stx-pair? _hd121633121952_)) + (let ((_e121637121957_ (let () (declare (not safe)) - (gx#stx-e _hd121628121947_)))) - (let ((_tl121630121957_ + (gx#stx-e _hd121633121952_)))) + (let ((_tl121635121962_ (let () (declare (not safe)) - (##cdr _e121632121952_))) - (_hd121631121955_ + (##cdr _e121637121957_))) + (_hd121636121960_ (let () (declare (not safe)) - (##car _e121632121952_)))) + (##car _e121637121957_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd121631121955_)) + _hd121636121960_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd121631121955_)) + _hd121636121960_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl121630121957_)) - (let ((_e121635121960_ + _tl121635121962_)) + (let ((_e121640121965_ (let () (declare (not safe)) (gx#stx-e - _tl121630121957_)))) - (let ((_tl121633121965_ + _tl121635121962_)))) + (let ((_tl121638121970_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e121635121960_))) - (_hd121634121963_ - (let () (declare (not safe)) (##car _e121635121960_)))) + (##cdr _e121640121965_))) + (_hd121639121968_ + (let () (declare (not safe)) (##car _e121640121965_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl121633121965_)) + (gx#stx-null? _tl121638121970_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl121627121949_)) - (let ((_e121638121968_ + (gx#stx-pair? _tl121632121954_)) + (let ((_e121643121973_ (let () (declare (not safe)) - (gx#stx-e _tl121627121949_)))) - (let ((_tl121636121973_ + (gx#stx-e _tl121632121954_)))) + (let ((_tl121641121978_ (let () (declare (not safe)) - (##cdr _e121638121968_))) - (_hd121637121971_ + (##cdr _e121643121973_))) + (_hd121642121976_ (let () (declare (not safe)) - (##car _e121638121968_)))) + (##car _e121643121973_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd121637121971_)) - (let ((_e121641121976_ + (gx#stx-pair? _hd121642121976_)) + (let ((_e121646121981_ (let () (declare (not safe)) - (gx#stx-e _hd121637121971_)))) - (let ((_tl121639121981_ + (gx#stx-e _hd121642121976_)))) + (let ((_tl121644121986_ (let () (declare (not safe)) - (##cdr _e121641121976_))) - (_hd121640121979_ + (##cdr _e121646121981_))) + (_hd121645121984_ (let () (declare (not safe)) - (##car _e121641121976_)))) + (##car _e121646121981_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd121640121979_)) + (gx#identifier? _hd121645121984_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd121640121979_)) + _hd121645121984_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl121639121981_)) - (let ((_e121644121984_ + _tl121644121986_)) + (let ((_e121649121989_ (let () (declare (not safe)) (gx#stx-e - _tl121639121981_)))) - (let ((_tl121642121989_ + _tl121644121986_)))) + (let ((_tl121647121994_ (let () (declare (not safe)) - (##cdr _e121644121984_))) - (_hd121643121987_ + (##cdr _e121649121989_))) + (_hd121648121992_ (let () (declare (not safe)) - (##car _e121644121984_)))) + (##car _e121649121989_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl121642121989_)) + _tl121647121994_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl121636121973_)) - (let ((_e121647121992_ + _tl121641121978_)) + (let ((_e121652121997_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl121636121973_)))) - (let ((_tl121645121997_ + (gx#stx-e _tl121641121978_)))) + (let ((_tl121650122002_ (let () (declare (not safe)) - (##cdr _e121647121992_))) - (_hd121646121995_ + (##cdr _e121652121997_))) + (_hd121651122000_ (let () (declare (not safe)) - (##car _e121647121992_)))) + (##car _e121652121997_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd121646121995_)) - (let ((_e121650122000_ + (gx#stx-pair? _hd121651122000_)) + (let ((_e121655122005_ (let () (declare (not safe)) - (gx#stx-e _hd121646121995_)))) - (let ((_tl121648122005_ + (gx#stx-e _hd121651122000_)))) + (let ((_tl121653122010_ (let () (declare (not safe)) - (##cdr _e121650122000_))) - (_hd121649122003_ + (##cdr _e121655122005_))) + (_hd121654122008_ (let () (declare (not safe)) - (##car _e121650122000_)))) + (##car _e121655122005_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd121649122003_)) + (gx#identifier? _hd121654122008_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd121649122003_)) + _hd121654122008_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl121648122005_)) - (let ((_e121653122008_ + (gx#stx-pair? _tl121653122010_)) + (let ((_e121658122013_ (let () (declare (not safe)) (gx#stx-e - _tl121648122005_)))) - (let ((_tl121651122013_ + _tl121653122010_)))) + (let ((_tl121656122018_ (let () (declare (not safe)) - (##cdr _e121653122008_))) - (_hd121652122011_ + (##cdr _e121658122013_))) + (_hd121657122016_ (let () (declare (not safe)) - (##car _e121653122008_)))) + (##car _e121658122013_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl121651122013_)) + _tl121656122018_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl121645121997_)) - (let ((_e121656122016_ + _tl121650122002_)) + (let ((_e121661122021_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl121645121997_)))) - (let ((_tl121654122021_ - (let () (declare (not safe)) (##cdr _e121656122016_))) - (_hd121655122019_ + (gx#stx-e _tl121650122002_)))) + (let ((_tl121659122026_ + (let () (declare (not safe)) (##cdr _e121661122021_))) + (_hd121660122024_ (let () (declare (not safe)) - (##car _e121656122016_)))) + (##car _e121661122021_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd121655122019_)) - (let ((_e121659122024_ + (gx#stx-pair? _hd121660122024_)) + (let ((_e121664122029_ (let () (declare (not safe)) - (gx#stx-e _hd121655122019_)))) - (let ((_tl121657122029_ + (gx#stx-e _hd121660122024_)))) + (let ((_tl121662122034_ (let () (declare (not safe)) - (##cdr _e121659122024_))) - (_hd121658122027_ + (##cdr _e121664122029_))) + (_hd121663122032_ (let () (declare (not safe)) - (##car _e121659122024_)))) + (##car _e121664122029_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd121658122027_)) + (gx#identifier? _hd121663122032_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd121658122027_)) + (gx#stx-eq? '%#ref _hd121663122032_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl121657122029_)) - (let ((_e121662122032_ + (gx#stx-pair? _tl121662122034_)) + (let ((_e121667122037_ (let () (declare (not safe)) - (gx#stx-e _tl121657122029_)))) - (let ((_tl121660122037_ + (gx#stx-e _tl121662122034_)))) + (let ((_tl121665122042_ (let () (declare (not safe)) - (##cdr _e121662122032_))) - (_hd121661122035_ + (##cdr _e121667122037_))) + (_hd121666122040_ (let () (declare (not safe)) - (##car _e121662122032_)))) + (##car _e121667122037_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl121660122037_)) + _tl121665122042_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl121654122021_)) - (let ((_e121665122040_ + _tl121659122026_)) + (let ((_e121670122045_ (let () (declare (not safe)) (gx#stx-e - _tl121654122021_)))) - (let ((_tl121663122045_ + _tl121659122026_)))) + (let ((_tl121668122050_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e121665122040_))) - (_hd121664122043_ - (let () (declare (not safe)) (##car _e121665122040_)))) + (##cdr _e121670122045_))) + (_hd121669122048_ + (let () (declare (not safe)) (##car _e121670122045_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd121664122043_)) - (let ((_e121668122048_ + (gx#stx-pair? _hd121669122048_)) + (let ((_e121673122053_ (let () (declare (not safe)) - (gx#stx-e _hd121664122043_)))) - (let ((_tl121666122053_ + (gx#stx-e _hd121669122048_)))) + (let ((_tl121671122058_ (let () (declare (not safe)) - (##cdr _e121668122048_))) - (_hd121667122051_ + (##cdr _e121673122053_))) + (_hd121672122056_ (let () (declare (not safe)) - (##car _e121668122048_)))) + (##car _e121673122053_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd121667122051_)) + (gx#identifier? _hd121672122056_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd121667122051_)) + (gx#stx-eq? '%#ref _hd121672122056_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl121666122053_)) - (let ((_e121671122056_ + (gx#stx-pair? _tl121671122058_)) + (let ((_e121676122061_ (let () (declare (not safe)) - (gx#stx-e _tl121666122053_)))) - (let ((_tl121669122061_ + (gx#stx-e _tl121671122058_)))) + (let ((_tl121674122066_ (let () (declare (not safe)) - (##cdr _e121671122056_))) - (_hd121670122059_ + (##cdr _e121676122061_))) + (_hd121675122064_ (let () (declare (not safe)) - (##car _e121671122056_)))) + (##car _e121676122061_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl121669122061_)) + (gx#stx-null? _tl121674122066_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl121663122045_)) + _tl121668122050_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl121621121933_)) + _tl121626121938_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl121612121909_)) - (___kont127894127895_ - _hd121670122059_ - _hd121661122035_ - _hd121643121987_ - _hd121634121963_ - _hd121619121923_ - _hd121610121899_ - _hd121601121875_ - _hd121592121851_ - _hd121577121811_ - _hd121562121771_ - _hd121544121723_) - (___kont127896127897_)) - (___kont127896127897_)) - (___kont127896127897_)) - (___kont127896127897_)))) - (___kont127896127897_)) - (___kont127896127897_)) - (___kont127896127897_)))) - (___kont127896127897_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont127896127897_)) - (___kont127896127897_)))) - (___kont127896127897_)) - (___kont127896127897_)) - (___kont127896127897_)))) - (___kont127896127897_)))) - (___kont127896127897_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont127896127897_)))) - (___kont127896127897_)) - (___kont127896127897_)) - (___kont127896127897_)))) - (___kont127896127897_)))) - (___kont127896127897_)) - (___kont127896127897_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont127896127897_)) - (___kont127896127897_)) - (___kont127896127897_)))) - (___kont127896127897_)))) - (___kont127896127897_)) - (___kont127896127897_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont127896127897_)) - (___kont127896127897_)) - (___kont127896127897_)))) - (___kont127896127897_)))) - (___kont127896127897_)) - (___kont127896127897_)) - (___kont127896127897_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont127896127897_)))) - (___kont127896127897_)))) - (___kont127896127897_)) - (___kont127896127897_)) - (___kont127896127897_)))) - (___kont127896127897_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont127896127897_)) - (___kont127896127897_)) - (___kont127896127897_)) - (___kont127896127897_)) - (___kont127896127897_)) - (___kont127896127897_)))) - (___kont127896127897_)) - (___kont127896127897_)) - (___kont127896127897_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont127896127897_)))) - (___kont127896127897_)) - (___kont127896127897_)))) - (___kont127896127897_)) - (___kont127896127897_)) - (___kont127896127897_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont127896127897_)))) - (___kont127896127897_)) - (___kont127896127897_)))) - (___kont127896127897_)) - (___kont127896127897_)) - (___kont127896127897_)))) - (___kont127896127897_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont127896127897_)) - (___kont127896127897_)) - (___kont127896127897_)))) - (___kont127896127897_)))) - (___kont127896127897_)))) - (___kont127896127897_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont127896127897_)) - (___kont127896127897_)) - (___kont127896127897_)))) - (___kont127896127897_)))) - (___kont127896127897_)) - (___kont127896127897_)) - (___kont127896127897_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont127896127897_)) - (___kont127896127897_)))) - (___kont127896127897_)))) - (___kont127896127897_)))) - (___kont127896127897_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont127896127897_)) - (___kont127896127897_)) - (___kont127896127897_)))) - (___kont127896127897_)))) - (___kont127896127897_)) - (___kont127896127897_)))) - (___kont127896127897_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont127896127897_)))) - (___kont127896127897_)))) - (___kont127896127897_)) - (___kont127896127897_)) - (___kont127896127897_)))) - (___kont127896127897_)))))) + _tl121617121914_)) + (___kont127899127900_ + _hd121675122064_ + _hd121666122040_ + _hd121648121992_ + _hd121639121968_ + _hd121624121928_ + _hd121615121904_ + _hd121606121880_ + _hd121597121856_ + _hd121582121816_ + _hd121567121776_ + _hd121549121728_) + (___kont127901127902_)) + (___kont127901127902_)) + (___kont127901127902_)) + (___kont127901127902_)))) + (___kont127901127902_)) + (___kont127901127902_)) + (___kont127901127902_)))) + (___kont127901127902_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont127901127902_)) + (___kont127901127902_)))) + (___kont127901127902_)) + (___kont127901127902_)) + (___kont127901127902_)))) + (___kont127901127902_)))) + (___kont127901127902_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont127901127902_)))) + (___kont127901127902_)) + (___kont127901127902_)) + (___kont127901127902_)))) + (___kont127901127902_)))) + (___kont127901127902_)) + (___kont127901127902_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont127901127902_)) + (___kont127901127902_)) + (___kont127901127902_)))) + (___kont127901127902_)))) + (___kont127901127902_)) + (___kont127901127902_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont127901127902_)) + (___kont127901127902_)) + (___kont127901127902_)))) + (___kont127901127902_)))) + (___kont127901127902_)) + (___kont127901127902_)) + (___kont127901127902_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont127901127902_)))) + (___kont127901127902_)))) + (___kont127901127902_)) + (___kont127901127902_)) + (___kont127901127902_)))) + (___kont127901127902_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont127901127902_)) + (___kont127901127902_)) + (___kont127901127902_)) + (___kont127901127902_)) + (___kont127901127902_)) + (___kont127901127902_)))) + (___kont127901127902_)) + (___kont127901127902_)) + (___kont127901127902_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont127901127902_)))) + (___kont127901127902_)) + (___kont127901127902_)))) + (___kont127901127902_)) + (___kont127901127902_)) + (___kont127901127902_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont127901127902_)))) + (___kont127901127902_)) + (___kont127901127902_)))) + (___kont127901127902_)) + (___kont127901127902_)) + (___kont127901127902_)))) + (___kont127901127902_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont127901127902_)) + (___kont127901127902_)) + (___kont127901127902_)))) + (___kont127901127902_)))) + (___kont127901127902_)))) + (___kont127901127902_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont127901127902_)) + (___kont127901127902_)) + (___kont127901127902_)))) + (___kont127901127902_)))) + (___kont127901127902_)) + (___kont127901127902_)) + (___kont127901127902_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont127901127902_)) + (___kont127901127902_)))) + (___kont127901127902_)))) + (___kont127901127902_)))) + (___kont127901127902_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont127901127902_)) + (___kont127901127902_)) + (___kont127901127902_)))) + (___kont127901127902_)))) + (___kont127901127902_)) + (___kont127901127902_)))) + (___kont127901127902_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont127901127902_)))) + (___kont127901127902_)))) + (___kont127901127902_)) + (___kont127901127902_)) + (___kont127901127902_)))) + (___kont127901127902_)))))) (define gxc#lift-case-lambda-clauses__% - (lambda (_stx121257_ _id121258_ _clauses121259_ _gensym?121260_) - (let _lp121262_ ((_rest121264_ _clauses121259_) - (_ids121265_ '()) - (_impls121266_ '()) - (_clauses121267_ '())) - (let* ((_rest121268121276_ _rest121264_) - (_else121270121284_ + (lambda (_stx121262_ _id121263_ _clauses121264_ _gensym?121265_) + (let _lp121267_ ((_rest121269_ _clauses121264_) + (_ids121270_ '()) + (_impls121271_ '()) + (_clauses121272_ '())) + (let* ((_rest121273121281_ _rest121269_) + (_else121275121289_ (lambda () - (values (reverse _ids121265_) - (reverse _impls121266_) - (reverse _clauses121267_)))) - (_K121272121489_ - (lambda (_rest121287_ _clause121288_) + (values (reverse _ids121270_) + (reverse _impls121271_) + (reverse _clauses121272_)))) + (_K121277121494_ + (lambda (_rest121292_ _clause121293_) (if (let () (declare (not safe)) - (gxc#dispatch-lambda-form? _clause121288_)) - (let ((__tmp128971 + (gxc#dispatch-lambda-form? _clause121293_)) + (let ((__tmp128976 (let () (declare (not safe)) - (cons _clause121288_ _clauses121267_)))) + (cons _clause121293_ _clauses121272_)))) (declare (not safe)) - (_lp121262_ - _rest121287_ - _ids121265_ - _impls121266_ - __tmp128971)) - (let* ((_g121290121301_ - (lambda (_g121291121298_) + (_lp121267_ + _rest121292_ + _ids121270_ + _impls121271_ + __tmp128976)) + (let* ((_g121295121306_ + (lambda (_g121296121303_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g121291121298_)))) - (_g121289121486_ - (lambda (_g121291121304_) + _g121296121303_)))) + (_g121294121491_ + (lambda (_g121296121309_) (if (let () (declare (not safe)) - (gx#stx-pair? _g121291121304_)) - (let ((_e121296121306_ + (gx#stx-pair? _g121296121309_)) + (let ((_e121301121311_ (let () (declare (not safe)) - (gx#stx-e _g121291121304_)))) - (let ((_hd121295121309_ + (gx#stx-e _g121296121309_)))) + (let ((_hd121300121314_ (let () (declare (not safe)) - (##car _e121296121306_))) - (_tl121294121311_ + (##car _e121301121311_))) + (_tl121299121316_ (let () (declare (not safe)) - (##cdr _e121296121306_)))) - ((lambda (_L121314_ _L121315_) - (let* ((_id121332_ - (let ((__tmp128918 + (##cdr _e121301121311_)))) + ((lambda (_L121319_ _L121320_) + (let* ((_id121337_ + (let ((__tmp128923 (let () (declare (not safe)) (gx#stx-e - _id121258_))) - (__tmp128917 - (length _clauses121267_)) - (__tmp128916 - (if _gensym?121260_ + _id121263_))) + (__tmp128922 + (length _clauses121272_)) + (__tmp128921 + (if _gensym?121265_ (gensym '__) '""))) (declare (not safe)) (make-symbol__1 - __tmp128918 + __tmp128923 '"__" - __tmp128917 - __tmp128916))) - (_id121334_ - (let ((__tmp128919 + __tmp128922 + __tmp128921))) + (_id121339_ + (let ((__tmp128924 (let () (declare (not safe)) (gx#stx-source - _stx121257_)))) + _stx121262_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _id121332_ - __tmp128919))) - (_impl121336_ - (let ((__tmp128920 - (let ((__tmp128922 + _id121337_ + __tmp128924))) + (_impl121341_ + (let ((__tmp128925 + (let ((__tmp128927 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda))) - (__tmp128921 + (__tmp128926 (let () (declare (not safe)) - (cons _L121315_ _L121314_)))) + (cons _L121320_ _L121319_)))) (declare (not safe)) - (cons __tmp128922 __tmp128921)))) + (cons __tmp128927 __tmp128926)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp128920 _stx121257_))) + (gxc#xform-wrap-source __tmp128925 _stx121262_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_clause121483_ - (let* ((___stx128276128277_ - _L121315_) - (_g121340121368_ + (_clause121488_ + (let* ((___stx128281128282_ + _L121320_) + (_g121345121373_ (lambda () (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -10642,1813 +10642,1813 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx128276128277_))))) - (let ((___kont128278128279_ - (lambda (_L121462_) - (let ((__tmp128923 - (let ((__tmp128924 - (let ((__tmp128925 - (let ((__tmp128926 - (let ((__tmp128932 - (let ((__tmp128933 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _id121334_ '())))) + ___stx128281128282_))))) + (let ((___kont128283128284_ + (lambda (_L121467_) + (let ((__tmp128928 + (let ((__tmp128929 + (let ((__tmp128930 + (let ((__tmp128931 + (let ((__tmp128937 + (let ((__tmp128938 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () (declare (not safe)) (cons _id121339_ '())))) (declare (not safe)) - (cons '%#ref __tmp128933))) - (__tmp128927 - (let ((__tmp128928 - (lambda (_g121472121475_ _g121473121477_) - (let ((__tmp128929 - (let ((__tmp128931 + (cons '%#ref __tmp128938))) + (__tmp128932 + (let ((__tmp128933 + (lambda (_g121477121480_ _g121478121482_) + (let ((__tmp128934 + (let ((__tmp128936 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp128930 + (__tmp128935 (let () (declare (not safe)) - (cons _g121472121475_ '())))) + (cons _g121477121480_ '())))) (declare (not safe)) - (cons __tmp128931 __tmp128930)))) + (cons __tmp128936 __tmp128935)))) (declare (not safe)) - (cons __tmp128929 _g121473121477_))))) + (cons __tmp128934 _g121478121482_))))) (declare (not safe)) - (foldr1 __tmp128928 '() _L121462_)))) + (foldr1 __tmp128933 '() _L121467_)))) (declare (not safe)) - (cons __tmp128932 __tmp128927)))) + (cons __tmp128937 __tmp128932)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#call __tmp128926)))) + (cons '%#call __tmp128931)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp128925 - _stx121257_)))) + __tmp128930 + _stx121262_)))) (declare (not safe)) - (cons __tmp128924 '())))) + (cons __tmp128929 '())))) (declare (not safe)) - (cons _L121315_ __tmp128923)))) - (___kont128282128283_ - (lambda (_L121413_ _L121414_) - (let ((__tmp128934 - (let ((__tmp128935 - (let ((__tmp128936 - (let ((__tmp128937 - (let ((__tmp128951 - (let ((__tmp128952 + (cons _L121320_ __tmp128928)))) + (___kont128287128288_ + (lambda (_L121418_ _L121419_) + (let ((__tmp128939 + (let ((__tmp128940 + (let ((__tmp128941 + (let ((__tmp128942 + (let ((__tmp128956 + (let ((__tmp128957 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons 'apply '())))) (declare (not safe)) - (cons '%#ref __tmp128952))) - (__tmp128938 - (let ((__tmp128949 - (let ((__tmp128950 + (cons '%#ref __tmp128957))) + (__tmp128943 + (let ((__tmp128954 + (let ((__tmp128955 (let () (declare (not safe)) - (cons _id121334_ '())))) + (cons _id121339_ '())))) (declare (not safe)) - (cons '%#ref __tmp128950))) - (__tmp128939 - (let ((__tmp128945 - (let ((__tmp128946 - (let ((__tmp128948 + (cons '%#ref __tmp128955))) + (__tmp128944 + (let ((__tmp128950 + (let ((__tmp128951 + (let ((__tmp128953 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp128947 + (__tmp128952 (let () (declare (not safe)) - (cons _L121413_ '())))) + (cons _L121418_ '())))) (declare (not safe)) - (cons __tmp128948 __tmp128947)))) + (cons __tmp128953 __tmp128952)))) (declare (not safe)) - (cons __tmp128946 '()))) - (__tmp128940 - (let ((__tmp128941 - (lambda (_g121425121428_ - _g121426121430_) - (let ((__tmp128942 - (let ((__tmp128944 + (cons __tmp128951 '()))) + (__tmp128945 + (let ((__tmp128946 + (lambda (_g121430121433_ + _g121431121435_) + (let ((__tmp128947 + (let ((__tmp128949 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp128943 + (__tmp128948 (let () (declare (not safe)) - (cons _g121425121428_ + (cons _g121430121433_ '())))) (declare (not safe)) - (cons __tmp128944 - __tmp128943)))) + (cons __tmp128949 + __tmp128948)))) (declare (not safe)) - (cons __tmp128942 - _g121426121430_))))) + (cons __tmp128947 + _g121431121435_))))) (declare (not safe)) - (foldr1 __tmp128941 '() _L121414_)))) + (foldr1 __tmp128946 '() _L121419_)))) (declare (not safe)) - (foldr1 cons __tmp128945 __tmp128940)))) + (foldr1 cons __tmp128950 __tmp128945)))) (declare (not safe)) - (cons __tmp128949 __tmp128939)))) + (cons __tmp128954 __tmp128944)))) (declare (not safe)) - (cons __tmp128951 __tmp128938)))) + (cons __tmp128956 __tmp128943)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#call __tmp128937)))) + (cons '%#call __tmp128942)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp128936 - _stx121257_)))) + __tmp128941 + _stx121262_)))) (declare (not safe)) - (cons __tmp128935 '())))) + (cons __tmp128940 '())))) (declare (not safe)) - (cons _L121315_ __tmp128934)))) - (___kont128286128287_ - (lambda (_L121373_) - (let ((__tmp128953 - (let ((__tmp128954 - (let ((__tmp128955 - (let ((__tmp128956 - (let ((__tmp128964 - (let ((__tmp128965 + (cons _L121320_ __tmp128939)))) + (___kont128291128292_ + (lambda (_L121378_) + (let ((__tmp128958 + (let ((__tmp128959 + (let ((__tmp128960 + (let ((__tmp128961 + (let ((__tmp128969 + (let ((__tmp128970 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons 'apply '())))) (declare (not safe)) - (cons '%#ref __tmp128965))) - (__tmp128957 - (let ((__tmp128962 - (let ((__tmp128963 + (cons '%#ref __tmp128970))) + (__tmp128962 + (let ((__tmp128967 + (let ((__tmp128968 (let () (declare (not safe)) - (cons _id121334_ '())))) + (cons _id121339_ '())))) (declare (not safe)) - (cons '%#ref __tmp128963))) - (__tmp128958 - (let ((__tmp128959 - (let ((__tmp128961 + (cons '%#ref __tmp128968))) + (__tmp128963 + (let ((__tmp128964 + (let ((__tmp128966 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp128960 + (__tmp128965 (let () (declare (not safe)) - (cons _L121373_ '())))) + (cons _L121378_ '())))) (declare (not safe)) - (cons __tmp128961 __tmp128960)))) + (cons __tmp128966 __tmp128965)))) (declare (not safe)) - (cons __tmp128959 '())))) + (cons __tmp128964 '())))) (declare (not safe)) - (cons __tmp128962 __tmp128958)))) + (cons __tmp128967 __tmp128963)))) (declare (not safe)) - (cons __tmp128964 __tmp128957)))) + (cons __tmp128969 __tmp128962)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#call __tmp128956)))) + (cons '%#call __tmp128961)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp128955 - _stx121257_)))) + __tmp128960 + _stx121262_)))) (declare (not safe)) - (cons __tmp128954 '())))) + (cons __tmp128959 '())))) (declare (not safe)) - (cons _L121315_ __tmp128953))))) - (let* ((___match128301128302_ - (lambda (___splice128284128285_ - _target121354121389_ - _tl121356121391_) - (letrec ((_loop121357121394_ - (lambda (_hd121355121397_ - _arg121361121399_) + (cons _L121320_ __tmp128958))))) + (let* ((___match128306128307_ + (lambda (___splice128289128290_ + _target121359121394_ + _tl121361121396_) + (letrec ((_loop121362121399_ + (lambda (_hd121360121402_ + _arg121366121404_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd121355121397_)) - (let ((_e121358121402_ + (gx#stx-pair? _hd121360121402_)) + (let ((_e121363121407_ (let () (declare (not safe)) (gx#stx-e - _hd121355121397_)))) - (let ((_lp-tl121360121407_ + _hd121360121402_)))) + (let ((_lp-tl121365121412_ (let () (declare (not safe)) - (##cdr _e121358121402_))) - (_lp-hd121359121405_ + (##cdr _e121363121407_))) + (_lp-hd121364121410_ (let () (declare (not safe)) - (##car _e121358121402_)))) - (let ((__tmp128966 + (##car _e121363121407_)))) + (let ((__tmp128971 (let () (declare (not safe)) - (cons _lp-hd121359121405_ - _arg121361121399_)))) + (cons _lp-hd121364121410_ + _arg121366121404_)))) (declare (not safe)) - (_loop121357121394_ - _lp-tl121360121407_ - __tmp128966)))) - (let ((_arg121362121410_ - (reverse _arg121361121399_))) - (___kont128282128283_ - _tl121356121391_ - _arg121362121410_)))))) + (_loop121362121399_ + _lp-tl121365121412_ + __tmp128971)))) + (let ((_arg121367121415_ + (reverse _arg121366121404_))) + (___kont128287128288_ + _tl121361121396_ + _arg121367121415_)))))) (let () (declare (not safe)) - (_loop121357121394_ - _target121354121389_ + (_loop121362121399_ + _target121359121394_ '()))))) - (___match128295128296_ - (lambda (___splice128280128281_ - _target121343121438_ - _tl121345121440_) - (letrec ((_loop121346121443_ - (lambda (_hd121344121446_ - _arg121350121448_) + (___match128300128301_ + (lambda (___splice128285128286_ + _target121348121443_ + _tl121350121445_) + (letrec ((_loop121351121448_ + (lambda (_hd121349121451_ + _arg121355121453_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd121344121446_)) - (let ((_e121347121451_ + (gx#stx-pair? _hd121349121451_)) + (let ((_e121352121456_ (let () (declare (not safe)) (gx#stx-e - _hd121344121446_)))) - (let ((_lp-tl121349121456_ + _hd121349121451_)))) + (let ((_lp-tl121354121461_ (let () (declare (not safe)) - (##cdr _e121347121451_))) - (_lp-hd121348121454_ + (##cdr _e121352121456_))) + (_lp-hd121353121459_ (let () (declare (not safe)) - (##car _e121347121451_)))) - (let ((__tmp128967 + (##car _e121352121456_)))) + (let ((__tmp128972 (let () (declare (not safe)) - (cons _lp-hd121348121454_ - _arg121350121448_)))) + (cons _lp-hd121353121459_ + _arg121355121453_)))) (declare (not safe)) - (_loop121346121443_ - _lp-tl121349121456_ - __tmp128967)))) - (let ((_arg121351121459_ - (reverse _arg121350121448_))) - (___kont128278128279_ - _arg121351121459_)))))) + (_loop121351121448_ + _lp-tl121354121461_ + __tmp128972)))) + (let ((_arg121356121464_ + (reverse _arg121355121453_))) + (___kont128283128284_ + _arg121356121464_)))))) (let () (declare (not safe)) - (_loop121346121443_ - _target121343121438_ + (_loop121351121448_ + _target121348121443_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? ___stx128276128277_)) - (let ((___splice128280128281_ + (gx#stx-pair/null? ___stx128281128282_)) + (let ((___splice128285128286_ (let () (declare (not safe)) (gx#syntax-split-splice - ___stx128276128277_ + ___stx128281128282_ '0)))) - (let ((_tl121345121440_ + (let ((_tl121350121445_ (let () (declare (not safe)) - (##vector-ref ___splice128280128281_ '1))) - (_target121343121438_ + (##vector-ref ___splice128285128286_ '1))) + (_target121348121443_ (let () (declare (not safe)) - (##vector-ref ___splice128280128281_ '0)))) + (##vector-ref ___splice128285128286_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl121345121440_)) - (___match128295128296_ - ___splice128280128281_ - _target121343121438_ - _tl121345121440_) - (___match128301128302_ - ___splice128280128281_ - _target121343121438_ - _tl121345121440_)))) - (___kont128286128287_ ___stx128276128277_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp128970 + (gx#stx-null? _tl121350121445_)) + (___match128300128301_ + ___splice128285128286_ + _target121348121443_ + _tl121350121445_) + (___match128306128307_ + ___splice128285128286_ + _target121348121443_ + _tl121350121445_)))) + (___kont128291128292_ ___stx128281128282_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((__tmp128975 (let () (declare (not safe)) - (cons _id121334_ - _ids121265_))) - (__tmp128969 + (cons _id121339_ + _ids121270_))) + (__tmp128974 (let () (declare (not safe)) - (cons _impl121336_ - _impls121266_))) - (__tmp128968 + (cons _impl121341_ + _impls121271_))) + (__tmp128973 (let () (declare (not safe)) - (cons _clause121483_ - _clauses121267_)))) + (cons _clause121488_ + _clauses121272_)))) (declare (not safe)) - (_lp121262_ - _rest121287_ - __tmp128970 - __tmp128969 - __tmp128968)))) - _tl121294121311_ - _hd121295121309_))) + (_lp121267_ + _rest121292_ + __tmp128975 + __tmp128974 + __tmp128973)))) + _tl121299121316_ + _hd121300121314_))) (let () (declare (not safe)) - (_g121290121301_ _g121291121304_)))))) + (_g121295121306_ _g121296121309_)))))) (declare (not safe)) - (_g121289121486_ _clause121288_)))))) - (if (let () (declare (not safe)) (##pair? _rest121268121276_)) - (let ((_hd121273121492_ + (_g121294121491_ _clause121293_)))))) + (if (let () (declare (not safe)) (##pair? _rest121273121281_)) + (let ((_hd121278121497_ (let () (declare (not safe)) - (##car _rest121268121276_))) - (_tl121274121494_ + (##car _rest121273121281_))) + (_tl121279121499_ (let () (declare (not safe)) - (##cdr _rest121268121276_)))) - (let* ((_clause121497_ _hd121273121492_) - (_rest121499_ _tl121274121494_)) + (##cdr _rest121273121281_)))) + (let* ((_clause121502_ _hd121278121497_) + (_rest121504_ _tl121279121499_)) (declare (not safe)) - (_K121272121489_ _rest121499_ _clause121497_))) - (let () (declare (not safe)) (_else121270121284_))))))) + (_K121277121494_ _rest121504_ _clause121502_))) + (let () (declare (not safe)) (_else121275121289_))))))) (define gxc#lift-case-lambda-clauses__0 - (lambda (_stx121504_ _id121505_ _clauses121506_) - (let ((_gensym?121508_ '#f)) + (lambda (_stx121509_ _id121510_ _clauses121511_) + (let ((_gensym?121513_ '#f)) (declare (not safe)) (gxc#lift-case-lambda-clauses__% - _stx121504_ - _id121505_ - _clauses121506_ - _gensym?121508_)))) + _stx121509_ + _id121510_ + _clauses121511_ + _gensym?121513_)))) (define gxc#lift-case-lambda-clauses - (lambda _g128973_ - (let ((_g128972_ (let () (declare (not safe)) (##length _g128973_)))) - (cond ((let () (declare (not safe)) (##fx= _g128972_ 3)) - (apply (lambda (_stx121504_ _id121505_ _clauses121506_) + (lambda _g128978_ + (let ((_g128977_ (let () (declare (not safe)) (##length _g128978_)))) + (cond ((let () (declare (not safe)) (##fx= _g128977_ 3)) + (apply (lambda (_stx121509_ _id121510_ _clauses121511_) (let () (declare (not safe)) (gxc#lift-case-lambda-clauses__0 - _stx121504_ - _id121505_ - _clauses121506_))) - _g128973_)) - ((let () (declare (not safe)) (##fx= _g128972_ 4)) - (apply (lambda (_stx121510_ - _id121511_ - _clauses121512_ - _gensym?121513_) + _stx121509_ + _id121510_ + _clauses121511_))) + _g128978_)) + ((let () (declare (not safe)) (##fx= _g128977_ 4)) + (apply (lambda (_stx121515_ + _id121516_ + _clauses121517_ + _gensym?121518_) (let () (declare (not safe)) (gxc#lift-case-lambda-clauses__% - _stx121510_ - _id121511_ - _clauses121512_ - _gensym?121513_))) - _g128973_)) + _stx121515_ + _id121516_ + _clauses121517_ + _gensym?121518_))) + _g128978_)) (else (##raise-wrong-number-of-arguments-exception gxc#lift-case-lambda-clauses - _g128973_)))))) + _g128978_)))))) (define gxc#lift-top-lambda-define-values% - (lambda (_stx120534_) - (letrec ((_case-lambda-clause-def120536_ - (lambda (_id121253_ _impl121254_) - (let ((__tmp128974 - (let ((__tmp128975 - (let ((__tmp128978 + (lambda (_stx120539_) + (letrec ((_case-lambda-clause-def120541_ + (lambda (_id121258_ _impl121259_) + (let ((__tmp128979 + (let ((__tmp128980 + (let ((__tmp128983 (let () (declare (not safe)) - (cons _id121253_ '()))) - (__tmp128976 - (let ((__tmp128977 + (cons _id121258_ '()))) + (__tmp128981 + (let ((__tmp128982 (let () (declare (not safe)) (gxc#compile-e__0 - _impl121254_)))) + _impl121259_)))) (declare (not safe)) - (cons __tmp128977 '())))) + (cons __tmp128982 '())))) (declare (not safe)) - (cons __tmp128978 __tmp128976)))) + (cons __tmp128983 __tmp128981)))) (declare (not safe)) - (cons '%#define-values __tmp128975)))) + (cons '%#define-values __tmp128980)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp128974 _stx120534_)))) - (_opt-lambda-dispatch-name120537_ - (lambda (_id121249_) - (if (uninterned-symbol? _id121249_) - (let ((_str121251_ (symbol->string _id121249_))) + (gxc#xform-wrap-source __tmp128979 _stx120539_)))) + (_opt-lambda-dispatch-name120542_ + (lambda (_id121254_) + (if (uninterned-symbol? _id121254_) + (let ((_str121256_ (symbol->string _id121254_))) (if (let () (declare (not safe)) - (string-prefix? '"opt-lambda" _str121251_)) + (string-prefix? '"opt-lambda" _str121256_)) '"%" - _id121249_)) - _id121249_))) - (_kw-lambda-dispatch-name120538_ - (lambda (_id121244_ _name121245_) - (if (uninterned-symbol? _id121244_) - (let ((_str121247_ (symbol->string _id121244_))) + _id121254_)) + _id121254_))) + (_kw-lambda-dispatch-name120543_ + (lambda (_id121249_ _name121250_) + (if (uninterned-symbol? _id121249_) + (let ((_str121252_ (symbol->string _id121249_))) (if (let () (declare (not safe)) - (string-prefix? '"kw-lambda" _str121247_)) - _name121245_ - _id121244_)) - _id121244_)))) - (let* ((___stx128324128325_ _stx120534_) - (_g120543120602_ + (string-prefix? '"kw-lambda" _str121252_)) + _name121250_ + _id121249_)) + _id121249_)))) + (let* ((___stx128329128330_ _stx120539_) + (_g120548120607_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx128324128325_))))) - (let ((___kont128326128327_ - (lambda (_L121153_ _L121154_) - (let* ((___stx128304128305_ _L121153_) - (_g121171121185_ + ___stx128329128330_))))) + (let ((___kont128331128332_ + (lambda (_L121158_ _L121159_) + (let* ((___stx128309128310_ _L121158_) + (_g121176121190_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx128304128305_))))) - (let ((___kont128306128307_ - (lambda (_L121229_) _stx120534_)) - (___kont128308128309_ - (lambda (_L121198_) - (let ((_g128979_ + ___stx128309128310_))))) + (let ((___kont128311128312_ + (lambda (_L121234_) _stx120539_)) + (___kont128313128314_ + (lambda (_L121203_) + (let ((_g128984_ (let () (declare (not safe)) (gxc#lift-case-lambda-clauses__0 - _stx120534_ - _L121154_ - _L121198_)))) + _stx120539_ + _L121159_ + _L121203_)))) (begin - (let ((_g128980_ + (let ((_g128985_ (let () (declare (not safe)) - (if (##values? _g128979_) - (##vector-length _g128979_) + (if (##values? _g128984_) + (##vector-length _g128984_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g128980_ 3))) + (##fx= _g128985_ 3))) (error "Context expects 3 values" - _g128980_))) - (let ((_ids121208_ + _g128985_))) + (let ((_ids121213_ (let () (declare (not safe)) - (##vector-ref _g128979_ 0))) - (_impls121209_ + (##vector-ref _g128984_ 0))) + (_impls121214_ (let () (declare (not safe)) - (##vector-ref _g128979_ 1))) - (_clauses121210_ + (##vector-ref _g128984_ 1))) + (_clauses121215_ (let () (declare (not safe)) - (##vector-ref _g128979_ 2)))) - (let* ((_g128981_ + (##vector-ref _g128984_ 2)))) + (let* ((_g128986_ (for-each gx#core-bind-runtime! - _ids121208_)) - (_defs121213_ - (map _case-lambda-clause-def120536_ - _ids121208_ - _impls121209_))) - (let ((__tmp128983 + _ids121213_)) + (_defs121218_ + (map _case-lambda-clause-def120541_ + _ids121213_ + _impls121214_))) + (let ((__tmp128988 (let () (declare (not safe)) (gxc#identifier-symbol - _L121154_))) - (__tmp128982 + _L121159_))) + (__tmp128987 (map gxc#identifier-symbol - _ids121208_))) + _ids121213_))) (declare (not safe)) (gxc#verbose '"lift case-lambda clauses " - __tmp128983 + __tmp128988 '" => " - __tmp128982)) - (let ((__tmp128984 - (let ((__tmp128985 - (let ((__tmp128986 - (let ((__tmp128987 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp128988 - (let ((__tmp128989 - (let ((__tmp128994 + __tmp128987)) + (let ((__tmp128989 + (let ((__tmp128990 + (let ((__tmp128991 + (let ((__tmp128992 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp128993 + (let ((__tmp128994 + (let ((__tmp128999 (let () (declare (not safe)) - (cons _L121154_ '()))) - (__tmp128990 - (let ((__tmp128991 - (let ((__tmp128993 + (cons _L121159_ '()))) + (__tmp128995 + (let ((__tmp128996 + (let ((__tmp128998 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons '%#case-lambda _clauses121210_))) - (__tmp128992 + (cons '%#case-lambda _clauses121215_))) + (__tmp128997 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'case-lambda-expr)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp128993 __tmp128992)))) + (gxc#xform-wrap-source __tmp128998 __tmp128997)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp128991 '())))) + (cons __tmp128996 '())))) (declare (not safe)) - (cons __tmp128994 __tmp128990)))) + (cons __tmp128999 __tmp128995)))) (declare (not safe)) - (cons '%#define-values __tmp128989)))) + (cons '%#define-values __tmp128994)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp128988 - _stx120534_)))) + __tmp128993 + _stx120539_)))) (declare (not safe)) - (cons __tmp128987 '())))) + (cons __tmp128992 '())))) (declare (not safe)) - (foldr1 cons __tmp128986 _defs121213_)))) + (foldr1 cons __tmp128991 _defs121218_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#begin __tmp128985)))) + (cons '%#begin __tmp128990)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp128984 - _stx120534_))))))))) - (let ((___match128315128316_ - (lambda (_e121176121221_ - _hd121175121224_ - _tl121174121226_) - (let ((_L121229_ _tl121174121226_)) + __tmp128989 + _stx120539_))))))))) + (let ((___match128320128321_ + (lambda (_e121181121226_ + _hd121180121229_ + _tl121179121231_) + (let ((_L121234_ _tl121179121231_)) (if (let () (declare (not safe)) (andmap1 gxc#dispatch-lambda-form? - _L121229_)) - (___kont128306128307_ _L121229_) - (___kont128308128309_ - _tl121174121226_)))))) + _L121234_)) + (___kont128311128312_ _L121234_) + (___kont128313128314_ + _tl121179121231_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx128304128305_)) - (let ((_e121176121221_ + (gx#stx-pair? ___stx128309128310_)) + (let ((_e121181121226_ (let () (declare (not safe)) - (gx#stx-e ___stx128304128305_)))) - (let ((_tl121174121226_ + (gx#stx-e ___stx128309128310_)))) + (let ((_tl121179121231_ (let () (declare (not safe)) - (##cdr _e121176121221_))) - (_hd121175121224_ + (##cdr _e121181121226_))) + (_hd121180121229_ (let () (declare (not safe)) - (##car _e121176121221_)))) - (___match128315128316_ - _e121176121221_ - _hd121175121224_ - _tl121174121226_))) + (##car _e121181121226_)))) + (___match128320128321_ + _e121181121226_ + _hd121180121229_ + _tl121179121231_))) (let () (declare (not safe)) - (_g121171121185_)))))))) - (___kont128328128329_ - (lambda (_L120971_ _L120972_) - (let* ((_g120988121018_ - (lambda (_g120989121015_) + (_g121176121190_)))))))) + (___kont128333128334_ + (lambda (_L120976_ _L120977_) + (let* ((_g120993121023_ + (lambda (_g120994121020_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g120989121015_)))) - (_g120987121113_ - (lambda (_g120989121021_) + _g120994121020_)))) + (_g120992121118_ + (lambda (_g120994121026_) (if (let () (declare (not safe)) - (gx#stx-pair? _g120989121021_)) - (let ((_e120995121023_ + (gx#stx-pair? _g120994121026_)) + (let ((_e121000121028_ (let () (declare (not safe)) - (gx#stx-e _g120989121021_)))) - (let ((_hd120994121026_ + (gx#stx-e _g120994121026_)))) + (let ((_hd120999121031_ (let () (declare (not safe)) - (##car _e120995121023_))) - (_tl120993121028_ + (##car _e121000121028_))) + (_tl120998121033_ (let () (declare (not safe)) - (##cdr _e120995121023_)))) + (##cdr _e121000121028_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl120993121028_)) - (let ((_e120998121031_ + (gx#stx-pair? _tl120998121033_)) + (let ((_e121003121036_ (let () (declare (not safe)) (gx#stx-e - _tl120993121028_)))) - (let ((_hd120997121034_ + _tl120998121033_)))) + (let ((_hd121002121039_ (let () (declare (not safe)) - (##car _e120998121031_))) - (_tl120996121036_ + (##car _e121003121036_))) + (_tl121001121041_ (let () (declare (not safe)) - (##cdr _e120998121031_)))) + (##cdr _e121003121036_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd120997121034_)) - (let ((_e121001121039_ + _hd121002121039_)) + (let ((_e121006121044_ (let () (declare (not safe)) (gx#stx-e - _hd120997121034_)))) - (let ((_hd121000121042_ + _hd121002121039_)))) + (let ((_hd121005121047_ (let () (declare (not safe)) - (##car _e121001121039_))) - (_tl120999121044_ + (##car _e121006121044_))) + (_tl121004121049_ (let () (declare (not safe)) - (##cdr _e121001121039_)))) + (##cdr _e121006121044_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd121000121042_)) - (let ((_e121004121047_ + _hd121005121047_)) + (let ((_e121009121052_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd121000121042_)))) - (let ((_hd121003121050_ + (gx#stx-e _hd121005121047_)))) + (let ((_hd121008121055_ (let () (declare (not safe)) - (##car _e121004121047_))) - (_tl121002121052_ + (##car _e121009121052_))) + (_tl121007121057_ (let () (declare (not safe)) - (##cdr _e121004121047_)))) + (##cdr _e121009121052_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd121003121050_)) - (let ((_e121007121055_ + (gx#stx-pair? _hd121008121055_)) + (let ((_e121012121060_ (let () (declare (not safe)) - (gx#stx-e _hd121003121050_)))) - (let ((_hd121006121058_ + (gx#stx-e _hd121008121055_)))) + (let ((_hd121011121063_ (let () (declare (not safe)) - (##car _e121007121055_))) - (_tl121005121060_ + (##car _e121012121060_))) + (_tl121010121065_ (let () (declare (not safe)) - (##cdr _e121007121055_)))) + (##cdr _e121012121060_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl121005121060_)) + (gx#stx-null? _tl121010121065_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl121002121052_)) - (let ((_e121010121063_ + (gx#stx-pair? _tl121007121057_)) + (let ((_e121015121068_ (let () (declare (not safe)) - (gx#stx-e _tl121002121052_)))) - (let ((_hd121009121066_ + (gx#stx-e _tl121007121057_)))) + (let ((_hd121014121071_ (let () (declare (not safe)) - (##car _e121010121063_))) - (_tl121008121068_ + (##car _e121015121068_))) + (_tl121013121073_ (let () (declare (not safe)) - (##cdr _e121010121063_)))) + (##cdr _e121015121068_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl121008121068_)) + _tl121013121073_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl120999121044_)) + _tl121004121049_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl120996121036_)) - (let ((_e121013121071_ + _tl121001121041_)) + (let ((_e121018121076_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl120996121036_)))) - (let ((_hd121012121074_ - (let () (declare (not safe)) (##car _e121013121071_))) - (_tl121011121076_ - (let () (declare (not safe)) (##cdr _e121013121071_)))) + (gx#stx-e _tl121001121041_)))) + (let ((_hd121017121079_ + (let () (declare (not safe)) (##car _e121018121076_))) + (_tl121016121081_ + (let () (declare (not safe)) (##cdr _e121018121076_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl121011121076_)) - ((lambda (_L121079_ _L121080_ _L121081_) - (let* ((_lambda-id121105_ - (let ((__tmp128997 + (gx#stx-null? _tl121016121081_)) + ((lambda (_L121084_ _L121085_ _L121086_) + (let* ((_lambda-id121110_ + (let ((__tmp129002 (let () (declare (not safe)) - (gx#stx-e _L120972_))) - (__tmp128995 - (let ((__tmp128996 + (gx#stx-e _L120977_))) + (__tmp129000 + (let ((__tmp129001 (let () (declare (not safe)) - (gx#stx-e _L121081_)))) + (gx#stx-e _L121086_)))) (declare (not safe)) - (_opt-lambda-dispatch-name120537_ - __tmp128996)))) + (_opt-lambda-dispatch-name120542_ + __tmp129001)))) (declare (not safe)) (make-symbol__1 - __tmp128997 + __tmp129002 '"__" - __tmp128995))) - (_lambda-id121107_ - (let ((__tmp128998 + __tmp129000))) + (_lambda-id121112_ + (let ((__tmp129003 (let () (declare (not safe)) - (gx#stx-source _stx120534_)))) + (gx#stx-source _stx120539_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _lambda-id121105_ - __tmp128998))) - (_g128999_ + _lambda-id121110_ + __tmp129003))) + (_g129004_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _lambda-id121107_))) - (_new-case-lambda-expr121110_ + _lambda-id121112_))) + (_new-case-lambda-expr121115_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L121079_ - _L121081_ - _lambda-id121107_)))) - (let ((__tmp129001 + _L121084_ + _L121086_ + _lambda-id121112_)))) + (let ((__tmp129006 (let () (declare (not safe)) - (gxc#identifier-symbol _L120972_))) - (__tmp129000 + (gxc#identifier-symbol _L120977_))) + (__tmp129005 (let () (declare (not safe)) (gxc#identifier-symbol - _lambda-id121107_)))) + _lambda-id121112_)))) (declare (not safe)) (gxc#verbose '"lift opt-lambda dispatch " - __tmp129001 + __tmp129006 '" => " - __tmp129000)) - (let ((__tmp129002 - (let ((__tmp129003 - (let ((__tmp129011 - (let ((__tmp129012 - (let ((__tmp129013 - (let ((__tmp129016 + __tmp129005)) + (let ((__tmp129007 + (let ((__tmp129008 + (let ((__tmp129016 + (let ((__tmp129017 + (let ((__tmp129018 + (let ((__tmp129021 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _lambda-id121107_ '()))) - (__tmp129014 - (let ((__tmp129015 + (cons _lambda-id121112_ '()))) + (__tmp129019 + (let ((__tmp129020 (let () (declare (not safe)) - (gxc#compile-e__0 _L121080_)))) + (gxc#compile-e__0 _L121085_)))) (declare (not safe)) - (cons __tmp129015 '())))) + (cons __tmp129020 '())))) (declare (not safe)) - (cons __tmp129016 __tmp129014)))) + (cons __tmp129021 __tmp129019)))) (declare (not safe)) - (cons '%#define-values __tmp129013)))) + (cons '%#define-values __tmp129018)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp129012 - _stx120534_))) - (__tmp129004 - (let ((__tmp129005 - (let ((__tmp129006 - (let ((__tmp129007 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp129008 - (let ((__tmp129010 + __tmp129017 + _stx120539_))) + (__tmp129009 + (let ((__tmp129010 + (let ((__tmp129011 + (let ((__tmp129012 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp129013 + (let ((__tmp129015 (let () (declare (not safe)) - (cons _L120972_ '()))) - (__tmp129009 + (cons _L120977_ '()))) + (__tmp129014 (let () (declare (not safe)) - (cons _new-case-lambda-expr121110_ + (cons _new-case-lambda-expr121115_ '())))) (declare (not safe)) - (cons __tmp129010 __tmp129009)))) + (cons __tmp129015 __tmp129014)))) (declare (not safe)) - (cons '%#define-values __tmp129008)))) + (cons '%#define-values __tmp129013)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp129007 _stx120534_)))) + (gxc#xform-wrap-source __tmp129012 _stx120539_)))) (declare (not safe)) - (gxc#lift-top-lambda-define-values% __tmp129006)))) + (gxc#lift-top-lambda-define-values% __tmp129011)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp129005 '())))) + (cons __tmp129010 '())))) (declare (not safe)) - (cons __tmp129011 __tmp129004)))) + (cons __tmp129016 __tmp129009)))) (declare (not safe)) - (cons '%#begin __tmp129003)))) + (cons '%#begin __tmp129008)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp129002 - _stx120534_)))) - _hd121012121074_ - _hd121009121066_ - _hd121006121058_) + __tmp129007 + _stx120539_)))) + _hd121017121079_ + _hd121014121071_ + _hd121011121063_) (let () (declare (not safe)) - (_g120988121018_ _g120989121021_))))) - (let () (declare (not safe)) (_g120988121018_ _g120989121021_))) + (_g120993121023_ _g120994121026_))))) + (let () (declare (not safe)) (_g120993121023_ _g120994121026_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g120988121018_ - _g120989121021_))) + (_g120993121023_ + _g120994121026_))) (let () (declare (not safe)) - (_g120988121018_ - _g120989121021_))))) + (_g120993121023_ + _g120994121026_))))) (let () (declare (not safe)) - (_g120988121018_ _g120989121021_))) + (_g120993121023_ _g120994121026_))) (let () (declare (not safe)) - (_g120988121018_ _g120989121021_))))) + (_g120993121023_ _g120994121026_))))) (let () (declare (not safe)) - (_g120988121018_ _g120989121021_))))) + (_g120993121023_ _g120994121026_))))) (let () (declare (not safe)) - (_g120988121018_ _g120989121021_))))) + (_g120993121023_ _g120994121026_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g120988121018_ - _g120989121021_))))) + (_g120993121023_ + _g120994121026_))))) (let () (declare (not safe)) - (_g120988121018_ - _g120989121021_))))) + (_g120993121023_ + _g120994121026_))))) (let () (declare (not safe)) - (_g120988121018_ _g120989121021_)))))) + (_g120993121023_ _g120994121026_)))))) (declare (not safe)) - (_g120987121113_ _L120971_)))) - (___kont128330128331_ - (lambda (_L120685_ _L120686_) - (let* ((_g120702120755_ - (lambda (_g120703120752_) + (_g120992121118_ _L120976_)))) + (___kont128335128336_ + (lambda (_L120690_ _L120691_) + (let* ((_g120707120760_ + (lambda (_g120708120757_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g120703120752_)))) - (_g120701120931_ - (lambda (_g120703120758_) + _g120708120757_)))) + (_g120706120936_ + (lambda (_g120708120763_) (if (let () (declare (not safe)) - (gx#stx-pair? _g120703120758_)) - (let ((_e120711120760_ + (gx#stx-pair? _g120708120763_)) + (let ((_e120716120765_ (let () (declare (not safe)) - (gx#stx-e _g120703120758_)))) - (let ((_hd120710120763_ + (gx#stx-e _g120708120763_)))) + (let ((_hd120715120768_ (let () (declare (not safe)) - (##car _e120711120760_))) - (_tl120709120765_ + (##car _e120716120765_))) + (_tl120714120770_ (let () (declare (not safe)) - (##cdr _e120711120760_)))) + (##cdr _e120716120765_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl120709120765_)) - (let ((_e120714120768_ + (gx#stx-pair? _tl120714120770_)) + (let ((_e120719120773_ (let () (declare (not safe)) (gx#stx-e - _tl120709120765_)))) - (let ((_hd120713120771_ + _tl120714120770_)))) + (let ((_hd120718120776_ (let () (declare (not safe)) - (##car _e120714120768_))) - (_tl120712120773_ + (##car _e120719120773_))) + (_tl120717120778_ (let () (declare (not safe)) - (##cdr _e120714120768_)))) + (##cdr _e120719120773_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd120713120771_)) - (let ((_e120717120776_ + _hd120718120776_)) + (let ((_e120722120781_ (let () (declare (not safe)) (gx#stx-e - _hd120713120771_)))) - (let ((_hd120716120779_ + _hd120718120776_)))) + (let ((_hd120721120784_ (let () (declare (not safe)) - (##car _e120717120776_))) - (_tl120715120781_ + (##car _e120722120781_))) + (_tl120720120786_ (let () (declare (not safe)) - (##cdr _e120717120776_)))) + (##cdr _e120722120781_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd120716120779_)) - (let ((_e120720120784_ + _hd120721120784_)) + (let ((_e120725120789_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd120716120779_)))) - (let ((_hd120719120787_ + (gx#stx-e _hd120721120784_)))) + (let ((_hd120724120792_ (let () (declare (not safe)) - (##car _e120720120784_))) - (_tl120718120789_ + (##car _e120725120789_))) + (_tl120723120794_ (let () (declare (not safe)) - (##cdr _e120720120784_)))) + (##cdr _e120725120789_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd120719120787_)) - (let ((_e120723120792_ + (gx#stx-pair? _hd120724120792_)) + (let ((_e120728120797_ (let () (declare (not safe)) - (gx#stx-e _hd120719120787_)))) - (let ((_hd120722120795_ + (gx#stx-e _hd120724120792_)))) + (let ((_hd120727120800_ (let () (declare (not safe)) - (##car _e120723120792_))) - (_tl120721120797_ + (##car _e120728120797_))) + (_tl120726120802_ (let () (declare (not safe)) - (##cdr _e120723120792_)))) + (##cdr _e120728120797_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl120721120797_)) + (gx#stx-null? _tl120726120802_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl120718120789_)) - (let ((_e120726120800_ + (gx#stx-pair? _tl120723120794_)) + (let ((_e120731120805_ (let () (declare (not safe)) - (gx#stx-e _tl120718120789_)))) - (let ((_hd120725120803_ + (gx#stx-e _tl120723120794_)))) + (let ((_hd120730120808_ (let () (declare (not safe)) - (##car _e120726120800_))) - (_tl120724120805_ + (##car _e120731120805_))) + (_tl120729120810_ (let () (declare (not safe)) - (##cdr _e120726120800_)))) + (##cdr _e120731120805_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd120725120803_)) - (let ((_e120729120808_ + _hd120730120808_)) + (let ((_e120734120813_ (let () (declare (not safe)) (gx#stx-e - _hd120725120803_)))) - (let ((_hd120728120811_ + _hd120730120808_)))) + (let ((_hd120733120816_ (let () (declare (not safe)) - (##car _e120729120808_))) - (_tl120727120813_ + (##car _e120734120813_))) + (_tl120732120818_ (let () (declare (not safe)) - (##cdr _e120729120808_)))) + (##cdr _e120734120813_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl120727120813_)) - (let ((_e120732120816_ + _tl120732120818_)) + (let ((_e120737120821_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl120727120813_)))) - (let ((_hd120731120819_ - (let () (declare (not safe)) (##car _e120732120816_))) - (_tl120730120821_ - (let () (declare (not safe)) (##cdr _e120732120816_)))) + (gx#stx-e _tl120732120818_)))) + (let ((_hd120736120824_ + (let () (declare (not safe)) (##car _e120737120821_))) + (_tl120735120826_ + (let () (declare (not safe)) (##cdr _e120737120821_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd120731120819_)) - (let ((_e120735120824_ + (gx#stx-pair? _hd120736120824_)) + (let ((_e120740120829_ (let () (declare (not safe)) - (gx#stx-e _hd120731120819_)))) - (let ((_hd120734120827_ + (gx#stx-e _hd120736120824_)))) + (let ((_hd120739120832_ (let () (declare (not safe)) - (##car _e120735120824_))) - (_tl120733120829_ + (##car _e120740120829_))) + (_tl120738120834_ (let () (declare (not safe)) - (##cdr _e120735120824_)))) + (##cdr _e120740120829_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd120734120827_)) - (let ((_e120738120832_ + (gx#stx-pair? _hd120739120832_)) + (let ((_e120743120837_ (let () (declare (not safe)) - (gx#stx-e _hd120734120827_)))) - (let ((_hd120737120835_ + (gx#stx-e _hd120739120832_)))) + (let ((_hd120742120840_ (let () (declare (not safe)) - (##car _e120738120832_))) - (_tl120736120837_ + (##car _e120743120837_))) + (_tl120741120842_ (let () (declare (not safe)) - (##cdr _e120738120832_)))) + (##cdr _e120743120837_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd120737120835_)) - (let ((_e120741120840_ + (gx#stx-pair? _hd120742120840_)) + (let ((_e120746120845_ (let () (declare (not safe)) - (gx#stx-e _hd120737120835_)))) - (let ((_hd120740120843_ + (gx#stx-e _hd120742120840_)))) + (let ((_hd120745120848_ (let () (declare (not safe)) - (##car _e120741120840_))) - (_tl120739120845_ + (##car _e120746120845_))) + (_tl120744120850_ (let () (declare (not safe)) - (##cdr _e120741120840_)))) + (##cdr _e120746120845_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl120739120845_)) + _tl120744120850_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl120736120837_)) - (let ((_e120744120848_ + _tl120741120842_)) + (let ((_e120749120853_ (let () (declare (not safe)) (gx#stx-e - _tl120736120837_)))) - (let ((_hd120743120851_ + _tl120741120842_)))) + (let ((_hd120748120856_ (let () (declare (not safe)) - (##car _e120744120848_))) - (_tl120742120853_ + (##car _e120749120853_))) + (_tl120747120858_ (let () (declare (not safe)) - (##cdr _e120744120848_)))) + (##cdr _e120749120853_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl120742120853_)) + _tl120747120858_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-null? _tl120733120829_)) + (gx#stx-null? _tl120738120834_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl120730120821_)) - (let ((_e120747120856_ + (gx#stx-pair? _tl120735120826_)) + (let ((_e120752120861_ (let () (declare (not safe)) - (gx#stx-e _tl120730120821_)))) - (let ((_hd120746120859_ + (gx#stx-e _tl120735120826_)))) + (let ((_hd120751120864_ (let () (declare (not safe)) - (##car _e120747120856_))) - (_tl120745120861_ + (##car _e120752120861_))) + (_tl120750120866_ (let () (declare (not safe)) - (##cdr _e120747120856_)))) + (##cdr _e120752120861_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl120745120861_)) + (gx#stx-null? _tl120750120866_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl120724120805_)) + (gx#stx-null? _tl120729120810_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl120715120781_)) + (gx#stx-null? _tl120720120786_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl120712120773_)) - (let ((_e120750120864_ + _tl120717120778_)) + (let ((_e120755120869_ (let () (declare (not safe)) (gx#stx-e - _tl120712120773_)))) - (let ((_hd120749120867_ + _tl120717120778_)))) + (let ((_hd120754120872_ (let () (declare (not safe)) - (##car _e120750120864_))) - (_tl120748120869_ + (##car _e120755120869_))) + (_tl120753120874_ (let () (declare (not safe)) - (##cdr _e120750120864_)))) + (##cdr _e120755120869_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl120748120869_)) - ((lambda (_L120872_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L120873_ - _L120874_ - _L120875_ - _L120876_) - (let* ((_get-kws-id120916_ - (let ((__tmp129019 + _tl120753120874_)) + ((lambda (_L120877_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _L120878_ + _L120879_ + _L120880_ + _L120881_) + (let* ((_get-kws-id120921_ + (let ((__tmp129024 (let () (declare (not safe)) - (gx#stx-e _L120686_))) - (__tmp129017 - (let ((__tmp129018 + (gx#stx-e _L120691_))) + (__tmp129022 + (let ((__tmp129023 (let () (declare (not safe)) - (gx#stx-e _L120876_)))) + (gx#stx-e _L120881_)))) (declare (not safe)) - (_kw-lambda-dispatch-name120538_ - __tmp129018 + (_kw-lambda-dispatch-name120543_ + __tmp129023 '"@")))) (declare (not safe)) - (make-symbol__1 __tmp129019 '"__" __tmp129017))) - (_get-kws-id120918_ - (let ((__tmp129020 + (make-symbol__1 __tmp129024 '"__" __tmp129022))) + (_get-kws-id120923_ + (let ((__tmp129025 (let () (declare (not safe)) - (gx#stx-source _stx120534_)))) + (gx#stx-source _stx120539_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _get-kws-id120916_ - __tmp129020))) - (_main-id120920_ - (let ((__tmp129023 + _get-kws-id120921_ + __tmp129025))) + (_main-id120925_ + (let ((__tmp129028 (let () (declare (not safe)) - (gx#stx-e _L120686_))) - (__tmp129021 - (let ((__tmp129022 + (gx#stx-e _L120691_))) + (__tmp129026 + (let ((__tmp129027 (let () (declare (not safe)) - (gx#stx-e _L120875_)))) + (gx#stx-e _L120880_)))) (declare (not safe)) - (_kw-lambda-dispatch-name120538_ - __tmp129022 + (_kw-lambda-dispatch-name120543_ + __tmp129027 '"%")))) (declare (not safe)) - (make-symbol__1 __tmp129023 '"__" __tmp129021))) - (_main-id120922_ - (let ((__tmp129024 + (make-symbol__1 __tmp129028 '"__" __tmp129026))) + (_main-id120927_ + (let ((__tmp129029 (let () (declare (not safe)) - (gx#stx-source _stx120534_)))) + (gx#stx-source _stx120539_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _main-id120920_ - __tmp129024))) - (_g129025_ + _main-id120925_ + __tmp129029))) + (_g129030_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _get-kws-id120918_))) - (_g129026_ + (gx#core-bind-runtime!__0 _get-kws-id120923_))) + (_g129031_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _main-id120922_))) - (_new-kw-dispatch120926_ + (gx#core-bind-runtime!__0 _main-id120927_))) + (_new-kw-dispatch120931_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L120872_ - _L120876_ - _get-kws-id120918_))) - (_new-get-kws120928_ + _L120877_ + _L120881_ + _get-kws-id120923_))) + (_new-get-kws120933_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L120873_ - _L120875_ - _main-id120922_)))) - (let ((__tmp129029 + _L120878_ + _L120880_ + _main-id120927_)))) + (let ((__tmp129034 (let () (declare (not safe)) - (gxc#identifier-symbol _L120686_))) - (__tmp129028 + (gxc#identifier-symbol _L120691_))) + (__tmp129033 (let () (declare (not safe)) - (gxc#identifier-symbol _get-kws-id120918_))) - (__tmp129027 + (gxc#identifier-symbol _get-kws-id120923_))) + (__tmp129032 (let () (declare (not safe)) - (gxc#identifier-symbol _main-id120922_)))) + (gxc#identifier-symbol _main-id120927_)))) (declare (not safe)) (gxc#verbose '"lift kw-lambda dispatch " - __tmp129029 + __tmp129034 '" => " - __tmp129028 + __tmp129033 '" => " - __tmp129027)) - (let ((__tmp129030 - (let ((__tmp129031 - (let ((__tmp129044 - (let ((__tmp129045 - (let ((__tmp129046 - (let ((__tmp129047 - (let ((__tmp129049 + __tmp129032)) + (let ((__tmp129035 + (let ((__tmp129036 + (let ((__tmp129049 + (let ((__tmp129050 + (let ((__tmp129051 + (let ((__tmp129052 + (let ((__tmp129054 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _main-id120922_ '()))) - (__tmp129048 + (cons _main-id120927_ '()))) + (__tmp129053 (let () (declare (not safe)) - (cons _L120874_ '())))) + (cons _L120879_ '())))) (declare (not safe)) - (cons __tmp129049 __tmp129048)))) + (cons __tmp129054 __tmp129053)))) (declare (not safe)) - (cons '%#define-values __tmp129047)))) + (cons '%#define-values __tmp129052)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp129046 - _stx120534_)))) + __tmp129051 + _stx120539_)))) (declare (not safe)) (gxc#lift-top-lambda-define-values% - __tmp129045))) - (__tmp129032 - (let ((__tmp129039 - (let ((__tmp129040 - (let ((__tmp129041 - (let ((__tmp129043 + __tmp129050))) + (__tmp129037 + (let ((__tmp129044 + (let ((__tmp129045 + (let ((__tmp129046 + (let ((__tmp129048 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _get-kws-id120918_ '()))) - (__tmp129042 + (cons _get-kws-id120923_ '()))) + (__tmp129047 (let () (declare (not safe)) - (cons _new-get-kws120928_ '())))) + (cons _new-get-kws120933_ '())))) (declare (not safe)) - (cons __tmp129043 __tmp129042)))) + (cons __tmp129048 __tmp129047)))) (declare (not safe)) - (cons '%#define-values __tmp129041)))) + (cons '%#define-values __tmp129046)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp129040 - _stx120534_))) - (__tmp129033 - (let ((__tmp129034 - (let ((__tmp129035 - (let ((__tmp129036 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp129038 + __tmp129045 + _stx120539_))) + (__tmp129038 + (let ((__tmp129039 + (let ((__tmp129040 + (let ((__tmp129041 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp129043 (let () (declare (not safe)) - (cons _L120686_ '()))) - (__tmp129037 + (cons _L120691_ '()))) + (__tmp129042 (let () (declare (not safe)) - (cons _new-kw-dispatch120926_ '())))) + (cons _new-kw-dispatch120931_ '())))) (declare (not safe)) - (cons __tmp129038 __tmp129037)))) + (cons __tmp129043 __tmp129042)))) (declare (not safe)) - (cons '%#define-values __tmp129036)))) + (cons '%#define-values __tmp129041)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp129035 _stx120534_)))) + (gxc#xform-wrap-source __tmp129040 _stx120539_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp129034 '())))) + (cons __tmp129039 '())))) (declare (not safe)) - (cons __tmp129039 __tmp129033)))) + (cons __tmp129044 __tmp129038)))) (declare (not safe)) - (cons __tmp129044 __tmp129032)))) + (cons __tmp129049 __tmp129037)))) (declare (not safe)) - (cons '%#begin __tmp129031)))) + (cons '%#begin __tmp129036)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp129030 _stx120534_)))) - _hd120749120867_ - _hd120746120859_ - _hd120743120851_ - _hd120740120843_ - _hd120722120795_) + (gxc#xform-wrap-source __tmp129035 _stx120539_)))) + _hd120754120872_ + _hd120751120864_ + _hd120748120856_ + _hd120745120848_ + _hd120727120800_) (let () (declare (not safe)) - (_g120702120755_ _g120703120758_))))) + (_g120707120760_ _g120708120763_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g120702120755_ - _g120703120758_))) + (_g120707120760_ + _g120708120763_))) (let () (declare (not safe)) - (_g120702120755_ - _g120703120758_))) + (_g120707120760_ + _g120708120763_))) (let () (declare (not safe)) - (_g120702120755_ _g120703120758_))) + (_g120707120760_ _g120708120763_))) (let () (declare (not safe)) - (_g120702120755_ _g120703120758_))))) + (_g120707120760_ _g120708120763_))))) (let () (declare (not safe)) - (_g120702120755_ _g120703120758_))) + (_g120707120760_ _g120708120763_))) (let () (declare (not safe)) - (_g120702120755_ _g120703120758_))) + (_g120707120760_ _g120708120763_))) (let () (declare (not safe)) - (_g120702120755_ _g120703120758_))))) + (_g120707120760_ _g120708120763_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g120702120755_ - _g120703120758_))) + (_g120707120760_ + _g120708120763_))) (let () (declare (not safe)) - (_g120702120755_ - _g120703120758_))))) + (_g120707120760_ + _g120708120763_))))) (let () (declare (not safe)) - (_g120702120755_ _g120703120758_))))) + (_g120707120760_ _g120708120763_))))) (let () (declare (not safe)) - (_g120702120755_ _g120703120758_))))) + (_g120707120760_ _g120708120763_))))) (let () (declare (not safe)) - (_g120702120755_ _g120703120758_))))) + (_g120707120760_ _g120708120763_))))) (let () (declare (not safe)) - (_g120702120755_ _g120703120758_))))) + (_g120707120760_ _g120708120763_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g120702120755_ - _g120703120758_))))) + (_g120707120760_ + _g120708120763_))))) (let () (declare (not safe)) - (_g120702120755_ _g120703120758_))) + (_g120707120760_ _g120708120763_))) (let () (declare (not safe)) - (_g120702120755_ _g120703120758_))))) + (_g120707120760_ _g120708120763_))))) (let () (declare (not safe)) - (_g120702120755_ _g120703120758_))))) + (_g120707120760_ _g120708120763_))))) (let () (declare (not safe)) - (_g120702120755_ _g120703120758_))))) + (_g120707120760_ _g120708120763_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g120702120755_ - _g120703120758_))))) + (_g120707120760_ + _g120708120763_))))) (let () (declare (not safe)) - (_g120702120755_ - _g120703120758_))))) + (_g120707120760_ + _g120708120763_))))) (let () (declare (not safe)) - (_g120702120755_ _g120703120758_)))))) + (_g120707120760_ _g120708120763_)))))) (declare (not safe)) - (_g120701120931_ _L120685_)))) - (___kont128332128333_ - (lambda (_L120631_ _L120632_) - (let ((__tmp129050 - (let ((__tmp129051 - (let ((__tmp129052 - (let ((__tmp129053 + (_g120706120936_ _L120690_)))) + (___kont128337128338_ + (lambda (_L120636_ _L120637_) + (let ((__tmp129055 + (let ((__tmp129056 + (let ((__tmp129057 + (let ((__tmp129058 (let () (declare (not safe)) (gxc#compile-e__0 - _L120631_)))) + _L120636_)))) (declare (not safe)) - (cons __tmp129053 '())))) + (cons __tmp129058 '())))) (declare (not safe)) - (cons _L120632_ __tmp129052)))) + (cons _L120637_ __tmp129057)))) (declare (not safe)) - (cons '%#define-values __tmp129051)))) + (cons '%#define-values __tmp129056)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp129050 _stx120534_))))) - (let* ((___match128417128418_ - (lambda (_e120577120653_ - _hd120576120656_ - _tl120575120658_ - _e120580120661_ - _hd120579120664_ - _tl120578120666_ - _e120583120669_ - _hd120582120672_ - _tl120581120674_ - _e120586120677_ - _hd120585120680_ - _tl120584120682_) - (let ((_L120685_ _hd120585120680_) - (_L120686_ _hd120582120672_)) + (gxc#xform-wrap-source __tmp129055 _stx120539_))))) + (let* ((___match128422128423_ + (lambda (_e120582120658_ + _hd120581120661_ + _tl120580120663_ + _e120585120666_ + _hd120584120669_ + _tl120583120671_ + _e120588120674_ + _hd120587120677_ + _tl120586120679_ + _e120591120682_ + _hd120590120685_ + _tl120589120687_) + (let ((_L120690_ _hd120590120685_) + (_L120691_ _hd120587120677_)) (if (and (let () (declare (not safe)) - (gx#identifier? _L120686_)) + (gx#identifier? _L120691_)) (let () (declare (not safe)) - (gxc#kw-lambda-expr? _L120685_))) - (___kont128330128331_ _L120685_ _L120686_) - (___kont128332128333_ - _hd120585120680_ - _hd120579120664_))))) - (___match128389128390_ - (lambda (_e120563120939_ - _hd120562120942_ - _tl120561120944_ - _e120566120947_ - _hd120565120950_ - _tl120564120952_ - _e120569120955_ - _hd120568120958_ - _tl120567120960_ - _e120572120963_ - _hd120571120966_ - _tl120570120968_) - (let ((_L120971_ _hd120571120966_) - (_L120972_ _hd120568120958_)) + (gxc#kw-lambda-expr? _L120690_))) + (___kont128335128336_ _L120690_ _L120691_) + (___kont128337128338_ + _hd120590120685_ + _hd120584120669_))))) + (___match128394128395_ + (lambda (_e120568120944_ + _hd120567120947_ + _tl120566120949_ + _e120571120952_ + _hd120570120955_ + _tl120569120957_ + _e120574120960_ + _hd120573120963_ + _tl120572120965_ + _e120577120968_ + _hd120576120971_ + _tl120575120973_) + (let ((_L120976_ _hd120576120971_) + (_L120977_ _hd120573120963_)) (if (and (let () (declare (not safe)) - (gx#identifier? _L120972_)) + (gx#identifier? _L120977_)) (let () (declare (not safe)) - (gxc#opt-lambda-expr? _L120971_))) - (___kont128328128329_ _L120971_ _L120972_) - (___match128417128418_ - _e120563120939_ - _hd120562120942_ - _tl120561120944_ - _e120566120947_ - _hd120565120950_ - _tl120564120952_ - _e120569120955_ - _hd120568120958_ - _tl120567120960_ - _e120572120963_ - _hd120571120966_ - _tl120570120968_))))) - (___match128361128362_ - (lambda (_e120549121121_ - _hd120548121124_ - _tl120547121126_ - _e120552121129_ - _hd120551121132_ - _tl120550121134_ - _e120555121137_ - _hd120554121140_ - _tl120553121142_ - _e120558121145_ - _hd120557121148_ - _tl120556121150_) - (let ((_L121153_ _hd120557121148_) - (_L121154_ _hd120554121140_)) + (gxc#opt-lambda-expr? _L120976_))) + (___kont128333128334_ _L120976_ _L120977_) + (___match128422128423_ + _e120568120944_ + _hd120567120947_ + _tl120566120949_ + _e120571120952_ + _hd120570120955_ + _tl120569120957_ + _e120574120960_ + _hd120573120963_ + _tl120572120965_ + _e120577120968_ + _hd120576120971_ + _tl120575120973_))))) + (___match128366128367_ + (lambda (_e120554121126_ + _hd120553121129_ + _tl120552121131_ + _e120557121134_ + _hd120556121137_ + _tl120555121139_ + _e120560121142_ + _hd120559121145_ + _tl120558121147_ + _e120563121150_ + _hd120562121153_ + _tl120561121155_) + (let ((_L121158_ _hd120562121153_) + (_L121159_ _hd120559121145_)) (if (and (let () (declare (not safe)) - (gx#identifier? _L121154_)) + (gx#identifier? _L121159_)) (let () (declare (not safe)) - (gxc#case-lambda-expr? _L121153_))) - (___kont128326128327_ _L121153_ _L121154_) - (___match128389128390_ - _e120549121121_ - _hd120548121124_ - _tl120547121126_ - _e120552121129_ - _hd120551121132_ - _tl120550121134_ - _e120555121137_ - _hd120554121140_ - _tl120553121142_ - _e120558121145_ - _hd120557121148_ - _tl120556121150_)))))) + (gxc#case-lambda-expr? _L121158_))) + (___kont128331128332_ _L121158_ _L121159_) + (___match128394128395_ + _e120554121126_ + _hd120553121129_ + _tl120552121131_ + _e120557121134_ + _hd120556121137_ + _tl120555121139_ + _e120560121142_ + _hd120559121145_ + _tl120558121147_ + _e120563121150_ + _hd120562121153_ + _tl120561121155_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx128324128325_)) - (let ((_e120549121121_ + (gx#stx-pair? ___stx128329128330_)) + (let ((_e120554121126_ (let () (declare (not safe)) - (gx#stx-e ___stx128324128325_)))) - (let ((_tl120547121126_ + (gx#stx-e ___stx128329128330_)))) + (let ((_tl120552121131_ (let () (declare (not safe)) - (##cdr _e120549121121_))) - (_hd120548121124_ + (##cdr _e120554121126_))) + (_hd120553121129_ (let () (declare (not safe)) - (##car _e120549121121_)))) + (##car _e120554121126_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl120547121126_)) - (let ((_e120552121129_ + (gx#stx-pair? _tl120552121131_)) + (let ((_e120557121134_ (let () (declare (not safe)) - (gx#stx-e _tl120547121126_)))) - (let ((_tl120550121134_ + (gx#stx-e _tl120552121131_)))) + (let ((_tl120555121139_ (let () (declare (not safe)) - (##cdr _e120552121129_))) - (_hd120551121132_ + (##cdr _e120557121134_))) + (_hd120556121137_ (let () (declare (not safe)) - (##car _e120552121129_)))) + (##car _e120557121134_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd120551121132_)) - (let ((_e120555121137_ + (gx#stx-pair? _hd120556121137_)) + (let ((_e120560121142_ (let () (declare (not safe)) - (gx#stx-e _hd120551121132_)))) - (let ((_tl120553121142_ + (gx#stx-e _hd120556121137_)))) + (let ((_tl120558121147_ (let () (declare (not safe)) - (##cdr _e120555121137_))) - (_hd120554121140_ + (##cdr _e120560121142_))) + (_hd120559121145_ (let () (declare (not safe)) - (##car _e120555121137_)))) + (##car _e120560121142_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl120553121142_)) + (gx#stx-null? _tl120558121147_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl120550121134_)) - (let ((_e120558121145_ + _tl120555121139_)) + (let ((_e120563121150_ (let () (declare (not safe)) (gx#stx-e - _tl120550121134_)))) - (let ((_tl120556121150_ + _tl120555121139_)))) + (let ((_tl120561121155_ (let () (declare (not safe)) - (##cdr _e120558121145_))) - (_hd120557121148_ + (##cdr _e120563121150_))) + (_hd120562121153_ (let () (declare (not safe)) - (##car _e120558121145_)))) + (##car _e120563121150_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl120556121150_)) - (___match128361128362_ - _e120549121121_ - _hd120548121124_ - _tl120547121126_ - _e120552121129_ - _hd120551121132_ - _tl120550121134_ - _e120555121137_ - _hd120554121140_ - _tl120553121142_ - _e120558121145_ - _hd120557121148_ - _tl120556121150_) + _tl120561121155_)) + (___match128366128367_ + _e120554121126_ + _hd120553121129_ + _tl120552121131_ + _e120557121134_ + _hd120556121137_ + _tl120555121139_ + _e120560121142_ + _hd120559121145_ + _tl120558121147_ + _e120563121150_ + _hd120562121153_ + _tl120561121155_) (let () (declare (not safe)) - (_g120543120602_))))) + (_g120548120607_))))) (let () (declare (not safe)) - (_g120543120602_))) + (_g120548120607_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl120550121134_)) - (let ((_e120597120623_ + _tl120555121139_)) + (let ((_e120602120628_ (let () (declare (not safe)) (gx#stx-e - _tl120550121134_)))) - (let ((_tl120595120628_ + _tl120555121139_)))) + (let ((_tl120600120633_ (let () (declare (not safe)) - (##cdr _e120597120623_))) - (_hd120596120626_ + (##cdr _e120602120628_))) + (_hd120601120631_ (let () (declare (not safe)) - (##car _e120597120623_)))) + (##car _e120602120628_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl120595120628_)) - (___kont128332128333_ - _hd120596120626_ - _hd120551121132_) + _tl120600120633_)) + (___kont128337128338_ + _hd120601120631_ + _hd120556121137_) (let () (declare (not safe)) - (_g120543120602_))))) + (_g120548120607_))))) (let () (declare (not safe)) - (_g120543120602_)))))) + (_g120548120607_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl120550121134_)) - (let ((_e120597120623_ + (gx#stx-pair? _tl120555121139_)) + (let ((_e120602120628_ (let () (declare (not safe)) - (gx#stx-e _tl120550121134_)))) - (let ((_tl120595120628_ + (gx#stx-e _tl120555121139_)))) + (let ((_tl120600120633_ (let () (declare (not safe)) - (##cdr _e120597120623_))) - (_hd120596120626_ + (##cdr _e120602120628_))) + (_hd120601120631_ (let () (declare (not safe)) - (##car _e120597120623_)))) + (##car _e120602120628_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl120595120628_)) - (___kont128332128333_ - _hd120596120626_ - _hd120551121132_) + _tl120600120633_)) + (___kont128337128338_ + _hd120601120631_ + _hd120556121137_) (let () (declare (not safe)) - (_g120543120602_))))) + (_g120548120607_))))) (let () (declare (not safe)) - (_g120543120602_)))))) - (let () (declare (not safe)) (_g120543120602_))))) - (let () (declare (not safe)) (_g120543120602_))))))))) + (_g120548120607_)))))) + (let () (declare (not safe)) (_g120548120607_))))) + (let () (declare (not safe)) (_g120548120607_))))))))) (define gxc#lift-top-lambda-let-values% - (lambda (_stx119466_) - (letrec* ((_bind-e__126720126721_ - (lambda (_id120518_ _expr120519_ _compile?120520_) - (let ((__tmp129056 + (lambda (_stx119471_) + (letrec* ((_bind-e__126725126726_ + (lambda (_id120523_ _expr120524_ _compile?120525_) + (let ((__tmp129061 (let () (declare (not safe)) - (cons _id120518_ '()))) - (__tmp129054 - (let ((__tmp129055 - (if _compile?120520_ + (cons _id120523_ '()))) + (__tmp129059 + (let ((__tmp129060 + (if _compile?120525_ (let () (declare (not safe)) - (gxc#compile-e__0 _expr120519_)) - _expr120519_))) + (gxc#compile-e__0 _expr120524_)) + _expr120524_))) (declare (not safe)) - (cons __tmp129055 '())))) + (cons __tmp129060 '())))) (declare (not safe)) - (cons __tmp129056 __tmp129054)))) - (_bind-e__0__126722126723_ - (lambda (_id120525_ _expr120526_) - (let ((_compile?120528_ '#t)) + (cons __tmp129061 __tmp129059)))) + (_bind-e__0__126727126728_ + (lambda (_id120530_ _expr120531_) + (let ((_compile?120533_ '#t)) (declare (not safe)) - (_bind-e__126720126721_ - _id120525_ - _expr120526_ - _compile?120528_)))) - (_bind-e119468_ - (lambda _g129058_ - (let ((_g129057_ + (_bind-e__126725126726_ + _id120530_ + _expr120531_ + _compile?120533_)))) + (_bind-e119473_ + (lambda _g129063_ + (let ((_g129062_ (let () (declare (not safe)) - (##length _g129058_)))) - (cond ((let () (declare (not safe)) (##fx= _g129057_ 2)) - (apply (lambda (_id120525_ _expr120526_) + (##length _g129063_)))) + (cond ((let () (declare (not safe)) (##fx= _g129062_ 2)) + (apply (lambda (_id120530_ _expr120531_) (let () (declare (not safe)) - (_bind-e__0__126722126723_ - _id120525_ - _expr120526_))) - _g129058_)) - ((let () (declare (not safe)) (##fx= _g129057_ 3)) - (apply (lambda (_id120530_ - _expr120531_ - _compile?120532_) + (_bind-e__0__126727126728_ + _id120530_ + _expr120531_))) + _g129063_)) + ((let () (declare (not safe)) (##fx= _g129062_ 3)) + (apply (lambda (_id120535_ + _expr120536_ + _compile?120537_) (let () (declare (not safe)) - (_bind-e__126720126721_ - _id120530_ - _expr120531_ - _compile?120532_))) - _g129058_)) + (_bind-e__126725126726_ + _id120535_ + _expr120536_ + _compile?120537_))) + _g129063_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g129058_)))))) - (_compile-bindings119469_ - (lambda (_bindings120102_) - (let _lp120104_ ((_rest120106_ _bindings120102_) - (_lift1120107_ '()) - (_lift2120108_ '()) - (_bind120109_ '())) - (let* ((_rest120110120118_ _rest120106_) - (_else120112120126_ + _g129063_)))))) + (_compile-bindings119474_ + (lambda (_bindings120107_) + (let _lp120109_ ((_rest120111_ _bindings120107_) + (_lift1120112_ '()) + (_lift2120113_ '()) + (_bind120114_ '())) + (let* ((_rest120115120123_ _rest120111_) + (_else120117120131_ (lambda () - (values (reverse _lift1120107_) - (reverse _lift2120108_) - (reverse _bind120109_)))) - (_K120114120505_ - (lambda (_rest120129_ _hd120130_) - (let* ((___stx128460128461_ _hd120130_) - (_g120134120170_ + (values (reverse _lift1120112_) + (reverse _lift2120113_) + (reverse _bind120114_)))) + (_K120119120510_ + (lambda (_rest120134_ _hd120135_) + (let* ((___stx128465128466_ _hd120135_) + (_g120139120175_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx128460128461_))))) - (let ((___kont128462128463_ - (lambda (_L120412_ _L120413_) - (let* ((___stx128440128441_ - _L120412_) - (_g120428120442_ + ___stx128465128466_))))) + (let ((___kont128467128468_ + (lambda (_L120417_ _L120418_) + (let* ((___stx128445128446_ + _L120417_) + (_g120433120447_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx128440128441_))))) - (let ((___kont128442128443_ - (lambda (_L120490_) - (let ((__tmp129059 - (let ((__tmp129060 + ___stx128445128446_))))) + (let ((___kont128447128448_ + (lambda (_L120495_) + (let ((__tmp129064 + (let ((__tmp129065 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (_bind-e__126720126721_ - _L120413_ - _L120412_ + (_bind-e__126725126726_ + _L120418_ + _L120417_ '#f)))) (declare (not safe)) - (cons __tmp129060 _bind120109_)))) + (cons __tmp129065 _bind120114_)))) (declare (not safe)) - (_lp120104_ - _rest120129_ - _lift1120107_ - _lift2120108_ - __tmp129059)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont128444128445_ - (lambda (_L120455_) - (let ((_g129061_ + (_lp120109_ + _rest120134_ + _lift1120112_ + _lift2120113_ + __tmp129064)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont128449128450_ + (lambda (_L120460_) + (let ((_g129066_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gxc#lift-case-lambda-clauses__% - _stx119466_ - _L120413_ - _L120455_ + _stx119471_ + _L120418_ + _L120460_ '#t)))) (begin - (let ((_g129062_ + (let ((_g129067_ (let () (declare (not safe)) - (if (##values? _g129061_) - (##vector-length _g129061_) + (if (##values? _g129066_) + (##vector-length _g129066_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g129062_ 3))) - (error "Context expects 3 values" _g129062_))) - (let ((_ids120465_ + (##fx= _g129067_ 3))) + (error "Context expects 3 values" _g129067_))) + (let ((_ids120470_ (let () (declare (not safe)) - (##vector-ref _g129061_ 0))) - (_impls120466_ + (##vector-ref _g129066_ 0))) + (_impls120471_ (let () (declare (not safe)) - (##vector-ref _g129061_ 1))) - (_clauses120467_ + (##vector-ref _g129066_ 1))) + (_clauses120472_ (let () (declare (not safe)) - (##vector-ref _g129061_ 2)))) - (let* ((_g129063_ - (for-each gx#core-bind-runtime! _ids120465_)) - (_xbind120470_ - (map _bind-e119468_ _ids120465_ _impls120466_)) - (_expr*120472_ - (let ((__tmp129065 + (##vector-ref _g129066_ 2)))) + (let* ((_g129068_ + (for-each gx#core-bind-runtime! _ids120470_)) + (_xbind120475_ + (map _bind-e119473_ _ids120470_ _impls120471_)) + (_expr*120477_ + (let ((__tmp129070 (let () (declare (not safe)) - (cons '%#case-lambda _clauses120467_))) - (__tmp129064 + (cons '%#case-lambda _clauses120472_))) + (__tmp129069 (let () (declare (not safe)) (gx#datum->syntax__0 @@ -12456,1584 +12456,1584 @@ 'case-lambda-expr)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp129065 - __tmp129064))) - (_bind*120474_ + __tmp129070 + __tmp129069))) + (_bind*120479_ (let () (declare (not safe)) - (_bind-e__126720126721_ - _L120413_ - _expr*120472_ + (_bind-e__126725126726_ + _L120418_ + _expr*120477_ '#f)))) - (let ((__tmp129067 + (let ((__tmp129072 (let () (declare (not safe)) - (gxc#identifier-symbol _L120413_))) - (__tmp129066 - (map gxc#identifier-symbol _ids120465_))) + (gxc#identifier-symbol _L120418_))) + (__tmp129071 + (map gxc#identifier-symbol _ids120470_))) (declare (not safe)) (gxc#verbose '"lift case-lambda clauses " - __tmp129067 + __tmp129072 '" => " - __tmp129066)) - (let ((__tmp129069 + __tmp129071)) + (let ((__tmp129074 (let () (declare (not safe)) - (foldl1 cons _lift2120108_ _xbind120470_))) - (__tmp129068 + (foldl1 cons _lift2120113_ _xbind120475_))) + (__tmp129073 (let () (declare (not safe)) - (cons _bind*120474_ _bind120109_)))) + (cons _bind*120479_ _bind120114_)))) (declare (not safe)) - (_lp120104_ - _rest120129_ - _lift1120107_ - __tmp129069 - __tmp129068))))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((___match128451128452_ - (lambda (_e120433120482_ - _hd120432120485_ - _tl120431120487_) - (let ((_L120490_ - _tl120431120487_)) + (_lp120109_ + _rest120134_ + _lift1120112_ + __tmp129074 + __tmp129073))))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((___match128456128457_ + (lambda (_e120438120487_ + _hd120437120490_ + _tl120436120492_) + (let ((_L120495_ + _tl120436120492_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (andmap1 gxc#dispatch-lambda-form? _L120490_)) - (___kont128442128443_ _L120490_) - (___kont128444128445_ _tl120431120487_)))))) + (andmap1 gxc#dispatch-lambda-form? _L120495_)) + (___kont128447128448_ _L120495_) + (___kont128449128450_ _tl120436120492_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - ___stx128440128441_)) - (let ((_e120433120482_ + ___stx128445128446_)) + (let ((_e120438120487_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e ___stx128440128441_)))) - (let ((_tl120431120487_ - (let () (declare (not safe)) (##cdr _e120433120482_))) - (_hd120432120485_ - (let () (declare (not safe)) (##car _e120433120482_)))) - (___match128451128452_ - _e120433120482_ - _hd120432120485_ - _tl120431120487_))) - (let () (declare (not safe)) (_g120428120442_)))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont128464128465_ - (lambda (_L120240_ _L120241_) - (let* ((_g120255120285_ - (lambda (_g120256120282_) + (gx#stx-e ___stx128445128446_)))) + (let ((_tl120436120492_ + (let () (declare (not safe)) (##cdr _e120438120487_))) + (_hd120437120490_ + (let () (declare (not safe)) (##car _e120438120487_)))) + (___match128456128457_ + _e120438120487_ + _hd120437120490_ + _tl120436120492_))) + (let () (declare (not safe)) (_g120433120447_)))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont128469128470_ + (lambda (_L120245_ _L120246_) + (let* ((_g120260120290_ + (lambda (_g120261120287_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g120256120282_)))) - (_g120254120380_ - (lambda (_g120256120288_) + _g120261120287_)))) + (_g120259120385_ + (lambda (_g120261120293_) (if (let () (declare (not safe)) (gx#stx-pair? - _g120256120288_)) - (let ((_e120262120290_ + _g120261120293_)) + (let ((_e120267120295_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _g120256120288_)))) - (let ((_hd120261120293_ + (gx#stx-e _g120261120293_)))) + (let ((_hd120266120298_ (let () (declare (not safe)) - (##car _e120262120290_))) - (_tl120260120295_ + (##car _e120267120295_))) + (_tl120265120300_ (let () (declare (not safe)) - (##cdr _e120262120290_)))) + (##cdr _e120267120295_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl120260120295_)) - (let ((_e120265120298_ + (gx#stx-pair? _tl120265120300_)) + (let ((_e120270120303_ (let () (declare (not safe)) - (gx#stx-e _tl120260120295_)))) - (let ((_hd120264120301_ + (gx#stx-e _tl120265120300_)))) + (let ((_hd120269120306_ (let () (declare (not safe)) - (##car _e120265120298_))) - (_tl120263120303_ + (##car _e120270120303_))) + (_tl120268120308_ (let () (declare (not safe)) - (##cdr _e120265120298_)))) + (##cdr _e120270120303_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd120264120301_)) - (let ((_e120268120306_ + (gx#stx-pair? _hd120269120306_)) + (let ((_e120273120311_ (let () (declare (not safe)) - (gx#stx-e _hd120264120301_)))) - (let ((_hd120267120309_ + (gx#stx-e _hd120269120306_)))) + (let ((_hd120272120314_ (let () (declare (not safe)) - (##car _e120268120306_))) - (_tl120266120311_ + (##car _e120273120311_))) + (_tl120271120316_ (let () (declare (not safe)) - (##cdr _e120268120306_)))) + (##cdr _e120273120311_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd120267120309_)) - (let ((_e120271120314_ + (gx#stx-pair? _hd120272120314_)) + (let ((_e120276120319_ (let () (declare (not safe)) (gx#stx-e - _hd120267120309_)))) - (let ((_hd120270120317_ + _hd120272120314_)))) + (let ((_hd120275120322_ (let () (declare (not safe)) - (##car _e120271120314_))) - (_tl120269120319_ + (##car _e120276120319_))) + (_tl120274120324_ (let () (declare (not safe)) - (##cdr _e120271120314_)))) + (##cdr _e120276120319_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd120270120317_)) - (let ((_e120274120322_ + _hd120275120322_)) + (let ((_e120279120327_ (let () (declare (not safe)) (gx#stx-e - _hd120270120317_)))) - (let ((_hd120273120325_ + _hd120275120322_)))) + (let ((_hd120278120330_ (let () (declare (not safe)) - (##car _e120274120322_))) - (_tl120272120327_ + (##car _e120279120327_))) + (_tl120277120332_ (let () (declare (not safe)) - (##cdr _e120274120322_)))) + (##cdr _e120279120327_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl120272120327_)) + _tl120277120332_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl120269120319_)) - (let ((_e120277120330_ + (gx#stx-pair? _tl120274120324_)) + (let ((_e120282120335_ (let () (declare (not safe)) - (gx#stx-e _tl120269120319_)))) - (let ((_hd120276120333_ + (gx#stx-e _tl120274120324_)))) + (let ((_hd120281120338_ (let () (declare (not safe)) - (##car _e120277120330_))) - (_tl120275120335_ + (##car _e120282120335_))) + (_tl120280120340_ (let () (declare (not safe)) - (##cdr _e120277120330_)))) + (##cdr _e120282120335_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl120275120335_)) + (gx#stx-null? _tl120280120340_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl120266120311_)) + (gx#stx-null? _tl120271120316_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl120263120303_)) - (let ((_e120280120338_ + (gx#stx-pair? _tl120268120308_)) + (let ((_e120285120343_ (let () (declare (not safe)) - (gx#stx-e _tl120263120303_)))) - (let ((_hd120279120341_ + (gx#stx-e _tl120268120308_)))) + (let ((_hd120284120346_ (let () (declare (not safe)) - (##car _e120280120338_))) - (_tl120278120343_ + (##car _e120285120343_))) + (_tl120283120348_ (let () (declare (not safe)) - (##cdr _e120280120338_)))) + (##cdr _e120285120343_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl120278120343_)) - ((lambda (_L120346_ - _L120347_ - _L120348_) - (let* ((_lambda-id120372_ - (let ((__tmp129071 + _tl120283120348_)) + ((lambda (_L120351_ + _L120352_ + _L120353_) + (let* ((_lambda-id120377_ + (let ((__tmp129076 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _L120241_))) - (__tmp129070 (gensym '__))) + (gx#stx-e _L120246_))) + (__tmp129075 (gensym '__))) (declare (not safe)) - (make-symbol__1 __tmp129071 __tmp129070))) - (_lambda-id120374_ - (let ((__tmp129072 + (make-symbol__1 __tmp129076 __tmp129075))) + (_lambda-id120379_ + (let ((__tmp129077 (let () (declare (not safe)) - (gx#stx-source _stx119466_)))) + (gx#stx-source _stx119471_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _lambda-id120372_ __tmp129072))) - (_g129073_ + (gx#core-quote-syntax__1 _lambda-id120377_ __tmp129077))) + (_g129078_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _lambda-id120374_))) - (_new-case-lambda-expr120377_ + (gx#core-bind-runtime!__0 _lambda-id120379_))) + (_new-case-lambda-expr120382_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L120346_ - _L120348_ - _lambda-id120374_)))) + _L120351_ + _L120353_ + _lambda-id120379_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp129075 + (let ((__tmp129080 (let () (declare (not safe)) (gxc#identifier-symbol - _L120241_))) - (__tmp129074 + _L120246_))) + (__tmp129079 (let () (declare (not safe)) (gxc#identifier-symbol - _lambda-id120374_)))) + _lambda-id120379_)))) (declare (not safe)) (gxc#verbose '"lift opt-lambda dispatch " - __tmp129075 + __tmp129080 '" => " - __tmp129074)) - (let ((__tmp129078 - (let ((__tmp129079 + __tmp129079)) + (let ((__tmp129083 + (let ((__tmp129084 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (_bind-e__126720126721_ - _L120241_ - _new-case-lambda-expr120377_ + (_bind-e__126725126726_ + _L120246_ + _new-case-lambda-expr120382_ '#f)))) (declare (not safe)) - (cons __tmp129079 _rest120129_))) - (__tmp129076 - (let ((__tmp129077 + (cons __tmp129084 _rest120134_))) + (__tmp129081 + (let ((__tmp129082 (let () (declare (not safe)) - (_bind-e__0__126722126723_ - _lambda-id120374_ - _L120347_)))) + (_bind-e__0__126727126728_ + _lambda-id120379_ + _L120352_)))) (declare (not safe)) - (cons __tmp129077 _lift1120107_)))) + (cons __tmp129082 _lift1120112_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp120104_ - __tmp129078 - __tmp129076 - _lift2120108_ - _bind120109_)))) - _hd120279120341_ - _hd120276120333_ - _hd120273120325_) + (_lp120109_ + __tmp129083 + __tmp129081 + _lift2120113_ + _bind120114_)))) + _hd120284120346_ + _hd120281120338_ + _hd120278120330_) (let () (declare (not safe)) - (_g120255120285_ - _g120256120288_))))) + (_g120260120290_ + _g120261120293_))))) (let () (declare (not safe)) - (_g120255120285_ _g120256120288_))) + (_g120260120290_ _g120261120293_))) (let () (declare (not safe)) - (_g120255120285_ _g120256120288_))) + (_g120260120290_ _g120261120293_))) (let () (declare (not safe)) - (_g120255120285_ _g120256120288_))))) + (_g120260120290_ _g120261120293_))))) (let () (declare (not safe)) - (_g120255120285_ _g120256120288_))) + (_g120260120290_ _g120261120293_))) (let () (declare (not safe)) - (_g120255120285_ _g120256120288_))))) + (_g120260120290_ _g120261120293_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g120255120285_ - _g120256120288_))))) + (_g120260120290_ + _g120261120293_))))) (let () (declare (not safe)) - (_g120255120285_ - _g120256120288_))))) + (_g120260120290_ + _g120261120293_))))) (let () (declare (not safe)) - (_g120255120285_ _g120256120288_))))) + (_g120260120290_ _g120261120293_))))) (let () (declare (not safe)) - (_g120255120285_ _g120256120288_))))) + (_g120260120290_ _g120261120293_))))) (let () (declare (not safe)) - (_g120255120285_ _g120256120288_)))))) + (_g120260120290_ _g120261120293_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g120254120380_ _L120240_)))) - (___kont128466128467_ - (lambda (_L120191_ _L120192_) - (let ((__tmp129080 - (let ((__tmp129081 - (let ((__tmp129082 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp129083 + (_g120259120385_ _L120245_)))) + (___kont128471128472_ + (lambda (_L120196_ _L120197_) + (let ((__tmp129085 + (let ((__tmp129086 + (let ((__tmp129087 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp129088 (let () (declare (not safe)) - (gxc#compile-e__0 _L120191_)))) + (gxc#compile-e__0 _L120196_)))) (declare (not safe)) - (cons __tmp129083 '())))) + (cons __tmp129088 '())))) (declare (not safe)) - (cons _L120192_ __tmp129082)))) + (cons _L120197_ __tmp129087)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp129081 - _bind120109_)))) + (cons __tmp129086 + _bind120114_)))) (declare (not safe)) - (_lp120104_ - _rest120129_ - _lift1120107_ - _lift2120108_ - __tmp129080))))) - (let* ((___match128511128512_ - (lambda (_e120151120216_ - _hd120150120219_ - _tl120149120221_ - _e120154120224_ - _hd120153120227_ - _tl120152120229_ - _e120157120232_ - _hd120156120235_ - _tl120155120237_) - (let ((_L120240_ - _hd120156120235_) - (_L120241_ - _hd120153120227_)) + (_lp120109_ + _rest120134_ + _lift1120112_ + _lift2120113_ + __tmp129085))))) + (let* ((___match128516128517_ + (lambda (_e120156120221_ + _hd120155120224_ + _tl120154120226_ + _e120159120229_ + _hd120158120232_ + _tl120157120234_ + _e120162120237_ + _hd120161120240_ + _tl120160120242_) + (let ((_L120245_ + _hd120161120240_) + (_L120246_ + _hd120158120232_)) (if (and (let () (declare (not safe)) (gx#identifier? - _L120241_)) + _L120246_)) (let () (declare (not safe)) (gxc#opt-lambda-expr? - _L120240_))) - (___kont128464128465_ - _L120240_ - _L120241_) - (___kont128466128467_ - _hd120156120235_ - _hd120150120219_))))) - (___match128489128490_ - (lambda (_e120140120388_ - _hd120139120391_ - _tl120138120393_ - _e120143120396_ - _hd120142120399_ - _tl120141120401_ - _e120146120404_ - _hd120145120407_ - _tl120144120409_) - (let ((_L120412_ - _hd120145120407_) - (_L120413_ - _hd120142120399_)) + _L120245_))) + (___kont128469128470_ + _L120245_ + _L120246_) + (___kont128471128472_ + _hd120161120240_ + _hd120155120224_))))) + (___match128494128495_ + (lambda (_e120145120393_ + _hd120144120396_ + _tl120143120398_ + _e120148120401_ + _hd120147120404_ + _tl120146120406_ + _e120151120409_ + _hd120150120412_ + _tl120149120414_) + (let ((_L120417_ + _hd120150120412_) + (_L120418_ + _hd120147120404_)) (if (and (let () (declare (not safe)) (gx#identifier? - _L120413_)) + _L120418_)) (let () (declare (not safe)) (gxc#case-lambda-expr? - _L120412_))) - (___kont128462128463_ - _L120412_ - _L120413_) - (___match128511128512_ - _e120140120388_ - _hd120139120391_ - _tl120138120393_ - _e120143120396_ - _hd120142120399_ - _tl120141120401_ - _e120146120404_ - _hd120145120407_ - _tl120144120409_)))))) + _L120417_))) + (___kont128467128468_ + _L120417_ + _L120418_) + (___match128516128517_ + _e120145120393_ + _hd120144120396_ + _tl120143120398_ + _e120148120401_ + _hd120147120404_ + _tl120146120406_ + _e120151120409_ + _hd120150120412_ + _tl120149120414_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx128460128461_)) - (let ((_e120140120388_ + ___stx128465128466_)) + (let ((_e120145120393_ (let () (declare (not safe)) (gx#stx-e - ___stx128460128461_)))) - (let ((_tl120138120393_ + ___stx128465128466_)))) + (let ((_tl120143120398_ (let () (declare (not safe)) - (##cdr _e120140120388_))) - (_hd120139120391_ + (##cdr _e120145120393_))) + (_hd120144120396_ (let () (declare (not safe)) - (##car _e120140120388_)))) + (##car _e120145120393_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd120139120391_)) - (let ((_e120143120396_ + _hd120144120396_)) + (let ((_e120148120401_ (let () (declare (not safe)) (gx#stx-e - _hd120139120391_)))) - (let ((_tl120141120401_ + _hd120144120396_)))) + (let ((_tl120146120406_ (let () (declare (not safe)) - (##cdr _e120143120396_))) - (_hd120142120399_ + (##cdr _e120148120401_))) + (_hd120147120404_ (let () (declare (not safe)) - (##car _e120143120396_)))) + (##car _e120148120401_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl120141120401_)) + _tl120146120406_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl120138120393_)) - (let ((_e120146120404_ + (gx#stx-pair? _tl120143120398_)) + (let ((_e120151120409_ (let () (declare (not safe)) - (gx#stx-e _tl120138120393_)))) - (let ((_tl120144120409_ + (gx#stx-e _tl120143120398_)))) + (let ((_tl120149120414_ (let () (declare (not safe)) - (##cdr _e120146120404_))) - (_hd120145120407_ + (##cdr _e120151120409_))) + (_hd120150120412_ (let () (declare (not safe)) - (##car _e120146120404_)))) + (##car _e120151120409_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl120144120409_)) - (___match128489128490_ - _e120140120388_ - _hd120139120391_ - _tl120138120393_ - _e120143120396_ - _hd120142120399_ - _tl120141120401_ - _e120146120404_ - _hd120145120407_ - _tl120144120409_) + (gx#stx-null? _tl120149120414_)) + (___match128494128495_ + _e120145120393_ + _hd120144120396_ + _tl120143120398_ + _e120148120401_ + _hd120147120404_ + _tl120146120406_ + _e120151120409_ + _hd120150120412_ + _tl120149120414_) (let () (declare (not safe)) - (_g120134120170_))))) - (let () (declare (not safe)) (_g120134120170_))) + (_g120139120175_))))) + (let () (declare (not safe)) (_g120139120175_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl120138120393_)) - (let ((_e120165120183_ + (gx#stx-pair? _tl120143120398_)) + (let ((_e120170120188_ (let () (declare (not safe)) - (gx#stx-e _tl120138120393_)))) - (let ((_tl120163120188_ + (gx#stx-e _tl120143120398_)))) + (let ((_tl120168120193_ (let () (declare (not safe)) - (##cdr _e120165120183_))) - (_hd120164120186_ + (##cdr _e120170120188_))) + (_hd120169120191_ (let () (declare (not safe)) - (##car _e120165120183_)))) + (##car _e120170120188_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl120163120188_)) - (___kont128466128467_ - _hd120164120186_ - _hd120139120391_) + (gx#stx-null? _tl120168120193_)) + (___kont128471128472_ + _hd120169120191_ + _hd120144120396_) (let () (declare (not safe)) - (_g120134120170_))))) - (let () (declare (not safe)) (_g120134120170_)))))) + (_g120139120175_))))) + (let () (declare (not safe)) (_g120139120175_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl120138120393_)) - (let ((_e120165120183_ + _tl120143120398_)) + (let ((_e120170120188_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl120138120393_)))) - (let ((_tl120163120188_ - (let () (declare (not safe)) (##cdr _e120165120183_))) - (_hd120164120186_ - (let () (declare (not safe)) (##car _e120165120183_)))) + (gx#stx-e _tl120143120398_)))) + (let ((_tl120168120193_ + (let () (declare (not safe)) (##cdr _e120170120188_))) + (_hd120169120191_ + (let () (declare (not safe)) (##car _e120170120188_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl120163120188_)) - (___kont128466128467_ _hd120164120186_ _hd120139120391_) - (let () (declare (not safe)) (_g120134120170_))))) - (let () (declare (not safe)) (_g120134120170_)))))) + (gx#stx-null? _tl120168120193_)) + (___kont128471128472_ _hd120169120191_ _hd120144120396_) + (let () (declare (not safe)) (_g120139120175_))))) + (let () (declare (not safe)) (_g120139120175_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g120134120170_))))))))) + (_g120139120175_))))))))) (if (let () (declare (not safe)) - (##pair? _rest120110120118_)) - (let ((_hd120115120508_ + (##pair? _rest120115120123_)) + (let ((_hd120120120513_ (let () (declare (not safe)) - (##car _rest120110120118_))) - (_tl120116120510_ + (##car _rest120115120123_))) + (_tl120121120515_ (let () (declare (not safe)) - (##cdr _rest120110120118_)))) - (let* ((_hd120513_ _hd120115120508_) - (_rest120515_ _tl120116120510_)) + (##cdr _rest120115120123_)))) + (let* ((_hd120518_ _hd120120120513_) + (_rest120520_ _tl120121120515_)) (declare (not safe)) - (_K120114120505_ _rest120515_ _hd120513_))) + (_K120119120510_ _rest120520_ _hd120518_))) (let () (declare (not safe)) - (_else120112120126_))))))) - (_lift-kw-lambda?119470_ - (lambda (_bind120026_) - (let* ((___stx128528128529_ _bind120026_) - (_g120029120046_ + (_else120117120131_))))))) + (_lift-kw-lambda?119475_ + (lambda (_bind120031_) + (let* ((___stx128533128534_ _bind120031_) + (_g120034120051_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx128528128529_))))) - (let ((___kont128530128531_ - (lambda (_L120082_ _L120083_) + ___stx128533128534_))))) + (let ((___kont128535128536_ + (lambda (_L120087_ _L120088_) (if (let () (declare (not safe)) - (gx#identifier? _L120083_)) + (gx#identifier? _L120088_)) (let () (declare (not safe)) - (gxc#kw-lambda-expr? _L120082_)) + (gxc#kw-lambda-expr? _L120087_)) '#f))) - (___kont128532128533_ (lambda () '#f))) + (___kont128537128538_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx128528128529_)) - (let ((_e120035120058_ + (gx#stx-pair? ___stx128533128534_)) + (let ((_e120040120063_ (let () (declare (not safe)) - (gx#stx-e ___stx128528128529_)))) - (let ((_tl120033120063_ + (gx#stx-e ___stx128533128534_)))) + (let ((_tl120038120068_ (let () (declare (not safe)) - (##cdr _e120035120058_))) - (_hd120034120061_ + (##cdr _e120040120063_))) + (_hd120039120066_ (let () (declare (not safe)) - (##car _e120035120058_)))) + (##car _e120040120063_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd120034120061_)) - (let ((_e120038120066_ + (gx#stx-pair? _hd120039120066_)) + (let ((_e120043120071_ (let () (declare (not safe)) - (gx#stx-e _hd120034120061_)))) - (let ((_tl120036120071_ + (gx#stx-e _hd120039120066_)))) + (let ((_tl120041120076_ (let () (declare (not safe)) - (##cdr _e120038120066_))) - (_hd120037120069_ + (##cdr _e120043120071_))) + (_hd120042120074_ (let () (declare (not safe)) - (##car _e120038120066_)))) + (##car _e120043120071_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl120036120071_)) + (gx#stx-null? _tl120041120076_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl120033120063_)) - (let ((_e120041120074_ + _tl120038120068_)) + (let ((_e120046120079_ (let () (declare (not safe)) (gx#stx-e - _tl120033120063_)))) - (let ((_tl120039120079_ + _tl120038120068_)))) + (let ((_tl120044120084_ (let () (declare (not safe)) - (##cdr _e120041120074_))) - (_hd120040120077_ + (##cdr _e120046120079_))) + (_hd120045120082_ (let () (declare (not safe)) - (##car _e120041120074_)))) + (##car _e120046120079_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl120039120079_)) - (___kont128530128531_ - _hd120040120077_ - _hd120037120069_) - (___kont128532128533_)))) - (___kont128532128533_)) - (___kont128532128533_)))) - (___kont128532128533_)))) - (___kont128532128533_)))))) - (_lift-kw-lambda-bindings119471_ - (lambda (_bindings119638_) - (let _lp119640_ ((_rest119642_ _bindings119638_) - (_lift1119643_ '()) - (_lift2119644_ '()) - (_bind119645_ '())) - (let* ((_rest119646119654_ _rest119642_) - (_else119648119662_ + _tl120044120084_)) + (___kont128535128536_ + _hd120045120082_ + _hd120042120074_) + (___kont128537128538_)))) + (___kont128537128538_)) + (___kont128537128538_)))) + (___kont128537128538_)))) + (___kont128537128538_)))))) + (_lift-kw-lambda-bindings119476_ + (lambda (_bindings119643_) + (let _lp119645_ ((_rest119647_ _bindings119643_) + (_lift1119648_ '()) + (_lift2119649_ '()) + (_bind119650_ '())) + (let* ((_rest119651119659_ _rest119647_) + (_else119653119667_ (lambda () - (values (reverse _lift1119643_) - (reverse _lift2119644_) - (reverse _bind119645_)))) - (_K119650120014_ - (lambda (_rest119665_ _hd119666_) - (let* ((___stx128558128559_ _hd119666_) - (_g119669119694_ + (values (reverse _lift1119648_) + (reverse _lift2119649_) + (reverse _bind119650_)))) + (_K119655120019_ + (lambda (_rest119670_ _hd119671_) + (let* ((___stx128563128564_ _hd119671_) + (_g119674119699_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx128558128559_))))) - (let ((___kont128560128561_ - (lambda (_L119764_ _L119765_) - (let* ((_g119779119832_ - (lambda (_g119780119829_) + ___stx128563128564_))))) + (let ((___kont128565128566_ + (lambda (_L119769_ _L119770_) + (let* ((_g119784119837_ + (lambda (_g119785119834_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g119780119829_)))) - (_g119778120008_ - (lambda (_g119780119835_) + _g119785119834_)))) + (_g119783120013_ + (lambda (_g119785119840_) (if (let () (declare (not safe)) (gx#stx-pair? - _g119780119835_)) - (let ((_e119788119837_ + _g119785119840_)) + (let ((_e119793119842_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _g119780119835_)))) - (let ((_hd119787119840_ + (gx#stx-e _g119785119840_)))) + (let ((_hd119792119845_ (let () (declare (not safe)) - (##car _e119788119837_))) - (_tl119786119842_ + (##car _e119793119842_))) + (_tl119791119847_ (let () (declare (not safe)) - (##cdr _e119788119837_)))) + (##cdr _e119793119842_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl119786119842_)) - (let ((_e119791119845_ + (gx#stx-pair? _tl119791119847_)) + (let ((_e119796119850_ (let () (declare (not safe)) - (gx#stx-e _tl119786119842_)))) - (let ((_hd119790119848_ + (gx#stx-e _tl119791119847_)))) + (let ((_hd119795119853_ (let () (declare (not safe)) - (##car _e119791119845_))) - (_tl119789119850_ + (##car _e119796119850_))) + (_tl119794119855_ (let () (declare (not safe)) - (##cdr _e119791119845_)))) + (##cdr _e119796119850_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd119790119848_)) - (let ((_e119794119853_ + (gx#stx-pair? _hd119795119853_)) + (let ((_e119799119858_ (let () (declare (not safe)) - (gx#stx-e _hd119790119848_)))) - (let ((_hd119793119856_ + (gx#stx-e _hd119795119853_)))) + (let ((_hd119798119861_ (let () (declare (not safe)) - (##car _e119794119853_))) - (_tl119792119858_ + (##car _e119799119858_))) + (_tl119797119863_ (let () (declare (not safe)) - (##cdr _e119794119853_)))) + (##cdr _e119799119858_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd119793119856_)) - (let ((_e119797119861_ + (gx#stx-pair? _hd119798119861_)) + (let ((_e119802119866_ (let () (declare (not safe)) (gx#stx-e - _hd119793119856_)))) - (let ((_hd119796119864_ + _hd119798119861_)))) + (let ((_hd119801119869_ (let () (declare (not safe)) - (##car _e119797119861_))) - (_tl119795119866_ + (##car _e119802119866_))) + (_tl119800119871_ (let () (declare (not safe)) - (##cdr _e119797119861_)))) + (##cdr _e119802119866_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd119796119864_)) - (let ((_e119800119869_ + _hd119801119869_)) + (let ((_e119805119874_ (let () (declare (not safe)) (gx#stx-e - _hd119796119864_)))) - (let ((_hd119799119872_ + _hd119801119869_)))) + (let ((_hd119804119877_ (let () (declare (not safe)) - (##car _e119800119869_))) - (_tl119798119874_ + (##car _e119805119874_))) + (_tl119803119879_ (let () (declare (not safe)) - (##cdr _e119800119869_)))) + (##cdr _e119805119874_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl119798119874_)) + _tl119803119879_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl119795119866_)) - (let ((_e119803119877_ + (gx#stx-pair? _tl119800119871_)) + (let ((_e119808119882_ (let () (declare (not safe)) - (gx#stx-e _tl119795119866_)))) - (let ((_hd119802119880_ + (gx#stx-e _tl119800119871_)))) + (let ((_hd119807119885_ (let () (declare (not safe)) - (##car _e119803119877_))) - (_tl119801119882_ + (##car _e119808119882_))) + (_tl119806119887_ (let () (declare (not safe)) - (##cdr _e119803119877_)))) + (##cdr _e119808119882_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd119802119880_)) - (let ((_e119806119885_ + (gx#stx-pair? _hd119807119885_)) + (let ((_e119811119890_ (let () (declare (not safe)) - (gx#stx-e _hd119802119880_)))) - (let ((_hd119805119888_ + (gx#stx-e _hd119807119885_)))) + (let ((_hd119810119893_ (let () (declare (not safe)) - (##car _e119806119885_))) - (_tl119804119890_ + (##car _e119811119890_))) + (_tl119809119895_ (let () (declare (not safe)) - (##cdr _e119806119885_)))) + (##cdr _e119811119890_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl119804119890_)) - (let ((_e119809119893_ + (gx#stx-pair? _tl119809119895_)) + (let ((_e119814119898_ (let () (declare (not safe)) - (gx#stx-e _tl119804119890_)))) - (let ((_hd119808119896_ + (gx#stx-e _tl119809119895_)))) + (let ((_hd119813119901_ (let () (declare (not safe)) - (##car _e119809119893_))) - (_tl119807119898_ + (##car _e119814119898_))) + (_tl119812119903_ (let () (declare (not safe)) - (##cdr _e119809119893_)))) + (##cdr _e119814119898_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd119808119896_)) - (let ((_e119812119901_ + _hd119813119901_)) + (let ((_e119817119906_ (let () (declare (not safe)) (gx#stx-e - _hd119808119896_)))) - (let ((_hd119811119904_ + _hd119813119901_)))) + (let ((_hd119816119909_ (let () (declare (not safe)) - (##car _e119812119901_))) - (_tl119810119906_ + (##car _e119817119906_))) + (_tl119815119911_ (let () (declare (not safe)) - (##cdr _e119812119901_)))) + (##cdr _e119817119906_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd119811119904_)) - (let ((_e119815119909_ + _hd119816119909_)) + (let ((_e119820119914_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd119811119904_)))) - (let ((_hd119814119912_ - (let () (declare (not safe)) (##car _e119815119909_))) - (_tl119813119914_ - (let () (declare (not safe)) (##cdr _e119815119909_)))) + (gx#stx-e _hd119816119909_)))) + (let ((_hd119819119917_ + (let () (declare (not safe)) (##car _e119820119914_))) + (_tl119818119919_ + (let () (declare (not safe)) (##cdr _e119820119914_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd119814119912_)) - (let ((_e119818119917_ + (gx#stx-pair? _hd119819119917_)) + (let ((_e119823119922_ (let () (declare (not safe)) - (gx#stx-e _hd119814119912_)))) - (let ((_hd119817119920_ + (gx#stx-e _hd119819119917_)))) + (let ((_hd119822119925_ (let () (declare (not safe)) - (##car _e119818119917_))) - (_tl119816119922_ + (##car _e119823119922_))) + (_tl119821119927_ (let () (declare (not safe)) - (##cdr _e119818119917_)))) + (##cdr _e119823119922_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl119816119922_)) + (gx#stx-null? _tl119821119927_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl119813119914_)) - (let ((_e119821119925_ + (gx#stx-pair? _tl119818119919_)) + (let ((_e119826119930_ (let () (declare (not safe)) - (gx#stx-e _tl119813119914_)))) - (let ((_hd119820119928_ + (gx#stx-e _tl119818119919_)))) + (let ((_hd119825119933_ (let () (declare (not safe)) - (##car _e119821119925_))) - (_tl119819119930_ + (##car _e119826119930_))) + (_tl119824119935_ (let () (declare (not safe)) - (##cdr _e119821119925_)))) + (##cdr _e119826119930_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl119819119930_)) + (gx#stx-null? _tl119824119935_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl119810119906_)) + _tl119815119911_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl119807119898_)) - (let ((_e119824119933_ + _tl119812119903_)) + (let ((_e119829119938_ (let () (declare (not safe)) (gx#stx-e - _tl119807119898_)))) - (let ((_hd119823119936_ + _tl119812119903_)))) + (let ((_hd119828119941_ (let () (declare (not safe)) - (##car _e119824119933_))) - (_tl119822119938_ + (##car _e119829119938_))) + (_tl119827119943_ (let () (declare (not safe)) - (##cdr _e119824119933_)))) + (##cdr _e119829119938_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl119822119938_)) + _tl119827119943_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl119801119882_)) + (gx#stx-null? _tl119806119887_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl119792119858_)) + (gx#stx-null? _tl119797119863_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl119789119850_)) - (let ((_e119827119941_ + (gx#stx-pair? _tl119794119855_)) + (let ((_e119832119946_ (let () (declare (not safe)) - (gx#stx-e _tl119789119850_)))) - (let ((_hd119826119944_ + (gx#stx-e _tl119794119855_)))) + (let ((_hd119831119949_ (let () (declare (not safe)) - (##car _e119827119941_))) - (_tl119825119946_ + (##car _e119832119946_))) + (_tl119830119951_ (let () (declare (not safe)) - (##cdr _e119827119941_)))) + (##cdr _e119832119946_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl119825119946_)) - ((lambda (_L119949_ - _L119950_ - _L119951_ - _L119952_ - _L119953_) - (let* ((_get-kws-id119993_ - (let ((__tmp129085 + (gx#stx-null? _tl119830119951_)) + ((lambda (_L119954_ + _L119955_ + _L119956_ + _L119957_ + _L119958_) + (let* ((_get-kws-id119998_ + (let ((__tmp129090 (let () (declare (not safe)) (gx#stx-e - _L119765_))) - (__tmp129084 + _L119770_))) + (__tmp129089 (gensym '__))) (declare (not safe)) (make-symbol__1 - __tmp129085 - __tmp129084))) - (_get-kws-id119995_ - (let ((__tmp129086 + __tmp129090 + __tmp129089))) + (_get-kws-id120000_ + (let ((__tmp129091 (let () (declare (not safe)) (gx#stx-source - _stx119466_)))) + _stx119471_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _get-kws-id119993_ - __tmp129086))) - (_main-id119997_ - (let ((__tmp129088 + _get-kws-id119998_ + __tmp129091))) + (_main-id120002_ + (let ((__tmp129093 (let () (declare (not safe)) (gx#stx-e - _L119765_))) - (__tmp129087 + _L119770_))) + (__tmp129092 (gensym '__))) (declare (not safe)) (make-symbol__1 - __tmp129088 - __tmp129087))) - (_main-id119999_ - (let ((__tmp129089 + __tmp129093 + __tmp129092))) + (_main-id120004_ + (let ((__tmp129094 (let () (declare (not safe)) (gx#stx-source - _stx119466_)))) + _stx119471_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _main-id119997_ - __tmp129089))) - (_g129090_ + _main-id120002_ + __tmp129094))) + (_g129095_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _get-kws-id119995_))) - (_g129091_ + _get-kws-id120000_))) + (_g129096_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _main-id119999_))) - (_new-kw-dispatch120003_ + _main-id120004_))) + (_new-kw-dispatch120008_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L119949_ - _L119953_ - _get-kws-id119995_))) - (_new-get-kws120005_ + _L119954_ + _L119958_ + _get-kws-id120000_))) + (_new-get-kws120010_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L119950_ - _L119952_ - _main-id119999_)))) - (let ((__tmp129094 + _L119955_ + _L119957_ + _main-id120004_)))) + (let ((__tmp129099 (let () (declare (not safe)) (gxc#identifier-symbol - _L119765_))) - (__tmp129093 + _L119770_))) + (__tmp129098 (let () (declare (not safe)) (gxc#identifier-symbol - _get-kws-id119995_))) - (__tmp129092 + _get-kws-id120000_))) + (__tmp129097 (let () (declare (not safe)) (gxc#identifier-symbol - _main-id119999_)))) + _main-id120004_)))) (declare (not safe)) (gxc#verbose '"lift kw-lambda dispatch " - __tmp129094 + __tmp129099 '" => " - __tmp129093 + __tmp129098 '" => " - __tmp129092)) - (let ((__tmp129099 - (let ((__tmp129100 + __tmp129097)) + (let ((__tmp129104 + (let ((__tmp129105 (let () (declare (not safe)) - (_bind-e__126720126721_ - _main-id119999_ - _L119951_ + (_bind-e__126725126726_ + _main-id120004_ + _L119956_ '#f)))) (declare (not safe)) - (cons __tmp129100 - _lift1119643_))) - (__tmp129097 - (let ((__tmp129098 + (cons __tmp129105 + _lift1119648_))) + (__tmp129102 + (let ((__tmp129103 (let () (declare (not safe)) - (_bind-e__126720126721_ - _get-kws-id119995_ - _new-get-kws120005_ + (_bind-e__126725126726_ + _get-kws-id120000_ + _new-get-kws120010_ '#f)))) (declare (not safe)) - (cons __tmp129098 - _lift2119644_))) - (__tmp129095 - (let ((__tmp129096 + (cons __tmp129103 + _lift2119649_))) + (__tmp129100 + (let ((__tmp129101 (let () (declare (not safe)) - (_bind-e__126720126721_ - _L119765_ - _new-kw-dispatch120003_ + (_bind-e__126725126726_ + _L119770_ + _new-kw-dispatch120008_ '#f)))) (declare (not safe)) - (cons __tmp129096 - _bind119645_)))) + (cons __tmp129101 + _bind119650_)))) (declare (not safe)) - (_lp119640_ - _rest119665_ - __tmp129099 - __tmp129097 - __tmp129095)))) - _hd119826119944_ - _hd119823119936_ - _hd119820119928_ - _hd119817119920_ - _hd119799119872_) + (_lp119645_ + _rest119670_ + __tmp129104 + __tmp129102 + __tmp129100)))) + _hd119831119949_ + _hd119828119941_ + _hd119825119933_ + _hd119822119925_ + _hd119804119877_) (let () (declare (not safe)) - (_g119779119832_ _g119780119835_))))) + (_g119784119837_ _g119785119840_))))) (let () (declare (not safe)) - (_g119779119832_ _g119780119835_))) + (_g119784119837_ _g119785119840_))) (let () (declare (not safe)) - (_g119779119832_ _g119780119835_))) + (_g119784119837_ _g119785119840_))) (let () (declare (not safe)) - (_g119779119832_ _g119780119835_))) + (_g119784119837_ _g119785119840_))) (let () (declare (not safe)) - (_g119779119832_ _g119780119835_))))) + (_g119784119837_ _g119785119840_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g119779119832_ - _g119780119835_))) + (_g119784119837_ + _g119785119840_))) (let () (declare (not safe)) - (_g119779119832_ - _g119780119835_))) + (_g119784119837_ + _g119785119840_))) (let () (declare (not safe)) - (_g119779119832_ - _g119780119835_))))) + (_g119784119837_ + _g119785119840_))))) (let () (declare (not safe)) - (_g119779119832_ _g119780119835_))) + (_g119784119837_ _g119785119840_))) (let () (declare (not safe)) - (_g119779119832_ _g119780119835_))))) + (_g119784119837_ _g119785119840_))))) (let () (declare (not safe)) - (_g119779119832_ _g119780119835_))))) + (_g119784119837_ _g119785119840_))))) (let () (declare (not safe)) - (_g119779119832_ _g119780119835_))))) + (_g119784119837_ _g119785119840_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g119779119832_ - _g119780119835_))))) + (_g119784119837_ + _g119785119840_))))) (let () (declare (not safe)) - (_g119779119832_ _g119780119835_))))) + (_g119784119837_ _g119785119840_))))) (let () (declare (not safe)) - (_g119779119832_ _g119780119835_))))) + (_g119784119837_ _g119785119840_))))) (let () (declare (not safe)) - (_g119779119832_ _g119780119835_))) + (_g119784119837_ _g119785119840_))) (let () (declare (not safe)) - (_g119779119832_ _g119780119835_))))) + (_g119784119837_ _g119785119840_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g119779119832_ - _g119780119835_))))) + (_g119784119837_ + _g119785119840_))))) (let () (declare (not safe)) - (_g119779119832_ - _g119780119835_))))) + (_g119784119837_ + _g119785119840_))))) (let () (declare (not safe)) - (_g119779119832_ _g119780119835_))))) + (_g119784119837_ _g119785119840_))))) (let () (declare (not safe)) - (_g119779119832_ _g119780119835_))))) + (_g119784119837_ _g119785119840_))))) (let () (declare (not safe)) - (_g119779119832_ _g119780119835_)))))) + (_g119784119837_ _g119785119840_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g119778120008_ _L119764_)))) - (___kont128562128563_ - (lambda (_L119715_ _L119716_) - (let ((__tmp129101 - (let ((__tmp129102 - (let ((__tmp129103 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _L119715_ '())))) + (_g119783120013_ _L119769_)))) + (___kont128567128568_ + (lambda (_L119720_ _L119721_) + (let ((__tmp129106 + (let ((__tmp129107 + (let ((__tmp129108 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () (declare (not safe)) (cons _L119720_ '())))) (declare (not safe)) - (cons _L119716_ __tmp129103)))) + (cons _L119721_ __tmp129108)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp129102 - _bind119645_)))) + (cons __tmp129107 + _bind119650_)))) (declare (not safe)) - (_lp119640_ - _rest119665_ - _lift1119643_ - _lift2119644_ - __tmp129101))))) - (let ((___match128585128586_ - (lambda (_e119675119740_ - _hd119674119743_ - _tl119673119745_ - _e119678119748_ - _hd119677119751_ - _tl119676119753_ - _e119681119756_ - _hd119680119759_ - _tl119679119761_) - (let ((_L119764_ - _hd119680119759_) - (_L119765_ - _hd119677119751_)) + (_lp119645_ + _rest119670_ + _lift1119648_ + _lift2119649_ + __tmp129106))))) + (let ((___match128590128591_ + (lambda (_e119680119745_ + _hd119679119748_ + _tl119678119750_ + _e119683119753_ + _hd119682119756_ + _tl119681119758_ + _e119686119761_ + _hd119685119764_ + _tl119684119766_) + (let ((_L119769_ + _hd119685119764_) + (_L119770_ + _hd119682119756_)) (if (and (let () (declare (not safe)) (gx#identifier? - _L119765_)) + _L119770_)) (let () (declare (not safe)) (gxc#kw-lambda-expr? - _L119764_))) - (___kont128560128561_ - _L119764_ - _L119765_) - (___kont128562128563_ - _hd119680119759_ - _hd119674119743_)))))) + _L119769_))) + (___kont128565128566_ + _L119769_ + _L119770_) + (___kont128567128568_ + _hd119685119764_ + _hd119679119748_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx128558128559_)) - (let ((_e119675119740_ + ___stx128563128564_)) + (let ((_e119680119745_ (let () (declare (not safe)) (gx#stx-e - ___stx128558128559_)))) - (let ((_tl119673119745_ + ___stx128563128564_)))) + (let ((_tl119678119750_ (let () (declare (not safe)) - (##cdr _e119675119740_))) - (_hd119674119743_ + (##cdr _e119680119745_))) + (_hd119679119748_ (let () (declare (not safe)) - (##car _e119675119740_)))) + (##car _e119680119745_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd119674119743_)) - (let ((_e119678119748_ + _hd119679119748_)) + (let ((_e119683119753_ (let () (declare (not safe)) (gx#stx-e - _hd119674119743_)))) - (let ((_tl119676119753_ + _hd119679119748_)))) + (let ((_tl119681119758_ (let () (declare (not safe)) - (##cdr _e119678119748_))) - (_hd119677119751_ + (##cdr _e119683119753_))) + (_hd119682119756_ (let () (declare (not safe)) - (##car _e119678119748_)))) + (##car _e119683119753_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl119676119753_)) + _tl119681119758_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl119673119745_)) - (let ((_e119681119756_ + (gx#stx-pair? _tl119678119750_)) + (let ((_e119686119761_ (let () (declare (not safe)) - (gx#stx-e _tl119673119745_)))) - (let ((_tl119679119761_ + (gx#stx-e _tl119678119750_)))) + (let ((_tl119684119766_ (let () (declare (not safe)) - (##cdr _e119681119756_))) - (_hd119680119759_ + (##cdr _e119686119761_))) + (_hd119685119764_ (let () (declare (not safe)) - (##car _e119681119756_)))) + (##car _e119686119761_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl119679119761_)) - (___match128585128586_ - _e119675119740_ - _hd119674119743_ - _tl119673119745_ - _e119678119748_ - _hd119677119751_ - _tl119676119753_ - _e119681119756_ - _hd119680119759_ - _tl119679119761_) + (gx#stx-null? _tl119684119766_)) + (___match128590128591_ + _e119680119745_ + _hd119679119748_ + _tl119678119750_ + _e119683119753_ + _hd119682119756_ + _tl119681119758_ + _e119686119761_ + _hd119685119764_ + _tl119684119766_) (let () (declare (not safe)) - (_g119669119694_))))) - (let () (declare (not safe)) (_g119669119694_))) + (_g119674119699_))))) + (let () (declare (not safe)) (_g119674119699_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl119673119745_)) - (let ((_e119689119707_ + (gx#stx-pair? _tl119678119750_)) + (let ((_e119694119712_ (let () (declare (not safe)) - (gx#stx-e _tl119673119745_)))) - (let ((_tl119687119712_ + (gx#stx-e _tl119678119750_)))) + (let ((_tl119692119717_ (let () (declare (not safe)) - (##cdr _e119689119707_))) - (_hd119688119710_ + (##cdr _e119694119712_))) + (_hd119693119715_ (let () (declare (not safe)) - (##car _e119689119707_)))) + (##car _e119694119712_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl119687119712_)) - (___kont128562128563_ - _hd119688119710_ - _hd119674119743_) + (gx#stx-null? _tl119692119717_)) + (___kont128567128568_ + _hd119693119715_ + _hd119679119748_) (let () (declare (not safe)) - (_g119669119694_))))) - (let () (declare (not safe)) (_g119669119694_)))))) + (_g119674119699_))))) + (let () (declare (not safe)) (_g119674119699_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl119673119745_)) - (let ((_e119689119707_ + _tl119678119750_)) + (let ((_e119694119712_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl119673119745_)))) - (let ((_tl119687119712_ - (let () (declare (not safe)) (##cdr _e119689119707_))) - (_hd119688119710_ - (let () (declare (not safe)) (##car _e119689119707_)))) + (gx#stx-e _tl119678119750_)))) + (let ((_tl119692119717_ + (let () (declare (not safe)) (##cdr _e119694119712_))) + (_hd119693119715_ + (let () (declare (not safe)) (##car _e119694119712_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl119687119712_)) - (___kont128562128563_ _hd119688119710_ _hd119674119743_) - (let () (declare (not safe)) (_g119669119694_))))) - (let () (declare (not safe)) (_g119669119694_)))))) + (gx#stx-null? _tl119692119717_)) + (___kont128567128568_ _hd119693119715_ _hd119679119748_) + (let () (declare (not safe)) (_g119674119699_))))) + (let () (declare (not safe)) (_g119674119699_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g119669119694_))))))))) + (_g119674119699_))))))))) (if (let () (declare (not safe)) - (##pair? _rest119646119654_)) - (let ((_hd119651120017_ + (##pair? _rest119651119659_)) + (let ((_hd119656120022_ (let () (declare (not safe)) - (##car _rest119646119654_))) - (_tl119652120019_ + (##car _rest119651119659_))) + (_tl119657120024_ (let () (declare (not safe)) - (##cdr _rest119646119654_)))) - (let* ((_hd120022_ _hd119651120017_) - (_rest120024_ _tl119652120019_)) + (##cdr _rest119651119659_)))) + (let* ((_hd120027_ _hd119656120022_) + (_rest120029_ _tl119657120024_)) (declare (not safe)) - (_K119650120014_ _rest120024_ _hd120022_))) + (_K119655120019_ _rest120029_ _hd120027_))) (let () (declare (not safe)) - (_else119648119662_)))))))) - (let* ((___stx128602128603_ _stx119466_) - (_g119474119500_ + (_else119653119667_)))))))) + (let* ((___stx128607128608_ _stx119471_) + (_g119479119505_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx128602128603_))))) - (let ((___kont128604128605_ - (lambda (_L119560_ _L119561_) - (let ((__tmp129105 + ___stx128607128608_))))) + (let ((___kont128609128610_ + (lambda (_L119565_ _L119566_) + (let ((__tmp129110 (lambda () - (if (let ((__tmp129132 - (let ((__tmp129133 - (lambda (_g119589119592_ - _g119590119594_) + (if (let ((__tmp129137 + (let ((__tmp129138 + (lambda (_g119594119597_ + _g119595119599_) (let () (declare (not safe)) - (cons _g119589119592_ - _g119590119594_))))) + (cons _g119594119597_ + _g119595119599_))))) (declare (not safe)) - (foldr1 __tmp129133 + (foldr1 __tmp129138 '() - _L119561_)))) + _L119566_)))) (declare (not safe)) - (ormap1 _lift-kw-lambda?119470_ - __tmp129132)) - (let ((_g129119_ - (let ((__tmp129121 - (let ((__tmp129122 - (lambda (_g119596119599_ - _g119597119601_) + (ormap1 _lift-kw-lambda?119475_ + __tmp129137)) + (let ((_g129124_ + (let ((__tmp129126 + (let ((__tmp129127 + (lambda (_g119601119604_ + _g119602119606_) (let () (declare (not safe)) - (cons _g119596119599_ + (cons _g119601119604_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g119597119601_))))) + _g119602119606_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp129122 + (foldr1 __tmp129127 '() - _L119561_)))) + _L119566_)))) (declare (not safe)) - (_lift-kw-lambda-bindings119471_ - __tmp129121)))) + (_lift-kw-lambda-bindings119476_ + __tmp129126)))) (begin - (let ((_g129120_ + (let ((_g129125_ (let () (declare (not safe)) - (if (##values? _g129119_) - (##vector-length _g129119_) + (if (##values? _g129124_) + (##vector-length _g129124_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g129120_ 3))) + (##fx= _g129125_ 3))) (error "Context expects 3 values" - _g129120_))) - (let ((_lift1119604_ + _g129125_))) + (let ((_lift1119609_ (let () (declare (not safe)) - (##vector-ref _g129119_ 0))) - (_lift2119605_ + (##vector-ref _g129124_ 0))) + (_lift2119610_ (let () (declare (not safe)) - (##vector-ref _g129119_ 1))) - (_hd119606_ + (##vector-ref _g129124_ 1))) + (_hd119611_ (let () (declare (not safe)) - (##vector-ref _g129119_ 2)))) - (let* ((_expr119608_ - (let ((__tmp129123 - (let ((__tmp129124 - (let ((__tmp129125 + (##vector-ref _g129124_ 2)))) + (let* ((_expr119613_ + (let ((__tmp129128 + (let ((__tmp129129 + (let ((__tmp129130 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _L119560_ '())))) + (cons _L119565_ '())))) (declare (not safe)) - (cons _hd119606_ __tmp129125)))) + (cons _hd119611_ __tmp129130)))) (declare (not safe)) - (cons '%#let-values __tmp129124)))) + (cons '%#let-values __tmp129129)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp129123 - _stx119466_))) - (_expr119610_ - (let ((__tmp129126 - (let ((__tmp129127 - (let ((__tmp129128 + __tmp129128 + _stx119471_))) + (_expr119615_ + (let ((__tmp129131 + (let ((__tmp129132 + (let ((__tmp129133 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _expr119608_ '())))) + (cons _expr119613_ '())))) (declare (not safe)) - (cons _lift2119605_ __tmp129128)))) + (cons _lift2119610_ __tmp129133)))) (declare (not safe)) - (cons '%#let-values __tmp129127)))) + (cons '%#let-values __tmp129132)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp129126 - _stx119466_))) - (_expr119612_ - (let ((__tmp129129 - (let ((__tmp129130 - (let ((__tmp129131 + __tmp129131 + _stx119471_))) + (_expr119617_ + (let ((__tmp129134 + (let ((__tmp129135 + (let ((__tmp129136 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _expr119610_ '())))) + (cons _expr119615_ '())))) (declare (not safe)) - (cons _lift1119604_ __tmp129131)))) + (cons _lift1119609_ __tmp129136)))) (declare (not safe)) - (cons '%#let-values __tmp129130)))) + (cons '%#let-values __tmp129135)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp129129 - _stx119466_)))) + __tmp129134 + _stx119471_)))) (let () (declare (not safe)) (gxc#lift-top-lambda-let-values% - _expr119612_)))))) - (let ((_g129106_ - (let ((__tmp129108 - (let ((__tmp129109 - (lambda (_g119614119617_ - _g119615119619_) + _expr119617_)))))) + (let ((_g129111_ + (let ((__tmp129113 + (let ((__tmp129114 + (lambda (_g119619119622_ + _g119620119624_) (let () (declare (not safe)) - (cons _g119614119617_ + (cons _g119619119622_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g119615119619_))))) + _g119620119624_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp129109 + (foldr1 __tmp129114 '() - _L119561_)))) + _L119566_)))) (declare (not safe)) - (_compile-bindings119469_ - __tmp129108)))) + (_compile-bindings119474_ + __tmp129113)))) (begin - (let ((_g129107_ + (let ((_g129112_ (let () (declare (not safe)) - (if (##values? _g129106_) - (##vector-length _g129106_) + (if (##values? _g129111_) + (##vector-length _g129111_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g129107_ 3))) + (##fx= _g129112_ 3))) (error "Context expects 3 values" - _g129107_))) - (let ((_lift1119622_ + _g129112_))) + (let ((_lift1119627_ (let () (declare (not safe)) - (##vector-ref _g129106_ 0))) - (_lift2119623_ + (##vector-ref _g129111_ 0))) + (_lift2119628_ (let () (declare (not safe)) - (##vector-ref _g129106_ 1))) - (_hd119624_ + (##vector-ref _g129111_ 1))) + (_hd119629_ (let () (declare (not safe)) - (##vector-ref _g129106_ 2)))) - (let* ((_body119626_ + (##vector-ref _g129111_ 2)))) + (let* ((_body119631_ (let () (declare (not safe)) (gxc#compile-e__0 - _L119560_))) - (_expr119628_ - (let ((__tmp129110 - (let ((__tmp129111 - (let ((__tmp129112 + _L119565_))) + (_expr119633_ + (let ((__tmp129115 + (let ((__tmp129116 + (let ((__tmp129117 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _body119626_ '())))) + (cons _body119631_ '())))) (declare (not safe)) - (cons _hd119624_ __tmp129112)))) + (cons _hd119629_ __tmp129117)))) (declare (not safe)) - (cons '%#let-values __tmp129111)))) + (cons '%#let-values __tmp129116)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp129110 - _stx119466_))) - (_expr119630_ + __tmp129115 + _stx119471_))) + (_expr119635_ (if (let () (declare (not safe)) - (null? _lift2119623_)) - _expr119628_ - (let ((__tmp129113 - (let ((__tmp129114 + (null? _lift2119628_)) + _expr119633_ + (let ((__tmp129118 + (let ((__tmp129119 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp129115 + (let ((__tmp129120 (let () (declare (not safe)) - (cons _expr119628_ '())))) + (cons _expr119633_ '())))) (declare (not safe)) - (cons _lift2119623_ __tmp129115)))) + (cons _lift2119628_ __tmp129120)))) (declare (not safe)) - (cons '%#let-values __tmp129114)))) + (cons '%#let-values __tmp129119)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp129113 _stx119466_)))) + (gxc#xform-wrap-source __tmp129118 _stx119471_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_expr119632_ + (_expr119637_ (if (let () (declare (not safe)) - (null? _lift1119622_)) - _expr119630_ - (let ((__tmp129116 - (let ((__tmp129117 + (null? _lift1119627_)) + _expr119635_ + (let ((__tmp129121 + (let ((__tmp129122 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp129118 + (let ((__tmp129123 (let () (declare (not safe)) - (cons _expr119630_ '())))) + (cons _expr119635_ '())))) (declare (not safe)) - (cons _lift1119622_ __tmp129118)))) + (cons _lift1119627_ __tmp129123)))) (declare (not safe)) - (cons '%#let-values __tmp129117)))) + (cons '%#let-values __tmp129122)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp129116 _stx119466_))))) + (gxc#xform-wrap-source __tmp129121 _stx119471_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _expr119632_))))))) - (__tmp129104 - (let ((__obj128808 + _expr119637_))))))) + (__tmp129109 + (let ((__obj128813 (let () (declare (not safe)) (##structure @@ -14043,314 +14043,314 @@ '#f '#f '#f)))) - (gx#local-context:::init! __obj128808) - __obj128808))) + (gx#local-context:::init! __obj128813) + __obj128813))) (declare (not safe)) (call-with-parameters - __tmp129105 + __tmp129110 gx#current-expander-context - __tmp129104)))) - (___kont128608128609_ + __tmp129109)))) + (___kont128613128614_ (lambda () (let () (declare (not safe)) - (gxc#xform-let-values% _stx119466_))))) - (let ((___match128629128630_ - (lambda (_e119480119512_ - _hd119479119515_ - _tl119478119517_ - _e119483119520_ - _hd119482119523_ - _tl119481119525_ - ___splice128606128607_ - _target119484119528_ - _tl119486119530_) - (letrec ((_loop119487119533_ - (lambda (_hd119485119536_ _bind119491119538_) + (gxc#xform-let-values% _stx119471_))))) + (let ((___match128634128635_ + (lambda (_e119485119517_ + _hd119484119520_ + _tl119483119522_ + _e119488119525_ + _hd119487119528_ + _tl119486119530_ + ___splice128611128612_ + _target119489119533_ + _tl119491119535_) + (letrec ((_loop119492119538_ + (lambda (_hd119490119541_ _bind119496119543_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd119485119536_)) - (let ((_e119488119541_ + (gx#stx-pair? _hd119490119541_)) + (let ((_e119493119546_ (let () (declare (not safe)) - (gx#stx-e _hd119485119536_)))) - (let ((_lp-tl119490119546_ + (gx#stx-e _hd119490119541_)))) + (let ((_lp-tl119495119551_ (let () (declare (not safe)) - (##cdr _e119488119541_))) - (_lp-hd119489119544_ + (##cdr _e119493119546_))) + (_lp-hd119494119549_ (let () (declare (not safe)) - (##car _e119488119541_)))) - (let ((__tmp129136 + (##car _e119493119546_)))) + (let ((__tmp129141 (let () (declare (not safe)) - (cons _lp-hd119489119544_ - _bind119491119538_)))) + (cons _lp-hd119494119549_ + _bind119496119543_)))) (declare (not safe)) - (_loop119487119533_ - _lp-tl119490119546_ - __tmp129136)))) - (let ((_bind119492119549_ - (reverse _bind119491119538_))) + (_loop119492119538_ + _lp-tl119495119551_ + __tmp129141)))) + (let ((_bind119497119554_ + (reverse _bind119496119543_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl119481119525_)) - (let ((_e119495119552_ + (gx#stx-pair? _tl119486119530_)) + (let ((_e119500119557_ (let () (declare (not safe)) (gx#stx-e - _tl119481119525_)))) - (let ((_tl119493119557_ + _tl119486119530_)))) + (let ((_tl119498119562_ (let () (declare (not safe)) - (##cdr _e119495119552_))) - (_hd119494119555_ + (##cdr _e119500119557_))) + (_hd119499119560_ (let () (declare (not safe)) - (##car _e119495119552_)))) + (##car _e119500119557_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl119493119557_)) - (let ((_L119560_ - _hd119494119555_) - (_L119561_ - _bind119492119549_)) - (if (let ((__tmp129134 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp129135 - (lambda (_g119581119584_ _g119582119586_) + _tl119498119562_)) + (let ((_L119565_ + _hd119499119560_) + (_L119566_ + _bind119497119554_)) + (if (let ((__tmp129139 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp129140 + (lambda (_g119586119589_ _g119587119591_) (let () (declare (not safe)) - (cons _g119581119584_ _g119582119586_))))) + (cons _g119586119589_ _g119587119591_))))) (declare (not safe)) - (foldr1 __tmp129135 '() _L119561_)))) + (foldr1 __tmp129140 '() _L119566_)))) (declare (not safe)) - (ormap1 gxc#lift-top-lambda-binding? __tmp129134)) - (___kont128604128605_ _L119560_ _L119561_) - (___kont128608128609_))) + (ormap1 gxc#lift-top-lambda-binding? __tmp129139)) + (___kont128609128610_ _L119565_ _L119566_) + (___kont128613128614_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont128608128609_)))) - (___kont128608128609_))))))) + (___kont128613128614_)))) + (___kont128613128614_))))))) (let () (declare (not safe)) - (_loop119487119533_ _target119484119528_ '())))))) + (_loop119492119538_ _target119489119533_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx128602128603_)) - (let ((_e119480119512_ + (gx#stx-pair? ___stx128607128608_)) + (let ((_e119485119517_ (let () (declare (not safe)) - (gx#stx-e ___stx128602128603_)))) - (let ((_tl119478119517_ + (gx#stx-e ___stx128607128608_)))) + (let ((_tl119483119522_ (let () (declare (not safe)) - (##cdr _e119480119512_))) - (_hd119479119515_ + (##cdr _e119485119517_))) + (_hd119484119520_ (let () (declare (not safe)) - (##car _e119480119512_)))) + (##car _e119485119517_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl119478119517_)) - (let ((_e119483119520_ + (gx#stx-pair? _tl119483119522_)) + (let ((_e119488119525_ (let () (declare (not safe)) - (gx#stx-e _tl119478119517_)))) - (let ((_tl119481119525_ + (gx#stx-e _tl119483119522_)))) + (let ((_tl119486119530_ (let () (declare (not safe)) - (##cdr _e119483119520_))) - (_hd119482119523_ + (##cdr _e119488119525_))) + (_hd119487119528_ (let () (declare (not safe)) - (##car _e119483119520_)))) + (##car _e119488119525_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd119482119523_)) - (let ((___splice128606128607_ + (gx#stx-pair/null? _hd119487119528_)) + (let ((___splice128611128612_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd119482119523_ + _hd119487119528_ '0)))) - (let ((_tl119486119530_ + (let ((_tl119491119535_ (let () (declare (not safe)) (##vector-ref - ___splice128606128607_ + ___splice128611128612_ '1))) - (_target119484119528_ + (_target119489119533_ (let () (declare (not safe)) (##vector-ref - ___splice128606128607_ + ___splice128611128612_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl119486119530_)) - (___match128629128630_ - _e119480119512_ - _hd119479119515_ - _tl119478119517_ - _e119483119520_ - _hd119482119523_ - _tl119481119525_ - ___splice128606128607_ - _target119484119528_ - _tl119486119530_) - (___kont128608128609_)))) - (___kont128608128609_)))) - (___kont128608128609_)))) - (___kont128608128609_)))))))) + (gx#stx-null? _tl119491119535_)) + (___match128634128635_ + _e119485119517_ + _hd119484119520_ + _tl119483119522_ + _e119488119525_ + _hd119487119528_ + _tl119486119530_ + ___splice128611128612_ + _target119489119533_ + _tl119491119535_) + (___kont128613128614_)))) + (___kont128613128614_)))) + (___kont128613128614_)))) + (___kont128613128614_)))))))) (define gxc#lift-top-lambda-letrec-values% - (lambda (_stx118610_) - (letrec* ((_bind-e__126725126726_ - (lambda (_id119450_ _expr119451_ _compile?119452_) - (let ((__tmp129139 + (lambda (_stx118615_) + (letrec* ((_bind-e__126730126731_ + (lambda (_id119455_ _expr119456_ _compile?119457_) + (let ((__tmp129144 (let () (declare (not safe)) - (cons _id119450_ '()))) - (__tmp129137 - (let ((__tmp129138 - (if _compile?119452_ + (cons _id119455_ '()))) + (__tmp129142 + (let ((__tmp129143 + (if _compile?119457_ (let () (declare (not safe)) - (gxc#compile-e__0 _expr119451_)) - _expr119451_))) + (gxc#compile-e__0 _expr119456_)) + _expr119456_))) (declare (not safe)) - (cons __tmp129138 '())))) + (cons __tmp129143 '())))) (declare (not safe)) - (cons __tmp129139 __tmp129137)))) - (_bind-e__0__126727126728_ - (lambda (_id119457_ _expr119458_) - (let ((_compile?119460_ '#t)) + (cons __tmp129144 __tmp129142)))) + (_bind-e__0__126732126733_ + (lambda (_id119462_ _expr119463_) + (let ((_compile?119465_ '#t)) (declare (not safe)) - (_bind-e__126725126726_ - _id119457_ - _expr119458_ - _compile?119460_)))) - (_bind-e118612_ - (lambda _g129141_ - (let ((_g129140_ + (_bind-e__126730126731_ + _id119462_ + _expr119463_ + _compile?119465_)))) + (_bind-e118617_ + (lambda _g129146_ + (let ((_g129145_ (let () (declare (not safe)) - (##length _g129141_)))) - (cond ((let () (declare (not safe)) (##fx= _g129140_ 2)) - (apply (lambda (_id119457_ _expr119458_) + (##length _g129146_)))) + (cond ((let () (declare (not safe)) (##fx= _g129145_ 2)) + (apply (lambda (_id119462_ _expr119463_) (let () (declare (not safe)) - (_bind-e__0__126727126728_ - _id119457_ - _expr119458_))) - _g129141_)) - ((let () (declare (not safe)) (##fx= _g129140_ 3)) - (apply (lambda (_id119462_ - _expr119463_ - _compile?119464_) + (_bind-e__0__126732126733_ + _id119462_ + _expr119463_))) + _g129146_)) + ((let () (declare (not safe)) (##fx= _g129145_ 3)) + (apply (lambda (_id119467_ + _expr119468_ + _compile?119469_) (let () (declare (not safe)) - (_bind-e__126725126726_ - _id119462_ - _expr119463_ - _compile?119464_))) - _g129141_)) + (_bind-e__126730126731_ + _id119467_ + _expr119468_ + _compile?119469_))) + _g129146_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g129141_)))))) - (_compile-bindings118613_ - (lambda (_rest118748_) - (let _lp118750_ ((_rest118752_ _rest118748_) - (_bind118753_ '())) - (let* ((_rest118754118762_ _rest118752_) - (_else118756118770_ - (lambda () (reverse _bind118753_))) - (_K118758119437_ - (lambda (_rest118773_ _hd118774_) - (let* ((___stx128652128653_ _hd118774_) - (_g118779118826_ + _g129146_)))))) + (_compile-bindings118618_ + (lambda (_rest118753_) + (let _lp118755_ ((_rest118757_ _rest118753_) + (_bind118758_ '())) + (let* ((_rest118759118767_ _rest118757_) + (_else118761118775_ + (lambda () (reverse _bind118758_))) + (_K118763119442_ + (lambda (_rest118778_ _hd118779_) + (let* ((___stx128657128658_ _hd118779_) + (_g118784118831_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx128652128653_))))) - (let ((___kont128654128655_ - (lambda (_L119344_ _L119345_) - (let* ((___stx128632128633_ - _L119344_) - (_g119360119374_ + ___stx128657128658_))))) + (let ((___kont128659128660_ + (lambda (_L119349_ _L119350_) + (let* ((___stx128637128638_ + _L119349_) + (_g119365119379_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx128632128633_))))) - (let ((___kont128634128635_ - (lambda (_L119422_) - (let ((__tmp129142 - (let ((__tmp129143 + ___stx128637128638_))))) + (let ((___kont128639128640_ + (lambda (_L119427_) + (let ((__tmp129147 + (let ((__tmp129148 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (_bind-e__126725126726_ - _L119345_ - _L119344_ + (_bind-e__126730126731_ + _L119350_ + _L119349_ '#f)))) (declare (not safe)) - (cons __tmp129143 _bind118753_)))) + (cons __tmp129148 _bind118758_)))) (declare (not safe)) - (_lp118750_ _rest118773_ __tmp129142)))) + (_lp118755_ _rest118778_ __tmp129147)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont128636128637_ - (lambda (_L119387_) - (let ((_g129144_ + (___kont128641128642_ + (lambda (_L119392_) + (let ((_g129149_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gxc#lift-case-lambda-clauses__% - _stx118610_ - _L119345_ - _L119387_ + _stx118615_ + _L119350_ + _L119392_ '#t)))) (begin - (let ((_g129145_ + (let ((_g129150_ (let () (declare (not safe)) - (if (##values? _g129144_) - (##vector-length _g129144_) + (if (##values? _g129149_) + (##vector-length _g129149_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g129145_ 3))) - (error "Context expects 3 values" _g129145_))) - (let ((_ids119397_ + (##fx= _g129150_ 3))) + (error "Context expects 3 values" _g129150_))) + (let ((_ids119402_ (let () (declare (not safe)) - (##vector-ref _g129144_ 0))) - (_impls119398_ + (##vector-ref _g129149_ 0))) + (_impls119403_ (let () (declare (not safe)) - (##vector-ref _g129144_ 1))) - (_clauses119399_ + (##vector-ref _g129149_ 1))) + (_clauses119404_ (let () (declare (not safe)) - (##vector-ref _g129144_ 2)))) - (let* ((_g129146_ - (for-each gx#core-bind-runtime! _ids119397_)) - (_xbind119402_ - (map _bind-e118612_ _ids119397_ _impls119398_)) - (_expr*119404_ - (let ((__tmp129148 + (##vector-ref _g129149_ 2)))) + (let* ((_g129151_ + (for-each gx#core-bind-runtime! _ids119402_)) + (_xbind119407_ + (map _bind-e118617_ _ids119402_ _impls119403_)) + (_expr*119409_ + (let ((__tmp129153 (let () (declare (not safe)) - (cons '%#case-lambda _clauses119399_))) - (__tmp129147 + (cons '%#case-lambda _clauses119404_))) + (__tmp129152 (let () (declare (not safe)) (gx#datum->syntax__0 @@ -14358,1134 +14358,1134 @@ 'case-lambda-expr)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp129148 - __tmp129147))) - (_bind*119406_ + __tmp129153 + __tmp129152))) + (_bind*119411_ (let () (declare (not safe)) - (_bind-e__126725126726_ - _L119345_ - _expr*119404_ + (_bind-e__126730126731_ + _L119350_ + _expr*119409_ '#f)))) - (let ((__tmp129150 + (let ((__tmp129155 (let () (declare (not safe)) - (gxc#identifier-symbol _L119345_))) - (__tmp129149 - (map gxc#identifier-symbol _ids119397_))) + (gxc#identifier-symbol _L119350_))) + (__tmp129154 + (map gxc#identifier-symbol _ids119402_))) (declare (not safe)) (gxc#verbose '"lift case-lambda clauses " - __tmp129150 + __tmp129155 '" => " - __tmp129149)) - (let ((__tmp129151 - (let ((__tmp129152 + __tmp129154)) + (let ((__tmp129156 + (let ((__tmp129157 (let () (declare (not safe)) (foldl1 cons - _bind118753_ - _xbind119402_)))) + _bind118758_ + _xbind119407_)))) (declare (not safe)) - (cons _bind*119406_ __tmp129152)))) + (cons _bind*119411_ __tmp129157)))) (declare (not safe)) - (_lp118750_ _rest118773_ __tmp129151))))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((___match128643128644_ - (lambda (_e119365119414_ - _hd119364119417_ - _tl119363119419_) - (let ((_L119422_ - _tl119363119419_)) + (_lp118755_ _rest118778_ __tmp129156))))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((___match128648128649_ + (lambda (_e119370119419_ + _hd119369119422_ + _tl119368119424_) + (let ((_L119427_ + _tl119368119424_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (andmap1 gxc#dispatch-lambda-form? _L119422_)) - (___kont128634128635_ _L119422_) - (___kont128636128637_ _tl119363119419_)))))) + (andmap1 gxc#dispatch-lambda-form? _L119427_)) + (___kont128639128640_ _L119427_) + (___kont128641128642_ _tl119368119424_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - ___stx128632128633_)) - (let ((_e119365119414_ + ___stx128637128638_)) + (let ((_e119370119419_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e ___stx128632128633_)))) - (let ((_tl119363119419_ - (let () (declare (not safe)) (##cdr _e119365119414_))) - (_hd119364119417_ - (let () (declare (not safe)) (##car _e119365119414_)))) - (___match128643128644_ - _e119365119414_ - _hd119364119417_ - _tl119363119419_))) - (let () (declare (not safe)) (_g119360119374_)))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont128656128657_ - (lambda (_L119172_ _L119173_) - (let* ((_g119187119217_ - (lambda (_g119188119214_) + (gx#stx-e ___stx128637128638_)))) + (let ((_tl119368119424_ + (let () (declare (not safe)) (##cdr _e119370119419_))) + (_hd119369119422_ + (let () (declare (not safe)) (##car _e119370119419_)))) + (___match128648128649_ + _e119370119419_ + _hd119369119422_ + _tl119368119424_))) + (let () (declare (not safe)) (_g119365119379_)))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont128661128662_ + (lambda (_L119177_ _L119178_) + (let* ((_g119192119222_ + (lambda (_g119193119219_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g119188119214_)))) - (_g119186119312_ - (lambda (_g119188119220_) + _g119193119219_)))) + (_g119191119317_ + (lambda (_g119193119225_) (if (let () (declare (not safe)) (gx#stx-pair? - _g119188119220_)) - (let ((_e119194119222_ + _g119193119225_)) + (let ((_e119199119227_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _g119188119220_)))) - (let ((_hd119193119225_ + (gx#stx-e _g119193119225_)))) + (let ((_hd119198119230_ (let () (declare (not safe)) - (##car _e119194119222_))) - (_tl119192119227_ + (##car _e119199119227_))) + (_tl119197119232_ (let () (declare (not safe)) - (##cdr _e119194119222_)))) + (##cdr _e119199119227_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl119192119227_)) - (let ((_e119197119230_ + (gx#stx-pair? _tl119197119232_)) + (let ((_e119202119235_ (let () (declare (not safe)) - (gx#stx-e _tl119192119227_)))) - (let ((_hd119196119233_ + (gx#stx-e _tl119197119232_)))) + (let ((_hd119201119238_ (let () (declare (not safe)) - (##car _e119197119230_))) - (_tl119195119235_ + (##car _e119202119235_))) + (_tl119200119240_ (let () (declare (not safe)) - (##cdr _e119197119230_)))) + (##cdr _e119202119235_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd119196119233_)) - (let ((_e119200119238_ + (gx#stx-pair? _hd119201119238_)) + (let ((_e119205119243_ (let () (declare (not safe)) - (gx#stx-e _hd119196119233_)))) - (let ((_hd119199119241_ + (gx#stx-e _hd119201119238_)))) + (let ((_hd119204119246_ (let () (declare (not safe)) - (##car _e119200119238_))) - (_tl119198119243_ + (##car _e119205119243_))) + (_tl119203119248_ (let () (declare (not safe)) - (##cdr _e119200119238_)))) + (##cdr _e119205119243_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd119199119241_)) - (let ((_e119203119246_ + (gx#stx-pair? _hd119204119246_)) + (let ((_e119208119251_ (let () (declare (not safe)) (gx#stx-e - _hd119199119241_)))) - (let ((_hd119202119249_ + _hd119204119246_)))) + (let ((_hd119207119254_ (let () (declare (not safe)) - (##car _e119203119246_))) - (_tl119201119251_ + (##car _e119208119251_))) + (_tl119206119256_ (let () (declare (not safe)) - (##cdr _e119203119246_)))) + (##cdr _e119208119251_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd119202119249_)) - (let ((_e119206119254_ + _hd119207119254_)) + (let ((_e119211119259_ (let () (declare (not safe)) (gx#stx-e - _hd119202119249_)))) - (let ((_hd119205119257_ + _hd119207119254_)))) + (let ((_hd119210119262_ (let () (declare (not safe)) - (##car _e119206119254_))) - (_tl119204119259_ + (##car _e119211119259_))) + (_tl119209119264_ (let () (declare (not safe)) - (##cdr _e119206119254_)))) + (##cdr _e119211119259_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl119204119259_)) + _tl119209119264_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl119201119251_)) - (let ((_e119209119262_ + (gx#stx-pair? _tl119206119256_)) + (let ((_e119214119267_ (let () (declare (not safe)) - (gx#stx-e _tl119201119251_)))) - (let ((_hd119208119265_ + (gx#stx-e _tl119206119256_)))) + (let ((_hd119213119270_ (let () (declare (not safe)) - (##car _e119209119262_))) - (_tl119207119267_ + (##car _e119214119267_))) + (_tl119212119272_ (let () (declare (not safe)) - (##cdr _e119209119262_)))) + (##cdr _e119214119267_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl119207119267_)) + (gx#stx-null? _tl119212119272_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl119198119243_)) + (gx#stx-null? _tl119203119248_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl119195119235_)) - (let ((_e119212119270_ + (gx#stx-pair? _tl119200119240_)) + (let ((_e119217119275_ (let () (declare (not safe)) - (gx#stx-e _tl119195119235_)))) - (let ((_hd119211119273_ + (gx#stx-e _tl119200119240_)))) + (let ((_hd119216119278_ (let () (declare (not safe)) - (##car _e119212119270_))) - (_tl119210119275_ + (##car _e119217119275_))) + (_tl119215119280_ (let () (declare (not safe)) - (##cdr _e119212119270_)))) + (##cdr _e119217119275_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl119210119275_)) - ((lambda (_L119278_ - _L119279_ - _L119280_) - (let* ((_lambda-id119304_ - (let ((__tmp129154 + _tl119215119280_)) + ((lambda (_L119283_ + _L119284_ + _L119285_) + (let* ((_lambda-id119309_ + (let ((__tmp129159 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _L119173_))) - (__tmp129153 (gensym '__))) + (gx#stx-e _L119178_))) + (__tmp129158 (gensym '__))) (declare (not safe)) - (make-symbol__1 __tmp129154 __tmp129153))) - (_lambda-id119306_ - (let ((__tmp129155 + (make-symbol__1 __tmp129159 __tmp129158))) + (_lambda-id119311_ + (let ((__tmp129160 (let () (declare (not safe)) - (gx#stx-source _stx118610_)))) + (gx#stx-source _stx118615_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _lambda-id119304_ __tmp129155))) - (_g129156_ + (gx#core-quote-syntax__1 _lambda-id119309_ __tmp129160))) + (_g129161_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _lambda-id119306_))) - (_new-case-lambda-expr119309_ + (gx#core-bind-runtime!__0 _lambda-id119311_))) + (_new-case-lambda-expr119314_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L119278_ - _L119280_ - _lambda-id119306_)))) + _L119283_ + _L119285_ + _lambda-id119311_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp129158 + (let ((__tmp129163 (let () (declare (not safe)) (gxc#identifier-symbol - _L119173_))) - (__tmp129157 + _L119178_))) + (__tmp129162 (let () (declare (not safe)) (gxc#identifier-symbol - _lambda-id119306_)))) + _lambda-id119311_)))) (declare (not safe)) (gxc#verbose '"lift opt-lambda dispatch " - __tmp129158 + __tmp129163 '" => " - __tmp129157)) - (let ((__tmp129161 - (let ((__tmp129162 + __tmp129162)) + (let ((__tmp129166 + (let ((__tmp129167 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (_bind-e__126725126726_ - _L119173_ - _new-case-lambda-expr119309_ + (_bind-e__126730126731_ + _L119178_ + _new-case-lambda-expr119314_ '#f)))) (declare (not safe)) - (cons __tmp129162 _rest118773_))) - (__tmp129159 - (let ((__tmp129160 + (cons __tmp129167 _rest118778_))) + (__tmp129164 + (let ((__tmp129165 (let () (declare (not safe)) - (_bind-e__0__126727126728_ - _lambda-id119306_ - _L119279_)))) + (_bind-e__0__126732126733_ + _lambda-id119311_ + _L119284_)))) (declare (not safe)) - (cons __tmp129160 _bind118753_)))) + (cons __tmp129165 _bind118758_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp118750_ - __tmp129161 - __tmp129159)))) - _hd119211119273_ - _hd119208119265_ - _hd119205119257_) + (_lp118755_ + __tmp129166 + __tmp129164)))) + _hd119216119278_ + _hd119213119270_ + _hd119210119262_) (let () (declare (not safe)) - (_g119187119217_ - _g119188119220_))))) + (_g119192119222_ + _g119193119225_))))) (let () (declare (not safe)) - (_g119187119217_ _g119188119220_))) + (_g119192119222_ _g119193119225_))) (let () (declare (not safe)) - (_g119187119217_ _g119188119220_))) + (_g119192119222_ _g119193119225_))) (let () (declare (not safe)) - (_g119187119217_ _g119188119220_))))) + (_g119192119222_ _g119193119225_))))) (let () (declare (not safe)) - (_g119187119217_ _g119188119220_))) + (_g119192119222_ _g119193119225_))) (let () (declare (not safe)) - (_g119187119217_ _g119188119220_))))) + (_g119192119222_ _g119193119225_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g119187119217_ - _g119188119220_))))) + (_g119192119222_ + _g119193119225_))))) (let () (declare (not safe)) - (_g119187119217_ - _g119188119220_))))) + (_g119192119222_ + _g119193119225_))))) (let () (declare (not safe)) - (_g119187119217_ _g119188119220_))))) + (_g119192119222_ _g119193119225_))))) (let () (declare (not safe)) - (_g119187119217_ _g119188119220_))))) + (_g119192119222_ _g119193119225_))))) (let () (declare (not safe)) - (_g119187119217_ _g119188119220_)))))) + (_g119192119222_ _g119193119225_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g119186119312_ _L119172_)))) - (___kont128658128659_ - (lambda (_L118896_ _L118897_) - (let* ((_g118911118964_ - (lambda (_g118912118961_) + (_g119191119317_ _L119177_)))) + (___kont128663128664_ + (lambda (_L118901_ _L118902_) + (let* ((_g118916118969_ + (lambda (_g118917118966_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g118912118961_)))) - (_g118910119140_ - (lambda (_g118912118967_) + _g118917118966_)))) + (_g118915119145_ + (lambda (_g118917118972_) (if (let () (declare (not safe)) (gx#stx-pair? - _g118912118967_)) - (let ((_e118920118969_ + _g118917118972_)) + (let ((_e118925118974_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _g118912118967_)))) - (let ((_hd118919118972_ + (gx#stx-e _g118917118972_)))) + (let ((_hd118924118977_ (let () (declare (not safe)) - (##car _e118920118969_))) - (_tl118918118974_ + (##car _e118925118974_))) + (_tl118923118979_ (let () (declare (not safe)) - (##cdr _e118920118969_)))) + (##cdr _e118925118974_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl118918118974_)) - (let ((_e118923118977_ + (gx#stx-pair? _tl118923118979_)) + (let ((_e118928118982_ (let () (declare (not safe)) - (gx#stx-e _tl118918118974_)))) - (let ((_hd118922118980_ + (gx#stx-e _tl118923118979_)))) + (let ((_hd118927118985_ (let () (declare (not safe)) - (##car _e118923118977_))) - (_tl118921118982_ + (##car _e118928118982_))) + (_tl118926118987_ (let () (declare (not safe)) - (##cdr _e118923118977_)))) + (##cdr _e118928118982_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd118922118980_)) - (let ((_e118926118985_ + (gx#stx-pair? _hd118927118985_)) + (let ((_e118931118990_ (let () (declare (not safe)) - (gx#stx-e _hd118922118980_)))) - (let ((_hd118925118988_ + (gx#stx-e _hd118927118985_)))) + (let ((_hd118930118993_ (let () (declare (not safe)) - (##car _e118926118985_))) - (_tl118924118990_ + (##car _e118931118990_))) + (_tl118929118995_ (let () (declare (not safe)) - (##cdr _e118926118985_)))) + (##cdr _e118931118990_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd118925118988_)) - (let ((_e118929118993_ + (gx#stx-pair? _hd118930118993_)) + (let ((_e118934118998_ (let () (declare (not safe)) (gx#stx-e - _hd118925118988_)))) - (let ((_hd118928118996_ + _hd118930118993_)))) + (let ((_hd118933119001_ (let () (declare (not safe)) - (##car _e118929118993_))) - (_tl118927118998_ + (##car _e118934118998_))) + (_tl118932119003_ (let () (declare (not safe)) - (##cdr _e118929118993_)))) + (##cdr _e118934118998_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd118928118996_)) - (let ((_e118932119001_ + _hd118933119001_)) + (let ((_e118937119006_ (let () (declare (not safe)) (gx#stx-e - _hd118928118996_)))) - (let ((_hd118931119004_ + _hd118933119001_)))) + (let ((_hd118936119009_ (let () (declare (not safe)) - (##car _e118932119001_))) - (_tl118930119006_ + (##car _e118937119006_))) + (_tl118935119011_ (let () (declare (not safe)) - (##cdr _e118932119001_)))) + (##cdr _e118937119006_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl118930119006_)) + _tl118935119011_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl118927118998_)) - (let ((_e118935119009_ + (gx#stx-pair? _tl118932119003_)) + (let ((_e118940119014_ (let () (declare (not safe)) - (gx#stx-e _tl118927118998_)))) - (let ((_hd118934119012_ + (gx#stx-e _tl118932119003_)))) + (let ((_hd118939119017_ (let () (declare (not safe)) - (##car _e118935119009_))) - (_tl118933119014_ + (##car _e118940119014_))) + (_tl118938119019_ (let () (declare (not safe)) - (##cdr _e118935119009_)))) + (##cdr _e118940119014_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd118934119012_)) - (let ((_e118938119017_ + (gx#stx-pair? _hd118939119017_)) + (let ((_e118943119022_ (let () (declare (not safe)) - (gx#stx-e _hd118934119012_)))) - (let ((_hd118937119020_ + (gx#stx-e _hd118939119017_)))) + (let ((_hd118942119025_ (let () (declare (not safe)) - (##car _e118938119017_))) - (_tl118936119022_ + (##car _e118943119022_))) + (_tl118941119027_ (let () (declare (not safe)) - (##cdr _e118938119017_)))) + (##cdr _e118943119022_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl118936119022_)) - (let ((_e118941119025_ + (gx#stx-pair? _tl118941119027_)) + (let ((_e118946119030_ (let () (declare (not safe)) - (gx#stx-e _tl118936119022_)))) - (let ((_hd118940119028_ + (gx#stx-e _tl118941119027_)))) + (let ((_hd118945119033_ (let () (declare (not safe)) - (##car _e118941119025_))) - (_tl118939119030_ + (##car _e118946119030_))) + (_tl118944119035_ (let () (declare (not safe)) - (##cdr _e118941119025_)))) + (##cdr _e118946119030_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd118940119028_)) - (let ((_e118944119033_ + _hd118945119033_)) + (let ((_e118949119038_ (let () (declare (not safe)) (gx#stx-e - _hd118940119028_)))) - (let ((_hd118943119036_ + _hd118945119033_)))) + (let ((_hd118948119041_ (let () (declare (not safe)) - (##car _e118944119033_))) - (_tl118942119038_ + (##car _e118949119038_))) + (_tl118947119043_ (let () (declare (not safe)) - (##cdr _e118944119033_)))) + (##cdr _e118949119038_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd118943119036_)) - (let ((_e118947119041_ + _hd118948119041_)) + (let ((_e118952119046_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd118943119036_)))) - (let ((_hd118946119044_ - (let () (declare (not safe)) (##car _e118947119041_))) - (_tl118945119046_ - (let () (declare (not safe)) (##cdr _e118947119041_)))) + (gx#stx-e _hd118948119041_)))) + (let ((_hd118951119049_ + (let () (declare (not safe)) (##car _e118952119046_))) + (_tl118950119051_ + (let () (declare (not safe)) (##cdr _e118952119046_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd118946119044_)) - (let ((_e118950119049_ + (gx#stx-pair? _hd118951119049_)) + (let ((_e118955119054_ (let () (declare (not safe)) - (gx#stx-e _hd118946119044_)))) - (let ((_hd118949119052_ + (gx#stx-e _hd118951119049_)))) + (let ((_hd118954119057_ (let () (declare (not safe)) - (##car _e118950119049_))) - (_tl118948119054_ + (##car _e118955119054_))) + (_tl118953119059_ (let () (declare (not safe)) - (##cdr _e118950119049_)))) + (##cdr _e118955119054_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl118948119054_)) + (gx#stx-null? _tl118953119059_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl118945119046_)) - (let ((_e118953119057_ + (gx#stx-pair? _tl118950119051_)) + (let ((_e118958119062_ (let () (declare (not safe)) - (gx#stx-e _tl118945119046_)))) - (let ((_hd118952119060_ + (gx#stx-e _tl118950119051_)))) + (let ((_hd118957119065_ (let () (declare (not safe)) - (##car _e118953119057_))) - (_tl118951119062_ + (##car _e118958119062_))) + (_tl118956119067_ (let () (declare (not safe)) - (##cdr _e118953119057_)))) + (##cdr _e118958119062_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl118951119062_)) + (gx#stx-null? _tl118956119067_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl118942119038_)) + _tl118947119043_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl118939119030_)) - (let ((_e118956119065_ + _tl118944119035_)) + (let ((_e118961119070_ (let () (declare (not safe)) (gx#stx-e - _tl118939119030_)))) - (let ((_hd118955119068_ + _tl118944119035_)))) + (let ((_hd118960119073_ (let () (declare (not safe)) - (##car _e118956119065_))) - (_tl118954119070_ + (##car _e118961119070_))) + (_tl118959119075_ (let () (declare (not safe)) - (##cdr _e118956119065_)))) + (##cdr _e118961119070_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl118954119070_)) + _tl118959119075_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl118933119014_)) + (gx#stx-null? _tl118938119019_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl118924118990_)) + (gx#stx-null? _tl118929118995_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl118921118982_)) - (let ((_e118959119073_ + (gx#stx-pair? _tl118926118987_)) + (let ((_e118964119078_ (let () (declare (not safe)) - (gx#stx-e _tl118921118982_)))) - (let ((_hd118958119076_ + (gx#stx-e _tl118926118987_)))) + (let ((_hd118963119081_ (let () (declare (not safe)) - (##car _e118959119073_))) - (_tl118957119078_ + (##car _e118964119078_))) + (_tl118962119083_ (let () (declare (not safe)) - (##cdr _e118959119073_)))) + (##cdr _e118964119078_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl118957119078_)) - ((lambda (_L119081_ - _L119082_ - _L119083_ - _L119084_ - _L119085_) - (let* ((_get-kws-id119125_ - (let ((__tmp129164 + (gx#stx-null? _tl118962119083_)) + ((lambda (_L119086_ + _L119087_ + _L119088_ + _L119089_ + _L119090_) + (let* ((_get-kws-id119130_ + (let ((__tmp129169 (let () (declare (not safe)) (gx#stx-e - _L118897_))) - (__tmp129163 + _L118902_))) + (__tmp129168 (gensym '__))) (declare (not safe)) (make-symbol__1 - __tmp129164 - __tmp129163))) - (_get-kws-id119127_ - (let ((__tmp129165 + __tmp129169 + __tmp129168))) + (_get-kws-id119132_ + (let ((__tmp129170 (let () (declare (not safe)) (gx#stx-source - _stx118610_)))) + _stx118615_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _get-kws-id119125_ - __tmp129165))) - (_main-id119129_ - (let ((__tmp129167 + _get-kws-id119130_ + __tmp129170))) + (_main-id119134_ + (let ((__tmp129172 (let () (declare (not safe)) (gx#stx-e - _L118897_))) - (__tmp129166 + _L118902_))) + (__tmp129171 (gensym '__))) (declare (not safe)) (make-symbol__1 - __tmp129167 - __tmp129166))) - (_main-id119131_ - (let ((__tmp129168 + __tmp129172 + __tmp129171))) + (_main-id119136_ + (let ((__tmp129173 (let () (declare (not safe)) (gx#stx-source - _stx118610_)))) + _stx118615_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _main-id119129_ - __tmp129168))) - (_g129169_ + _main-id119134_ + __tmp129173))) + (_g129174_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _get-kws-id119127_))) - (_g129170_ + _get-kws-id119132_))) + (_g129175_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _main-id119131_))) - (_new-kw-dispatch119135_ + _main-id119136_))) + (_new-kw-dispatch119140_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L119081_ - _L119085_ - _get-kws-id119127_))) - (_new-get-kws119137_ + _L119086_ + _L119090_ + _get-kws-id119132_))) + (_new-get-kws119142_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L119082_ - _L119084_ - _main-id119131_)))) - (let ((__tmp129173 + _L119087_ + _L119089_ + _main-id119136_)))) + (let ((__tmp129178 (let () (declare (not safe)) (gxc#identifier-symbol - _L118897_))) - (__tmp129172 + _L118902_))) + (__tmp129177 (let () (declare (not safe)) (gxc#identifier-symbol - _get-kws-id119127_))) - (__tmp129171 + _get-kws-id119132_))) + (__tmp129176 (let () (declare (not safe)) (gxc#identifier-symbol - _main-id119131_)))) + _main-id119136_)))) (declare (not safe)) (gxc#verbose '"lift kw-lambda dispatch " - __tmp129173 + __tmp129178 '" => " - __tmp129172 + __tmp129177 '" => " - __tmp129171)) - (let ((__tmp129174 - (let ((__tmp129179 + __tmp129176)) + (let ((__tmp129179 + (let ((__tmp129184 (let () (declare (not safe)) - (_bind-e__126725126726_ - _main-id119131_ - _L119083_ + (_bind-e__126730126731_ + _main-id119136_ + _L119088_ '#f))) - (__tmp129175 - (let ((__tmp129178 + (__tmp129180 + (let ((__tmp129183 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (_bind-e__126725126726_ - _get-kws-id119127_ - _new-get-kws119137_ + (_bind-e__126730126731_ + _get-kws-id119132_ + _new-get-kws119142_ '#f))) - (__tmp129176 - (let ((__tmp129177 + (__tmp129181 + (let ((__tmp129182 (let () (declare (not safe)) - (_bind-e__126725126726_ - _L118897_ - _new-kw-dispatch119135_ + (_bind-e__126730126731_ + _L118902_ + _new-kw-dispatch119140_ '#f)))) (declare (not safe)) - (cons __tmp129177 _rest118773_)))) + (cons __tmp129182 _rest118778_)))) (declare (not safe)) - (cons __tmp129178 __tmp129176)))) + (cons __tmp129183 __tmp129181)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp129179 - __tmp129175)))) + (cons __tmp129184 + __tmp129180)))) (declare (not safe)) - (_lp118750_ - __tmp129174 - _bind118753_)))) - _hd118958119076_ - _hd118955119068_ - _hd118952119060_ - _hd118949119052_ - _hd118931119004_) + (_lp118755_ + __tmp129179 + _bind118758_)))) + _hd118963119081_ + _hd118960119073_ + _hd118957119065_ + _hd118954119057_ + _hd118936119009_) (let () (declare (not safe)) - (_g118911118964_ _g118912118967_))))) + (_g118916118969_ _g118917118972_))))) (let () (declare (not safe)) - (_g118911118964_ _g118912118967_))) + (_g118916118969_ _g118917118972_))) (let () (declare (not safe)) - (_g118911118964_ _g118912118967_))) + (_g118916118969_ _g118917118972_))) (let () (declare (not safe)) - (_g118911118964_ _g118912118967_))) + (_g118916118969_ _g118917118972_))) (let () (declare (not safe)) - (_g118911118964_ _g118912118967_))))) + (_g118916118969_ _g118917118972_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g118911118964_ - _g118912118967_))) + (_g118916118969_ + _g118917118972_))) (let () (declare (not safe)) - (_g118911118964_ - _g118912118967_))) + (_g118916118969_ + _g118917118972_))) (let () (declare (not safe)) - (_g118911118964_ - _g118912118967_))))) + (_g118916118969_ + _g118917118972_))))) (let () (declare (not safe)) - (_g118911118964_ _g118912118967_))) + (_g118916118969_ _g118917118972_))) (let () (declare (not safe)) - (_g118911118964_ _g118912118967_))))) + (_g118916118969_ _g118917118972_))))) (let () (declare (not safe)) - (_g118911118964_ _g118912118967_))))) + (_g118916118969_ _g118917118972_))))) (let () (declare (not safe)) - (_g118911118964_ _g118912118967_))))) + (_g118916118969_ _g118917118972_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g118911118964_ - _g118912118967_))))) + (_g118916118969_ + _g118917118972_))))) (let () (declare (not safe)) - (_g118911118964_ _g118912118967_))))) + (_g118916118969_ _g118917118972_))))) (let () (declare (not safe)) - (_g118911118964_ _g118912118967_))))) + (_g118916118969_ _g118917118972_))))) (let () (declare (not safe)) - (_g118911118964_ _g118912118967_))) + (_g118916118969_ _g118917118972_))) (let () (declare (not safe)) - (_g118911118964_ _g118912118967_))))) + (_g118916118969_ _g118917118972_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g118911118964_ - _g118912118967_))))) + (_g118916118969_ + _g118917118972_))))) (let () (declare (not safe)) - (_g118911118964_ - _g118912118967_))))) + (_g118916118969_ + _g118917118972_))))) (let () (declare (not safe)) - (_g118911118964_ _g118912118967_))))) + (_g118916118969_ _g118917118972_))))) (let () (declare (not safe)) - (_g118911118964_ _g118912118967_))))) + (_g118916118969_ _g118917118972_))))) (let () (declare (not safe)) - (_g118911118964_ _g118912118967_)))))) + (_g118916118969_ _g118917118972_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g118910119140_ _L118896_)))) - (___kont128660128661_ - (lambda (_L118847_ _L118848_) - (let ((__tmp129180 - (let ((__tmp129181 - (let ((__tmp129182 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp129183 + (_g118915119145_ _L118901_)))) + (___kont128665128666_ + (lambda (_L118852_ _L118853_) + (let ((__tmp129185 + (let ((__tmp129186 + (let ((__tmp129187 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp129188 (let () (declare (not safe)) - (gxc#compile-e__0 _L118847_)))) + (gxc#compile-e__0 _L118852_)))) (declare (not safe)) - (cons __tmp129183 '())))) + (cons __tmp129188 '())))) (declare (not safe)) - (cons _L118848_ __tmp129182)))) + (cons _L118853_ __tmp129187)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp129181 - _bind118753_)))) + (cons __tmp129186 + _bind118758_)))) (declare (not safe)) - (_lp118750_ - _rest118773_ - __tmp129180))))) - (let* ((___match128727128728_ - (lambda (_e118807118872_ - _hd118806118875_ - _tl118805118877_ - _e118810118880_ - _hd118809118883_ - _tl118808118885_ - _e118813118888_ - _hd118812118891_ - _tl118811118893_) - (let ((_L118896_ - _hd118812118891_) - (_L118897_ - _hd118809118883_)) + (_lp118755_ + _rest118778_ + __tmp129185))))) + (let* ((___match128732128733_ + (lambda (_e118812118877_ + _hd118811118880_ + _tl118810118882_ + _e118815118885_ + _hd118814118888_ + _tl118813118890_ + _e118818118893_ + _hd118817118896_ + _tl118816118898_) + (let ((_L118901_ + _hd118817118896_) + (_L118902_ + _hd118814118888_)) (if (and (let () (declare (not safe)) (gx#identifier? - _L118897_)) + _L118902_)) (let () (declare (not safe)) (gxc#kw-lambda-expr? - _L118896_))) - (___kont128658128659_ - _L118896_ - _L118897_) - (___kont128660128661_ - _hd118812118891_ - _hd118806118875_))))) - (___match128705128706_ - (lambda (_e118796119148_ - _hd118795119151_ - _tl118794119153_ - _e118799119156_ - _hd118798119159_ - _tl118797119161_ - _e118802119164_ - _hd118801119167_ - _tl118800119169_) - (let ((_L119172_ - _hd118801119167_) - (_L119173_ - _hd118798119159_)) + _L118901_))) + (___kont128663128664_ + _L118901_ + _L118902_) + (___kont128665128666_ + _hd118817118896_ + _hd118811118880_))))) + (___match128710128711_ + (lambda (_e118801119153_ + _hd118800119156_ + _tl118799119158_ + _e118804119161_ + _hd118803119164_ + _tl118802119166_ + _e118807119169_ + _hd118806119172_ + _tl118805119174_) + (let ((_L119177_ + _hd118806119172_) + (_L119178_ + _hd118803119164_)) (if (and (let () (declare (not safe)) (gx#identifier? - _L119173_)) + _L119178_)) (let () (declare (not safe)) (gxc#opt-lambda-expr? - _L119172_))) - (___kont128656128657_ - _L119172_ - _L119173_) - (___match128727128728_ - _e118796119148_ - _hd118795119151_ - _tl118794119153_ - _e118799119156_ - _hd118798119159_ - _tl118797119161_ - _e118802119164_ - _hd118801119167_ - _tl118800119169_))))) - (___match128683128684_ - (lambda (_e118785119320_ - _hd118784119323_ - _tl118783119325_ - _e118788119328_ - _hd118787119331_ - _tl118786119333_ - _e118791119336_ - _hd118790119339_ - _tl118789119341_) - (let ((_L119344_ - _hd118790119339_) - (_L119345_ - _hd118787119331_)) + _L119177_))) + (___kont128661128662_ + _L119177_ + _L119178_) + (___match128732128733_ + _e118801119153_ + _hd118800119156_ + _tl118799119158_ + _e118804119161_ + _hd118803119164_ + _tl118802119166_ + _e118807119169_ + _hd118806119172_ + _tl118805119174_))))) + (___match128688128689_ + (lambda (_e118790119325_ + _hd118789119328_ + _tl118788119330_ + _e118793119333_ + _hd118792119336_ + _tl118791119338_ + _e118796119341_ + _hd118795119344_ + _tl118794119346_) + (let ((_L119349_ + _hd118795119344_) + (_L119350_ + _hd118792119336_)) (if (and (let () (declare (not safe)) (gx#identifier? - _L119345_)) + _L119350_)) (let () (declare (not safe)) (gxc#case-lambda-expr? - _L119344_))) - (___kont128654128655_ - _L119344_ - _L119345_) - (___match128705128706_ - _e118785119320_ - _hd118784119323_ - _tl118783119325_ - _e118788119328_ - _hd118787119331_ - _tl118786119333_ - _e118791119336_ - _hd118790119339_ - _tl118789119341_)))))) + _L119349_))) + (___kont128659128660_ + _L119349_ + _L119350_) + (___match128710128711_ + _e118790119325_ + _hd118789119328_ + _tl118788119330_ + _e118793119333_ + _hd118792119336_ + _tl118791119338_ + _e118796119341_ + _hd118795119344_ + _tl118794119346_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx128652128653_)) - (let ((_e118785119320_ + ___stx128657128658_)) + (let ((_e118790119325_ (let () (declare (not safe)) (gx#stx-e - ___stx128652128653_)))) - (let ((_tl118783119325_ + ___stx128657128658_)))) + (let ((_tl118788119330_ (let () (declare (not safe)) - (##cdr _e118785119320_))) - (_hd118784119323_ + (##cdr _e118790119325_))) + (_hd118789119328_ (let () (declare (not safe)) - (##car _e118785119320_)))) + (##car _e118790119325_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd118784119323_)) - (let ((_e118788119328_ + _hd118789119328_)) + (let ((_e118793119333_ (let () (declare (not safe)) (gx#stx-e - _hd118784119323_)))) - (let ((_tl118786119333_ + _hd118789119328_)))) + (let ((_tl118791119338_ (let () (declare (not safe)) - (##cdr _e118788119328_))) - (_hd118787119331_ + (##cdr _e118793119333_))) + (_hd118792119336_ (let () (declare (not safe)) - (##car _e118788119328_)))) + (##car _e118793119333_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl118786119333_)) + _tl118791119338_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl118783119325_)) - (let ((_e118791119336_ + (gx#stx-pair? _tl118788119330_)) + (let ((_e118796119341_ (let () (declare (not safe)) - (gx#stx-e _tl118783119325_)))) - (let ((_tl118789119341_ + (gx#stx-e _tl118788119330_)))) + (let ((_tl118794119346_ (let () (declare (not safe)) - (##cdr _e118791119336_))) - (_hd118790119339_ + (##cdr _e118796119341_))) + (_hd118795119344_ (let () (declare (not safe)) - (##car _e118791119336_)))) + (##car _e118796119341_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl118789119341_)) - (___match128683128684_ - _e118785119320_ - _hd118784119323_ - _tl118783119325_ - _e118788119328_ - _hd118787119331_ - _tl118786119333_ - _e118791119336_ - _hd118790119339_ - _tl118789119341_) + (gx#stx-null? _tl118794119346_)) + (___match128688128689_ + _e118790119325_ + _hd118789119328_ + _tl118788119330_ + _e118793119333_ + _hd118792119336_ + _tl118791119338_ + _e118796119341_ + _hd118795119344_ + _tl118794119346_) (let () (declare (not safe)) - (_g118779118826_))))) - (let () (declare (not safe)) (_g118779118826_))) + (_g118784118831_))))) + (let () (declare (not safe)) (_g118784118831_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl118783119325_)) - (let ((_e118821118839_ + (gx#stx-pair? _tl118788119330_)) + (let ((_e118826118844_ (let () (declare (not safe)) - (gx#stx-e _tl118783119325_)))) - (let ((_tl118819118844_ + (gx#stx-e _tl118788119330_)))) + (let ((_tl118824118849_ (let () (declare (not safe)) - (##cdr _e118821118839_))) - (_hd118820118842_ + (##cdr _e118826118844_))) + (_hd118825118847_ (let () (declare (not safe)) - (##car _e118821118839_)))) + (##car _e118826118844_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl118819118844_)) - (___kont128660128661_ - _hd118820118842_ - _hd118784119323_) + (gx#stx-null? _tl118824118849_)) + (___kont128665128666_ + _hd118825118847_ + _hd118789119328_) (let () (declare (not safe)) - (_g118779118826_))))) - (let () (declare (not safe)) (_g118779118826_)))))) + (_g118784118831_))))) + (let () (declare (not safe)) (_g118784118831_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl118783119325_)) - (let ((_e118821118839_ + _tl118788119330_)) + (let ((_e118826118844_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl118783119325_)))) - (let ((_tl118819118844_ - (let () (declare (not safe)) (##cdr _e118821118839_))) - (_hd118820118842_ - (let () (declare (not safe)) (##car _e118821118839_)))) + (gx#stx-e _tl118788119330_)))) + (let ((_tl118824118849_ + (let () (declare (not safe)) (##cdr _e118826118844_))) + (_hd118825118847_ + (let () (declare (not safe)) (##car _e118826118844_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl118819118844_)) - (___kont128660128661_ _hd118820118842_ _hd118784119323_) - (let () (declare (not safe)) (_g118779118826_))))) - (let () (declare (not safe)) (_g118779118826_)))))) + (gx#stx-null? _tl118824118849_)) + (___kont128665128666_ _hd118825118847_ _hd118789119328_) + (let () (declare (not safe)) (_g118784118831_))))) + (let () (declare (not safe)) (_g118784118831_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g118779118826_))))))))) + (_g118784118831_))))))))) (if (let () (declare (not safe)) - (##pair? _rest118754118762_)) - (let ((_hd118759119440_ + (##pair? _rest118759118767_)) + (let ((_hd118764119445_ (let () (declare (not safe)) - (##car _rest118754118762_))) - (_tl118760119442_ + (##car _rest118759118767_))) + (_tl118765119447_ (let () (declare (not safe)) - (##cdr _rest118754118762_)))) - (let* ((_hd119445_ _hd118759119440_) - (_rest119447_ _tl118760119442_)) + (##cdr _rest118759118767_)))) + (let* ((_hd119450_ _hd118764119445_) + (_rest119452_ _tl118765119447_)) (declare (not safe)) - (_K118758119437_ _rest119447_ _hd119445_))) + (_K118763119442_ _rest119452_ _hd119450_))) (let () (declare (not safe)) - (_else118756118770_)))))))) - (let* ((___stx128744128745_ _stx118610_) - (_g118616118643_ + (_else118761118775_)))))))) + (let* ((___stx128749128750_ _stx118615_) + (_g118621118648_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx128744128745_))))) - (let ((___kont128746128747_ - (lambda (_L118703_ _L118704_ _L118705_) - (let ((__tmp129185 + ___stx128749128750_))))) + (let ((___kont128751128752_ + (lambda (_L118708_ _L118709_ _L118710_) + (let ((__tmp129190 (lambda () - (let ((_hd118742_ - (let ((__tmp129186 - (let ((__tmp129187 - (lambda (_g118734118737_ - _g118735118739_) + (let ((_hd118747_ + (let ((__tmp129191 + (let ((__tmp129192 + (lambda (_g118739118742_ + _g118740118744_) (let () (declare (not safe)) - (cons _g118734118737_ - _g118735118739_))))) + (cons _g118739118742_ + _g118740118744_))))) (declare (not safe)) - (foldr1 __tmp129187 + (foldr1 __tmp129192 '() - _L118704_)))) + _L118709_)))) (declare (not safe)) - (_compile-bindings118613_ __tmp129186))) - (_body118743_ + (_compile-bindings118618_ __tmp129191))) + (_body118748_ (let () (declare (not safe)) - (gxc#compile-e__0 _L118703_)))) - (let ((__tmp129188 - (let ((__tmp129189 - (let ((__tmp129190 + (gxc#compile-e__0 _L118708_)))) + (let ((__tmp129193 + (let ((__tmp129194 + (let ((__tmp129195 (let () (declare (not safe)) - (cons _body118743_ + (cons _body118748_ '())))) (declare (not safe)) - (cons _hd118742_ - __tmp129190)))) + (cons _hd118747_ + __tmp129195)))) (declare (not safe)) - (cons _L118705_ __tmp129189)))) + (cons _L118710_ __tmp129194)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp129188 - _stx118610_))))) - (__tmp129184 - (let ((__obj128809 + __tmp129193 + _stx118615_))))) + (__tmp129189 + (let ((__obj128814 (let () (declare (not safe)) (##structure @@ -15495,254 +15495,254 @@ '#f '#f '#f)))) - (gx#local-context:::init! __obj128809) - __obj128809))) + (gx#local-context:::init! __obj128814) + __obj128814))) (declare (not safe)) (call-with-parameters - __tmp129185 + __tmp129190 gx#current-expander-context - __tmp129184)))) - (___kont128750128751_ + __tmp129189)))) + (___kont128755128756_ (lambda () (let () (declare (not safe)) - (gxc#xform-let-values% _stx118610_))))) - (let ((___match128771128772_ - (lambda (_e118623118655_ - _hd118622118658_ - _tl118621118660_ - _e118626118663_ - _hd118625118666_ - _tl118624118668_ - ___splice128748128749_ - _target118627118671_ - _tl118629118673_) - (letrec ((_loop118630118676_ - (lambda (_hd118628118679_ _bind118634118681_) + (gxc#xform-let-values% _stx118615_))))) + (let ((___match128776128777_ + (lambda (_e118628118660_ + _hd118627118663_ + _tl118626118665_ + _e118631118668_ + _hd118630118671_ + _tl118629118673_ + ___splice128753128754_ + _target118632118676_ + _tl118634118678_) + (letrec ((_loop118635118681_ + (lambda (_hd118633118684_ _bind118639118686_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd118628118679_)) - (let ((_e118631118684_ + (gx#stx-pair? _hd118633118684_)) + (let ((_e118636118689_ (let () (declare (not safe)) - (gx#stx-e _hd118628118679_)))) - (let ((_lp-tl118633118689_ + (gx#stx-e _hd118633118684_)))) + (let ((_lp-tl118638118694_ (let () (declare (not safe)) - (##cdr _e118631118684_))) - (_lp-hd118632118687_ + (##cdr _e118636118689_))) + (_lp-hd118637118692_ (let () (declare (not safe)) - (##car _e118631118684_)))) - (let ((__tmp129193 + (##car _e118636118689_)))) + (let ((__tmp129198 (let () (declare (not safe)) - (cons _lp-hd118632118687_ - _bind118634118681_)))) + (cons _lp-hd118637118692_ + _bind118639118686_)))) (declare (not safe)) - (_loop118630118676_ - _lp-tl118633118689_ - __tmp129193)))) - (let ((_bind118635118692_ - (reverse _bind118634118681_))) + (_loop118635118681_ + _lp-tl118638118694_ + __tmp129198)))) + (let ((_bind118640118697_ + (reverse _bind118639118686_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl118624118668_)) - (let ((_e118638118695_ + (gx#stx-pair? _tl118629118673_)) + (let ((_e118643118700_ (let () (declare (not safe)) (gx#stx-e - _tl118624118668_)))) - (let ((_tl118636118700_ + _tl118629118673_)))) + (let ((_tl118641118705_ (let () (declare (not safe)) - (##cdr _e118638118695_))) - (_hd118637118698_ + (##cdr _e118643118700_))) + (_hd118642118703_ (let () (declare (not safe)) - (##car _e118638118695_)))) + (##car _e118643118700_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl118636118700_)) - (let ((_L118703_ - _hd118637118698_) - (_L118704_ - _bind118635118692_) - (_L118705_ - _hd118622118658_)) - (if (let ((__tmp129191 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp129192 - (lambda (_g118726118729_ _g118727118731_) + _tl118641118705_)) + (let ((_L118708_ + _hd118642118703_) + (_L118709_ + _bind118640118697_) + (_L118710_ + _hd118627118663_)) + (if (let ((__tmp129196 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp129197 + (lambda (_g118731118734_ _g118732118736_) (let () (declare (not safe)) - (cons _g118726118729_ _g118727118731_))))) + (cons _g118731118734_ _g118732118736_))))) (declare (not safe)) - (foldr1 __tmp129192 '() _L118704_)))) + (foldr1 __tmp129197 '() _L118709_)))) (declare (not safe)) - (ormap1 gxc#lift-top-lambda-binding? __tmp129191)) - (___kont128746128747_ _L118703_ _L118704_ _L118705_) - (___kont128750128751_))) + (ormap1 gxc#lift-top-lambda-binding? __tmp129196)) + (___kont128751128752_ _L118708_ _L118709_ _L118710_) + (___kont128755128756_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont128750128751_)))) - (___kont128750128751_))))))) + (___kont128755128756_)))) + (___kont128755128756_))))))) (let () (declare (not safe)) - (_loop118630118676_ _target118627118671_ '())))))) + (_loop118635118681_ _target118632118676_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx128744128745_)) - (let ((_e118623118655_ + (gx#stx-pair? ___stx128749128750_)) + (let ((_e118628118660_ (let () (declare (not safe)) - (gx#stx-e ___stx128744128745_)))) - (let ((_tl118621118660_ + (gx#stx-e ___stx128749128750_)))) + (let ((_tl118626118665_ (let () (declare (not safe)) - (##cdr _e118623118655_))) - (_hd118622118658_ + (##cdr _e118628118660_))) + (_hd118627118663_ (let () (declare (not safe)) - (##car _e118623118655_)))) + (##car _e118628118660_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl118621118660_)) - (let ((_e118626118663_ + (gx#stx-pair? _tl118626118665_)) + (let ((_e118631118668_ (let () (declare (not safe)) - (gx#stx-e _tl118621118660_)))) - (let ((_tl118624118668_ + (gx#stx-e _tl118626118665_)))) + (let ((_tl118629118673_ (let () (declare (not safe)) - (##cdr _e118626118663_))) - (_hd118625118666_ + (##cdr _e118631118668_))) + (_hd118630118671_ (let () (declare (not safe)) - (##car _e118626118663_)))) + (##car _e118631118668_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd118625118666_)) - (let ((___splice128748128749_ + (gx#stx-pair/null? _hd118630118671_)) + (let ((___splice128753128754_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd118625118666_ + _hd118630118671_ '0)))) - (let ((_tl118629118673_ + (let ((_tl118634118678_ (let () (declare (not safe)) (##vector-ref - ___splice128748128749_ + ___splice128753128754_ '1))) - (_target118627118671_ + (_target118632118676_ (let () (declare (not safe)) (##vector-ref - ___splice128748128749_ + ___splice128753128754_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl118629118673_)) - (___match128771128772_ - _e118623118655_ - _hd118622118658_ - _tl118621118660_ - _e118626118663_ - _hd118625118666_ - _tl118624118668_ - ___splice128748128749_ - _target118627118671_ - _tl118629118673_) - (___kont128750128751_)))) - (___kont128750128751_)))) - (___kont128750128751_)))) - (___kont128750128751_)))))))) + (gx#stx-null? _tl118634118678_)) + (___match128776128777_ + _e118628118660_ + _hd118627118663_ + _tl118626118665_ + _e118631118668_ + _hd118630118671_ + _tl118629118673_ + ___splice128753128754_ + _target118632118676_ + _tl118634118678_) + (___kont128755128756_)))) + (___kont128755128756_)))) + (___kont128755128756_)))) + (___kont128755128756_)))))))) (define gxc#lift-top-lambda-binding? - (lambda (_bind118528_) - (let* ((___stx128774128775_ _bind118528_) - (_g118531118548_ + (lambda (_bind118533_) + (let* ((___stx128779128780_ _bind118533_) + (_g118536118553_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx128774128775_))))) - (let ((___kont128776128777_ - (lambda (_L118584_ _L118585_) - (if (let () (declare (not safe)) (gx#identifier? _L118585_)) - (let ((_$e118601_ + ___stx128779128780_))))) + (let ((___kont128781128782_ + (lambda (_L118589_ _L118590_) + (if (let () (declare (not safe)) (gx#identifier? _L118590_)) + (let ((_$e118606_ (let () (declare (not safe)) - (gxc#case-lambda-expr? _L118584_)))) - (if _$e118601_ - _$e118601_ - (let ((_$e118604_ + (gxc#case-lambda-expr? _L118589_)))) + (if _$e118606_ + _$e118606_ + (let ((_$e118609_ (let () (declare (not safe)) - (gxc#opt-lambda-expr? _L118584_)))) - (if _$e118604_ - _$e118604_ + (gxc#opt-lambda-expr? _L118589_)))) + (if _$e118609_ + _$e118609_ (let () (declare (not safe)) - (gxc#kw-lambda-expr? _L118584_)))))) + (gxc#kw-lambda-expr? _L118589_)))))) '#f))) - (___kont128778128779_ (lambda () '#f))) + (___kont128783128784_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx128774128775_)) - (let ((_e118537118560_ + (gx#stx-pair? ___stx128779128780_)) + (let ((_e118542118565_ (let () (declare (not safe)) - (gx#stx-e ___stx128774128775_)))) - (let ((_tl118535118565_ - (let () (declare (not safe)) (##cdr _e118537118560_))) - (_hd118536118563_ + (gx#stx-e ___stx128779128780_)))) + (let ((_tl118540118570_ + (let () (declare (not safe)) (##cdr _e118542118565_))) + (_hd118541118568_ (let () (declare (not safe)) - (##car _e118537118560_)))) + (##car _e118542118565_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd118536118563_)) - (let ((_e118540118568_ + (gx#stx-pair? _hd118541118568_)) + (let ((_e118545118573_ (let () (declare (not safe)) - (gx#stx-e _hd118536118563_)))) - (let ((_tl118538118573_ + (gx#stx-e _hd118541118568_)))) + (let ((_tl118543118578_ (let () (declare (not safe)) - (##cdr _e118540118568_))) - (_hd118539118571_ + (##cdr _e118545118573_))) + (_hd118544118576_ (let () (declare (not safe)) - (##car _e118540118568_)))) + (##car _e118545118573_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl118538118573_)) + (gx#stx-null? _tl118543118578_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl118535118565_)) - (let ((_e118543118576_ + (gx#stx-pair? _tl118540118570_)) + (let ((_e118548118581_ (let () (declare (not safe)) - (gx#stx-e _tl118535118565_)))) - (let ((_tl118541118581_ + (gx#stx-e _tl118540118570_)))) + (let ((_tl118546118586_ (let () (declare (not safe)) - (##cdr _e118543118576_))) - (_hd118542118579_ + (##cdr _e118548118581_))) + (_hd118547118584_ (let () (declare (not safe)) - (##car _e118543118576_)))) + (##car _e118548118581_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl118541118581_)) - (___kont128776128777_ - _hd118542118579_ - _hd118539118571_) - (___kont128778128779_)))) - (___kont128778128779_)) - (___kont128778128779_)))) - (___kont128778128779_)))) - (___kont128778128779_)))))))) + (gx#stx-null? _tl118546118586_)) + (___kont128781128782_ + _hd118547118584_ + _hd118544118576_) + (___kont128783128784_)))) + (___kont128783128784_)) + (___kont128783128784_)))) + (___kont128783128784_)))) + (___kont128783128784_)))))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-top__1.scm b/src/bootstrap/gerbil/compiler/optimize-top__1.scm index c22727cd..5f7ac2ba 100644 --- a/src/bootstrap/gerbil/compiler/optimize-top__1.scm +++ b/src/bootstrap/gerbil/compiler/optimize-top__1.scm @@ -1,398 +1,398 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin (define |gxc[:0:]#defbasic-expression-type-annotations| - (lambda (_$stx118251_) - (let* ((_g118255118284_ - (lambda (_g118256118280_) + (lambda (_$stx118256_) + (let* ((_g118260118289_ + (lambda (_g118261118285_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g118256118280_)))) - (_g118254118385_ - (lambda (_g118256118288_) + _g118261118285_)))) + (_g118259118390_ + (lambda (_g118261118293_) (if (let () (declare (not safe)) - (gx#stx-pair? _g118256118288_)) - (let ((_e118261118291_ + (gx#stx-pair? _g118261118293_)) + (let ((_e118266118296_ (let () (declare (not safe)) - (gx#syntax-e _g118256118288_)))) - (let ((_hd118260118295_ + (gx#syntax-e _g118261118293_)))) + (let ((_hd118265118300_ (let () (declare (not safe)) - (##car _e118261118291_))) - (_tl118259118298_ + (##car _e118266118296_))) + (_tl118264118303_ (let () (declare (not safe)) - (##cdr _e118261118291_)))) + (##cdr _e118266118296_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl118259118298_)) - (let ((_g129194_ + (gx#stx-pair/null? _tl118264118303_)) + (let ((_g129199_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl118259118298_ + _tl118264118303_ '0)))) (begin - (let ((_g129195_ + (let ((_g129200_ (let () (declare (not safe)) - (if (##values? _g129194_) - (##vector-length _g129194_) + (if (##values? _g129199_) + (##vector-length _g129199_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g129195_ 2))) + (##fx= _g129200_ 2))) (error "Context expects 2 values" - _g129195_))) - (let ((_target118262118301_ + _g129200_))) + (let ((_target118267118306_ (let () (declare (not safe)) - (##vector-ref _g129194_ 0))) - (_tl118264118304_ + (##vector-ref _g129199_ 0))) + (_tl118269118309_ (let () (declare (not safe)) - (##vector-ref _g129194_ 1)))) + (##vector-ref _g129199_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl118264118304_)) - (letrec ((_loop118265118307_ - (lambda (_hd118263118311_ - _type-e118269118314_ - _id118270118316_) + (gx#stx-null? _tl118269118309_)) + (letrec ((_loop118270118312_ + (lambda (_hd118268118316_ + _type-e118274118319_ + _id118275118321_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd118263118311_)) - (let ((_e118266118319_ + _hd118268118316_)) + (let ((_e118271118324_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _hd118263118311_)))) - (let ((_lp-hd118267118323_ - (let () (declare (not safe)) (##car _e118266118319_))) - (_lp-tl118268118326_ - (let () (declare (not safe)) (##cdr _e118266118319_)))) + (gx#syntax-e _hd118268118316_)))) + (let ((_lp-hd118272118328_ + (let () (declare (not safe)) (##car _e118271118324_))) + (_lp-tl118273118331_ + (let () (declare (not safe)) (##cdr _e118271118324_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd118267118323_)) - (let ((_e118275118329_ + (gx#stx-pair? _lp-hd118272118328_)) + (let ((_e118280118334_ (let () (declare (not safe)) - (gx#syntax-e _lp-hd118267118323_)))) - (let ((_hd118274118333_ + (gx#syntax-e _lp-hd118272118328_)))) + (let ((_hd118279118338_ (let () (declare (not safe)) - (##car _e118275118329_))) - (_tl118273118336_ + (##car _e118280118334_))) + (_tl118278118341_ (let () (declare (not safe)) - (##cdr _e118275118329_)))) + (##cdr _e118280118334_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl118273118336_)) - (let ((_e118278118339_ + (gx#stx-pair? _tl118278118341_)) + (let ((_e118283118344_ (let () (declare (not safe)) - (gx#syntax-e _tl118273118336_)))) - (let ((_hd118277118343_ + (gx#syntax-e _tl118278118341_)))) + (let ((_hd118282118348_ (let () (declare (not safe)) - (##car _e118278118339_))) - (_tl118276118346_ + (##car _e118283118344_))) + (_tl118281118351_ (let () (declare (not safe)) - (##cdr _e118278118339_)))) + (##cdr _e118283118344_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl118276118346_)) - (_loop118265118307_ - _lp-tl118268118326_ + (gx#stx-null? _tl118281118351_)) + (_loop118270118312_ + _lp-tl118273118331_ (let () (declare (not safe)) - (cons _hd118277118343_ - _type-e118269118314_)) + (cons _hd118282118348_ + _type-e118274118319_)) (let () (declare (not safe)) - (cons _hd118274118333_ - _id118270118316_))) - (_g118255118284_ _g118256118288_)))) - (_g118255118284_ _g118256118288_)))) - (_g118255118284_ _g118256118288_)))) - (let ((_type-e118271118349_ (reverse _type-e118269118314_)) - (_id118272118352_ (reverse _id118270118316_))) - ((lambda (_L118355_ _L118357_) - (let ((__tmp129207 + (cons _hd118279118338_ + _id118275118321_))) + (_g118260118289_ _g118261118293_)))) + (_g118260118289_ _g118261118293_)))) + (_g118260118289_ _g118261118293_)))) + (let ((_type-e118276118354_ (reverse _type-e118274118319_)) + (_id118277118357_ (reverse _id118275118321_))) + ((lambda (_L118360_ _L118362_) + (let ((__tmp129212 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp129196 + (__tmp129201 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L118355_ - _L118357_)) - (let ((__tmp129197 - (lambda (_g118373118377_ - _g118374118380_ - _g118375118382_) - (let ((__tmp129198 - (let ((__tmp129206 + _L118360_ + _L118362_)) + (let ((__tmp129202 + (lambda (_g118378118382_ + _g118379118385_ + _g118380118387_) + (let ((__tmp129203 + (let ((__tmp129211 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'hash-put!))) - (__tmp129199 - (let ((__tmp129205 + (__tmp129204 + (let ((__tmp129210 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'basic-expression-type-annotations))) - (__tmp129200 - (let ((__tmp129202 + (__tmp129205 + (let ((__tmp129207 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp129204 + (let ((__tmp129209 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp129203 + (__tmp129208 (let () (declare (not safe)) - (cons _g118374118380_ '())))) + (cons _g118379118385_ '())))) (declare (not safe)) - (cons __tmp129204 __tmp129203))) - (__tmp129201 + (cons __tmp129209 __tmp129208))) + (__tmp129206 (let () (declare (not safe)) - (cons _g118373118377_ '())))) + (cons _g118378118382_ '())))) (declare (not safe)) - (cons __tmp129202 __tmp129201)))) + (cons __tmp129207 __tmp129206)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp129205 - __tmp129200)))) + (cons __tmp129210 + __tmp129205)))) (declare (not safe)) - (cons __tmp129206 __tmp129199)))) + (cons __tmp129211 __tmp129204)))) (declare (not safe)) - (cons __tmp129198 _g118375118382_))))) + (cons __tmp129203 _g118380118387_))))) (declare (not safe)) - (foldr2 __tmp129197 '() _L118355_ _L118357_))))) + (foldr2 __tmp129202 '() _L118360_ _L118362_))))) (declare (not safe)) - (cons __tmp129207 __tmp129196))) - _type-e118271118349_ - _id118272118352_)))))) + (cons __tmp129212 __tmp129201))) + _type-e118276118354_ + _id118277118357_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop118265118307_ - _target118262118301_ + (_loop118270118312_ + _target118267118306_ '() '())) - (_g118255118284_ _g118256118288_))))) - (_g118255118284_ _g118256118288_)))) - (_g118255118284_ _g118256118288_))))) - (_g118254118385_ _$stx118251_)))) + (_g118260118289_ _g118261118293_))))) + (_g118260118289_ _g118261118293_)))) + (_g118260118289_ _g118261118293_))))) + (_g118259118390_ _$stx118256_)))) (define |gxc[:0:]#defbasic-expression-type-builtin| - (lambda (_$stx118390_) - (let* ((_g118394118423_ - (lambda (_g118395118419_) + (lambda (_$stx118395_) + (let* ((_g118399118428_ + (lambda (_g118400118424_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g118395118419_)))) - (_g118393118523_ - (lambda (_g118395118427_) + _g118400118424_)))) + (_g118398118528_ + (lambda (_g118400118432_) (if (let () (declare (not safe)) - (gx#stx-pair? _g118395118427_)) - (let ((_e118400118430_ + (gx#stx-pair? _g118400118432_)) + (let ((_e118405118435_ (let () (declare (not safe)) - (gx#syntax-e _g118395118427_)))) - (let ((_hd118399118434_ + (gx#syntax-e _g118400118432_)))) + (let ((_hd118404118439_ (let () (declare (not safe)) - (##car _e118400118430_))) - (_tl118398118437_ + (##car _e118405118435_))) + (_tl118403118442_ (let () (declare (not safe)) - (##cdr _e118400118430_)))) + (##cdr _e118405118435_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl118398118437_)) - (let ((_g129208_ + (gx#stx-pair/null? _tl118403118442_)) + (let ((_g129213_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl118398118437_ + _tl118403118442_ '0)))) (begin - (let ((_g129209_ + (let ((_g129214_ (let () (declare (not safe)) - (if (##values? _g129208_) - (##vector-length _g129208_) + (if (##values? _g129213_) + (##vector-length _g129213_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g129209_ 2))) + (##fx= _g129214_ 2))) (error "Context expects 2 values" - _g129209_))) - (let ((_target118401118440_ + _g129214_))) + (let ((_target118406118445_ (let () (declare (not safe)) - (##vector-ref _g129208_ 0))) - (_tl118403118443_ + (##vector-ref _g129213_ 0))) + (_tl118408118448_ (let () (declare (not safe)) - (##vector-ref _g129208_ 1)))) + (##vector-ref _g129213_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl118403118443_)) - (letrec ((_loop118404118446_ - (lambda (_hd118402118450_ - _type-e118408118453_ - _id118409118455_) + (gx#stx-null? _tl118408118448_)) + (letrec ((_loop118409118451_ + (lambda (_hd118407118455_ + _type-e118413118458_ + _id118414118460_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd118402118450_)) - (let ((_e118405118458_ + _hd118407118455_)) + (let ((_e118410118463_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _hd118402118450_)))) - (let ((_lp-hd118406118462_ - (let () (declare (not safe)) (##car _e118405118458_))) - (_lp-tl118407118465_ - (let () (declare (not safe)) (##cdr _e118405118458_)))) + (gx#syntax-e _hd118407118455_)))) + (let ((_lp-hd118411118467_ + (let () (declare (not safe)) (##car _e118410118463_))) + (_lp-tl118412118470_ + (let () (declare (not safe)) (##cdr _e118410118463_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd118406118462_)) - (let ((_e118414118468_ + (gx#stx-pair? _lp-hd118411118467_)) + (let ((_e118419118473_ (let () (declare (not safe)) - (gx#syntax-e _lp-hd118406118462_)))) - (let ((_hd118413118472_ + (gx#syntax-e _lp-hd118411118467_)))) + (let ((_hd118418118477_ (let () (declare (not safe)) - (##car _e118414118468_))) - (_tl118412118475_ + (##car _e118419118473_))) + (_tl118417118480_ (let () (declare (not safe)) - (##cdr _e118414118468_)))) + (##cdr _e118419118473_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl118412118475_)) - (let ((_e118417118478_ + (gx#stx-pair? _tl118417118480_)) + (let ((_e118422118483_ (let () (declare (not safe)) - (gx#syntax-e _tl118412118475_)))) - (let ((_hd118416118482_ + (gx#syntax-e _tl118417118480_)))) + (let ((_hd118421118487_ (let () (declare (not safe)) - (##car _e118417118478_))) - (_tl118415118485_ + (##car _e118422118483_))) + (_tl118420118490_ (let () (declare (not safe)) - (##cdr _e118417118478_)))) + (##cdr _e118422118483_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl118415118485_)) - (_loop118404118446_ - _lp-tl118407118465_ + (gx#stx-null? _tl118420118490_)) + (_loop118409118451_ + _lp-tl118412118470_ (let () (declare (not safe)) - (cons _hd118416118482_ - _type-e118408118453_)) + (cons _hd118421118487_ + _type-e118413118458_)) (let () (declare (not safe)) - (cons _hd118413118472_ - _id118409118455_))) - (_g118394118423_ _g118395118427_)))) - (_g118394118423_ _g118395118427_)))) - (_g118394118423_ _g118395118427_)))) - (let ((_type-e118410118488_ (reverse _type-e118408118453_)) - (_id118411118491_ (reverse _id118409118455_))) - ((lambda (_L118494_ _L118496_) - (let ((__tmp129221 + (cons _hd118418118477_ + _id118414118460_))) + (_g118399118428_ _g118400118432_)))) + (_g118399118428_ _g118400118432_)))) + (_g118399118428_ _g118400118432_)))) + (let ((_type-e118415118493_ (reverse _type-e118413118458_)) + (_id118416118496_ (reverse _id118414118460_))) + ((lambda (_L118499_ _L118501_) + (let ((__tmp129226 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp129210 + (__tmp129215 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L118494_ - _L118496_)) - (let ((__tmp129211 - (lambda (_g118511118515_ - _g118512118518_ - _g118513118520_) - (let ((__tmp129212 - (let ((__tmp129220 + _L118499_ + _L118501_)) + (let ((__tmp129216 + (lambda (_g118516118520_ + _g118517118523_ + _g118518118525_) + (let ((__tmp129217 + (let ((__tmp129225 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'hash-put!))) - (__tmp129213 - (let ((__tmp129219 + (__tmp129218 + (let ((__tmp129224 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'basic-expression-type-builtin))) - (__tmp129214 - (let ((__tmp129216 + (__tmp129219 + (let ((__tmp129221 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp129218 + (let ((__tmp129223 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp129217 + (__tmp129222 (let () (declare (not safe)) - (cons _g118512118518_ '())))) + (cons _g118517118523_ '())))) (declare (not safe)) - (cons __tmp129218 __tmp129217))) - (__tmp129215 + (cons __tmp129223 __tmp129222))) + (__tmp129220 (let () (declare (not safe)) - (cons _g118511118515_ '())))) + (cons _g118516118520_ '())))) (declare (not safe)) - (cons __tmp129216 __tmp129215)))) + (cons __tmp129221 __tmp129220)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp129219 - __tmp129214)))) + (cons __tmp129224 + __tmp129219)))) (declare (not safe)) - (cons __tmp129220 __tmp129213)))) + (cons __tmp129225 __tmp129218)))) (declare (not safe)) - (cons __tmp129212 _g118513118520_))))) + (cons __tmp129217 _g118518118525_))))) (declare (not safe)) - (foldr2 __tmp129211 '() _L118494_ _L118496_))))) + (foldr2 __tmp129216 '() _L118499_ _L118501_))))) (declare (not safe)) - (cons __tmp129221 __tmp129210))) - _type-e118410118488_ - _id118411118491_)))))) + (cons __tmp129226 __tmp129215))) + _type-e118415118493_ + _id118416118496_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop118404118446_ - _target118401118440_ + (_loop118409118451_ + _target118406118445_ '() '())) - (_g118394118423_ _g118395118427_))))) - (_g118394118423_ _g118395118427_)))) - (_g118394118423_ _g118395118427_))))) - (_g118393118523_ _$stx118390_))))) + (_g118399118428_ _g118400118432_))))) + (_g118399118428_ _g118400118432_)))) + (_g118399118428_ _g118400118432_))))) + (_g118398118528_ _$stx118395_))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-xform__0.scm b/src/bootstrap/gerbil/compiler/optimize-xform__0.scm index 6e69acab..7c45b456 100644 --- a/src/bootstrap/gerbil/compiler/optimize-xform__0.scm +++ b/src/bootstrap/gerbil/compiler/optimize-xform__0.scm @@ -1,4148 +1,4148 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize-xform::timestamp 1709229971) + (define gerbil/compiler/optimize-xform::timestamp 1709375799) (begin (define gxc#&identity-expression (make-promise (lambda () - (let ((_tbl117895_ + (let ((_tbl117900_ (let () (declare (not safe)) (make-hash-table-eq)))) (let () (declare (not safe)) - (hash-put! _tbl117895_ '%#begin-annotation gxc#xform-identity)) + (hash-put! _tbl117900_ '%#begin-annotation gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117895_ '%#lambda gxc#xform-identity)) + (hash-put! _tbl117900_ '%#lambda gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117895_ '%#case-lambda gxc#xform-identity)) + (hash-put! _tbl117900_ '%#case-lambda gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117895_ '%#let-values gxc#xform-identity)) + (hash-put! _tbl117900_ '%#let-values gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117895_ '%#letrec-values gxc#xform-identity)) + (hash-put! _tbl117900_ '%#letrec-values gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117895_ '%#letrec*-values gxc#xform-identity)) + (hash-put! _tbl117900_ '%#letrec*-values gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117895_ '%#quote gxc#xform-identity)) + (hash-put! _tbl117900_ '%#quote gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117895_ '%#quote-syntax gxc#xform-identity)) + (hash-put! _tbl117900_ '%#quote-syntax gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117895_ '%#call gxc#xform-identity)) + (hash-put! _tbl117900_ '%#call gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117895_ '%#call-unchecked gxc#xform-identity)) + (hash-put! _tbl117900_ '%#call-unchecked gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117895_ '%#if gxc#xform-identity)) + (hash-put! _tbl117900_ '%#if gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117895_ '%#ref gxc#xform-identity)) + (hash-put! _tbl117900_ '%#ref gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117895_ '%#set! gxc#xform-identity)) + (hash-put! _tbl117900_ '%#set! gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117895_ '%#struct-instance? gxc#xform-identity)) + (hash-put! _tbl117900_ '%#struct-instance? gxc#xform-identity)) (let () (declare (not safe)) (hash-put! - _tbl117895_ + _tbl117900_ '%#struct-direct-instance? gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117895_ '%#struct-ref gxc#xform-identity)) + (hash-put! _tbl117900_ '%#struct-ref gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117895_ '%#struct-set! gxc#xform-identity)) + (hash-put! _tbl117900_ '%#struct-set! gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117895_ '%#struct-direct-ref gxc#xform-identity)) + (hash-put! _tbl117900_ '%#struct-direct-ref gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117895_ '%#struct-direct-set! gxc#xform-identity)) + (hash-put! _tbl117900_ '%#struct-direct-set! gxc#xform-identity)) (let () (declare (not safe)) (hash-put! - _tbl117895_ + _tbl117900_ '%#struct-unchecked-ref gxc#xform-identity)) (let () (declare (not safe)) (hash-put! - _tbl117895_ + _tbl117900_ '%#struct-unchecked-set! gxc#xform-identity)) - _tbl117895_)))) + _tbl117900_)))) (define gxc#&identity-special-form (make-promise (lambda () - (let ((_tbl117891_ + (let ((_tbl117896_ (let () (declare (not safe)) (make-hash-table-eq)))) (let () (declare (not safe)) - (hash-put! _tbl117891_ '%#begin gxc#xform-identity)) + (hash-put! _tbl117896_ '%#begin gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117891_ '%#begin-syntax gxc#xform-identity)) + (hash-put! _tbl117896_ '%#begin-syntax gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117891_ '%#begin-foreign gxc#xform-identity)) + (hash-put! _tbl117896_ '%#begin-foreign gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117891_ '%#module gxc#xform-identity)) + (hash-put! _tbl117896_ '%#module gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117891_ '%#import gxc#xform-identity)) + (hash-put! _tbl117896_ '%#import gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117891_ '%#export gxc#xform-identity)) + (hash-put! _tbl117896_ '%#export gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117891_ '%#provide gxc#xform-identity)) + (hash-put! _tbl117896_ '%#provide gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117891_ '%#extern gxc#xform-identity)) + (hash-put! _tbl117896_ '%#extern gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117891_ '%#define-values gxc#xform-identity)) + (hash-put! _tbl117896_ '%#define-values gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117891_ '%#define-syntax gxc#xform-identity)) + (hash-put! _tbl117896_ '%#define-syntax gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117891_ '%#define-alias gxc#xform-identity)) + (hash-put! _tbl117896_ '%#define-alias gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117891_ '%#declare gxc#xform-identity)) - _tbl117891_)))) + (hash-put! _tbl117896_ '%#declare gxc#xform-identity)) + _tbl117896_)))) (define gxc#&identity (make-promise (lambda () - (let ((_tbl117887_ + (let ((_tbl117892_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp118141 (force gxc#&identity-special-form))) + (let ((__tmp118146 (force gxc#&identity-special-form))) (declare (not safe)) - (hash-merge! _tbl117887_ __tmp118141)) - (let ((__tmp118142 (force gxc#&identity-expression))) + (hash-merge! _tbl117892_ __tmp118146)) + (let ((__tmp118147 (force gxc#&identity-expression))) (declare (not safe)) - (hash-merge! _tbl117887_ __tmp118142)) - _tbl117887_)))) + (hash-merge! _tbl117892_ __tmp118147)) + _tbl117892_)))) (define gxc#&basic-xform-expression (make-promise (lambda () - (let ((_tbl117883_ + (let ((_tbl117888_ (let () (declare (not safe)) (make-hash-table-eq)))) (let () (declare (not safe)) (hash-put! - _tbl117883_ + _tbl117888_ '%#begin-annotation gxc#xform-begin-annotation%)) (let () (declare (not safe)) - (hash-put! _tbl117883_ '%#lambda gxc#xform-lambda%)) + (hash-put! _tbl117888_ '%#lambda gxc#xform-lambda%)) (let () (declare (not safe)) - (hash-put! _tbl117883_ '%#case-lambda gxc#xform-case-lambda%)) + (hash-put! _tbl117888_ '%#case-lambda gxc#xform-case-lambda%)) (let () (declare (not safe)) - (hash-put! _tbl117883_ '%#let-values gxc#xform-let-values%)) + (hash-put! _tbl117888_ '%#let-values gxc#xform-let-values%)) (let () (declare (not safe)) - (hash-put! _tbl117883_ '%#letrec-values gxc#xform-let-values%)) + (hash-put! _tbl117888_ '%#letrec-values gxc#xform-let-values%)) (let () (declare (not safe)) - (hash-put! _tbl117883_ '%#letrec*-values gxc#xform-let-values%)) + (hash-put! _tbl117888_ '%#letrec*-values gxc#xform-let-values%)) (let () (declare (not safe)) - (hash-put! _tbl117883_ '%#quote gxc#xform-identity)) + (hash-put! _tbl117888_ '%#quote gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117883_ '%#quote-syntax gxc#xform-identity)) + (hash-put! _tbl117888_ '%#quote-syntax gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117883_ '%#call gxc#xform-operands)) + (hash-put! _tbl117888_ '%#call gxc#xform-operands)) (let () (declare (not safe)) - (hash-put! _tbl117883_ '%#call-unchecked gxc#xform-operands)) + (hash-put! _tbl117888_ '%#call-unchecked gxc#xform-operands)) (let () (declare (not safe)) - (hash-put! _tbl117883_ '%#if gxc#xform-operands)) + (hash-put! _tbl117888_ '%#if gxc#xform-operands)) (let () (declare (not safe)) - (hash-put! _tbl117883_ '%#ref gxc#xform-identity)) + (hash-put! _tbl117888_ '%#ref gxc#xform-identity)) (let () (declare (not safe)) - (hash-put! _tbl117883_ '%#set! gxc#xform-setq%)) + (hash-put! _tbl117888_ '%#set! gxc#xform-setq%)) (let () (declare (not safe)) - (hash-put! _tbl117883_ '%#struct-instance? gxc#xform-operands)) + (hash-put! _tbl117888_ '%#struct-instance? gxc#xform-operands)) (let () (declare (not safe)) (hash-put! - _tbl117883_ + _tbl117888_ '%#struct-direct-instance? gxc#xform-operands)) (let () (declare (not safe)) - (hash-put! _tbl117883_ '%#struct-ref gxc#xform-operands)) + (hash-put! _tbl117888_ '%#struct-ref gxc#xform-operands)) (let () (declare (not safe)) - (hash-put! _tbl117883_ '%#struct-set! gxc#xform-operands)) + (hash-put! _tbl117888_ '%#struct-set! gxc#xform-operands)) (let () (declare (not safe)) - (hash-put! _tbl117883_ '%#struct-direct-ref gxc#xform-operands)) + (hash-put! _tbl117888_ '%#struct-direct-ref gxc#xform-operands)) (let () (declare (not safe)) - (hash-put! _tbl117883_ '%#struct-direct-set! gxc#xform-operands)) + (hash-put! _tbl117888_ '%#struct-direct-set! gxc#xform-operands)) (let () (declare (not safe)) (hash-put! - _tbl117883_ + _tbl117888_ '%#struct-unchecked-ref gxc#xform-operands)) (let () (declare (not safe)) (hash-put! - _tbl117883_ + _tbl117888_ '%#struct-unchecked-set! gxc#xform-operands)) - _tbl117883_)))) + _tbl117888_)))) (define gxc#&basic-xform (make-promise (lambda () - (let ((_tbl117879_ + (let ((_tbl117884_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp118143 (force gxc#&basic-xform-expression))) + (let ((__tmp118148 (force gxc#&basic-xform-expression))) (declare (not safe)) - (hash-merge! _tbl117879_ __tmp118143)) - (let ((__tmp118144 (force gxc#&identity))) + (hash-merge! _tbl117884_ __tmp118148)) + (let ((__tmp118149 (force gxc#&identity))) (declare (not safe)) - (hash-merge! _tbl117879_ __tmp118144)) + (hash-merge! _tbl117884_ __tmp118149)) (let () (declare (not safe)) - (hash-put! _tbl117879_ '%#begin gxc#xform-begin%)) + (hash-put! _tbl117884_ '%#begin gxc#xform-begin%)) (let () (declare (not safe)) - (hash-put! _tbl117879_ '%#begin-syntax gxc#xform-begin-syntax%)) + (hash-put! _tbl117884_ '%#begin-syntax gxc#xform-begin-syntax%)) (let () (declare (not safe)) - (hash-put! _tbl117879_ '%#module gxc#xform-module%)) + (hash-put! _tbl117884_ '%#module gxc#xform-module%)) (let () (declare (not safe)) - (hash-put! _tbl117879_ '%#define-values gxc#xform-define-values%)) + (hash-put! _tbl117884_ '%#define-values gxc#xform-define-values%)) (let () (declare (not safe)) - (hash-put! _tbl117879_ '%#define-syntax gxc#xform-define-syntax%)) - _tbl117879_)))) + (hash-put! _tbl117884_ '%#define-syntax gxc#xform-define-syntax%)) + _tbl117884_)))) (define gxc#&collect-mutators (make-promise (lambda () - (let ((_tbl117875_ + (let ((_tbl117880_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp118145 (force gxc#&void))) + (let ((__tmp118150 (force gxc#&void))) (declare (not safe)) - (hash-merge! _tbl117875_ __tmp118145)) + (hash-merge! _tbl117880_ __tmp118150)) (let () (declare (not safe)) - (hash-put! _tbl117875_ '%#begin gxc#collect-begin%)) + (hash-put! _tbl117880_ '%#begin gxc#collect-begin%)) (let () (declare (not safe)) - (hash-put! _tbl117875_ '%#begin-syntax gxc#collect-begin-syntax%)) + (hash-put! _tbl117880_ '%#begin-syntax gxc#collect-begin-syntax%)) (let () (declare (not safe)) (hash-put! - _tbl117875_ + _tbl117880_ '%#begin-annotation gxc#collect-begin-annotation%)) (let () (declare (not safe)) - (hash-put! _tbl117875_ '%#module gxc#collect-module%)) + (hash-put! _tbl117880_ '%#module gxc#collect-module%)) (let () (declare (not safe)) (hash-put! - _tbl117875_ + _tbl117880_ '%#define-values gxc#collect-define-values%)) (let () (declare (not safe)) (hash-put! - _tbl117875_ + _tbl117880_ '%#define-syntax gxc#collect-define-syntax%)) (let () (declare (not safe)) - (hash-put! _tbl117875_ '%#lambda gxc#collect-body-lambda%)) + (hash-put! _tbl117880_ '%#lambda gxc#collect-body-lambda%)) (let () (declare (not safe)) (hash-put! - _tbl117875_ + _tbl117880_ '%#case-lambda gxc#collect-body-case-lambda%)) (let () (declare (not safe)) (hash-put! - _tbl117875_ + _tbl117880_ '%#let-values gxc#collect-body-let-values%)) (let () (declare (not safe)) (hash-put! - _tbl117875_ + _tbl117880_ '%#letrec-values gxc#collect-body-let-values%)) (let () (declare (not safe)) (hash-put! - _tbl117875_ + _tbl117880_ '%#letrec*-values gxc#collect-body-let-values%)) (let () (declare (not safe)) - (hash-put! _tbl117875_ '%#call gxc#collect-operands)) + (hash-put! _tbl117880_ '%#call gxc#collect-operands)) (let () (declare (not safe)) - (hash-put! _tbl117875_ '%#call-unchecked gxc#collect-operands)) + (hash-put! _tbl117880_ '%#call-unchecked gxc#collect-operands)) (let () (declare (not safe)) - (hash-put! _tbl117875_ '%#if gxc#collect-operands)) + (hash-put! _tbl117880_ '%#if gxc#collect-operands)) (let () (declare (not safe)) - (hash-put! _tbl117875_ '%#set! gxc#collect-mutators-setq%)) + (hash-put! _tbl117880_ '%#set! gxc#collect-mutators-setq%)) (let () (declare (not safe)) - (hash-put! _tbl117875_ '%#struct-instance? gxc#collect-operands)) + (hash-put! _tbl117880_ '%#struct-instance? gxc#collect-operands)) (let () (declare (not safe)) (hash-put! - _tbl117875_ + _tbl117880_ '%#struct-direct-instance? gxc#collect-operands)) (let () (declare (not safe)) - (hash-put! _tbl117875_ '%#struct-ref gxc#collect-operands)) + (hash-put! _tbl117880_ '%#struct-ref gxc#collect-operands)) (let () (declare (not safe)) - (hash-put! _tbl117875_ '%#struct-set! gxc#collect-operands)) + (hash-put! _tbl117880_ '%#struct-set! gxc#collect-operands)) (let () (declare (not safe)) - (hash-put! _tbl117875_ '%#struct-direct-ref gxc#collect-operands)) + (hash-put! _tbl117880_ '%#struct-direct-ref gxc#collect-operands)) (let () (declare (not safe)) (hash-put! - _tbl117875_ + _tbl117880_ '%#struct-direct-set! gxc#collect-operands)) (let () (declare (not safe)) (hash-put! - _tbl117875_ + _tbl117880_ '%#struct-unchecked-ref gxc#collect-operands)) (let () (declare (not safe)) (hash-put! - _tbl117875_ + _tbl117880_ '%#struct-unchecked-set! gxc#collect-operands)) - _tbl117875_)))) + _tbl117880_)))) (define gxc#apply-collect-mutators - (lambda (_stx117858_ . _args117860_) - (let ((__tmp118147 + (lambda (_stx117863_ . _args117865_) + (let ((__tmp118152 (lambda () (declare (not safe)) - (if (null? _args117860_) - (gxc#compile-e__0 _stx117858_) - (let ((_arg1117865_ (car _args117860_)) - (_rest117867_ (cdr _args117860_))) - (if (null? _rest117867_) - (gxc#compile-e__1 _stx117858_ _arg1117865_) - (let ((_arg2117870_ (car _rest117867_)) - (_rest117872_ (cdr _rest117867_))) - (if (null? _rest117872_) + (if (null? _args117865_) + (gxc#compile-e__0 _stx117863_) + (let ((_arg1117870_ (car _args117865_)) + (_rest117872_ (cdr _args117865_))) + (if (null? _rest117872_) + (gxc#compile-e__1 _stx117863_ _arg1117870_) + (let ((_arg2117875_ (car _rest117872_)) + (_rest117877_ (cdr _rest117872_))) + (if (null? _rest117877_) (gxc#compile-e__2 - _stx117858_ - _arg1117865_ - _arg2117870_) + _stx117863_ + _arg1117870_ + _arg2117875_) (apply gxc#compile-e - _stx117858_ - _arg1117865_ - _arg2117870_ - _rest117872_)))))))) - (__tmp118146 (force gxc#&collect-mutators))) + _stx117863_ + _arg1117870_ + _arg2117875_ + _rest117877_)))))))) + (__tmp118151 (force gxc#&collect-mutators))) (declare (not safe)) (call-with-parameters - __tmp118147 + __tmp118152 gxc#current-compile-methods - __tmp118146)))) + __tmp118151)))) (define gxc#&collect-methods (make-promise (lambda () - (let ((_tbl117855_ + (let ((_tbl117860_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp118148 (force gxc#&void))) + (let ((__tmp118153 (force gxc#&void))) (declare (not safe)) - (hash-merge! _tbl117855_ __tmp118148)) + (hash-merge! _tbl117860_ __tmp118153)) (let () (declare (not safe)) - (hash-put! _tbl117855_ '%#begin gxc#collect-begin%)) + (hash-put! _tbl117860_ '%#begin gxc#collect-begin%)) (let () (declare (not safe)) - (hash-put! _tbl117855_ '%#begin-syntax gxc#collect-begin-syntax%)) + (hash-put! _tbl117860_ '%#begin-syntax gxc#collect-begin-syntax%)) (let () (declare (not safe)) - (hash-put! _tbl117855_ '%#module gxc#collect-module%)) + (hash-put! _tbl117860_ '%#module gxc#collect-module%)) (let () (declare (not safe)) - (hash-put! _tbl117855_ '%#call gxc#collect-methods-call%)) + (hash-put! _tbl117860_ '%#call gxc#collect-methods-call%)) (let () (declare (not safe)) (hash-put! - _tbl117855_ + _tbl117860_ '%#call-unchecked gxc#collect-methods-call%)) - _tbl117855_)))) + _tbl117860_)))) (define gxc#apply-collect-methods - (lambda (_stx117838_ . _args117840_) - (let ((__tmp118150 + (lambda (_stx117843_ . _args117845_) + (let ((__tmp118155 (lambda () (declare (not safe)) - (if (null? _args117840_) - (gxc#compile-e__0 _stx117838_) - (let ((_arg1117845_ (car _args117840_)) - (_rest117847_ (cdr _args117840_))) - (if (null? _rest117847_) - (gxc#compile-e__1 _stx117838_ _arg1117845_) - (let ((_arg2117850_ (car _rest117847_)) - (_rest117852_ (cdr _rest117847_))) - (if (null? _rest117852_) + (if (null? _args117845_) + (gxc#compile-e__0 _stx117843_) + (let ((_arg1117850_ (car _args117845_)) + (_rest117852_ (cdr _args117845_))) + (if (null? _rest117852_) + (gxc#compile-e__1 _stx117843_ _arg1117850_) + (let ((_arg2117855_ (car _rest117852_)) + (_rest117857_ (cdr _rest117852_))) + (if (null? _rest117857_) (gxc#compile-e__2 - _stx117838_ - _arg1117845_ - _arg2117850_) + _stx117843_ + _arg1117850_ + _arg2117855_) (apply gxc#compile-e - _stx117838_ - _arg1117845_ - _arg2117850_ - _rest117852_)))))))) - (__tmp118149 (force gxc#&collect-methods))) + _stx117843_ + _arg1117850_ + _arg2117855_ + _rest117857_)))))))) + (__tmp118154 (force gxc#&collect-methods))) (declare (not safe)) (call-with-parameters - __tmp118150 + __tmp118155 gxc#current-compile-methods - __tmp118149)))) + __tmp118154)))) (define gxc#&expression-subst (make-promise (lambda () - (let ((_tbl117835_ + (let ((_tbl117840_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp118151 (force gxc#&basic-xform-expression))) + (let ((__tmp118156 (force gxc#&basic-xform-expression))) (declare (not safe)) - (hash-merge! _tbl117835_ __tmp118151)) + (hash-merge! _tbl117840_ __tmp118156)) (let () (declare (not safe)) - (hash-put! _tbl117835_ '%#begin gxc#xform-begin%)) + (hash-put! _tbl117840_ '%#begin gxc#xform-begin%)) (let () (declare (not safe)) - (hash-put! _tbl117835_ '%#ref gxc#expression-subst-ref%)) + (hash-put! _tbl117840_ '%#ref gxc#expression-subst-ref%)) (let () (declare (not safe)) - (hash-put! _tbl117835_ '%#set! gxc#expression-subst-setq%)) - _tbl117835_)))) + (hash-put! _tbl117840_ '%#set! gxc#expression-subst-setq%)) + _tbl117840_)))) (define gxc#apply-expression-subst - (lambda (_stx117818_ . _args117820_) - (let ((__tmp118153 + (lambda (_stx117823_ . _args117825_) + (let ((__tmp118158 (lambda () (declare (not safe)) - (if (null? _args117820_) - (gxc#compile-e__0 _stx117818_) - (let ((_arg1117825_ (car _args117820_)) - (_rest117827_ (cdr _args117820_))) - (if (null? _rest117827_) - (gxc#compile-e__1 _stx117818_ _arg1117825_) - (let ((_arg2117830_ (car _rest117827_)) - (_rest117832_ (cdr _rest117827_))) - (if (null? _rest117832_) + (if (null? _args117825_) + (gxc#compile-e__0 _stx117823_) + (let ((_arg1117830_ (car _args117825_)) + (_rest117832_ (cdr _args117825_))) + (if (null? _rest117832_) + (gxc#compile-e__1 _stx117823_ _arg1117830_) + (let ((_arg2117835_ (car _rest117832_)) + (_rest117837_ (cdr _rest117832_))) + (if (null? _rest117837_) (gxc#compile-e__2 - _stx117818_ - _arg1117825_ - _arg2117830_) + _stx117823_ + _arg1117830_ + _arg2117835_) (apply gxc#compile-e - _stx117818_ - _arg1117825_ - _arg2117830_ - _rest117832_)))))))) - (__tmp118152 (force gxc#&expression-subst))) + _stx117823_ + _arg1117830_ + _arg2117835_ + _rest117837_)))))))) + (__tmp118157 (force gxc#&expression-subst))) (declare (not safe)) (call-with-parameters - __tmp118153 + __tmp118158 gxc#current-compile-methods - __tmp118152)))) + __tmp118157)))) (define gxc#&expression-subst* (make-promise (lambda () - (let ((_tbl117815_ + (let ((_tbl117820_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp118154 (force gxc#&expression-subst))) + (let ((__tmp118159 (force gxc#&expression-subst))) (declare (not safe)) - (hash-merge! _tbl117815_ __tmp118154)) + (hash-merge! _tbl117820_ __tmp118159)) (let () (declare (not safe)) - (hash-put! _tbl117815_ '%#ref gxc#expression-subst*-ref%)) + (hash-put! _tbl117820_ '%#ref gxc#expression-subst*-ref%)) (let () (declare (not safe)) - (hash-put! _tbl117815_ '%#set! gxc#expression-subst*-setq%)) - _tbl117815_)))) + (hash-put! _tbl117820_ '%#set! gxc#expression-subst*-setq%)) + _tbl117820_)))) (define gxc#apply-expression-subst* - (lambda (_stx117798_ . _args117800_) - (let ((__tmp118156 + (lambda (_stx117803_ . _args117805_) + (let ((__tmp118161 (lambda () (declare (not safe)) - (if (null? _args117800_) - (gxc#compile-e__0 _stx117798_) - (let ((_arg1117805_ (car _args117800_)) - (_rest117807_ (cdr _args117800_))) - (if (null? _rest117807_) - (gxc#compile-e__1 _stx117798_ _arg1117805_) - (let ((_arg2117810_ (car _rest117807_)) - (_rest117812_ (cdr _rest117807_))) - (if (null? _rest117812_) + (if (null? _args117805_) + (gxc#compile-e__0 _stx117803_) + (let ((_arg1117810_ (car _args117805_)) + (_rest117812_ (cdr _args117805_))) + (if (null? _rest117812_) + (gxc#compile-e__1 _stx117803_ _arg1117810_) + (let ((_arg2117815_ (car _rest117812_)) + (_rest117817_ (cdr _rest117812_))) + (if (null? _rest117817_) (gxc#compile-e__2 - _stx117798_ - _arg1117805_ - _arg2117810_) + _stx117803_ + _arg1117810_ + _arg2117815_) (apply gxc#compile-e - _stx117798_ - _arg1117805_ - _arg2117810_ - _rest117812_)))))))) - (__tmp118155 (force gxc#&expression-subst*))) + _stx117803_ + _arg1117810_ + _arg2117815_ + _rest117817_)))))))) + (__tmp118160 (force gxc#&expression-subst*))) (declare (not safe)) (call-with-parameters - __tmp118156 + __tmp118161 gxc#current-compile-methods - __tmp118155)))) + __tmp118160)))) (define gxc#&find-expression (make-promise (lambda () - (let ((_tbl117795_ + (let ((_tbl117800_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp118157 (force gxc#&false-expression))) + (let ((__tmp118162 (force gxc#&false-expression))) (declare (not safe)) - (hash-merge! _tbl117795_ __tmp118157)) + (hash-merge! _tbl117800_ __tmp118162)) (let () (declare (not safe)) - (hash-put! _tbl117795_ '%#begin gxc#find-body%)) + (hash-put! _tbl117800_ '%#begin gxc#find-body%)) (let () (declare (not safe)) (hash-put! - _tbl117795_ + _tbl117800_ '%#begin-annotation gxc#find-begin-annotation%)) (let () (declare (not safe)) - (hash-put! _tbl117795_ '%#lambda gxc#find-lambda%)) + (hash-put! _tbl117800_ '%#lambda gxc#find-lambda%)) (let () (declare (not safe)) - (hash-put! _tbl117795_ '%#case-lambda gxc#find-case-lambda%)) + (hash-put! _tbl117800_ '%#case-lambda gxc#find-case-lambda%)) (let () (declare (not safe)) - (hash-put! _tbl117795_ '%#let-values gxc#find-let-values%)) + (hash-put! _tbl117800_ '%#let-values gxc#find-let-values%)) (let () (declare (not safe)) - (hash-put! _tbl117795_ '%#letrec-values gxc#find-let-values%)) + (hash-put! _tbl117800_ '%#letrec-values gxc#find-let-values%)) (let () (declare (not safe)) - (hash-put! _tbl117795_ '%#letrec*-values gxc#find-let-values%)) + (hash-put! _tbl117800_ '%#letrec*-values gxc#find-let-values%)) (let () (declare (not safe)) - (hash-put! _tbl117795_ '%#call gxc#find-body%)) + (hash-put! _tbl117800_ '%#call gxc#find-body%)) (let () (declare (not safe)) - (hash-put! _tbl117795_ '%#call-unchecked gxc#find-body%)) + (hash-put! _tbl117800_ '%#call-unchecked gxc#find-body%)) (let () (declare (not safe)) - (hash-put! _tbl117795_ '%#if gxc#find-body%)) + (hash-put! _tbl117800_ '%#if gxc#find-body%)) (let () (declare (not safe)) - (hash-put! _tbl117795_ '%#set! gxc#find-setq%)) + (hash-put! _tbl117800_ '%#set! gxc#find-setq%)) (let () (declare (not safe)) - (hash-put! _tbl117795_ '%#struct-instance? gxc#find-body%)) + (hash-put! _tbl117800_ '%#struct-instance? gxc#find-body%)) (let () (declare (not safe)) - (hash-put! _tbl117795_ '%#struct-direct-instance? gxc#find-body%)) + (hash-put! _tbl117800_ '%#struct-direct-instance? gxc#find-body%)) (let () (declare (not safe)) - (hash-put! _tbl117795_ '%#struct-ref gxc#find-body%)) + (hash-put! _tbl117800_ '%#struct-ref gxc#find-body%)) (let () (declare (not safe)) - (hash-put! _tbl117795_ '%#struct-set! gxc#find-body%)) + (hash-put! _tbl117800_ '%#struct-set! gxc#find-body%)) (let () (declare (not safe)) - (hash-put! _tbl117795_ '%#struct-direct-ref gxc#find-body%)) + (hash-put! _tbl117800_ '%#struct-direct-ref gxc#find-body%)) (let () (declare (not safe)) - (hash-put! _tbl117795_ '%#struct-direct-set! gxc#find-body%)) + (hash-put! _tbl117800_ '%#struct-direct-set! gxc#find-body%)) (let () (declare (not safe)) - (hash-put! _tbl117795_ '%#struct-unchecked-ref gxc#find-body%)) + (hash-put! _tbl117800_ '%#struct-unchecked-ref gxc#find-body%)) (let () (declare (not safe)) - (hash-put! _tbl117795_ '%#struct-unchecked-set! gxc#find-body%)) - _tbl117795_)))) + (hash-put! _tbl117800_ '%#struct-unchecked-set! gxc#find-body%)) + _tbl117800_)))) (define gxc#&find-var-refs (make-promise (lambda () - (let ((_tbl117791_ + (let ((_tbl117796_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp118158 (force gxc#&find-expression))) + (let ((__tmp118163 (force gxc#&find-expression))) (declare (not safe)) - (hash-merge! _tbl117791_ __tmp118158)) + (hash-merge! _tbl117796_ __tmp118163)) (let () (declare (not safe)) - (hash-put! _tbl117791_ '%#ref gxc#find-var-refs-ref%)) + (hash-put! _tbl117796_ '%#ref gxc#find-var-refs-ref%)) (let () (declare (not safe)) - (hash-put! _tbl117791_ '%#set! gxc#find-var-refs-setq%)) - _tbl117791_)))) + (hash-put! _tbl117796_ '%#set! gxc#find-var-refs-setq%)) + _tbl117796_)))) (define gxc#apply-find-var-refs - (lambda (_stx117774_ . _args117776_) - (let ((__tmp118160 + (lambda (_stx117779_ . _args117781_) + (let ((__tmp118165 (lambda () (declare (not safe)) - (if (null? _args117776_) - (gxc#compile-e__0 _stx117774_) - (let ((_arg1117781_ (car _args117776_)) - (_rest117783_ (cdr _args117776_))) - (if (null? _rest117783_) - (gxc#compile-e__1 _stx117774_ _arg1117781_) - (let ((_arg2117786_ (car _rest117783_)) - (_rest117788_ (cdr _rest117783_))) - (if (null? _rest117788_) + (if (null? _args117781_) + (gxc#compile-e__0 _stx117779_) + (let ((_arg1117786_ (car _args117781_)) + (_rest117788_ (cdr _args117781_))) + (if (null? _rest117788_) + (gxc#compile-e__1 _stx117779_ _arg1117786_) + (let ((_arg2117791_ (car _rest117788_)) + (_rest117793_ (cdr _rest117788_))) + (if (null? _rest117793_) (gxc#compile-e__2 - _stx117774_ - _arg1117781_ - _arg2117786_) + _stx117779_ + _arg1117786_ + _arg2117791_) (apply gxc#compile-e - _stx117774_ - _arg1117781_ - _arg2117786_ - _rest117788_)))))))) - (__tmp118159 (force gxc#&find-var-refs))) + _stx117779_ + _arg1117786_ + _arg2117791_ + _rest117793_)))))))) + (__tmp118164 (force gxc#&find-var-refs))) (declare (not safe)) (call-with-parameters - __tmp118160 + __tmp118165 gxc#current-compile-methods - __tmp118159)))) + __tmp118164)))) (define gxc#&collect-runtime-refs (make-promise (lambda () - (let ((_tbl117771_ + (let ((_tbl117776_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp118161 (force gxc#&collect-expression-refs))) + (let ((__tmp118166 (force gxc#&collect-expression-refs))) (declare (not safe)) - (hash-merge! _tbl117771_ __tmp118161)) + (hash-merge! _tbl117776_ __tmp118166)) (let () (declare (not safe)) - (hash-put! _tbl117771_ '%#ref gxc#collect-runtime-refs-ref%)) + (hash-put! _tbl117776_ '%#ref gxc#collect-runtime-refs-ref%)) (let () (declare (not safe)) - (hash-put! _tbl117771_ '%#set! gxc#collect-runtime-refs-setq%)) - _tbl117771_)))) + (hash-put! _tbl117776_ '%#set! gxc#collect-runtime-refs-setq%)) + _tbl117776_)))) (define gxc#apply-collect-runtime-refs - (lambda (_stx117754_ . _args117756_) - (let ((__tmp118163 + (lambda (_stx117759_ . _args117761_) + (let ((__tmp118168 (lambda () (declare (not safe)) - (if (null? _args117756_) - (gxc#compile-e__0 _stx117754_) - (let ((_arg1117761_ (car _args117756_)) - (_rest117763_ (cdr _args117756_))) - (if (null? _rest117763_) - (gxc#compile-e__1 _stx117754_ _arg1117761_) - (let ((_arg2117766_ (car _rest117763_)) - (_rest117768_ (cdr _rest117763_))) - (if (null? _rest117768_) + (if (null? _args117761_) + (gxc#compile-e__0 _stx117759_) + (let ((_arg1117766_ (car _args117761_)) + (_rest117768_ (cdr _args117761_))) + (if (null? _rest117768_) + (gxc#compile-e__1 _stx117759_ _arg1117766_) + (let ((_arg2117771_ (car _rest117768_)) + (_rest117773_ (cdr _rest117768_))) + (if (null? _rest117773_) (gxc#compile-e__2 - _stx117754_ - _arg1117761_ - _arg2117766_) + _stx117759_ + _arg1117766_ + _arg2117771_) (apply gxc#compile-e - _stx117754_ - _arg1117761_ - _arg2117766_ - _rest117768_)))))))) - (__tmp118162 (force gxc#&collect-runtime-refs))) + _stx117759_ + _arg1117766_ + _arg2117771_ + _rest117773_)))))))) + (__tmp118167 (force gxc#&collect-runtime-refs))) (declare (not safe)) (call-with-parameters - __tmp118163 + __tmp118168 gxc#current-compile-methods - __tmp118162)))) + __tmp118167)))) (define gxc#xform-identity - (lambda (_stx117751_ . _args117752_) _stx117751_)) + (lambda (_stx117756_ . _args117757_) _stx117756_)) (define gxc#xform-wrap-source - (lambda (_stx117748_ _src-stx117749_) - (let ((__tmp118164 - (let () (declare (not safe)) (gx#stx-source _src-stx117749_)))) + (lambda (_stx117753_ _src-stx117754_) + (let ((__tmp118169 + (let () (declare (not safe)) (gx#stx-source _src-stx117754_)))) (declare (not safe)) - (gx#stx-wrap-source _stx117748_ __tmp118164)))) + (gx#stx-wrap-source _stx117753_ __tmp118169)))) (define gxc#xform-apply-compile-e - (lambda (_args117735_) - (lambda (_stx117737_) - (if (let () (declare (not safe)) (null? _args117735_)) - (let () (declare (not safe)) (gxc#compile-e__0 _stx117737_)) - (let ((_arg1117739_ (car _args117735_)) - (_rest117741_ (cdr _args117735_))) - (if (let () (declare (not safe)) (null? _rest117741_)) + (lambda (_args117740_) + (lambda (_stx117742_) + (if (let () (declare (not safe)) (null? _args117740_)) + (let () (declare (not safe)) (gxc#compile-e__0 _stx117742_)) + (let ((_arg1117744_ (car _args117740_)) + (_rest117746_ (cdr _args117740_))) + (if (let () (declare (not safe)) (null? _rest117746_)) (let () (declare (not safe)) - (gxc#compile-e__1 _stx117737_ _arg1117739_)) - (let ((_arg2117744_ (car _rest117741_)) - (_rest117746_ (cdr _rest117741_))) - (if (let () (declare (not safe)) (null? _rest117746_)) + (gxc#compile-e__1 _stx117742_ _arg1117744_)) + (let ((_arg2117749_ (car _rest117746_)) + (_rest117751_ (cdr _rest117746_))) + (if (let () (declare (not safe)) (null? _rest117751_)) (let () (declare (not safe)) (gxc#compile-e__2 - _stx117737_ - _arg1117739_ - _arg2117744_)) + _stx117742_ + _arg1117744_ + _arg2117749_)) (apply gxc#compile-e - _stx117737_ - _arg1117739_ - _arg2117744_ - _rest117746_))))))))) + _stx117742_ + _arg1117744_ + _arg2117749_ + _rest117751_))))))))) (define gxc#xform-begin% - (lambda (_stx117694_ . _args117695_) - (let* ((_g117697117707_ - (lambda (_g117698117704_) + (lambda (_stx117699_ . _args117700_) + (let* ((_g117702117712_ + (lambda (_g117703117709_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g117698117704_)))) - (_g117696117732_ - (lambda (_g117698117710_) + _g117703117709_)))) + (_g117701117737_ + (lambda (_g117703117715_) (if (let () (declare (not safe)) - (gx#stx-pair? _g117698117710_)) - (let ((_e117702117712_ + (gx#stx-pair? _g117703117715_)) + (let ((_e117707117717_ (let () (declare (not safe)) - (gx#stx-e _g117698117710_)))) - (let ((_hd117701117715_ + (gx#stx-e _g117703117715_)))) + (let ((_hd117706117720_ (let () (declare (not safe)) - (##car _e117702117712_))) - (_tl117700117717_ + (##car _e117707117717_))) + (_tl117705117722_ (let () (declare (not safe)) - (##cdr _e117702117712_)))) - ((lambda (_L117720_) - (let* ((_forms117730_ + (##cdr _e117707117717_)))) + ((lambda (_L117725_) + (let* ((_forms117735_ (map (let () (declare (not safe)) (gxc#xform-apply-compile-e - _args117695_)) - _L117720_)) - (__tmp118165 + _args117700_)) + _L117725_)) + (__tmp118170 (let () (declare (not safe)) - (cons '%#begin _forms117730_)))) + (cons '%#begin _forms117735_)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp118165 - _stx117694_))) - _tl117700117717_))) + __tmp118170 + _stx117699_))) + _tl117705117722_))) (let () (declare (not safe)) - (_g117697117707_ _g117698117710_)))))) + (_g117702117712_ _g117703117715_)))))) (declare (not safe)) - (_g117696117732_ _stx117694_)))) + (_g117701117737_ _stx117699_)))) (define gxc#xform-begin-syntax% - (lambda (_stx117652_ . _args117653_) - (let* ((_g117655117665_ - (lambda (_g117656117662_) + (lambda (_stx117657_ . _args117658_) + (let* ((_g117660117670_ + (lambda (_g117661117667_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g117656117662_)))) - (_g117654117691_ - (lambda (_g117656117668_) + _g117661117667_)))) + (_g117659117696_ + (lambda (_g117661117673_) (if (let () (declare (not safe)) - (gx#stx-pair? _g117656117668_)) - (let ((_e117660117670_ + (gx#stx-pair? _g117661117673_)) + (let ((_e117665117675_ (let () (declare (not safe)) - (gx#stx-e _g117656117668_)))) - (let ((_hd117659117673_ + (gx#stx-e _g117661117673_)))) + (let ((_hd117664117678_ (let () (declare (not safe)) - (##car _e117660117670_))) - (_tl117658117675_ + (##car _e117665117675_))) + (_tl117663117680_ (let () (declare (not safe)) - (##cdr _e117660117670_)))) - ((lambda (_L117678_) - (let ((__tmp118168 + (##cdr _e117665117675_)))) + ((lambda (_L117683_) + (let ((__tmp118173 (lambda () - (let* ((_forms117689_ + (let* ((_forms117694_ (map (let () (declare (not safe)) (gxc#xform-apply-compile-e - _args117653_)) - _L117678_)) - (__tmp118169 + _args117658_)) + _L117683_)) + (__tmp118174 (let () (declare (not safe)) (cons '%#begin-syntax - _forms117689_)))) + _forms117694_)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp118169 - _stx117652_)))) - (__tmp118166 - (let ((__tmp118167 + __tmp118174 + _stx117657_)))) + (__tmp118171 + (let ((__tmp118172 (gx#current-expander-phi))) (declare (not safe)) - (fx+ __tmp118167 '1)))) + (fx+ __tmp118172 '1)))) (declare (not safe)) (call-with-parameters - __tmp118168 + __tmp118173 gx#current-expander-phi - __tmp118166))) - _tl117658117675_))) + __tmp118171))) + _tl117663117680_))) (let () (declare (not safe)) - (_g117655117665_ _g117656117668_)))))) + (_g117660117670_ _g117661117673_)))))) (declare (not safe)) - (_g117654117691_ _stx117652_)))) + (_g117659117696_ _stx117657_)))) (define gxc#xform-module% - (lambda (_stx117580_ . _args117581_) - (let* ((_g117583117597_ - (lambda (_g117584117594_) + (lambda (_stx117585_ . _args117586_) + (let* ((_g117588117602_ + (lambda (_g117589117599_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g117584117594_)))) - (_g117582117649_ - (lambda (_g117584117600_) + _g117589117599_)))) + (_g117587117654_ + (lambda (_g117589117605_) (if (let () (declare (not safe)) - (gx#stx-pair? _g117584117600_)) - (let ((_e117589117602_ + (gx#stx-pair? _g117589117605_)) + (let ((_e117594117607_ (let () (declare (not safe)) - (gx#stx-e _g117584117600_)))) - (let ((_hd117588117605_ + (gx#stx-e _g117589117605_)))) + (let ((_hd117593117610_ (let () (declare (not safe)) - (##car _e117589117602_))) - (_tl117587117607_ + (##car _e117594117607_))) + (_tl117592117612_ (let () (declare (not safe)) - (##cdr _e117589117602_)))) + (##cdr _e117594117607_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl117587117607_)) - (let ((_e117592117610_ + (gx#stx-pair? _tl117592117612_)) + (let ((_e117597117615_ (let () (declare (not safe)) - (gx#stx-e _tl117587117607_)))) - (let ((_hd117591117613_ + (gx#stx-e _tl117592117612_)))) + (let ((_hd117596117618_ (let () (declare (not safe)) - (##car _e117592117610_))) - (_tl117590117615_ + (##car _e117597117615_))) + (_tl117595117620_ (let () (declare (not safe)) - (##cdr _e117592117610_)))) - ((lambda (_L117618_ _L117619_) - (let* ((_ctx117632_ + (##cdr _e117597117615_)))) + ((lambda (_L117623_ _L117624_) + (let* ((_ctx117637_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _L117619_))) - (_code117634_ + _L117624_))) + (_code117639_ (##structure-ref - _ctx117632_ + _ctx117637_ '11 gx#module-context::t '#f)) - (_code117646_ - (let ((__tmp118170 + (_code117651_ + (let ((__tmp118175 (lambda () (if (let () (declare (not safe)) - (null? _args117581_)) + (null? _args117586_)) (let () (declare (not safe)) (gxc#compile-e__0 - _code117634_)) - (let ((_arg1117637_ + _code117639_)) + (let ((_arg1117642_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _args117581_)) - (_rest117639_ (cdr _args117581_))) - (if (let () (declare (not safe)) (null? _rest117639_)) + (car _args117586_)) + (_rest117644_ (cdr _args117586_))) + (if (let () (declare (not safe)) (null? _rest117644_)) (let () (declare (not safe)) - (gxc#compile-e__1 _code117634_ _arg1117637_)) - (let ((_arg2117642_ (car _rest117639_)) - (_rest117644_ (cdr _rest117639_))) + (gxc#compile-e__1 _code117639_ _arg1117642_)) + (let ((_arg2117647_ (car _rest117644_)) + (_rest117649_ (cdr _rest117644_))) (if (let () (declare (not safe)) - (null? _rest117644_)) + (null? _rest117649_)) (let () (declare (not safe)) (gxc#compile-e__2 - _code117634_ - _arg1117637_ - _arg2117642_)) + _code117639_ + _arg1117642_ + _arg2117647_)) (apply gxc#compile-e - _code117634_ - _arg1117637_ - _arg2117642_ - _rest117644_))))))))) + _code117639_ + _arg1117642_ + _arg2117647_ + _rest117649_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (call-with-parameters - __tmp118170 + __tmp118175 gx#current-expander-context - _ctx117632_)))) + _ctx117637_)))) (##structure-set! - _ctx117632_ - _code117646_ + _ctx117637_ + _code117651_ '11 gx#module-context::t '#f) - (let ((__tmp118171 - (let ((__tmp118172 - (let ((__tmp118173 + (let ((__tmp118176 + (let ((__tmp118177 + (let ((__tmp118178 (let () (declare (not safe)) - (cons _code117646_ + (cons _code117651_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons _L117619_ __tmp118173)))) + (cons _L117624_ __tmp118178)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#module __tmp118172)))) + (cons '%#module __tmp118177)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp118171 - _stx117580_)))) - _tl117590117615_ - _hd117591117613_))) + __tmp118176 + _stx117585_)))) + _tl117595117620_ + _hd117596117618_))) (let () (declare (not safe)) - (_g117583117597_ _g117584117600_))))) + (_g117588117602_ _g117589117605_))))) (let () (declare (not safe)) - (_g117583117597_ _g117584117600_)))))) + (_g117588117602_ _g117589117605_)))))) (declare (not safe)) - (_g117582117649_ _stx117580_)))) + (_g117587117654_ _stx117585_)))) (define gxc#xform-define-values% - (lambda (_stx117501_ . _args117502_) - (let* ((_g117504117521_ - (lambda (_g117505117518_) + (lambda (_stx117506_ . _args117507_) + (let* ((_g117509117526_ + (lambda (_g117510117523_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g117505117518_)))) - (_g117503117577_ - (lambda (_g117505117524_) + _g117510117523_)))) + (_g117508117582_ + (lambda (_g117510117529_) (if (let () (declare (not safe)) - (gx#stx-pair? _g117505117524_)) - (let ((_e117510117526_ + (gx#stx-pair? _g117510117529_)) + (let ((_e117515117531_ (let () (declare (not safe)) - (gx#stx-e _g117505117524_)))) - (let ((_hd117509117529_ + (gx#stx-e _g117510117529_)))) + (let ((_hd117514117534_ (let () (declare (not safe)) - (##car _e117510117526_))) - (_tl117508117531_ + (##car _e117515117531_))) + (_tl117513117536_ (let () (declare (not safe)) - (##cdr _e117510117526_)))) + (##cdr _e117515117531_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl117508117531_)) - (let ((_e117513117534_ + (gx#stx-pair? _tl117513117536_)) + (let ((_e117518117539_ (let () (declare (not safe)) - (gx#stx-e _tl117508117531_)))) - (let ((_hd117512117537_ + (gx#stx-e _tl117513117536_)))) + (let ((_hd117517117542_ (let () (declare (not safe)) - (##car _e117513117534_))) - (_tl117511117539_ + (##car _e117518117539_))) + (_tl117516117544_ (let () (declare (not safe)) - (##cdr _e117513117534_)))) + (##cdr _e117518117539_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl117511117539_)) - (let ((_e117516117542_ + (gx#stx-pair? _tl117516117544_)) + (let ((_e117521117547_ (let () (declare (not safe)) - (gx#stx-e _tl117511117539_)))) - (let ((_hd117515117545_ + (gx#stx-e _tl117516117544_)))) + (let ((_hd117520117550_ (let () (declare (not safe)) - (##car _e117516117542_))) - (_tl117514117547_ + (##car _e117521117547_))) + (_tl117519117552_ (let () (declare (not safe)) - (##cdr _e117516117542_)))) + (##cdr _e117521117547_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl117514117547_)) - ((lambda (_L117550_ _L117551_) - (let* ((_expr117575_ + _tl117519117552_)) + ((lambda (_L117555_ _L117556_) + (let* ((_expr117580_ (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (null? _args117502_)) - (let () (declare (not safe)) (gxc#compile-e__0 _L117550_)) - (let ((_arg1117566_ (car _args117502_)) - (_rest117568_ (cdr _args117502_))) - (if (let () (declare (not safe)) (null? _rest117568_)) + (null? _args117507_)) + (let () (declare (not safe)) (gxc#compile-e__0 _L117555_)) + (let ((_arg1117571_ (car _args117507_)) + (_rest117573_ (cdr _args117507_))) + (if (let () (declare (not safe)) (null? _rest117573_)) (let () (declare (not safe)) - (gxc#compile-e__1 _L117550_ _arg1117566_)) - (let ((_arg2117571_ (car _rest117568_)) - (_rest117573_ (cdr _rest117568_))) + (gxc#compile-e__1 _L117555_ _arg1117571_)) + (let ((_arg2117576_ (car _rest117573_)) + (_rest117578_ (cdr _rest117573_))) (if (let () (declare (not safe)) - (null? _rest117573_)) + (null? _rest117578_)) (let () (declare (not safe)) (gxc#compile-e__2 - _L117550_ - _arg1117566_ - _arg2117571_)) + _L117555_ + _arg1117571_ + _arg2117576_)) (apply gxc#compile-e - _L117550_ - _arg1117566_ - _arg2117571_ - _rest117573_))))))) - (__tmp118174 - (let ((__tmp118175 - (let ((__tmp118176 + _L117555_ + _arg1117571_ + _arg2117576_ + _rest117578_))))))) + (__tmp118179 + (let ((__tmp118180 + (let ((__tmp118181 (let () (declare (not safe)) - (cons _expr117575_ '())))) + (cons _expr117580_ '())))) (declare (not safe)) - (cons _L117551_ __tmp118176)))) + (cons _L117556_ __tmp118181)))) (declare (not safe)) - (cons '%#define-values __tmp118175)))) + (cons '%#define-values __tmp118180)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp118174 - _stx117501_))) - _hd117515117545_ - _hd117512117537_) + __tmp118179 + _stx117506_))) + _hd117520117550_ + _hd117517117542_) (let () (declare (not safe)) - (_g117504117521_ - _g117505117524_))))) + (_g117509117526_ + _g117510117529_))))) (let () (declare (not safe)) - (_g117504117521_ _g117505117524_))))) + (_g117509117526_ _g117510117529_))))) (let () (declare (not safe)) - (_g117504117521_ _g117505117524_))))) + (_g117509117526_ _g117510117529_))))) (let () (declare (not safe)) - (_g117504117521_ _g117505117524_)))))) + (_g117509117526_ _g117510117529_)))))) (declare (not safe)) - (_g117503117577_ _stx117501_)))) + (_g117508117582_ _stx117506_)))) (define gxc#xform-define-syntax% - (lambda (_stx117421_ . _args117422_) - (let* ((_g117424117441_ - (lambda (_g117425117438_) + (lambda (_stx117426_ . _args117427_) + (let* ((_g117429117446_ + (lambda (_g117430117443_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g117425117438_)))) - (_g117423117498_ - (lambda (_g117425117444_) + _g117430117443_)))) + (_g117428117503_ + (lambda (_g117430117449_) (if (let () (declare (not safe)) - (gx#stx-pair? _g117425117444_)) - (let ((_e117430117446_ + (gx#stx-pair? _g117430117449_)) + (let ((_e117435117451_ (let () (declare (not safe)) - (gx#stx-e _g117425117444_)))) - (let ((_hd117429117449_ + (gx#stx-e _g117430117449_)))) + (let ((_hd117434117454_ (let () (declare (not safe)) - (##car _e117430117446_))) - (_tl117428117451_ + (##car _e117435117451_))) + (_tl117433117456_ (let () (declare (not safe)) - (##cdr _e117430117446_)))) + (##cdr _e117435117451_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl117428117451_)) - (let ((_e117433117454_ + (gx#stx-pair? _tl117433117456_)) + (let ((_e117438117459_ (let () (declare (not safe)) - (gx#stx-e _tl117428117451_)))) - (let ((_hd117432117457_ + (gx#stx-e _tl117433117456_)))) + (let ((_hd117437117462_ (let () (declare (not safe)) - (##car _e117433117454_))) - (_tl117431117459_ + (##car _e117438117459_))) + (_tl117436117464_ (let () (declare (not safe)) - (##cdr _e117433117454_)))) + (##cdr _e117438117459_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl117431117459_)) - (let ((_e117436117462_ + (gx#stx-pair? _tl117436117464_)) + (let ((_e117441117467_ (let () (declare (not safe)) - (gx#stx-e _tl117431117459_)))) - (let ((_hd117435117465_ + (gx#stx-e _tl117436117464_)))) + (let ((_hd117440117470_ (let () (declare (not safe)) - (##car _e117436117462_))) - (_tl117434117467_ + (##car _e117441117467_))) + (_tl117439117472_ (let () (declare (not safe)) - (##cdr _e117436117462_)))) + (##cdr _e117441117467_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl117434117467_)) - ((lambda (_L117470_ _L117471_) - (let ((__tmp118179 + _tl117439117472_)) + ((lambda (_L117475_ _L117476_) + (let ((__tmp118184 (lambda () - (let* ((_expr117496_ + (let* ((_expr117501_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (if (let () (declare (not safe)) - (null? _args117422_)) + (null? _args117427_)) (let () (declare (not safe)) - (gxc#compile-e__0 _L117470_)) - (let ((_arg1117487_ (car _args117422_)) - (_rest117489_ (cdr _args117422_))) + (gxc#compile-e__0 _L117475_)) + (let ((_arg1117492_ (car _args117427_)) + (_rest117494_ (cdr _args117427_))) (if (let () (declare (not safe)) - (null? _rest117489_)) + (null? _rest117494_)) (let () (declare (not safe)) (gxc#compile-e__1 - _L117470_ - _arg1117487_)) - (let ((_arg2117492_ (car _rest117489_)) - (_rest117494_ (cdr _rest117489_))) + _L117475_ + _arg1117492_)) + (let ((_arg2117497_ (car _rest117494_)) + (_rest117499_ (cdr _rest117494_))) (if (let () (declare (not safe)) - (null? _rest117494_)) + (null? _rest117499_)) (let () (declare (not safe)) (gxc#compile-e__2 - _L117470_ - _arg1117487_ - _arg2117492_)) + _L117475_ + _arg1117492_ + _arg2117497_)) (apply gxc#compile-e - _L117470_ - _arg1117487_ - _arg2117492_ - _rest117494_))))))) - (__tmp118180 - (let ((__tmp118181 - (let ((__tmp118182 + _L117475_ + _arg1117492_ + _arg2117497_ + _rest117499_))))))) + (__tmp118185 + (let ((__tmp118186 + (let ((__tmp118187 (let () (declare (not safe)) - (cons _expr117496_ '())))) + (cons _expr117501_ '())))) (declare (not safe)) - (cons _L117471_ __tmp118182)))) + (cons _L117476_ __tmp118187)))) (declare (not safe)) - (cons '%#define-syntax __tmp118181)))) + (cons '%#define-syntax __tmp118186)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp118180 _stx117421_)))) - (__tmp118177 - (let ((__tmp118178 (gx#current-expander-phi))) + (gxc#xform-wrap-source __tmp118185 _stx117426_)))) + (__tmp118182 + (let ((__tmp118183 (gx#current-expander-phi))) (declare (not safe)) - (fx+ __tmp118178 '1)))) + (fx+ __tmp118183 '1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (call-with-parameters - __tmp118179 + __tmp118184 gx#current-expander-phi - __tmp118177))) - _hd117435117465_ - _hd117432117457_) + __tmp118182))) + _hd117440117470_ + _hd117437117462_) (let () (declare (not safe)) - (_g117424117441_ - _g117425117444_))))) + (_g117429117446_ + _g117430117449_))))) (let () (declare (not safe)) - (_g117424117441_ _g117425117444_))))) + (_g117429117446_ _g117430117449_))))) (let () (declare (not safe)) - (_g117424117441_ _g117425117444_))))) + (_g117429117446_ _g117430117449_))))) (let () (declare (not safe)) - (_g117424117441_ _g117425117444_)))))) + (_g117429117446_ _g117430117449_)))))) (declare (not safe)) - (_g117423117498_ _stx117421_)))) + (_g117428117503_ _stx117426_)))) (define gxc#xform-begin-annotation% - (lambda (_stx117342_ . _args117343_) - (let* ((_g117345117362_ - (lambda (_g117346117359_) + (lambda (_stx117347_ . _args117348_) + (let* ((_g117350117367_ + (lambda (_g117351117364_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g117346117359_)))) - (_g117344117418_ - (lambda (_g117346117365_) + _g117351117364_)))) + (_g117349117423_ + (lambda (_g117351117370_) (if (let () (declare (not safe)) - (gx#stx-pair? _g117346117365_)) - (let ((_e117351117367_ + (gx#stx-pair? _g117351117370_)) + (let ((_e117356117372_ (let () (declare (not safe)) - (gx#stx-e _g117346117365_)))) - (let ((_hd117350117370_ + (gx#stx-e _g117351117370_)))) + (let ((_hd117355117375_ (let () (declare (not safe)) - (##car _e117351117367_))) - (_tl117349117372_ + (##car _e117356117372_))) + (_tl117354117377_ (let () (declare (not safe)) - (##cdr _e117351117367_)))) + (##cdr _e117356117372_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl117349117372_)) - (let ((_e117354117375_ + (gx#stx-pair? _tl117354117377_)) + (let ((_e117359117380_ (let () (declare (not safe)) - (gx#stx-e _tl117349117372_)))) - (let ((_hd117353117378_ + (gx#stx-e _tl117354117377_)))) + (let ((_hd117358117383_ (let () (declare (not safe)) - (##car _e117354117375_))) - (_tl117352117380_ + (##car _e117359117380_))) + (_tl117357117385_ (let () (declare (not safe)) - (##cdr _e117354117375_)))) + (##cdr _e117359117380_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl117352117380_)) - (let ((_e117357117383_ + (gx#stx-pair? _tl117357117385_)) + (let ((_e117362117388_ (let () (declare (not safe)) - (gx#stx-e _tl117352117380_)))) - (let ((_hd117356117386_ + (gx#stx-e _tl117357117385_)))) + (let ((_hd117361117391_ (let () (declare (not safe)) - (##car _e117357117383_))) - (_tl117355117388_ + (##car _e117362117388_))) + (_tl117360117393_ (let () (declare (not safe)) - (##cdr _e117357117383_)))) + (##cdr _e117362117388_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl117355117388_)) - ((lambda (_L117391_ _L117392_) - (let* ((_expr117416_ + _tl117360117393_)) + ((lambda (_L117396_ _L117397_) + (let* ((_expr117421_ (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (null? _args117343_)) - (let () (declare (not safe)) (gxc#compile-e__0 _L117391_)) - (let ((_arg1117407_ (car _args117343_)) - (_rest117409_ (cdr _args117343_))) - (if (let () (declare (not safe)) (null? _rest117409_)) + (null? _args117348_)) + (let () (declare (not safe)) (gxc#compile-e__0 _L117396_)) + (let ((_arg1117412_ (car _args117348_)) + (_rest117414_ (cdr _args117348_))) + (if (let () (declare (not safe)) (null? _rest117414_)) (let () (declare (not safe)) - (gxc#compile-e__1 _L117391_ _arg1117407_)) - (let ((_arg2117412_ (car _rest117409_)) - (_rest117414_ (cdr _rest117409_))) + (gxc#compile-e__1 _L117396_ _arg1117412_)) + (let ((_arg2117417_ (car _rest117414_)) + (_rest117419_ (cdr _rest117414_))) (if (let () (declare (not safe)) - (null? _rest117414_)) + (null? _rest117419_)) (let () (declare (not safe)) (gxc#compile-e__2 - _L117391_ - _arg1117407_ - _arg2117412_)) + _L117396_ + _arg1117412_ + _arg2117417_)) (apply gxc#compile-e - _L117391_ - _arg1117407_ - _arg2117412_ - _rest117414_))))))) - (__tmp118183 - (let ((__tmp118184 - (let ((__tmp118185 + _L117396_ + _arg1117412_ + _arg2117417_ + _rest117419_))))))) + (__tmp118188 + (let ((__tmp118189 + (let ((__tmp118190 (let () (declare (not safe)) - (cons _expr117416_ '())))) + (cons _expr117421_ '())))) (declare (not safe)) - (cons _L117392_ __tmp118185)))) + (cons _L117397_ __tmp118190)))) (declare (not safe)) - (cons '%#begin-annotation __tmp118184)))) + (cons '%#begin-annotation __tmp118189)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp118183 - _stx117342_))) - _hd117356117386_ - _hd117353117378_) + __tmp118188 + _stx117347_))) + _hd117361117391_ + _hd117358117383_) (let () (declare (not safe)) - (_g117345117362_ - _g117346117365_))))) + (_g117350117367_ + _g117351117370_))))) (let () (declare (not safe)) - (_g117345117362_ _g117346117365_))))) + (_g117350117367_ _g117351117370_))))) (let () (declare (not safe)) - (_g117345117362_ _g117346117365_))))) + (_g117350117367_ _g117351117370_))))) (let () (declare (not safe)) - (_g117345117362_ _g117346117365_)))))) + (_g117350117367_ _g117351117370_)))))) (declare (not safe)) - (_g117344117418_ _stx117342_)))) + (_g117349117423_ _stx117347_)))) (define gxc#xform-lambda% - (lambda (_stx117285_ . _args117286_) - (let* ((_g117288117302_ - (lambda (_g117289117299_) + (lambda (_stx117290_ . _args117291_) + (let* ((_g117293117307_ + (lambda (_g117294117304_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g117289117299_)))) - (_g117287117339_ - (lambda (_g117289117305_) + _g117294117304_)))) + (_g117292117344_ + (lambda (_g117294117310_) (if (let () (declare (not safe)) - (gx#stx-pair? _g117289117305_)) - (let ((_e117294117307_ + (gx#stx-pair? _g117294117310_)) + (let ((_e117299117312_ (let () (declare (not safe)) - (gx#stx-e _g117289117305_)))) - (let ((_hd117293117310_ + (gx#stx-e _g117294117310_)))) + (let ((_hd117298117315_ (let () (declare (not safe)) - (##car _e117294117307_))) - (_tl117292117312_ + (##car _e117299117312_))) + (_tl117297117317_ (let () (declare (not safe)) - (##cdr _e117294117307_)))) + (##cdr _e117299117312_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl117292117312_)) - (let ((_e117297117315_ + (gx#stx-pair? _tl117297117317_)) + (let ((_e117302117320_ (let () (declare (not safe)) - (gx#stx-e _tl117292117312_)))) - (let ((_hd117296117318_ + (gx#stx-e _tl117297117317_)))) + (let ((_hd117301117323_ (let () (declare (not safe)) - (##car _e117297117315_))) - (_tl117295117320_ + (##car _e117302117320_))) + (_tl117300117325_ (let () (declare (not safe)) - (##cdr _e117297117315_)))) - ((lambda (_L117323_ _L117324_) - (let* ((_body117337_ + (##cdr _e117302117320_)))) + ((lambda (_L117328_ _L117329_) + (let* ((_body117342_ (map (let () (declare (not safe)) (gxc#xform-apply-compile-e - _args117286_)) - _L117323_)) - (__tmp118186 - (let ((__tmp118187 + _args117291_)) + _L117328_)) + (__tmp118191 + (let ((__tmp118192 (let () (declare (not safe)) - (cons _L117324_ - _body117337_)))) + (cons _L117329_ + _body117342_)))) (declare (not safe)) - (cons '%#lambda __tmp118187)))) + (cons '%#lambda __tmp118192)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp118186 - _stx117285_))) - _tl117295117320_ - _hd117296117318_))) + __tmp118191 + _stx117290_))) + _tl117300117325_ + _hd117301117323_))) (let () (declare (not safe)) - (_g117288117302_ _g117289117305_))))) + (_g117293117307_ _g117294117310_))))) (let () (declare (not safe)) - (_g117288117302_ _g117289117305_)))))) + (_g117293117307_ _g117294117310_)))))) (declare (not safe)) - (_g117287117339_ _stx117285_)))) + (_g117292117344_ _stx117290_)))) (define gxc#xform-case-lambda% - (lambda (_stx117198_ . _args117199_) - (letrec ((_clause-e117201_ - (lambda (_clause117242_) - (let* ((_g117244117255_ - (lambda (_g117245117252_) + (lambda (_stx117203_ . _args117204_) + (letrec ((_clause-e117206_ + (lambda (_clause117247_) + (let* ((_g117249117260_ + (lambda (_g117250117257_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g117245117252_)))) - (_g117243117282_ - (lambda (_g117245117258_) + _g117250117257_)))) + (_g117248117287_ + (lambda (_g117250117263_) (if (let () (declare (not safe)) - (gx#stx-pair? _g117245117258_)) - (let ((_e117250117260_ + (gx#stx-pair? _g117250117263_)) + (let ((_e117255117265_ (let () (declare (not safe)) - (gx#stx-e _g117245117258_)))) - (let ((_hd117249117263_ + (gx#stx-e _g117250117263_)))) + (let ((_hd117254117268_ (let () (declare (not safe)) - (##car _e117250117260_))) - (_tl117248117265_ + (##car _e117255117265_))) + (_tl117253117270_ (let () (declare (not safe)) - (##cdr _e117250117260_)))) - ((lambda (_L117268_ _L117269_) - (let ((_body117280_ + (##cdr _e117255117265_)))) + ((lambda (_L117273_ _L117274_) + (let ((_body117285_ (map (let () (declare (not safe)) (gxc#xform-apply-compile-e - _args117199_)) - _L117268_))) + _args117204_)) + _L117273_))) (declare (not safe)) - (cons _L117269_ _body117280_))) - _tl117248117265_ - _hd117249117263_))) + (cons _L117274_ _body117285_))) + _tl117253117270_ + _hd117254117268_))) (let () (declare (not safe)) - (_g117244117255_ _g117245117258_)))))) + (_g117249117260_ _g117250117263_)))))) (declare (not safe)) - (_g117243117282_ _clause117242_))))) - (let* ((_g117203117213_ - (lambda (_g117204117210_) + (_g117248117287_ _clause117247_))))) + (let* ((_g117208117218_ + (lambda (_g117209117215_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g117204117210_)))) - (_g117202117239_ - (lambda (_g117204117216_) + _g117209117215_)))) + (_g117207117244_ + (lambda (_g117209117221_) (if (let () (declare (not safe)) - (gx#stx-pair? _g117204117216_)) - (let ((_e117208117218_ + (gx#stx-pair? _g117209117221_)) + (let ((_e117213117223_ (let () (declare (not safe)) - (gx#stx-e _g117204117216_)))) - (let ((_hd117207117221_ + (gx#stx-e _g117209117221_)))) + (let ((_hd117212117226_ (let () (declare (not safe)) - (##car _e117208117218_))) - (_tl117206117223_ + (##car _e117213117223_))) + (_tl117211117228_ (let () (declare (not safe)) - (##cdr _e117208117218_)))) - ((lambda (_L117226_) - (let* ((_clauses117237_ - (map _clause-e117201_ _L117226_)) - (__tmp118188 + (##cdr _e117213117223_)))) + ((lambda (_L117231_) + (let* ((_clauses117242_ + (map _clause-e117206_ _L117231_)) + (__tmp118193 (let () (declare (not safe)) (cons '%#case-lambda - _clauses117237_)))) + _clauses117242_)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp118188 - _stx117198_))) - _tl117206117223_))) + __tmp118193 + _stx117203_))) + _tl117211117228_))) (let () (declare (not safe)) - (_g117203117213_ _g117204117216_)))))) + (_g117208117218_ _g117209117221_)))))) (declare (not safe)) - (_g117202117239_ _stx117198_))))) + (_g117207117244_ _stx117203_))))) (define gxc#xform-let-values% - (lambda (_stx116992_ . _args116993_) - (let* ((_g116995117028_ - (lambda (_g116996117025_) + (lambda (_stx116997_ . _args116998_) + (let* ((_g117000117033_ + (lambda (_g117001117030_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g116996117025_)))) - (_g116994117195_ - (lambda (_g116996117031_) + _g117001117030_)))) + (_g116999117200_ + (lambda (_g117001117036_) (if (let () (declare (not safe)) - (gx#stx-pair? _g116996117031_)) - (let ((_e117003117033_ + (gx#stx-pair? _g117001117036_)) + (let ((_e117008117038_ (let () (declare (not safe)) - (gx#stx-e _g116996117031_)))) - (let ((_hd117002117036_ + (gx#stx-e _g117001117036_)))) + (let ((_hd117007117041_ (let () (declare (not safe)) - (##car _e117003117033_))) - (_tl117001117038_ + (##car _e117008117038_))) + (_tl117006117043_ (let () (declare (not safe)) - (##cdr _e117003117033_)))) + (##cdr _e117008117038_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl117001117038_)) - (let ((_e117006117041_ + (gx#stx-pair? _tl117006117043_)) + (let ((_e117011117046_ (let () (declare (not safe)) - (gx#stx-e _tl117001117038_)))) - (let ((_hd117005117044_ + (gx#stx-e _tl117006117043_)))) + (let ((_hd117010117049_ (let () (declare (not safe)) - (##car _e117006117041_))) - (_tl117004117046_ + (##car _e117011117046_))) + (_tl117009117051_ (let () (declare (not safe)) - (##cdr _e117006117041_)))) + (##cdr _e117011117046_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd117005117044_)) - (let ((_g118189_ + (gx#stx-pair/null? _hd117010117049_)) + (let ((_g118194_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd117005117044_ + _hd117010117049_ '0)))) (begin - (let ((_g118190_ + (let ((_g118195_ (let () (declare (not safe)) - (if (##values? _g118189_) + (if (##values? _g118194_) (##vector-length - _g118189_) + _g118194_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g118190_ 2))) + (##fx= _g118195_ 2))) (error "Context expects 2 values" - _g118190_))) - (let ((_target117007117049_ + _g118195_))) + (let ((_target117012117054_ (let () (declare (not safe)) - (##vector-ref _g118189_ 0))) - (_tl117009117051_ + (##vector-ref _g118194_ 0))) + (_tl117014117056_ (let () (declare (not safe)) (##vector-ref - _g118189_ + _g118194_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl117009117051_)) - (letrec ((_loop117010117054_ - (lambda (_hd117008117057_ + _tl117014117056_)) + (letrec ((_loop117015117059_ + (lambda (_hd117013117062_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _expr117014117059_ - _hd117015117061_) + _expr117019117064_ + _hd117020117066_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd117008117057_)) - (let ((_e117011117064_ + (gx#stx-pair? _hd117013117062_)) + (let ((_e117016117069_ (let () (declare (not safe)) - (gx#stx-e _hd117008117057_)))) - (let ((_lp-hd117012117067_ + (gx#stx-e _hd117013117062_)))) + (let ((_lp-hd117017117072_ (let () (declare (not safe)) - (##car _e117011117064_))) - (_lp-tl117013117069_ + (##car _e117016117069_))) + (_lp-tl117018117074_ (let () (declare (not safe)) - (##cdr _e117011117064_)))) + (##cdr _e117016117069_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd117012117067_)) - (let ((_e117020117072_ + (gx#stx-pair? _lp-hd117017117072_)) + (let ((_e117025117077_ (let () (declare (not safe)) - (gx#stx-e _lp-hd117012117067_)))) - (let ((_hd117019117075_ + (gx#stx-e _lp-hd117017117072_)))) + (let ((_hd117024117080_ (let () (declare (not safe)) - (##car _e117020117072_))) - (_tl117018117077_ + (##car _e117025117077_))) + (_tl117023117082_ (let () (declare (not safe)) - (##cdr _e117020117072_)))) + (##cdr _e117025117077_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl117018117077_)) - (let ((_e117023117080_ + (gx#stx-pair? _tl117023117082_)) + (let ((_e117028117085_ (let () (declare (not safe)) - (gx#stx-e _tl117018117077_)))) - (let ((_hd117022117083_ + (gx#stx-e _tl117023117082_)))) + (let ((_hd117027117088_ (let () (declare (not safe)) - (##car _e117023117080_))) - (_tl117021117085_ + (##car _e117028117085_))) + (_tl117026117090_ (let () (declare (not safe)) - (##cdr _e117023117080_)))) + (##cdr _e117028117085_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl117021117085_)) - (let ((__tmp118203 + _tl117026117090_)) + (let ((__tmp118208 (let () (declare (not safe)) - (cons _hd117022117083_ - _expr117014117059_))) - (__tmp118202 + (cons _hd117027117088_ + _expr117019117064_))) + (__tmp118207 (let () (declare (not safe)) - (cons _hd117019117075_ - _hd117015117061_)))) + (cons _hd117024117080_ + _hd117020117066_)))) (declare (not safe)) - (_loop117010117054_ - _lp-tl117013117069_ - __tmp118203 - __tmp118202)) + (_loop117015117059_ + _lp-tl117018117074_ + __tmp118208 + __tmp118207)) (let () (declare (not safe)) - (_g116995117028_ - _g116996117031_))))) + (_g117000117033_ + _g117001117036_))))) (let () (declare (not safe)) - (_g116995117028_ _g116996117031_))))) + (_g117000117033_ _g117001117036_))))) (let () (declare (not safe)) - (_g116995117028_ _g116996117031_))))) - (let ((_expr117016117088_ (reverse _expr117014117059_)) - (_hd117017117090_ (reverse _hd117015117061_))) - ((lambda (_L117093_ _L117094_ _L117095_ _L117096_) - (let* ((_g117115117131_ - (lambda (_g117116117128_) + (_g117000117033_ _g117001117036_))))) + (let ((_expr117021117093_ (reverse _expr117019117064_)) + (_hd117022117095_ (reverse _hd117020117066_))) + ((lambda (_L117098_ _L117099_ _L117100_ _L117101_) + (let* ((_g117120117136_ + (lambda (_g117121117133_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g117116117128_)))) - (_g117114117185_ - (lambda (_g117116117134_) + _g117121117133_)))) + (_g117119117190_ + (lambda (_g117121117139_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _g117116117134_)) - (let ((_g118191_ + _g117121117139_)) + (let ((_g118196_ (let () (declare (not safe)) (gx#syntax-split-splice - _g117116117134_ + _g117121117139_ '0)))) (begin - (let ((_g118192_ + (let ((_g118197_ (let () (declare (not safe)) (if (##values? - _g118191_) + _g118196_) (##vector-length - _g118191_) + _g118196_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g118192_ + (##fx= _g118197_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (error "Context expects 2 values" - _g118192_))) - (let ((_target117118117136_ + _g118197_))) + (let ((_target117123117141_ (let () (declare (not safe)) (##vector-ref - _g118191_ + _g118196_ 0))) - (_tl117120117138_ + (_tl117125117143_ (let () (declare (not safe)) (##vector-ref - _g118191_ + _g118196_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl117120117138_)) - (letrec ((_loop117121117141_ - (lambda (_hd117119117144_ + _tl117125117143_)) + (letrec ((_loop117126117146_ + (lambda (_hd117124117149_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _expr117125117146_) + _expr117130117151_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd117119117144_)) - (let ((_e117122117149_ + (gx#stx-pair? _hd117124117149_)) + (let ((_e117127117154_ (let () (declare (not safe)) - (gx#syntax-e _hd117119117144_)))) - (let ((_lp-hd117123117152_ + (gx#syntax-e _hd117124117149_)))) + (let ((_lp-hd117128117157_ (let () (declare (not safe)) - (##car _e117122117149_))) - (_lp-tl117124117154_ + (##car _e117127117154_))) + (_lp-tl117129117159_ (let () (declare (not safe)) - (##cdr _e117122117149_)))) - (let ((__tmp118199 + (##cdr _e117127117154_)))) + (let ((__tmp118204 (let () (declare (not safe)) - (cons _lp-hd117123117152_ - _expr117125117146_)))) + (cons _lp-hd117128117157_ + _expr117130117151_)))) (declare (not safe)) - (_loop117121117141_ - _lp-tl117124117154_ - __tmp118199)))) - (let ((_expr117126117157_ - (reverse _expr117125117146_))) - ((lambda (_L117160_) + (_loop117126117146_ + _lp-tl117129117159_ + __tmp118204)))) + (let ((_expr117131117162_ + (reverse _expr117130117151_))) + ((lambda (_L117165_) (let () - (let* ((_body117173_ + (let* ((_body117178_ (map (let () (declare (not safe)) (gxc#xform-apply-compile-e - _args116993_)) - _L117093_)) - (__tmp118193 - (let ((__tmp118194 - (let ((__tmp118195 + _args116998_)) + _L117098_)) + (__tmp118198 + (let ((__tmp118199 + (let ((__tmp118200 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L117160_ - _L117095_)) - (let ((__tmp118196 + _L117165_ + _L117100_)) + (let ((__tmp118201 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g117174117178_ - _g117175117180_ - _g117176117182_) - (let ((__tmp118197 - (let ((__tmp118198 + (lambda (_g117179117183_ + _g117180117185_ + _g117181117187_) + (let ((__tmp118202 + (let ((__tmp118203 (let () (declare (not safe)) - (cons _g117174117178_ '())))) + (cons _g117179117183_ '())))) (declare (not safe)) - (cons _g117175117180_ __tmp118198)))) + (cons _g117180117185_ __tmp118203)))) (declare (not safe)) - (cons __tmp118197 _g117176117182_))))) + (cons __tmp118202 _g117181117187_))))) (declare (not safe)) - (foldr2 __tmp118196 '() _L117160_ _L117095_))))) + (foldr2 __tmp118201 '() _L117165_ _L117100_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp118195 - _body117173_)))) + (cons __tmp118200 + _body117178_)))) (declare (not safe)) - (cons _L117096_ __tmp118194)))) + (cons _L117101_ __tmp118199)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp118193 - _stx116992_)))) - _expr117126117157_)))))) + __tmp118198 + _stx116997_)))) + _expr117131117162_)))))) (let () (declare (not safe)) - (_loop117121117141_ _target117118117136_ '()))) + (_loop117126117146_ _target117123117141_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g117115117131_ - _g117116117134_)))))) + (_g117120117136_ + _g117121117139_)))))) (let () (declare (not safe)) - (_g117115117131_ - _g117116117134_))))) - (__tmp118200 + (_g117120117136_ + _g117121117139_))))) + (__tmp118205 (map (let () (declare (not safe)) (gxc#xform-apply-compile-e - _args116993_)) - (let ((__tmp118201 - (lambda (_g117187117190_ - _g117188117192_) + _args116998_)) + (let ((__tmp118206 + (lambda (_g117192117195_ + _g117193117197_) (let () (declare (not safe)) - (cons _g117187117190_ - _g117188117192_))))) + (cons _g117192117195_ + _g117193117197_))))) (declare (not safe)) - (foldr1 __tmp118201 + (foldr1 __tmp118206 '() - _L117094_))))) + _L117099_))))) (declare (not safe)) - (_g117114117185_ __tmp118200))) - _tl117004117046_ - _expr117016117088_ - _hd117017117090_ - _hd117002117036_)))))) + (_g117119117190_ __tmp118205))) + _tl117009117051_ + _expr117021117093_ + _hd117022117095_ + _hd117007117041_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop117010117054_ - _target117007117049_ + (_loop117015117059_ + _target117012117054_ '() '()))) (let () (declare (not safe)) - (_g116995117028_ - _g116996117031_)))))) + (_g117000117033_ + _g117001117036_)))))) (let () (declare (not safe)) - (_g116995117028_ _g116996117031_))))) + (_g117000117033_ _g117001117036_))))) (let () (declare (not safe)) - (_g116995117028_ _g116996117031_))))) + (_g117000117033_ _g117001117036_))))) (let () (declare (not safe)) - (_g116995117028_ _g116996117031_)))))) + (_g117000117033_ _g117001117036_)))))) (declare (not safe)) - (_g116994117195_ _stx116992_)))) + (_g116999117200_ _stx116997_)))) (define gxc#xform-operands - (lambda (_stx116948_ . _args116949_) - (let* ((_g116951116962_ - (lambda (_g116952116959_) + (lambda (_stx116953_ . _args116954_) + (let* ((_g116956116967_ + (lambda (_g116957116964_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g116952116959_)))) - (_g116950116989_ - (lambda (_g116952116965_) + _g116957116964_)))) + (_g116955116994_ + (lambda (_g116957116970_) (if (let () (declare (not safe)) - (gx#stx-pair? _g116952116965_)) - (let ((_e116957116967_ + (gx#stx-pair? _g116957116970_)) + (let ((_e116962116972_ (let () (declare (not safe)) - (gx#stx-e _g116952116965_)))) - (let ((_hd116956116970_ + (gx#stx-e _g116957116970_)))) + (let ((_hd116961116975_ (let () (declare (not safe)) - (##car _e116957116967_))) - (_tl116955116972_ + (##car _e116962116972_))) + (_tl116960116977_ (let () (declare (not safe)) - (##cdr _e116957116967_)))) - ((lambda (_L116975_ _L116976_) - (let* ((_rands116987_ + (##cdr _e116962116972_)))) + ((lambda (_L116980_ _L116981_) + (let* ((_rands116992_ (map (let () (declare (not safe)) (gxc#xform-apply-compile-e - _args116949_)) - _L116975_)) - (__tmp118204 + _args116954_)) + _L116980_)) + (__tmp118209 (let () (declare (not safe)) - (cons _L116976_ _rands116987_)))) + (cons _L116981_ _rands116992_)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp118204 - _stx116948_))) - _tl116955116972_ - _hd116956116970_))) + __tmp118209 + _stx116953_))) + _tl116960116977_ + _hd116961116975_))) (let () (declare (not safe)) - (_g116951116962_ _g116952116965_)))))) + (_g116956116967_ _g116957116970_)))))) (declare (not safe)) - (_g116950116989_ _stx116948_)))) + (_g116955116994_ _stx116953_)))) (define gxc#xform-call% gxc#xform-operands) (define gxc#xform-setq% - (lambda (_stx116869_ . _args116870_) - (let* ((_g116872116889_ - (lambda (_g116873116886_) + (lambda (_stx116874_ . _args116875_) + (let* ((_g116877116894_ + (lambda (_g116878116891_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g116873116886_)))) - (_g116871116945_ - (lambda (_g116873116892_) + _g116878116891_)))) + (_g116876116950_ + (lambda (_g116878116897_) (if (let () (declare (not safe)) - (gx#stx-pair? _g116873116892_)) - (let ((_e116878116894_ + (gx#stx-pair? _g116878116897_)) + (let ((_e116883116899_ (let () (declare (not safe)) - (gx#stx-e _g116873116892_)))) - (let ((_hd116877116897_ + (gx#stx-e _g116878116897_)))) + (let ((_hd116882116902_ (let () (declare (not safe)) - (##car _e116878116894_))) - (_tl116876116899_ + (##car _e116883116899_))) + (_tl116881116904_ (let () (declare (not safe)) - (##cdr _e116878116894_)))) + (##cdr _e116883116899_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl116876116899_)) - (let ((_e116881116902_ + (gx#stx-pair? _tl116881116904_)) + (let ((_e116886116907_ (let () (declare (not safe)) - (gx#stx-e _tl116876116899_)))) - (let ((_hd116880116905_ + (gx#stx-e _tl116881116904_)))) + (let ((_hd116885116910_ (let () (declare (not safe)) - (##car _e116881116902_))) - (_tl116879116907_ + (##car _e116886116907_))) + (_tl116884116912_ (let () (declare (not safe)) - (##cdr _e116881116902_)))) + (##cdr _e116886116907_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl116879116907_)) - (let ((_e116884116910_ + (gx#stx-pair? _tl116884116912_)) + (let ((_e116889116915_ (let () (declare (not safe)) - (gx#stx-e _tl116879116907_)))) - (let ((_hd116883116913_ + (gx#stx-e _tl116884116912_)))) + (let ((_hd116888116918_ (let () (declare (not safe)) - (##car _e116884116910_))) - (_tl116882116915_ + (##car _e116889116915_))) + (_tl116887116920_ (let () (declare (not safe)) - (##cdr _e116884116910_)))) + (##cdr _e116889116915_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl116882116915_)) - ((lambda (_L116918_ _L116919_) - (let* ((_expr116943_ + _tl116887116920_)) + ((lambda (_L116923_ _L116924_) + (let* ((_expr116948_ (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (null? _args116870_)) - (let () (declare (not safe)) (gxc#compile-e__0 _L116918_)) - (let ((_arg1116934_ (car _args116870_)) - (_rest116936_ (cdr _args116870_))) - (if (let () (declare (not safe)) (null? _rest116936_)) + (null? _args116875_)) + (let () (declare (not safe)) (gxc#compile-e__0 _L116923_)) + (let ((_arg1116939_ (car _args116875_)) + (_rest116941_ (cdr _args116875_))) + (if (let () (declare (not safe)) (null? _rest116941_)) (let () (declare (not safe)) - (gxc#compile-e__1 _L116918_ _arg1116934_)) - (let ((_arg2116939_ (car _rest116936_)) - (_rest116941_ (cdr _rest116936_))) + (gxc#compile-e__1 _L116923_ _arg1116939_)) + (let ((_arg2116944_ (car _rest116941_)) + (_rest116946_ (cdr _rest116941_))) (if (let () (declare (not safe)) - (null? _rest116941_)) + (null? _rest116946_)) (let () (declare (not safe)) (gxc#compile-e__2 - _L116918_ - _arg1116934_ - _arg2116939_)) + _L116923_ + _arg1116939_ + _arg2116944_)) (apply gxc#compile-e - _L116918_ - _arg1116934_ - _arg2116939_ - _rest116941_))))))) - (__tmp118205 - (let ((__tmp118206 - (let ((__tmp118207 + _L116923_ + _arg1116939_ + _arg2116944_ + _rest116946_))))))) + (__tmp118210 + (let ((__tmp118211 + (let ((__tmp118212 (let () (declare (not safe)) - (cons _expr116943_ '())))) + (cons _expr116948_ '())))) (declare (not safe)) - (cons _L116919_ __tmp118207)))) + (cons _L116924_ __tmp118212)))) (declare (not safe)) - (cons '%#set! __tmp118206)))) + (cons '%#set! __tmp118211)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp118205 - _stx116869_))) - _hd116883116913_ - _hd116880116905_) + __tmp118210 + _stx116874_))) + _hd116888116918_ + _hd116885116910_) (let () (declare (not safe)) - (_g116872116889_ - _g116873116892_))))) + (_g116877116894_ + _g116878116897_))))) (let () (declare (not safe)) - (_g116872116889_ _g116873116892_))))) + (_g116877116894_ _g116878116897_))))) (let () (declare (not safe)) - (_g116872116889_ _g116873116892_))))) + (_g116877116894_ _g116878116897_))))) (let () (declare (not safe)) - (_g116872116889_ _g116873116892_)))))) + (_g116877116894_ _g116878116897_)))))) (declare (not safe)) - (_g116871116945_ _stx116869_)))) + (_g116876116950_ _stx116874_)))) (define gxc#collect-mutators-setq% - (lambda (_stx116800_) - (let* ((_g116802116819_ - (lambda (_g116803116816_) + (lambda (_stx116805_) + (let* ((_g116807116824_ + (lambda (_g116808116821_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g116803116816_)))) - (_g116801116866_ - (lambda (_g116803116822_) + _g116808116821_)))) + (_g116806116871_ + (lambda (_g116808116827_) (if (let () (declare (not safe)) - (gx#stx-pair? _g116803116822_)) - (let ((_e116808116824_ + (gx#stx-pair? _g116808116827_)) + (let ((_e116813116829_ (let () (declare (not safe)) - (gx#stx-e _g116803116822_)))) - (let ((_hd116807116827_ + (gx#stx-e _g116808116827_)))) + (let ((_hd116812116832_ (let () (declare (not safe)) - (##car _e116808116824_))) - (_tl116806116829_ + (##car _e116813116829_))) + (_tl116811116834_ (let () (declare (not safe)) - (##cdr _e116808116824_)))) + (##cdr _e116813116829_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl116806116829_)) - (let ((_e116811116832_ + (gx#stx-pair? _tl116811116834_)) + (let ((_e116816116837_ (let () (declare (not safe)) - (gx#stx-e _tl116806116829_)))) - (let ((_hd116810116835_ + (gx#stx-e _tl116811116834_)))) + (let ((_hd116815116840_ (let () (declare (not safe)) - (##car _e116811116832_))) - (_tl116809116837_ + (##car _e116816116837_))) + (_tl116814116842_ (let () (declare (not safe)) - (##cdr _e116811116832_)))) + (##cdr _e116816116837_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl116809116837_)) - (let ((_e116814116840_ + (gx#stx-pair? _tl116814116842_)) + (let ((_e116819116845_ (let () (declare (not safe)) - (gx#stx-e _tl116809116837_)))) - (let ((_hd116813116843_ + (gx#stx-e _tl116814116842_)))) + (let ((_hd116818116848_ (let () (declare (not safe)) - (##car _e116814116840_))) - (_tl116812116845_ + (##car _e116819116845_))) + (_tl116817116850_ (let () (declare (not safe)) - (##cdr _e116814116840_)))) + (##cdr _e116819116845_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl116812116845_)) - ((lambda (_L116848_ _L116849_) - (let ((_sym116864_ + _tl116817116850_)) + ((lambda (_L116853_ _L116854_) + (let ((_sym116869_ (let () (declare (not safe)) (gxc#identifier-symbol - _L116849_)))) + _L116854_)))) (let () (declare (not safe)) (gxc#verbose '"collect mutator " - _sym116864_)) - (let ((__tmp118208 + _sym116869_)) + (let ((__tmp118213 (gxc#current-compile-mutators))) (declare (not safe)) (hash-put! - __tmp118208 - _sym116864_ + __tmp118213 + _sym116869_ '#t)) (let () (declare (not safe)) (gxc#compile-e__0 - _L116848_)))) - _hd116813116843_ - _hd116810116835_) + _L116853_)))) + _hd116818116848_ + _hd116815116840_) (let () (declare (not safe)) - (_g116802116819_ - _g116803116822_))))) + (_g116807116824_ + _g116808116827_))))) (let () (declare (not safe)) - (_g116802116819_ _g116803116822_))))) + (_g116807116824_ _g116808116827_))))) (let () (declare (not safe)) - (_g116802116819_ _g116803116822_))))) + (_g116807116824_ _g116808116827_))))) (let () (declare (not safe)) - (_g116802116819_ _g116803116822_)))))) + (_g116807116824_ _g116808116827_)))))) (declare (not safe)) - (_g116801116866_ _stx116800_)))) + (_g116806116871_ _stx116805_)))) (define gxc#collect-methods-call% - (lambda (_stx116354_) - (let* ((___stx117898117899_ _stx116354_) - (_g116358116460_ + (lambda (_stx116359_) + (let* ((___stx117903117904_ _stx116359_) + (_g116363116465_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx117898117899_))))) - (let ((___kont117900117901_ - (lambda (_L116750_ _L116751_ _L116752_ _L116753_ _L116754_) - (let ((__tmp118209 + ___stx117903117904_))))) + (let ((___kont117905117906_ + (lambda (_L116755_ _L116756_ _L116757_ _L116758_ _L116759_) + (let ((__tmp118214 (let () (declare (not safe)) - (gxc#identifier-symbol _L116751_)))) + (gxc#identifier-symbol _L116756_)))) (declare (not safe)) - (gxc#optimizer-top-level-method! __tmp118209)))) - (___kont117902117903_ - (lambda (_L116576_ _L116577_ _L116578_ _L116579_) - (let ((__tmp118210 + (gxc#optimizer-top-level-method! __tmp118214)))) + (___kont117907117908_ + (lambda (_L116581_ _L116582_ _L116583_ _L116584_) + (let ((__tmp118215 (let () (declare (not safe)) - (gxc#identifier-symbol _L116576_)))) + (gxc#identifier-symbol _L116581_)))) (declare (not safe)) - (gxc#optimizer-top-level-method! __tmp118210)))) - (___kont117904117905_ (lambda () '#!void))) - (let ((___match118033118034_ - (lambda (_e116367116622_ - _hd116366116625_ - _tl116365116627_ - _e116370116630_ - _hd116369116633_ - _tl116368116635_ - _e116373116638_ - _hd116372116641_ - _tl116371116643_ - _e116376116646_ - _hd116375116649_ - _tl116374116651_ - _e116379116654_ - _hd116378116657_ - _tl116377116659_ - _e116382116662_ - _hd116381116665_ - _tl116380116667_ - _e116385116670_ - _hd116384116673_ - _tl116383116675_ - _e116388116678_ - _hd116387116681_ - _tl116386116683_ - _e116391116686_ - _hd116390116689_ - _tl116389116691_ - _e116394116694_ - _hd116393116697_ - _tl116392116699_ - _e116397116702_ - _hd116396116705_ - _tl116395116707_ - _e116400116710_ - _hd116399116713_ - _tl116398116715_ - _e116403116718_ - _hd116402116721_ - _tl116401116723_ - _e116406116726_ - _hd116405116729_ - _tl116404116731_ - _e116409116734_ - _hd116408116737_ - _tl116407116739_ - _e116412116742_ - _hd116411116745_ - _tl116410116747_) - (let ((_L116750_ _hd116411116745_) - (_L116751_ _hd116402116721_) - (_L116752_ _hd116393116697_) - (_L116753_ _hd116384116673_) - (_L116754_ _hd116375116649_)) + (gxc#optimizer-top-level-method! __tmp118215)))) + (___kont117909117910_ (lambda () '#!void))) + (let ((___match118038118039_ + (lambda (_e116372116627_ + _hd116371116630_ + _tl116370116632_ + _e116375116635_ + _hd116374116638_ + _tl116373116640_ + _e116378116643_ + _hd116377116646_ + _tl116376116648_ + _e116381116651_ + _hd116380116654_ + _tl116379116656_ + _e116384116659_ + _hd116383116662_ + _tl116382116664_ + _e116387116667_ + _hd116386116670_ + _tl116385116672_ + _e116390116675_ + _hd116389116678_ + _tl116388116680_ + _e116393116683_ + _hd116392116686_ + _tl116391116688_ + _e116396116691_ + _hd116395116694_ + _tl116394116696_ + _e116399116699_ + _hd116398116702_ + _tl116397116704_ + _e116402116707_ + _hd116401116710_ + _tl116400116712_ + _e116405116715_ + _hd116404116718_ + _tl116403116720_ + _e116408116723_ + _hd116407116726_ + _tl116406116728_ + _e116411116731_ + _hd116410116734_ + _tl116409116736_ + _e116414116739_ + _hd116413116742_ + _tl116412116744_ + _e116417116747_ + _hd116416116750_ + _tl116415116752_) + (let ((_L116755_ _hd116416116750_) + (_L116756_ _hd116407116726_) + (_L116757_ _hd116398116702_) + (_L116758_ _hd116389116678_) + (_L116759_ _hd116380116654_)) (if (let () (declare (not safe)) (gxc#runtime-identifier=? - _L116754_ + _L116759_ 'bind-method!)) - (___kont117900117901_ - _L116750_ - _L116751_ - _L116752_ - _L116753_ - _L116754_) - (___kont117904117905_)))))) + (___kont117905117906_ + _L116755_ + _L116756_ + _L116757_ + _L116758_ + _L116759_) + (___kont117909117910_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx117898117899_)) - (let ((_e116367116622_ + (gx#stx-pair? ___stx117903117904_)) + (let ((_e116372116627_ (let () (declare (not safe)) - (gx#stx-e ___stx117898117899_)))) - (let ((_tl116365116627_ + (gx#stx-e ___stx117903117904_)))) + (let ((_tl116370116632_ (let () (declare (not safe)) - (##cdr _e116367116622_))) - (_hd116366116625_ + (##cdr _e116372116627_))) + (_hd116371116630_ (let () (declare (not safe)) - (##car _e116367116622_)))) + (##car _e116372116627_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl116365116627_)) - (let ((_e116370116630_ + (gx#stx-pair? _tl116370116632_)) + (let ((_e116375116635_ (let () (declare (not safe)) - (gx#stx-e _tl116365116627_)))) - (let ((_tl116368116635_ + (gx#stx-e _tl116370116632_)))) + (let ((_tl116373116640_ (let () (declare (not safe)) - (##cdr _e116370116630_))) - (_hd116369116633_ + (##cdr _e116375116635_))) + (_hd116374116638_ (let () (declare (not safe)) - (##car _e116370116630_)))) + (##car _e116375116635_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd116369116633_)) - (let ((_e116373116638_ + (gx#stx-pair? _hd116374116638_)) + (let ((_e116378116643_ (let () (declare (not safe)) - (gx#stx-e _hd116369116633_)))) - (let ((_tl116371116643_ + (gx#stx-e _hd116374116638_)))) + (let ((_tl116376116648_ (let () (declare (not safe)) - (##cdr _e116373116638_))) - (_hd116372116641_ + (##cdr _e116378116643_))) + (_hd116377116646_ (let () (declare (not safe)) - (##car _e116373116638_)))) + (##car _e116378116643_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd116372116641_)) + (gx#identifier? _hd116377116646_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd116372116641_)) + _hd116377116646_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl116371116643_)) - (let ((_e116376116646_ + _tl116376116648_)) + (let ((_e116381116651_ (let () (declare (not safe)) (gx#stx-e - _tl116371116643_)))) - (let ((_tl116374116651_ + _tl116376116648_)))) + (let ((_tl116379116656_ (let () (declare (not safe)) - (##cdr _e116376116646_))) - (_hd116375116649_ + (##cdr _e116381116651_))) + (_hd116380116654_ (let () (declare (not safe)) - (##car _e116376116646_)))) + (##car _e116381116651_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl116374116651_)) + _tl116379116656_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl116368116635_)) - (let ((_e116379116654_ + (gx#stx-pair? _tl116373116640_)) + (let ((_e116384116659_ (let () (declare (not safe)) - (gx#stx-e _tl116368116635_)))) - (let ((_tl116377116659_ + (gx#stx-e _tl116373116640_)))) + (let ((_tl116382116664_ (let () (declare (not safe)) - (##cdr _e116379116654_))) - (_hd116378116657_ + (##cdr _e116384116659_))) + (_hd116383116662_ (let () (declare (not safe)) - (##car _e116379116654_)))) + (##car _e116384116659_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd116378116657_)) - (let ((_e116382116662_ + (gx#stx-pair? _hd116383116662_)) + (let ((_e116387116667_ (let () (declare (not safe)) - (gx#stx-e _hd116378116657_)))) - (let ((_tl116380116667_ + (gx#stx-e _hd116383116662_)))) + (let ((_tl116385116672_ (let () (declare (not safe)) - (##cdr _e116382116662_))) - (_hd116381116665_ + (##cdr _e116387116667_))) + (_hd116386116670_ (let () (declare (not safe)) - (##car _e116382116662_)))) + (##car _e116387116667_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd116381116665_)) + (gx#identifier? _hd116386116670_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd116381116665_)) + _hd116386116670_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl116380116667_)) - (let ((_e116385116670_ + _tl116385116672_)) + (let ((_e116390116675_ (let () (declare (not safe)) (gx#stx-e - _tl116380116667_)))) - (let ((_tl116383116675_ + _tl116385116672_)))) + (let ((_tl116388116680_ (let () (declare (not safe)) - (##cdr _e116385116670_))) - (_hd116384116673_ + (##cdr _e116390116675_))) + (_hd116389116678_ (let () (declare (not safe)) - (##car _e116385116670_)))) + (##car _e116390116675_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl116383116675_)) + _tl116388116680_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl116377116659_)) - (let ((_e116388116678_ + _tl116382116664_)) + (let ((_e116393116683_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl116377116659_)))) - (let ((_tl116386116683_ + (gx#stx-e _tl116382116664_)))) + (let ((_tl116391116688_ (let () (declare (not safe)) - (##cdr _e116388116678_))) - (_hd116387116681_ + (##cdr _e116393116683_))) + (_hd116392116686_ (let () (declare (not safe)) - (##car _e116388116678_)))) + (##car _e116393116683_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd116387116681_)) - (let ((_e116391116686_ + (gx#stx-pair? _hd116392116686_)) + (let ((_e116396116691_ (let () (declare (not safe)) - (gx#stx-e _hd116387116681_)))) - (let ((_tl116389116691_ + (gx#stx-e _hd116392116686_)))) + (let ((_tl116394116696_ (let () (declare (not safe)) - (##cdr _e116391116686_))) - (_hd116390116689_ + (##cdr _e116396116691_))) + (_hd116395116694_ (let () (declare (not safe)) - (##car _e116391116686_)))) + (##car _e116396116691_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd116390116689_)) + (gx#identifier? _hd116395116694_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd116390116689_)) + (gx#stx-eq? '%#quote _hd116395116694_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl116389116691_)) - (let ((_e116394116694_ + (gx#stx-pair? _tl116394116696_)) + (let ((_e116399116699_ (let () (declare (not safe)) (gx#stx-e - _tl116389116691_)))) - (let ((_tl116392116699_ + _tl116394116696_)))) + (let ((_tl116397116704_ (let () (declare (not safe)) - (##cdr _e116394116694_))) - (_hd116393116697_ + (##cdr _e116399116699_))) + (_hd116398116702_ (let () (declare (not safe)) - (##car _e116394116694_)))) + (##car _e116399116699_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl116392116699_)) + _tl116397116704_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl116386116683_)) - (let ((_e116397116702_ + _tl116391116688_)) + (let ((_e116402116707_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl116386116683_)))) - (let ((_tl116395116707_ - (let () (declare (not safe)) (##cdr _e116397116702_))) - (_hd116396116705_ - (let () (declare (not safe)) (##car _e116397116702_)))) + (gx#stx-e _tl116391116688_)))) + (let ((_tl116400116712_ + (let () (declare (not safe)) (##cdr _e116402116707_))) + (_hd116401116710_ + (let () (declare (not safe)) (##car _e116402116707_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd116396116705_)) - (let ((_e116400116710_ + (gx#stx-pair? _hd116401116710_)) + (let ((_e116405116715_ (let () (declare (not safe)) - (gx#stx-e _hd116396116705_)))) - (let ((_tl116398116715_ + (gx#stx-e _hd116401116710_)))) + (let ((_tl116403116720_ (let () (declare (not safe)) - (##cdr _e116400116710_))) - (_hd116399116713_ + (##cdr _e116405116715_))) + (_hd116404116718_ (let () (declare (not safe)) - (##car _e116400116710_)))) + (##car _e116405116715_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd116399116713_)) + (gx#identifier? _hd116404116718_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd116399116713_)) + (gx#stx-eq? '%#ref _hd116404116718_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl116398116715_)) - (let ((_e116403116718_ + (gx#stx-pair? _tl116403116720_)) + (let ((_e116408116723_ (let () (declare (not safe)) - (gx#stx-e _tl116398116715_)))) - (let ((_tl116401116723_ + (gx#stx-e _tl116403116720_)))) + (let ((_tl116406116728_ (let () (declare (not safe)) - (##cdr _e116403116718_))) - (_hd116402116721_ + (##cdr _e116408116723_))) + (_hd116407116726_ (let () (declare (not safe)) - (##car _e116403116718_)))) + (##car _e116408116723_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl116401116723_)) + _tl116406116728_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl116395116707_)) - (let ((_e116406116726_ + _tl116400116712_)) + (let ((_e116411116731_ (let () (declare (not safe)) (gx#stx-e - _tl116395116707_)))) - (let ((_tl116404116731_ + _tl116400116712_)))) + (let ((_tl116409116736_ (let () (declare (not safe)) - (##cdr _e116406116726_))) - (_hd116405116729_ + (##cdr _e116411116731_))) + (_hd116410116734_ (let () (declare (not safe)) - (##car _e116406116726_)))) + (##car _e116411116731_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd116405116729_)) - (let ((_e116409116734_ + _hd116410116734_)) + (let ((_e116414116739_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd116405116729_)))) - (let ((_tl116407116739_ + (gx#stx-e _hd116410116734_)))) + (let ((_tl116412116744_ (let () (declare (not safe)) - (##cdr _e116409116734_))) - (_hd116408116737_ + (##cdr _e116414116739_))) + (_hd116413116742_ (let () (declare (not safe)) - (##car _e116409116734_)))) + (##car _e116414116739_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd116408116737_)) + (gx#identifier? _hd116413116742_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd116408116737_)) + (gx#stx-eq? '%#quote _hd116413116742_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl116407116739_)) - (let ((_e116412116742_ + (gx#stx-pair? _tl116412116744_)) + (let ((_e116417116747_ (let () (declare (not safe)) - (gx#stx-e _tl116407116739_)))) - (let ((_tl116410116747_ + (gx#stx-e _tl116412116744_)))) + (let ((_tl116415116752_ (let () (declare (not safe)) - (##cdr _e116412116742_))) - (_hd116411116745_ + (##cdr _e116417116747_))) + (_hd116416116750_ (let () (declare (not safe)) - (##car _e116412116742_)))) + (##car _e116417116747_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl116410116747_)) + (gx#stx-null? _tl116415116752_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl116404116731_)) - (___match118033118034_ - _e116367116622_ - _hd116366116625_ - _tl116365116627_ - _e116370116630_ - _hd116369116633_ - _tl116368116635_ - _e116373116638_ - _hd116372116641_ - _tl116371116643_ - _e116376116646_ - _hd116375116649_ - _tl116374116651_ - _e116379116654_ - _hd116378116657_ - _tl116377116659_ - _e116382116662_ - _hd116381116665_ - _tl116380116667_ - _e116385116670_ - _hd116384116673_ - _tl116383116675_ - _e116388116678_ - _hd116387116681_ - _tl116386116683_ - _e116391116686_ - _hd116390116689_ - _tl116389116691_ - _e116394116694_ - _hd116393116697_ - _tl116392116699_ - _e116397116702_ - _hd116396116705_ - _tl116395116707_ - _e116400116710_ - _hd116399116713_ - _tl116398116715_ - _e116403116718_ - _hd116402116721_ - _tl116401116723_ - _e116406116726_ - _hd116405116729_ - _tl116404116731_ - _e116409116734_ - _hd116408116737_ - _tl116407116739_ - _e116412116742_ - _hd116411116745_ - _tl116410116747_) - (___kont117904117905_)) - (___kont117904117905_)))) - (___kont117904117905_)) - (___kont117904117905_)) - (___kont117904117905_)))) - (___kont117904117905_)))) + _tl116409116736_)) + (___match118038118039_ + _e116372116627_ + _hd116371116630_ + _tl116370116632_ + _e116375116635_ + _hd116374116638_ + _tl116373116640_ + _e116378116643_ + _hd116377116646_ + _tl116376116648_ + _e116381116651_ + _hd116380116654_ + _tl116379116656_ + _e116384116659_ + _hd116383116662_ + _tl116382116664_ + _e116387116667_ + _hd116386116670_ + _tl116385116672_ + _e116390116675_ + _hd116389116678_ + _tl116388116680_ + _e116393116683_ + _hd116392116686_ + _tl116391116688_ + _e116396116691_ + _hd116395116694_ + _tl116394116696_ + _e116399116699_ + _hd116398116702_ + _tl116397116704_ + _e116402116707_ + _hd116401116710_ + _tl116400116712_ + _e116405116715_ + _hd116404116718_ + _tl116403116720_ + _e116408116723_ + _hd116407116726_ + _tl116406116728_ + _e116411116731_ + _hd116410116734_ + _tl116409116736_ + _e116414116739_ + _hd116413116742_ + _tl116412116744_ + _e116417116747_ + _hd116416116750_ + _tl116415116752_) + (___kont117909117910_)) + (___kont117909117910_)))) + (___kont117909117910_)) + (___kont117909117910_)) + (___kont117909117910_)))) + (___kont117909117910_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _tl116395116707_)) - (if (let ((__tmp118211 + _tl116400116712_)) + (if (let ((__tmp118216 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '-bind-method)))) (declare (not safe)) - (gxc#runtime-identifier=? __tmp118211 'bind-method!)) - (let ((_L116576_ _hd116402116721_) - (_L116577_ _hd116393116697_) - (_L116578_ _hd116384116673_) - (_L116579_ _hd116375116649_)) - (___kont117902117903_ - _L116576_ - _L116577_ - _L116578_ - _L116579_)) - (___kont117904117905_)) - (___kont117904117905_))) + (gxc#runtime-identifier=? __tmp118216 'bind-method!)) + (let ((_L116581_ _hd116407116726_) + (_L116582_ _hd116398116702_) + (_L116583_ _hd116389116678_) + (_L116584_ _hd116380116654_)) + (___kont117907117908_ + _L116581_ + _L116582_ + _L116583_ + _L116584_)) + (___kont117909117910_)) + (___kont117909117910_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont117904117905_)))) - (___kont117904117905_)) - (___kont117904117905_)) - (___kont117904117905_)))) - (___kont117904117905_)))) - (___kont117904117905_)) + (___kont117909117910_)))) + (___kont117909117910_)) + (___kont117909117910_)) + (___kont117909117910_)))) + (___kont117909117910_)))) + (___kont117909117910_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont117904117905_)))) - (___kont117904117905_)) - (___kont117904117905_)) - (___kont117904117905_)))) - (___kont117904117905_)))) - (___kont117904117905_)) - (___kont117904117905_)))) + (___kont117909117910_)))) + (___kont117909117910_)) + (___kont117909117910_)) + (___kont117909117910_)))) + (___kont117909117910_)))) + (___kont117909117910_)) + (___kont117909117910_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont117904117905_)) - (___kont117904117905_)) - (___kont117904117905_)))) - (___kont117904117905_)))) - (___kont117904117905_)) - (___kont117904117905_)))) + (___kont117909117910_)) + (___kont117909117910_)) + (___kont117909117910_)))) + (___kont117909117910_)))) + (___kont117909117910_)) + (___kont117909117910_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont117904117905_)) - (___kont117904117905_)) - (___kont117904117905_)))) - (___kont117904117905_)))) - (___kont117904117905_)))) - (___kont117904117905_))))))) + (___kont117909117910_)) + (___kont117909117910_)) + (___kont117909117910_)))) + (___kont117909117910_)))) + (___kont117909117910_)))) + (___kont117909117910_))))))) (define gxc#expression-subst-ref% - (lambda (_stx116301_ _id116302_ _new-id116303_) - (let* ((_g116305116318_ - (lambda (_g116306116315_) + (lambda (_stx116306_ _id116307_ _new-id116308_) + (let* ((_g116310116323_ + (lambda (_g116311116320_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g116306116315_)))) - (_g116304116351_ - (lambda (_g116306116321_) + _g116311116320_)))) + (_g116309116356_ + (lambda (_g116311116326_) (if (let () (declare (not safe)) - (gx#stx-pair? _g116306116321_)) - (let ((_e116310116323_ + (gx#stx-pair? _g116311116326_)) + (let ((_e116315116328_ (let () (declare (not safe)) - (gx#stx-e _g116306116321_)))) - (let ((_hd116309116326_ + (gx#stx-e _g116311116326_)))) + (let ((_hd116314116331_ (let () (declare (not safe)) - (##car _e116310116323_))) - (_tl116308116328_ + (##car _e116315116328_))) + (_tl116313116333_ (let () (declare (not safe)) - (##cdr _e116310116323_)))) + (##cdr _e116315116328_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl116308116328_)) - (let ((_e116313116331_ + (gx#stx-pair? _tl116313116333_)) + (let ((_e116318116336_ (let () (declare (not safe)) - (gx#stx-e _tl116308116328_)))) - (let ((_hd116312116334_ + (gx#stx-e _tl116313116333_)))) + (let ((_hd116317116339_ (let () (declare (not safe)) - (##car _e116313116331_))) - (_tl116311116336_ + (##car _e116318116336_))) + (_tl116316116341_ (let () (declare (not safe)) - (##cdr _e116313116331_)))) + (##cdr _e116318116336_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl116311116336_)) - ((lambda (_L116339_) + (gx#stx-null? _tl116316116341_)) + ((lambda (_L116344_) (if (let () (declare (not safe)) (gx#free-identifier=? - _L116339_ - _id116302_)) - (let ((__tmp118212 - (let ((__tmp118213 + _L116344_ + _id116307_)) + (let ((__tmp118217 + (let ((__tmp118218 (let () (declare (not safe)) - (cons _new-id116303_ + (cons _new-id116308_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons '%#ref __tmp118213)))) + (cons '%#ref __tmp118218)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp118212 - _stx116301_)) - _stx116301_)) - _hd116312116334_) + __tmp118217 + _stx116306_)) + _stx116306_)) + _hd116317116339_) (let () (declare (not safe)) - (_g116305116318_ _g116306116321_))))) + (_g116310116323_ _g116311116326_))))) (let () (declare (not safe)) - (_g116305116318_ _g116306116321_))))) + (_g116310116323_ _g116311116326_))))) (let () (declare (not safe)) - (_g116305116318_ _g116306116321_)))))) + (_g116310116323_ _g116311116326_)))))) (declare (not safe)) - (_g116304116351_ _stx116301_)))) + (_g116309116356_ _stx116306_)))) (define gxc#expression-subst*-ref% - (lambda (_stx116242_ _subst116243_) - (let* ((_g116245116258_ - (lambda (_g116246116255_) + (lambda (_stx116247_ _subst116248_) + (let* ((_g116250116263_ + (lambda (_g116251116260_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g116246116255_)))) - (_g116244116298_ - (lambda (_g116246116261_) + _g116251116260_)))) + (_g116249116303_ + (lambda (_g116251116266_) (if (let () (declare (not safe)) - (gx#stx-pair? _g116246116261_)) - (let ((_e116250116263_ + (gx#stx-pair? _g116251116266_)) + (let ((_e116255116268_ (let () (declare (not safe)) - (gx#stx-e _g116246116261_)))) - (let ((_hd116249116266_ + (gx#stx-e _g116251116266_)))) + (let ((_hd116254116271_ (let () (declare (not safe)) - (##car _e116250116263_))) - (_tl116248116268_ + (##car _e116255116268_))) + (_tl116253116273_ (let () (declare (not safe)) - (##cdr _e116250116263_)))) + (##cdr _e116255116268_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl116248116268_)) - (let ((_e116253116271_ + (gx#stx-pair? _tl116253116273_)) + (let ((_e116258116276_ (let () (declare (not safe)) - (gx#stx-e _tl116248116268_)))) - (let ((_hd116252116274_ + (gx#stx-e _tl116253116273_)))) + (let ((_hd116257116279_ (let () (declare (not safe)) - (##car _e116253116271_))) - (_tl116251116276_ + (##car _e116258116276_))) + (_tl116256116281_ (let () (declare (not safe)) - (##cdr _e116253116271_)))) + (##cdr _e116258116276_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl116251116276_)) - ((lambda (_L116279_) - (let ((_$e116293_ - (let ((__tmp118214 - (lambda (_sub116291_) - (let ((__tmp118215 - (car _sub116291_))) + (gx#stx-null? _tl116256116281_)) + ((lambda (_L116284_) + (let ((_$e116298_ + (let ((__tmp118219 + (lambda (_sub116296_) + (let ((__tmp118220 + (car _sub116296_))) (declare (not safe)) (gx#free-identifier=? - _L116279_ - __tmp118215))))) + _L116284_ + __tmp118220))))) (declare (not safe)) - (find __tmp118214 - _subst116243_)))) - (if _$e116293_ - ((lambda (_sub116296_) - (let ((__tmp118216 - (let ((__tmp118217 - (let ((__tmp118218 + (find __tmp118219 + _subst116248_)))) + (if _$e116298_ + ((lambda (_sub116301_) + (let ((__tmp118221 + (let ((__tmp118222 + (let ((__tmp118223 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cdr _sub116296_))) + (cdr _sub116301_))) (declare (not safe)) - (cons __tmp118218 '())))) + (cons __tmp118223 '())))) (declare (not safe)) - (cons '%#ref __tmp118217)))) + (cons '%#ref __tmp118222)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp118216 - _stx116242_))) - _$e116293_) - _stx116242_))) - _hd116252116274_) + __tmp118221 + _stx116247_))) + _$e116298_) + _stx116247_))) + _hd116257116279_) (let () (declare (not safe)) - (_g116245116258_ _g116246116261_))))) + (_g116250116263_ _g116251116266_))))) (let () (declare (not safe)) - (_g116245116258_ _g116246116261_))))) + (_g116250116263_ _g116251116266_))))) (let () (declare (not safe)) - (_g116245116258_ _g116246116261_)))))) + (_g116250116263_ _g116251116266_)))))) (declare (not safe)) - (_g116244116298_ _stx116242_)))) + (_g116249116303_ _stx116247_)))) (define gxc#expression-subst-setq% - (lambda (_stx116170_ _id116171_ _new-id116172_) - (let* ((_g116174116191_ - (lambda (_g116175116188_) + (lambda (_stx116175_ _id116176_ _new-id116177_) + (let* ((_g116179116196_ + (lambda (_g116180116193_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g116175116188_)))) - (_g116173116239_ - (lambda (_g116175116194_) + _g116180116193_)))) + (_g116178116244_ + (lambda (_g116180116199_) (if (let () (declare (not safe)) - (gx#stx-pair? _g116175116194_)) - (let ((_e116180116196_ + (gx#stx-pair? _g116180116199_)) + (let ((_e116185116201_ (let () (declare (not safe)) - (gx#stx-e _g116175116194_)))) - (let ((_hd116179116199_ + (gx#stx-e _g116180116199_)))) + (let ((_hd116184116204_ (let () (declare (not safe)) - (##car _e116180116196_))) - (_tl116178116201_ + (##car _e116185116201_))) + (_tl116183116206_ (let () (declare (not safe)) - (##cdr _e116180116196_)))) + (##cdr _e116185116201_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl116178116201_)) - (let ((_e116183116204_ + (gx#stx-pair? _tl116183116206_)) + (let ((_e116188116209_ (let () (declare (not safe)) - (gx#stx-e _tl116178116201_)))) - (let ((_hd116182116207_ + (gx#stx-e _tl116183116206_)))) + (let ((_hd116187116212_ (let () (declare (not safe)) - (##car _e116183116204_))) - (_tl116181116209_ + (##car _e116188116209_))) + (_tl116186116214_ (let () (declare (not safe)) - (##cdr _e116183116204_)))) + (##cdr _e116188116209_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl116181116209_)) - (let ((_e116186116212_ + (gx#stx-pair? _tl116186116214_)) + (let ((_e116191116217_ (let () (declare (not safe)) - (gx#stx-e _tl116181116209_)))) - (let ((_hd116185116215_ + (gx#stx-e _tl116186116214_)))) + (let ((_hd116190116220_ (let () (declare (not safe)) - (##car _e116186116212_))) - (_tl116184116217_ + (##car _e116191116217_))) + (_tl116189116222_ (let () (declare (not safe)) - (##cdr _e116186116212_)))) + (##cdr _e116191116217_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl116184116217_)) - ((lambda (_L116220_ _L116221_) - (let ((_new-expr116236_ + _tl116189116222_)) + ((lambda (_L116225_ _L116226_) + (let ((_new-expr116241_ (let () (declare (not safe)) (gxc#compile-e__2 - _L116220_ - _id116171_ - _new-id116172_))) - (_new-xid116237_ + _L116225_ + _id116176_ + _new-id116177_))) + (_new-xid116242_ (if (let () (declare (not safe)) (gx#free-identifier=? - _L116221_ - _id116171_)) - _new-id116172_ - _L116221_))) - (let ((__tmp118219 - (let ((__tmp118220 + _L116226_ + _id116176_)) + _new-id116177_ + _L116226_))) + (let ((__tmp118224 + (let ((__tmp118225 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp118221 + (let ((__tmp118226 (let () (declare (not safe)) - (cons _new-expr116236_ '())))) + (cons _new-expr116241_ '())))) (declare (not safe)) - (cons _new-xid116237_ __tmp118221)))) + (cons _new-xid116242_ __tmp118226)))) (declare (not safe)) - (cons '%#set! __tmp118220)))) + (cons '%#set! __tmp118225)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp118219 - _stx116170_)))) - _hd116185116215_ - _hd116182116207_) + __tmp118224 + _stx116175_)))) + _hd116190116220_ + _hd116187116212_) (let () (declare (not safe)) - (_g116174116191_ - _g116175116194_))))) + (_g116179116196_ + _g116180116199_))))) (let () (declare (not safe)) - (_g116174116191_ _g116175116194_))))) + (_g116179116196_ _g116180116199_))))) (let () (declare (not safe)) - (_g116174116191_ _g116175116194_))))) + (_g116179116196_ _g116180116199_))))) (let () (declare (not safe)) - (_g116174116191_ _g116175116194_)))))) + (_g116179116196_ _g116180116199_)))))) (declare (not safe)) - (_g116173116239_ _stx116170_)))) + (_g116178116244_ _stx116175_)))) (define gxc#expression-subst*-setq% - (lambda (_stx116094_ _subst116095_) - (let* ((_g116097116114_ - (lambda (_g116098116111_) + (lambda (_stx116099_ _subst116100_) + (let* ((_g116102116119_ + (lambda (_g116103116116_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g116098116111_)))) - (_g116096116167_ - (lambda (_g116098116117_) + _g116103116116_)))) + (_g116101116172_ + (lambda (_g116103116122_) (if (let () (declare (not safe)) - (gx#stx-pair? _g116098116117_)) - (let ((_e116103116119_ + (gx#stx-pair? _g116103116122_)) + (let ((_e116108116124_ (let () (declare (not safe)) - (gx#stx-e _g116098116117_)))) - (let ((_hd116102116122_ + (gx#stx-e _g116103116122_)))) + (let ((_hd116107116127_ (let () (declare (not safe)) - (##car _e116103116119_))) - (_tl116101116124_ + (##car _e116108116124_))) + (_tl116106116129_ (let () (declare (not safe)) - (##cdr _e116103116119_)))) + (##cdr _e116108116124_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl116101116124_)) - (let ((_e116106116127_ + (gx#stx-pair? _tl116106116129_)) + (let ((_e116111116132_ (let () (declare (not safe)) - (gx#stx-e _tl116101116124_)))) - (let ((_hd116105116130_ + (gx#stx-e _tl116106116129_)))) + (let ((_hd116110116135_ (let () (declare (not safe)) - (##car _e116106116127_))) - (_tl116104116132_ + (##car _e116111116132_))) + (_tl116109116137_ (let () (declare (not safe)) - (##cdr _e116106116127_)))) + (##cdr _e116111116132_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl116104116132_)) - (let ((_e116109116135_ + (gx#stx-pair? _tl116109116137_)) + (let ((_e116114116140_ (let () (declare (not safe)) - (gx#stx-e _tl116104116132_)))) - (let ((_hd116108116138_ + (gx#stx-e _tl116109116137_)))) + (let ((_hd116113116143_ (let () (declare (not safe)) - (##car _e116109116135_))) - (_tl116107116140_ + (##car _e116114116140_))) + (_tl116112116145_ (let () (declare (not safe)) - (##cdr _e116109116135_)))) + (##cdr _e116114116140_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl116107116140_)) - ((lambda (_L116143_ _L116144_) - (let ((_new-expr116164_ + _tl116112116145_)) + ((lambda (_L116148_ _L116149_) + (let ((_new-expr116169_ (let () (declare (not safe)) (gxc#compile-e__1 - _L116143_ - _subst116095_))) - (_new-xid116165_ - (let ((_$e116161_ - (let ((__tmp118222 + _L116148_ + _subst116100_))) + (_new-xid116170_ + (let ((_$e116166_ + (let ((__tmp118227 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_sub116159_) - (let ((__tmp118223 (car _sub116159_))) + (lambda (_sub116164_) + (let ((__tmp118228 (car _sub116164_))) (declare (not safe)) (gx#free-identifier=? - _L116144_ - __tmp118223))))) + _L116149_ + __tmp118228))))) (declare (not safe)) - (find __tmp118222 _subst116095_)))) - (if _$e116161_ (cdr _$e116161_) _L116144_)))) + (find __tmp118227 _subst116100_)))) + (if _$e116166_ (cdr _$e116166_) _L116149_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp118224 - (let ((__tmp118225 + (let ((__tmp118229 + (let ((__tmp118230 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp118226 + (let ((__tmp118231 (let () (declare (not safe)) - (cons _new-expr116164_ '())))) + (cons _new-expr116169_ '())))) (declare (not safe)) - (cons _new-xid116165_ __tmp118226)))) + (cons _new-xid116170_ __tmp118231)))) (declare (not safe)) - (cons '%#set! __tmp118225)))) + (cons '%#set! __tmp118230)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp118224 - _stx116094_)))) - _hd116108116138_ - _hd116105116130_) + __tmp118229 + _stx116099_)))) + _hd116113116143_ + _hd116110116135_) (let () (declare (not safe)) - (_g116097116114_ - _g116098116117_))))) + (_g116102116119_ + _g116103116122_))))) (let () (declare (not safe)) - (_g116097116114_ _g116098116117_))))) + (_g116102116119_ _g116103116122_))))) (let () (declare (not safe)) - (_g116097116114_ _g116098116117_))))) + (_g116102116119_ _g116103116122_))))) (let () (declare (not safe)) - (_g116097116114_ _g116098116117_)))))) + (_g116102116119_ _g116103116122_)))))) (declare (not safe)) - (_g116096116167_ _stx116094_)))) + (_g116101116172_ _stx116099_)))) (define gxc#collect-runtime-refs-ref% - (lambda (_stx116040_ _ht116041_) - (let* ((_g116043116056_ - (lambda (_g116044116053_) + (lambda (_stx116045_ _ht116046_) + (let* ((_g116048116061_ + (lambda (_g116049116058_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g116044116053_)))) - (_g116042116091_ - (lambda (_g116044116059_) + _g116049116058_)))) + (_g116047116096_ + (lambda (_g116049116064_) (if (let () (declare (not safe)) - (gx#stx-pair? _g116044116059_)) - (let ((_e116048116061_ + (gx#stx-pair? _g116049116064_)) + (let ((_e116053116066_ (let () (declare (not safe)) - (gx#stx-e _g116044116059_)))) - (let ((_hd116047116064_ + (gx#stx-e _g116049116064_)))) + (let ((_hd116052116069_ (let () (declare (not safe)) - (##car _e116048116061_))) - (_tl116046116066_ + (##car _e116053116066_))) + (_tl116051116071_ (let () (declare (not safe)) - (##cdr _e116048116061_)))) + (##cdr _e116053116066_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl116046116066_)) - (let ((_e116051116069_ + (gx#stx-pair? _tl116051116071_)) + (let ((_e116056116074_ (let () (declare (not safe)) - (gx#stx-e _tl116046116066_)))) - (let ((_hd116050116072_ + (gx#stx-e _tl116051116071_)))) + (let ((_hd116055116077_ (let () (declare (not safe)) - (##car _e116051116069_))) - (_tl116049116074_ + (##car _e116056116074_))) + (_tl116054116079_ (let () (declare (not safe)) - (##cdr _e116051116069_)))) + (##cdr _e116056116074_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl116049116074_)) - ((lambda (_L116077_) - (let ((_eid116089_ + (gx#stx-null? _tl116054116079_)) + ((lambda (_L116082_) + (let ((_eid116094_ (let () (declare (not safe)) (gxc#identifier-symbol - _L116077_)))) + _L116082_)))) (declare (not safe)) (hash-update!__% - _ht116041_ - _eid116089_ + _ht116046_ + _eid116094_ 1+ '0))) - _hd116050116072_) + _hd116055116077_) (let () (declare (not safe)) - (_g116043116056_ _g116044116059_))))) + (_g116048116061_ _g116049116064_))))) (let () (declare (not safe)) - (_g116043116056_ _g116044116059_))))) + (_g116048116061_ _g116049116064_))))) (let () (declare (not safe)) - (_g116043116056_ _g116044116059_)))))) + (_g116048116061_ _g116049116064_)))))) (declare (not safe)) - (_g116042116091_ _stx116040_)))) + (_g116047116096_ _stx116045_)))) (define gxc#collect-runtime-refs-setq% - (lambda (_stx115970_ _ht115971_) - (let* ((_g115973115990_ - (lambda (_g115974115987_) + (lambda (_stx115975_ _ht115976_) + (let* ((_g115978115995_ + (lambda (_g115979115992_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g115974115987_)))) - (_g115972116037_ - (lambda (_g115974115993_) + _g115979115992_)))) + (_g115977116042_ + (lambda (_g115979115998_) (if (let () (declare (not safe)) - (gx#stx-pair? _g115974115993_)) - (let ((_e115979115995_ + (gx#stx-pair? _g115979115998_)) + (let ((_e115984116000_ (let () (declare (not safe)) - (gx#stx-e _g115974115993_)))) - (let ((_hd115978115998_ + (gx#stx-e _g115979115998_)))) + (let ((_hd115983116003_ (let () (declare (not safe)) - (##car _e115979115995_))) - (_tl115977116000_ + (##car _e115984116000_))) + (_tl115982116005_ (let () (declare (not safe)) - (##cdr _e115979115995_)))) + (##cdr _e115984116000_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl115977116000_)) - (let ((_e115982116003_ + (gx#stx-pair? _tl115982116005_)) + (let ((_e115987116008_ (let () (declare (not safe)) - (gx#stx-e _tl115977116000_)))) - (let ((_hd115981116006_ + (gx#stx-e _tl115982116005_)))) + (let ((_hd115986116011_ (let () (declare (not safe)) - (##car _e115982116003_))) - (_tl115980116008_ + (##car _e115987116008_))) + (_tl115985116013_ (let () (declare (not safe)) - (##cdr _e115982116003_)))) + (##cdr _e115987116008_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl115980116008_)) - (let ((_e115985116011_ + (gx#stx-pair? _tl115985116013_)) + (let ((_e115990116016_ (let () (declare (not safe)) - (gx#stx-e _tl115980116008_)))) - (let ((_hd115984116014_ + (gx#stx-e _tl115985116013_)))) + (let ((_hd115989116019_ (let () (declare (not safe)) - (##car _e115985116011_))) - (_tl115983116016_ + (##car _e115990116016_))) + (_tl115988116021_ (let () (declare (not safe)) - (##cdr _e115985116011_)))) + (##cdr _e115990116016_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl115983116016_)) - ((lambda (_L116019_ _L116020_) - (let ((_eid116035_ + _tl115988116021_)) + ((lambda (_L116024_ _L116025_) + (let ((_eid116040_ (let () (declare (not safe)) (gxc#identifier-symbol - _L116020_)))) + _L116025_)))) (let () (declare (not safe)) (hash-update!__% - _ht115971_ - _eid116035_ + _ht115976_ + _eid116040_ 1+ '0)) (let () (declare (not safe)) (gxc#compile-e__1 - _L116019_ - _ht115971_)))) - _hd115984116014_ - _hd115981116006_) + _L116024_ + _ht115976_)))) + _hd115989116019_ + _hd115986116011_) (let () (declare (not safe)) - (_g115973115990_ - _g115974115993_))))) + (_g115978115995_ + _g115979115998_))))) (let () (declare (not safe)) - (_g115973115990_ _g115974115993_))))) + (_g115978115995_ _g115979115998_))))) (let () (declare (not safe)) - (_g115973115990_ _g115974115993_))))) + (_g115978115995_ _g115979115998_))))) (let () (declare (not safe)) - (_g115973115990_ _g115974115993_)))))) + (_g115978115995_ _g115979115998_)))))) (declare (not safe)) - (_g115972116037_ _stx115970_)))) + (_g115977116042_ _stx115975_)))) (define gxc#find-body% - (lambda (_stx115883_ _arg115884_) - (let* ((_g115886115905_ - (lambda (_g115887115902_) + (lambda (_stx115888_ _arg115889_) + (let* ((_g115891115910_ + (lambda (_g115892115907_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g115887115902_)))) - (_g115885115967_ - (lambda (_g115887115908_) + _g115892115907_)))) + (_g115890115972_ + (lambda (_g115892115913_) (if (let () (declare (not safe)) - (gx#stx-pair? _g115887115908_)) - (let ((_e115891115910_ + (gx#stx-pair? _g115892115913_)) + (let ((_e115896115915_ (let () (declare (not safe)) - (gx#stx-e _g115887115908_)))) - (let ((_hd115890115913_ + (gx#stx-e _g115892115913_)))) + (let ((_hd115895115918_ (let () (declare (not safe)) - (##car _e115891115910_))) - (_tl115889115915_ + (##car _e115896115915_))) + (_tl115894115920_ (let () (declare (not safe)) - (##cdr _e115891115910_)))) + (##cdr _e115896115915_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl115889115915_)) - (let ((_g118227_ + (gx#stx-pair/null? _tl115894115920_)) + (let ((_g118232_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl115889115915_ + _tl115894115920_ '0)))) (begin - (let ((_g118228_ + (let ((_g118233_ (let () (declare (not safe)) - (if (##values? _g118227_) - (##vector-length _g118227_) + (if (##values? _g118232_) + (##vector-length _g118232_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g118228_ 2))) + (##fx= _g118233_ 2))) (error "Context expects 2 values" - _g118228_))) - (let ((_target115892115918_ + _g118233_))) + (let ((_target115897115923_ (let () (declare (not safe)) - (##vector-ref _g118227_ 0))) - (_tl115894115920_ + (##vector-ref _g118232_ 0))) + (_tl115899115925_ (let () (declare (not safe)) - (##vector-ref _g118227_ 1)))) + (##vector-ref _g118232_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl115894115920_)) - (letrec ((_loop115895115923_ - (lambda (_hd115893115926_ - _expr115899115928_) + (gx#stx-null? _tl115899115925_)) + (letrec ((_loop115900115928_ + (lambda (_hd115898115931_ + _expr115904115933_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd115893115926_)) - (let ((_e115896115931_ + _hd115898115931_)) + (let ((_e115901115936_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd115893115926_)))) - (let ((_lp-hd115897115934_ - (let () (declare (not safe)) (##car _e115896115931_))) - (_lp-tl115898115936_ + (gx#stx-e _hd115898115931_)))) + (let ((_lp-hd115902115939_ + (let () (declare (not safe)) (##car _e115901115936_))) + (_lp-tl115903115941_ (let () (declare (not safe)) - (##cdr _e115896115931_)))) - (let ((__tmp118232 + (##cdr _e115901115936_)))) + (let ((__tmp118237 (let () (declare (not safe)) - (cons _lp-hd115897115934_ _expr115899115928_)))) + (cons _lp-hd115902115939_ _expr115904115933_)))) (declare (not safe)) - (_loop115895115923_ _lp-tl115898115936_ __tmp118232)))) - (let ((_expr115900115939_ (reverse _expr115899115928_))) - ((lambda (_L115942_) - (let ((__tmp118231 - (lambda (_g115955115957_) + (_loop115900115928_ _lp-tl115903115941_ __tmp118237)))) + (let ((_expr115905115944_ (reverse _expr115904115933_))) + ((lambda (_L115947_) + (let ((__tmp118236 + (lambda (_g115960115962_) (let () (declare (not safe)) (gxc#compile-e__1 - _g115955115957_ - _arg115884_)))) - (__tmp118229 - (let ((__tmp118230 - (lambda (_g115959115962_ _g115960115964_) + _g115960115962_ + _arg115889_)))) + (__tmp118234 + (let ((__tmp118235 + (lambda (_g115964115967_ _g115965115969_) (let () (declare (not safe)) - (cons _g115959115962_ - _g115960115964_))))) + (cons _g115964115967_ + _g115965115969_))))) (declare (not safe)) - (foldr1 __tmp118230 '() _L115942_)))) + (foldr1 __tmp118235 '() _L115947_)))) (declare (not safe)) - (ormap1 __tmp118231 __tmp118229))) - _expr115900115939_)))))) + (ormap1 __tmp118236 __tmp118234))) + _expr115905115944_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop115895115923_ - _target115892115918_ + (_loop115900115928_ + _target115897115923_ '()))) (let () (declare (not safe)) - (_g115886115905_ - _g115887115908_)))))) + (_g115891115910_ + _g115892115913_)))))) (let () (declare (not safe)) - (_g115886115905_ _g115887115908_))))) + (_g115891115910_ _g115892115913_))))) (let () (declare (not safe)) - (_g115886115905_ _g115887115908_)))))) + (_g115891115910_ _g115892115913_)))))) (declare (not safe)) - (_g115885115967_ _stx115883_)))) + (_g115890115972_ _stx115888_)))) (define gxc#find-begin-annotation% - (lambda (_stx115815_ _arg115816_) - (let* ((_g115818115835_ - (lambda (_g115819115832_) + (lambda (_stx115820_ _arg115821_) + (let* ((_g115823115840_ + (lambda (_g115824115837_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g115819115832_)))) - (_g115817115880_ - (lambda (_g115819115838_) + _g115824115837_)))) + (_g115822115885_ + (lambda (_g115824115843_) (if (let () (declare (not safe)) - (gx#stx-pair? _g115819115838_)) - (let ((_e115824115840_ + (gx#stx-pair? _g115824115843_)) + (let ((_e115829115845_ (let () (declare (not safe)) - (gx#stx-e _g115819115838_)))) - (let ((_hd115823115843_ + (gx#stx-e _g115824115843_)))) + (let ((_hd115828115848_ (let () (declare (not safe)) - (##car _e115824115840_))) - (_tl115822115845_ + (##car _e115829115845_))) + (_tl115827115850_ (let () (declare (not safe)) - (##cdr _e115824115840_)))) + (##cdr _e115829115845_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl115822115845_)) - (let ((_e115827115848_ + (gx#stx-pair? _tl115827115850_)) + (let ((_e115832115853_ (let () (declare (not safe)) - (gx#stx-e _tl115822115845_)))) - (let ((_hd115826115851_ + (gx#stx-e _tl115827115850_)))) + (let ((_hd115831115856_ (let () (declare (not safe)) - (##car _e115827115848_))) - (_tl115825115853_ + (##car _e115832115853_))) + (_tl115830115858_ (let () (declare (not safe)) - (##cdr _e115827115848_)))) + (##cdr _e115832115853_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl115825115853_)) - (let ((_e115830115856_ + (gx#stx-pair? _tl115830115858_)) + (let ((_e115835115861_ (let () (declare (not safe)) - (gx#stx-e _tl115825115853_)))) - (let ((_hd115829115859_ + (gx#stx-e _tl115830115858_)))) + (let ((_hd115834115864_ (let () (declare (not safe)) - (##car _e115830115856_))) - (_tl115828115861_ + (##car _e115835115861_))) + (_tl115833115866_ (let () (declare (not safe)) - (##cdr _e115830115856_)))) + (##cdr _e115835115861_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl115828115861_)) - ((lambda (_L115864_ _L115865_) + _tl115833115866_)) + ((lambda (_L115869_ _L115870_) (let () (declare (not safe)) (gxc#compile-e__1 - _L115864_ - _arg115816_))) - _hd115829115859_ - _hd115826115851_) + _L115869_ + _arg115821_))) + _hd115834115864_ + _hd115831115856_) (let () (declare (not safe)) - (_g115818115835_ - _g115819115838_))))) + (_g115823115840_ + _g115824115843_))))) (let () (declare (not safe)) - (_g115818115835_ _g115819115838_))))) + (_g115823115840_ _g115824115843_))))) (let () (declare (not safe)) - (_g115818115835_ _g115819115838_))))) + (_g115823115840_ _g115824115843_))))) (let () (declare (not safe)) - (_g115818115835_ _g115819115838_)))))) + (_g115823115840_ _g115824115843_)))))) (declare (not safe)) - (_g115817115880_ _stx115815_)))) + (_g115822115885_ _stx115820_)))) (define gxc#find-lambda% - (lambda (_stx115747_ _arg115748_) - (let* ((_g115750115767_ - (lambda (_g115751115764_) + (lambda (_stx115752_ _arg115753_) + (let* ((_g115755115772_ + (lambda (_g115756115769_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g115751115764_)))) - (_g115749115812_ - (lambda (_g115751115770_) + _g115756115769_)))) + (_g115754115817_ + (lambda (_g115756115775_) (if (let () (declare (not safe)) - (gx#stx-pair? _g115751115770_)) - (let ((_e115756115772_ + (gx#stx-pair? _g115756115775_)) + (let ((_e115761115777_ (let () (declare (not safe)) - (gx#stx-e _g115751115770_)))) - (let ((_hd115755115775_ + (gx#stx-e _g115756115775_)))) + (let ((_hd115760115780_ (let () (declare (not safe)) - (##car _e115756115772_))) - (_tl115754115777_ + (##car _e115761115777_))) + (_tl115759115782_ (let () (declare (not safe)) - (##cdr _e115756115772_)))) + (##cdr _e115761115777_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl115754115777_)) - (let ((_e115759115780_ + (gx#stx-pair? _tl115759115782_)) + (let ((_e115764115785_ (let () (declare (not safe)) - (gx#stx-e _tl115754115777_)))) - (let ((_hd115758115783_ + (gx#stx-e _tl115759115782_)))) + (let ((_hd115763115788_ (let () (declare (not safe)) - (##car _e115759115780_))) - (_tl115757115785_ + (##car _e115764115785_))) + (_tl115762115790_ (let () (declare (not safe)) - (##cdr _e115759115780_)))) + (##cdr _e115764115785_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl115757115785_)) - (let ((_e115762115788_ + (gx#stx-pair? _tl115762115790_)) + (let ((_e115767115793_ (let () (declare (not safe)) - (gx#stx-e _tl115757115785_)))) - (let ((_hd115761115791_ + (gx#stx-e _tl115762115790_)))) + (let ((_hd115766115796_ (let () (declare (not safe)) - (##car _e115762115788_))) - (_tl115760115793_ + (##car _e115767115793_))) + (_tl115765115798_ (let () (declare (not safe)) - (##cdr _e115762115788_)))) + (##cdr _e115767115793_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl115760115793_)) - ((lambda (_L115796_ _L115797_) + _tl115765115798_)) + ((lambda (_L115801_ _L115802_) (let () (declare (not safe)) (gxc#compile-e__1 - _L115796_ - _arg115748_))) - _hd115761115791_ - _hd115758115783_) + _L115801_ + _arg115753_))) + _hd115766115796_ + _hd115763115788_) (let () (declare (not safe)) - (_g115750115767_ - _g115751115770_))))) + (_g115755115772_ + _g115756115775_))))) (let () (declare (not safe)) - (_g115750115767_ _g115751115770_))))) + (_g115755115772_ _g115756115775_))))) (let () (declare (not safe)) - (_g115750115767_ _g115751115770_))))) + (_g115755115772_ _g115756115775_))))) (let () (declare (not safe)) - (_g115750115767_ _g115751115770_)))))) + (_g115755115772_ _g115756115775_)))))) (declare (not safe)) - (_g115749115812_ _stx115747_)))) + (_g115754115817_ _stx115752_)))) (define gxc#find-case-lambda% - (lambda (_stx115629_ _arg115630_) - (let* ((_g115632115660_ - (lambda (_g115633115657_) + (lambda (_stx115634_ _arg115635_) + (let* ((_g115637115665_ + (lambda (_g115638115662_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g115633115657_)))) - (_g115631115744_ - (lambda (_g115633115663_) + _g115638115662_)))) + (_g115636115749_ + (lambda (_g115638115668_) (if (let () (declare (not safe)) - (gx#stx-pair? _g115633115663_)) - (let ((_e115638115665_ + (gx#stx-pair? _g115638115668_)) + (let ((_e115643115670_ (let () (declare (not safe)) - (gx#stx-e _g115633115663_)))) - (let ((_hd115637115668_ + (gx#stx-e _g115638115668_)))) + (let ((_hd115642115673_ (let () (declare (not safe)) - (##car _e115638115665_))) - (_tl115636115670_ + (##car _e115643115670_))) + (_tl115641115675_ (let () (declare (not safe)) - (##cdr _e115638115665_)))) + (##cdr _e115643115670_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl115636115670_)) - (let ((_g118233_ + (gx#stx-pair/null? _tl115641115675_)) + (let ((_g118238_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl115636115670_ + _tl115641115675_ '0)))) (begin - (let ((_g118234_ + (let ((_g118239_ (let () (declare (not safe)) - (if (##values? _g118233_) - (##vector-length _g118233_) + (if (##values? _g118238_) + (##vector-length _g118238_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g118234_ 2))) + (##fx= _g118239_ 2))) (error "Context expects 2 values" - _g118234_))) - (let ((_target115639115673_ + _g118239_))) + (let ((_target115644115678_ (let () (declare (not safe)) - (##vector-ref _g118233_ 0))) - (_tl115641115675_ + (##vector-ref _g118238_ 0))) + (_tl115646115680_ (let () (declare (not safe)) - (##vector-ref _g118233_ 1)))) + (##vector-ref _g118238_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl115641115675_)) - (letrec ((_loop115642115678_ - (lambda (_hd115640115681_ - _body115646115683_ - _hd115647115685_) + (gx#stx-null? _tl115646115680_)) + (letrec ((_loop115647115683_ + (lambda (_hd115645115686_ + _body115651115688_ + _hd115652115690_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd115640115681_)) - (let ((_e115643115688_ + _hd115645115686_)) + (let ((_e115648115693_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd115640115681_)))) - (let ((_lp-hd115644115691_ - (let () (declare (not safe)) (##car _e115643115688_))) - (_lp-tl115645115693_ + (gx#stx-e _hd115645115686_)))) + (let ((_lp-hd115649115696_ + (let () (declare (not safe)) (##car _e115648115693_))) + (_lp-tl115650115698_ (let () (declare (not safe)) - (##cdr _e115643115688_)))) + (##cdr _e115648115693_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd115644115691_)) - (let ((_e115652115696_ + (gx#stx-pair? _lp-hd115649115696_)) + (let ((_e115657115701_ (let () (declare (not safe)) - (gx#stx-e _lp-hd115644115691_)))) - (let ((_hd115651115699_ + (gx#stx-e _lp-hd115649115696_)))) + (let ((_hd115656115704_ (let () (declare (not safe)) - (##car _e115652115696_))) - (_tl115650115701_ + (##car _e115657115701_))) + (_tl115655115706_ (let () (declare (not safe)) - (##cdr _e115652115696_)))) + (##cdr _e115657115701_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl115650115701_)) - (let ((_e115655115704_ + (gx#stx-pair? _tl115655115706_)) + (let ((_e115660115709_ (let () (declare (not safe)) - (gx#stx-e _tl115650115701_)))) - (let ((_hd115654115707_ + (gx#stx-e _tl115655115706_)))) + (let ((_hd115659115712_ (let () (declare (not safe)) - (##car _e115655115704_))) - (_tl115653115709_ + (##car _e115660115709_))) + (_tl115658115714_ (let () (declare (not safe)) - (##cdr _e115655115704_)))) + (##cdr _e115660115709_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl115653115709_)) - (let ((__tmp118239 + (gx#stx-null? _tl115658115714_)) + (let ((__tmp118244 (let () (declare (not safe)) - (cons _hd115654115707_ - _body115646115683_))) - (__tmp118238 + (cons _hd115659115712_ + _body115651115688_))) + (__tmp118243 (let () (declare (not safe)) - (cons _hd115651115699_ - _hd115647115685_)))) + (cons _hd115656115704_ + _hd115652115690_)))) (declare (not safe)) - (_loop115642115678_ - _lp-tl115645115693_ - __tmp118239 - __tmp118238)) + (_loop115647115683_ + _lp-tl115650115698_ + __tmp118244 + __tmp118243)) (let () (declare (not safe)) - (_g115632115660_ _g115633115663_))))) + (_g115637115665_ _g115638115668_))))) (let () (declare (not safe)) - (_g115632115660_ _g115633115663_))))) + (_g115637115665_ _g115638115668_))))) (let () (declare (not safe)) - (_g115632115660_ _g115633115663_))))) - (let ((_body115648115712_ (reverse _body115646115683_)) - (_hd115649115714_ (reverse _hd115647115685_))) - ((lambda (_L115717_ _L115718_) - (let ((__tmp118237 - (lambda (_g115732115734_) + (_g115637115665_ _g115638115668_))))) + (let ((_body115653115717_ (reverse _body115651115688_)) + (_hd115654115719_ (reverse _hd115652115690_))) + ((lambda (_L115722_ _L115723_) + (let ((__tmp118242 + (lambda (_g115737115739_) (let () (declare (not safe)) (gxc#compile-e__1 - _g115732115734_ - _arg115630_)))) - (__tmp118235 - (let ((__tmp118236 - (lambda (_g115736115739_ _g115737115741_) + _g115737115739_ + _arg115635_)))) + (__tmp118240 + (let ((__tmp118241 + (lambda (_g115741115744_ _g115742115746_) (let () (declare (not safe)) - (cons _g115736115739_ - _g115737115741_))))) + (cons _g115741115744_ + _g115742115746_))))) (declare (not safe)) - (foldr1 __tmp118236 '() _L115717_)))) + (foldr1 __tmp118241 '() _L115722_)))) (declare (not safe)) - (ormap1 __tmp118237 __tmp118235))) - _body115648115712_ - _hd115649115714_)))))) + (ormap1 __tmp118242 __tmp118240))) + _body115653115717_ + _hd115654115719_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop115642115678_ - _target115639115673_ + (_loop115647115683_ + _target115644115678_ '() '()))) (let () (declare (not safe)) - (_g115632115660_ - _g115633115663_)))))) + (_g115637115665_ + _g115638115668_)))))) (let () (declare (not safe)) - (_g115632115660_ _g115633115663_))))) + (_g115637115665_ _g115638115668_))))) (let () (declare (not safe)) - (_g115632115660_ _g115633115663_)))))) + (_g115637115665_ _g115638115668_)))))) (declare (not safe)) - (_g115631115744_ _stx115629_)))) + (_g115636115749_ _stx115634_)))) (define gxc#find-let-values% - (lambda (_stx115479_ _arg115480_) - (let* ((_g115482115517_ - (lambda (_g115483115514_) + (lambda (_stx115484_ _arg115485_) + (let* ((_g115487115522_ + (lambda (_g115488115519_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g115483115514_)))) - (_g115481115626_ - (lambda (_g115483115520_) + _g115488115519_)))) + (_g115486115631_ + (lambda (_g115488115525_) (if (let () (declare (not safe)) - (gx#stx-pair? _g115483115520_)) - (let ((_e115489115522_ + (gx#stx-pair? _g115488115525_)) + (let ((_e115494115527_ (let () (declare (not safe)) - (gx#stx-e _g115483115520_)))) - (let ((_hd115488115525_ + (gx#stx-e _g115488115525_)))) + (let ((_hd115493115530_ (let () (declare (not safe)) - (##car _e115489115522_))) - (_tl115487115527_ + (##car _e115494115527_))) + (_tl115492115532_ (let () (declare (not safe)) - (##cdr _e115489115522_)))) + (##cdr _e115494115527_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl115487115527_)) - (let ((_e115492115530_ + (gx#stx-pair? _tl115492115532_)) + (let ((_e115497115535_ (let () (declare (not safe)) - (gx#stx-e _tl115487115527_)))) - (let ((_hd115491115533_ + (gx#stx-e _tl115492115532_)))) + (let ((_hd115496115538_ (let () (declare (not safe)) - (##car _e115492115530_))) - (_tl115490115535_ + (##car _e115497115535_))) + (_tl115495115540_ (let () (declare (not safe)) - (##cdr _e115492115530_)))) + (##cdr _e115497115535_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd115491115533_)) - (let ((_g118240_ + (gx#stx-pair/null? _hd115496115538_)) + (let ((_g118245_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd115491115533_ + _hd115496115538_ '0)))) (begin - (let ((_g118241_ + (let ((_g118246_ (let () (declare (not safe)) - (if (##values? _g118240_) + (if (##values? _g118245_) (##vector-length - _g118240_) + _g118245_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g118241_ 2))) + (##fx= _g118246_ 2))) (error "Context expects 2 values" - _g118241_))) - (let ((_target115493115538_ + _g118246_))) + (let ((_target115498115543_ (let () (declare (not safe)) - (##vector-ref _g118240_ 0))) - (_tl115495115540_ + (##vector-ref _g118245_ 0))) + (_tl115500115545_ (let () (declare (not safe)) (##vector-ref - _g118240_ + _g118245_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl115495115540_)) - (letrec ((_loop115496115543_ - (lambda (_hd115494115546_ + _tl115500115545_)) + (letrec ((_loop115501115548_ + (lambda (_hd115499115551_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _expr115500115548_ - _bind115501115550_) + _expr115505115553_ + _bind115506115555_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd115494115546_)) - (let ((_e115497115553_ + (gx#stx-pair? _hd115499115551_)) + (let ((_e115502115558_ (let () (declare (not safe)) - (gx#stx-e _hd115494115546_)))) - (let ((_lp-hd115498115556_ + (gx#stx-e _hd115499115551_)))) + (let ((_lp-hd115503115561_ (let () (declare (not safe)) - (##car _e115497115553_))) - (_lp-tl115499115558_ + (##car _e115502115558_))) + (_lp-tl115504115563_ (let () (declare (not safe)) - (##cdr _e115497115553_)))) + (##cdr _e115502115558_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd115498115556_)) - (let ((_e115506115561_ + (gx#stx-pair? _lp-hd115503115561_)) + (let ((_e115511115566_ (let () (declare (not safe)) - (gx#stx-e _lp-hd115498115556_)))) - (let ((_hd115505115564_ + (gx#stx-e _lp-hd115503115561_)))) + (let ((_hd115510115569_ (let () (declare (not safe)) - (##car _e115506115561_))) - (_tl115504115566_ + (##car _e115511115566_))) + (_tl115509115571_ (let () (declare (not safe)) - (##cdr _e115506115561_)))) + (##cdr _e115511115566_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl115504115566_)) - (let ((_e115509115569_ + (gx#stx-pair? _tl115509115571_)) + (let ((_e115514115574_ (let () (declare (not safe)) - (gx#stx-e _tl115504115566_)))) - (let ((_hd115508115572_ + (gx#stx-e _tl115509115571_)))) + (let ((_hd115513115577_ (let () (declare (not safe)) - (##car _e115509115569_))) - (_tl115507115574_ + (##car _e115514115574_))) + (_tl115512115579_ (let () (declare (not safe)) - (##cdr _e115509115569_)))) + (##cdr _e115514115574_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl115507115574_)) - (let ((__tmp118246 + _tl115512115579_)) + (let ((__tmp118251 (let () (declare (not safe)) - (cons _hd115508115572_ - _expr115500115548_))) - (__tmp118245 + (cons _hd115513115577_ + _expr115505115553_))) + (__tmp118250 (let () (declare (not safe)) - (cons _hd115505115564_ - _bind115501115550_)))) + (cons _hd115510115569_ + _bind115506115555_)))) (declare (not safe)) - (_loop115496115543_ - _lp-tl115499115558_ - __tmp118246 - __tmp118245)) + (_loop115501115548_ + _lp-tl115504115563_ + __tmp118251 + __tmp118250)) (let () (declare (not safe)) - (_g115482115517_ - _g115483115520_))))) + (_g115487115522_ + _g115488115525_))))) (let () (declare (not safe)) - (_g115482115517_ _g115483115520_))))) + (_g115487115522_ _g115488115525_))))) (let () (declare (not safe)) - (_g115482115517_ _g115483115520_))))) - (let ((_expr115502115577_ (reverse _expr115500115548_)) - (_bind115503115579_ - (reverse _bind115501115550_))) + (_g115487115522_ _g115488115525_))))) + (let ((_expr115507115582_ (reverse _expr115505115553_)) + (_bind115508115584_ + (reverse _bind115506115555_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl115490115535_)) - (let ((_e115512115582_ + (gx#stx-pair? _tl115495115540_)) + (let ((_e115517115587_ (let () (declare (not safe)) - (gx#stx-e _tl115490115535_)))) - (let ((_hd115511115585_ + (gx#stx-e _tl115495115540_)))) + (let ((_hd115516115590_ (let () (declare (not safe)) - (##car _e115512115582_))) - (_tl115510115587_ + (##car _e115517115587_))) + (_tl115515115592_ (let () (declare (not safe)) - (##cdr _e115512115582_)))) + (##cdr _e115517115587_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl115510115587_)) - ((lambda (_L115590_ _L115591_ _L115592_) - (let ((_$e115623_ - (let ((__tmp118244 - (lambda (_g115611115613_) + (gx#stx-null? _tl115515115592_)) + ((lambda (_L115595_ _L115596_ _L115597_) + (let ((_$e115628_ + (let ((__tmp118249 + (lambda (_g115616115618_) (let () (declare (not safe)) (gxc#compile-e__1 - _g115611115613_ - _arg115480_)))) - (__tmp118242 - (let ((__tmp118243 - (lambda (_g115615115618_ + _g115616115618_ + _arg115485_)))) + (__tmp118247 + (let ((__tmp118248 + (lambda (_g115620115623_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g115616115620_) + _g115621115625_) (let () (declare (not safe)) - (cons _g115615115618_ _g115616115620_))))) + (cons _g115620115623_ _g115621115625_))))) (declare (not safe)) - (foldr1 __tmp118243 '() _L115591_)))) + (foldr1 __tmp118248 '() _L115596_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (ormap1 __tmp118244 - __tmp118242)))) - (if _$e115623_ - _$e115623_ + (ormap1 __tmp118249 + __tmp118247)))) + (if _$e115628_ + _$e115628_ (let () (declare (not safe)) (gxc#compile-e__1 - _L115590_ - _arg115480_))))) - _hd115511115585_ - _expr115502115577_ - _bind115503115579_) + _L115595_ + _arg115485_))))) + _hd115516115590_ + _expr115507115582_ + _bind115508115584_) (let () (declare (not safe)) - (_g115482115517_ _g115483115520_))))) + (_g115487115522_ _g115488115525_))))) (let () (declare (not safe)) - (_g115482115517_ _g115483115520_)))))))) + (_g115487115522_ _g115488115525_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop115496115543_ - _target115493115538_ + (_loop115501115548_ + _target115498115543_ '() '()))) (let () (declare (not safe)) - (_g115482115517_ - _g115483115520_)))))) + (_g115487115522_ + _g115488115525_)))))) (let () (declare (not safe)) - (_g115482115517_ _g115483115520_))))) + (_g115487115522_ _g115488115525_))))) (let () (declare (not safe)) - (_g115482115517_ _g115483115520_))))) + (_g115487115522_ _g115488115525_))))) (let () (declare (not safe)) - (_g115482115517_ _g115483115520_)))))) + (_g115487115522_ _g115488115525_)))))) (declare (not safe)) - (_g115481115626_ _stx115479_)))) + (_g115486115631_ _stx115484_)))) (define gxc#find-setq% - (lambda (_stx115411_ _arg115412_) - (let* ((_g115414115431_ - (lambda (_g115415115428_) + (lambda (_stx115416_ _arg115417_) + (let* ((_g115419115436_ + (lambda (_g115420115433_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g115415115428_)))) - (_g115413115476_ - (lambda (_g115415115434_) + _g115420115433_)))) + (_g115418115481_ + (lambda (_g115420115439_) (if (let () (declare (not safe)) - (gx#stx-pair? _g115415115434_)) - (let ((_e115420115436_ + (gx#stx-pair? _g115420115439_)) + (let ((_e115425115441_ (let () (declare (not safe)) - (gx#stx-e _g115415115434_)))) - (let ((_hd115419115439_ + (gx#stx-e _g115420115439_)))) + (let ((_hd115424115444_ (let () (declare (not safe)) - (##car _e115420115436_))) - (_tl115418115441_ + (##car _e115425115441_))) + (_tl115423115446_ (let () (declare (not safe)) - (##cdr _e115420115436_)))) + (##cdr _e115425115441_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl115418115441_)) - (let ((_e115423115444_ + (gx#stx-pair? _tl115423115446_)) + (let ((_e115428115449_ (let () (declare (not safe)) - (gx#stx-e _tl115418115441_)))) - (let ((_hd115422115447_ + (gx#stx-e _tl115423115446_)))) + (let ((_hd115427115452_ (let () (declare (not safe)) - (##car _e115423115444_))) - (_tl115421115449_ + (##car _e115428115449_))) + (_tl115426115454_ (let () (declare (not safe)) - (##cdr _e115423115444_)))) + (##cdr _e115428115449_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl115421115449_)) - (let ((_e115426115452_ + (gx#stx-pair? _tl115426115454_)) + (let ((_e115431115457_ (let () (declare (not safe)) - (gx#stx-e _tl115421115449_)))) - (let ((_hd115425115455_ + (gx#stx-e _tl115426115454_)))) + (let ((_hd115430115460_ (let () (declare (not safe)) - (##car _e115426115452_))) - (_tl115424115457_ + (##car _e115431115457_))) + (_tl115429115462_ (let () (declare (not safe)) - (##cdr _e115426115452_)))) + (##cdr _e115431115457_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl115424115457_)) - ((lambda (_L115460_ _L115461_) + _tl115429115462_)) + ((lambda (_L115465_ _L115466_) (let () (declare (not safe)) (gxc#compile-e__1 - _L115460_ - _arg115412_))) - _hd115425115455_ - _hd115422115447_) + _L115465_ + _arg115417_))) + _hd115430115460_ + _hd115427115452_) (let () (declare (not safe)) - (_g115414115431_ - _g115415115434_))))) + (_g115419115436_ + _g115420115439_))))) (let () (declare (not safe)) - (_g115414115431_ _g115415115434_))))) + (_g115419115436_ _g115420115439_))))) (let () (declare (not safe)) - (_g115414115431_ _g115415115434_))))) + (_g115419115436_ _g115420115439_))))) (let () (declare (not safe)) - (_g115414115431_ _g115415115434_)))))) + (_g115419115436_ _g115420115439_)))))) (declare (not safe)) - (_g115413115476_ _stx115411_)))) + (_g115418115481_ _stx115416_)))) (define gxc#find-var-refs-ref% - (lambda (_stx115355_ _ids115356_) - (let* ((_g115358115371_ - (lambda (_g115359115368_) + (lambda (_stx115360_ _ids115361_) + (let* ((_g115363115376_ + (lambda (_g115364115373_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g115359115368_)))) - (_g115357115408_ - (lambda (_g115359115374_) + _g115364115373_)))) + (_g115362115413_ + (lambda (_g115364115379_) (if (let () (declare (not safe)) - (gx#stx-pair? _g115359115374_)) - (let ((_e115363115376_ + (gx#stx-pair? _g115364115379_)) + (let ((_e115368115381_ (let () (declare (not safe)) - (gx#stx-e _g115359115374_)))) - (let ((_hd115362115379_ + (gx#stx-e _g115364115379_)))) + (let ((_hd115367115384_ (let () (declare (not safe)) - (##car _e115363115376_))) - (_tl115361115381_ + (##car _e115368115381_))) + (_tl115366115386_ (let () (declare (not safe)) - (##cdr _e115363115376_)))) + (##cdr _e115368115381_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl115361115381_)) - (let ((_e115366115384_ + (gx#stx-pair? _tl115366115386_)) + (let ((_e115371115389_ (let () (declare (not safe)) - (gx#stx-e _tl115361115381_)))) - (let ((_hd115365115387_ + (gx#stx-e _tl115366115386_)))) + (let ((_hd115370115392_ (let () (declare (not safe)) - (##car _e115366115384_))) - (_tl115364115389_ + (##car _e115371115389_))) + (_tl115369115394_ (let () (declare (not safe)) - (##cdr _e115366115384_)))) + (##cdr _e115371115389_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl115364115389_)) - ((lambda (_L115392_) - (let ((__tmp118247 - (lambda (_g115403115405_) + (gx#stx-null? _tl115369115394_)) + ((lambda (_L115397_) + (let ((__tmp118252 + (lambda (_g115408115410_) (let () (declare (not safe)) (gx#free-identifier=? - _L115392_ - _g115403115405_))))) + _L115397_ + _g115408115410_))))) (declare (not safe)) - (find __tmp118247 _ids115356_))) - _hd115365115387_) + (find __tmp118252 _ids115361_))) + _hd115370115392_) (let () (declare (not safe)) - (_g115358115371_ _g115359115374_))))) + (_g115363115376_ _g115364115379_))))) (let () (declare (not safe)) - (_g115358115371_ _g115359115374_))))) + (_g115363115376_ _g115364115379_))))) (let () (declare (not safe)) - (_g115358115371_ _g115359115374_)))))) + (_g115363115376_ _g115364115379_)))))) (declare (not safe)) - (_g115357115408_ _stx115355_)))) + (_g115362115413_ _stx115360_)))) (define gxc#find-var-refs-setq% - (lambda (_stx115279_ _ids115280_) - (let* ((_g115282115299_ - (lambda (_g115283115296_) + (lambda (_stx115284_ _ids115285_) + (let* ((_g115287115304_ + (lambda (_g115288115301_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g115283115296_)))) - (_g115281115352_ - (lambda (_g115283115302_) + _g115288115301_)))) + (_g115286115357_ + (lambda (_g115288115307_) (if (let () (declare (not safe)) - (gx#stx-pair? _g115283115302_)) - (let ((_e115288115304_ + (gx#stx-pair? _g115288115307_)) + (let ((_e115293115309_ (let () (declare (not safe)) - (gx#stx-e _g115283115302_)))) - (let ((_hd115287115307_ + (gx#stx-e _g115288115307_)))) + (let ((_hd115292115312_ (let () (declare (not safe)) - (##car _e115288115304_))) - (_tl115286115309_ + (##car _e115293115309_))) + (_tl115291115314_ (let () (declare (not safe)) - (##cdr _e115288115304_)))) + (##cdr _e115293115309_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl115286115309_)) - (let ((_e115291115312_ + (gx#stx-pair? _tl115291115314_)) + (let ((_e115296115317_ (let () (declare (not safe)) - (gx#stx-e _tl115286115309_)))) - (let ((_hd115290115315_ + (gx#stx-e _tl115291115314_)))) + (let ((_hd115295115320_ (let () (declare (not safe)) - (##car _e115291115312_))) - (_tl115289115317_ + (##car _e115296115317_))) + (_tl115294115322_ (let () (declare (not safe)) - (##cdr _e115291115312_)))) + (##cdr _e115296115317_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl115289115317_)) - (let ((_e115294115320_ + (gx#stx-pair? _tl115294115322_)) + (let ((_e115299115325_ (let () (declare (not safe)) - (gx#stx-e _tl115289115317_)))) - (let ((_hd115293115323_ + (gx#stx-e _tl115294115322_)))) + (let ((_hd115298115328_ (let () (declare (not safe)) - (##car _e115294115320_))) - (_tl115292115325_ + (##car _e115299115325_))) + (_tl115297115330_ (let () (declare (not safe)) - (##cdr _e115294115320_)))) + (##cdr _e115299115325_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl115292115325_)) - ((lambda (_L115328_ _L115329_) - (let ((_$e115349_ - (let ((__tmp118248 - (lambda (_g115344115346_) + _tl115297115330_)) + ((lambda (_L115333_ _L115334_) + (let ((_$e115354_ + (let ((__tmp118253 + (lambda (_g115349115351_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#free-identifier=? _L115329_ _g115344115346_))))) + (gx#free-identifier=? _L115334_ _g115349115351_))))) (declare (not safe)) - (find __tmp118248 _ids115280_)))) + (find __tmp118253 _ids115285_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _$e115349_ - _$e115349_ + (if _$e115354_ + _$e115354_ (let () (declare (not safe)) (gxc#compile-e__1 - _L115328_ - _ids115280_))))) - _hd115293115323_ - _hd115290115315_) + _L115333_ + _ids115285_))))) + _hd115298115328_ + _hd115295115320_) (let () (declare (not safe)) - (_g115282115299_ - _g115283115302_))))) + (_g115287115304_ + _g115288115307_))))) (let () (declare (not safe)) - (_g115282115299_ _g115283115302_))))) + (_g115287115304_ _g115288115307_))))) (let () (declare (not safe)) - (_g115282115299_ _g115283115302_))))) + (_g115287115304_ _g115288115307_))))) (let () (declare (not safe)) - (_g115282115299_ _g115283115302_)))))) + (_g115287115304_ _g115288115307_)))))) (declare (not safe)) - (_g115281115352_ _stx115279_)))))) + (_g115286115357_ _stx115284_)))))) diff --git a/src/bootstrap/gerbil/compiler/optimize__0.scm b/src/bootstrap/gerbil/compiler/optimize__0.scm index 13024b56..dbe73366 100644 --- a/src/bootstrap/gerbil/compiler/optimize__0.scm +++ b/src/bootstrap/gerbil/compiler/optimize__0.scm @@ -1,93 +1,93 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize::timestamp 1709229975) + (define gerbil/compiler/optimize::timestamp 1709375802) (begin (define gxc#optimizer-info-init! (lambda () (if (gxc#current-compile-optimizer-info) '#!void (gxc#current-compile-optimizer-info - (let ((__obj156553 + (let ((__obj156558 (let () (declare (not safe)) (##structure gxc#optimizer-info::t '#f '#f '#f)))) - (gxc#optimizer-info:::init! __obj156553) - __obj156553))))) + (gxc#optimizer-info:::init! __obj156558) + __obj156558))))) (define gxc#optimize! - (lambda (_ctx156246_) - (let ((__tmp156557 + (lambda (_ctx156251_) + (let ((__tmp156562 (lambda () (let () (declare (not safe)) - (gxc#optimizer-load-ssxi-deps _ctx156246_)) + (gxc#optimizer-load-ssxi-deps _ctx156251_)) (let () (declare (not safe)) (gxc#optimizer-load-builtin-ssxi)) - (let ((__tmp156559 + (let ((__tmp156564 (##structure-ref (gxc#current-compile-optimizer-info) '2 gxc#optimizer-info::t '#f)) - (__tmp156558 + (__tmp156563 (##structure-ref - _ctx156246_ + _ctx156251_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (hash-put! __tmp156559 __tmp156558 '#t)) - (let ((_code156249_ - (let ((__tmp156560 + (hash-put! __tmp156564 __tmp156563 '#t)) + (let ((_code156254_ + (let ((__tmp156565 (##structure-ref - _ctx156246_ + _ctx156251_ '11 gx#module-context::t '#f))) (declare (not safe)) - (gxc#optimize-source __tmp156560)))) + (gxc#optimize-source __tmp156565)))) (##structure-set! - _ctx156246_ - _code156249_ + _ctx156251_ + _code156254_ '11 gx#module-context::t '#f)))) - (__tmp156556 (let () (declare (not safe)) (make-hash-table-eq))) - (__tmp156555 (let () (declare (not safe)) (make-hash-table-eq)))) + (__tmp156561 (let () (declare (not safe)) (make-hash-table-eq))) + (__tmp156560 (let () (declare (not safe)) (make-hash-table-eq)))) (declare (not safe)) (call-with-parameters - __tmp156557 + __tmp156562 gxc#current-compile-mutators - __tmp156556 + __tmp156561 gxc#current-compile-local-type - __tmp156555)))) + __tmp156560)))) (define gxc#optimizer-load-builtin-ssxi (lambda () - (letrec ((_load-it!156242_ - (lambda (_id156244_) - (if (let ((__tmp156562 + (letrec ((_load-it!156247_ + (lambda (_id156249_) + (if (let ((__tmp156567 (##structure-ref (gxc#current-compile-optimizer-info) '2 gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-get __tmp156562 _id156244_)) + (hash-get __tmp156567 _id156249_)) '#!void (begin (let () (declare (not safe)) - (gxc#optimizer-import-ssxi-by-id _id156244_)) - (let ((__tmp156561 + (gxc#optimizer-import-ssxi-by-id _id156249_)) + (let ((__tmp156566 (##structure-ref (gxc#current-compile-optimizer-info) '2 gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-put! __tmp156561 _id156244_ '#t))))))) + (hash-put! __tmp156566 _id156249_ '#t))))))) (for-each - _load-it!156242_ + _load-it!156247_ '(gerbil/runtime/gambit gerbil/runtime/util gerbil/runtime/table @@ -107,1688 +107,1688 @@ gerbil/runtime gerbil/builtin))))) (define gxc#optimizer-load-ssxi-deps - (lambda (_ctx156186_) - (letrec* ((_deps156188_ - (let* ((_imports156232_ + (lambda (_ctx156191_) + (letrec* ((_deps156193_ + (let* ((_imports156237_ (##structure-ref - _ctx156186_ + _ctx156191_ '8 gx#module-context::t '#f)) - (_$e156234_ + (_$e156239_ (let () (declare (not safe)) - (gx#core-context-prelude__% _ctx156186_)))) - (if _$e156234_ - ((lambda (_g156236156238_) + (gx#core-context-prelude__% _ctx156191_)))) + (if _$e156239_ + ((lambda (_g156241156243_) (let () (declare (not safe)) - (cons _g156236156238_ _imports156232_))) - _$e156234_) - _imports156232_)))) - (let _lp156190_ ((_rest156192_ _deps156188_)) - (let* ((_rest156193156201_ _rest156192_) - (_else156195156209_ (lambda () '#!void)) - (_K156197156220_ - (lambda (_rest156212_ _hd156213_) + (cons _g156241156243_ _imports156237_))) + _$e156239_) + _imports156237_)))) + (let _lp156195_ ((_rest156197_ _deps156193_)) + (let* ((_rest156198156206_ _rest156197_) + (_else156200156214_ (lambda () '#!void)) + (_K156202156225_ + (lambda (_rest156217_ _hd156218_) (if (let () (declare (not safe)) (##structure-instance-of? - _hd156213_ + _hd156218_ 'gx#module-context::t)) (begin - (if (let ((__tmp156576 + (if (let ((__tmp156581 (##structure-ref (gxc#current-compile-optimizer-info) '2 gxc#optimizer-info::t '#f)) - (__tmp156575 + (__tmp156580 (##structure-ref - _hd156213_ + _hd156218_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (hash-get __tmp156576 __tmp156575)) + (hash-get __tmp156581 __tmp156580)) '#!void (begin - (let ((_$e156215_ + (let ((_$e156220_ (let () (declare (not safe)) (gx#core-context-prelude__% - _hd156213_)))) - (if _$e156215_ - ((lambda (_pre156218_) - (let ((__tmp156573 - (let ((__tmp156574 + _hd156218_)))) + (if _$e156220_ + ((lambda (_pre156223_) + (let ((__tmp156578 + (let ((__tmp156579 (##structure-ref - _hd156213_ + _hd156218_ '8 gx#module-context::t '#f))) (declare (not safe)) - (cons _pre156218_ - __tmp156574)))) + (cons _pre156223_ + __tmp156579)))) (declare (not safe)) - (_lp156190_ __tmp156573))) - _$e156215_) - (let ((__tmp156572 + (_lp156195_ __tmp156578))) + _$e156220_) + (let ((__tmp156577 (##structure-ref - _hd156213_ + _hd156218_ '8 gx#module-context::t '#f))) (declare (not safe)) - (_lp156190_ __tmp156572)))) + (_lp156195_ __tmp156577)))) (let () (declare (not safe)) - (gxc#optimizer-load-ssxi _hd156213_)))) + (gxc#optimizer-load-ssxi _hd156218_)))) (let () (declare (not safe)) - (_lp156190_ _rest156212_))) + (_lp156195_ _rest156217_))) (if (let () (declare (not safe)) (##structure-instance-of? - _hd156213_ + _hd156218_ 'gx#prelude-context::t)) (begin - (if (let ((__tmp156571 + (if (let ((__tmp156576 (##structure-ref (gxc#current-compile-optimizer-info) '2 gxc#optimizer-info::t '#f)) - (__tmp156570 + (__tmp156575 (##structure-ref - _hd156213_ + _hd156218_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (hash-get __tmp156571 __tmp156570)) + (hash-get __tmp156576 __tmp156575)) '#!void (begin - (let ((__tmp156569 + (let ((__tmp156574 (##structure-ref - _hd156213_ + _hd156218_ '7 gx#prelude-context::t '#f))) (declare (not safe)) - (_lp156190_ __tmp156569)) + (_lp156195_ __tmp156574)) (let () (declare (not safe)) - (gxc#optimizer-load-ssxi _hd156213_)))) + (gxc#optimizer-load-ssxi _hd156218_)))) (let () (declare (not safe)) - (_lp156190_ _rest156212_))) + (_lp156195_ _rest156217_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _hd156213_ + _hd156218_ 'gx#module-import::t)) - (let ((__tmp156567 - (let ((__tmp156568 + (let ((__tmp156572 + (let ((__tmp156573 (##direct-structure-ref - _hd156213_ + _hd156218_ '1 gx#module-import::t '#f))) (declare (not safe)) - (cons __tmp156568 _rest156212_)))) + (cons __tmp156573 _rest156217_)))) (declare (not safe)) - (_lp156190_ __tmp156567)) + (_lp156195_ __tmp156572)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _hd156213_ + _hd156218_ 'gx#module-export::t)) - (let ((__tmp156565 - (let ((__tmp156566 + (let ((__tmp156570 + (let ((__tmp156571 (##direct-structure-ref - _hd156213_ + _hd156218_ '1 gx#module-export::t '#f))) (declare (not safe)) - (cons __tmp156566 - _rest156212_)))) + (cons __tmp156571 + _rest156217_)))) (declare (not safe)) - (_lp156190_ __tmp156565)) + (_lp156195_ __tmp156570)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _hd156213_ + _hd156218_ 'gx#import-set::t)) - (let ((__tmp156563 - (let ((__tmp156564 + (let ((__tmp156568 + (let ((__tmp156569 (##direct-structure-ref - _hd156213_ + _hd156218_ '1 gx#import-set::t '#f))) (declare (not safe)) - (cons __tmp156564 - _rest156212_)))) + (cons __tmp156569 + _rest156217_)))) (declare (not safe)) - (_lp156190_ __tmp156563)) + (_lp156195_ __tmp156568)) (let () (declare (not safe)) (error '"Unexpected module import" - _hd156213_)))))))))) - (if (let () (declare (not safe)) (##pair? _rest156193156201_)) - (let ((_hd156198156223_ + _hd156218_)))))))))) + (if (let () (declare (not safe)) (##pair? _rest156198156206_)) + (let ((_hd156203156228_ (let () (declare (not safe)) - (##car _rest156193156201_))) - (_tl156199156225_ + (##car _rest156198156206_))) + (_tl156204156230_ (let () (declare (not safe)) - (##cdr _rest156193156201_)))) - (let* ((_hd156228_ _hd156198156223_) - (_rest156230_ _tl156199156225_)) + (##cdr _rest156198156206_)))) + (let* ((_hd156233_ _hd156203156228_) + (_rest156235_ _tl156204156230_)) (declare (not safe)) - (_K156197156220_ _rest156230_ _hd156228_))) + (_K156202156225_ _rest156235_ _hd156233_))) '#!void)))))) (define gxc#optimizer-load-ssxi - (lambda (_ctx156166_) + (lambda (_ctx156171_) (if (and (let () (declare (not safe)) (##structure-instance-of? - _ctx156166_ + _ctx156171_ 'gx#module-context::t)) - (let ((__tmp156577 + (let ((__tmp156582 (##structure-ref - _ctx156166_ + _ctx156171_ '7 gx#module-context::t '#f))) (declare (not safe)) - (list? __tmp156577))) + (list? __tmp156582))) '#!void - (let* ((_ht156168_ + (let* ((_ht156173_ (##structure-ref (gxc#current-compile-optimizer-info) '2 gxc#optimizer-info::t '#f)) - (_id156170_ + (_id156175_ (##structure-ref - _ctx156166_ + _ctx156171_ '1 gx#expander-context::t '#f)) - (_mod156172_ + (_mod156177_ (let () (declare (not safe)) - (hash-get _ht156168_ _id156170_)))) - (let ((_$e156175_ _mod156172_)) - (if _$e156175_ - _$e156175_ - (let* ((_mod156178_ + (hash-get _ht156173_ _id156175_)))) + (let ((_$e156180_ _mod156177_)) + (if _$e156180_ + _$e156180_ + (let* ((_mod156183_ (let () (declare (not safe)) - (gxc#optimizer-import-ssxi _ctx156166_))) - (_val156183_ - (let ((_$e156180_ _mod156178_)) - (if _$e156180_ _$e156180_ '#!void)))) + (gxc#optimizer-import-ssxi _ctx156171_))) + (_val156188_ + (let ((_$e156185_ _mod156183_)) + (if _$e156185_ _$e156185_ '#!void)))) (let () (declare (not safe)) - (hash-put! _ht156168_ _id156170_ _val156183_)) - _val156183_))))))) + (hash-put! _ht156173_ _id156175_ _val156188_)) + _val156188_))))))) (define gxc#optimizer-import-ssxi - (lambda (_ctx156164_) - (if (##structure-ref _ctx156164_ '1 gx#expander-context::t '#f) - (let ((__tmp156578 + (lambda (_ctx156169_) + (if (##structure-ref _ctx156169_ '1 gx#expander-context::t '#f) + (let ((__tmp156583 (##structure-ref - _ctx156164_ + _ctx156169_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (gxc#optimizer-import-ssxi-by-id __tmp156578)) + (gxc#optimizer-import-ssxi-by-id __tmp156583)) '#f))) (define gxc#optimizer-import-ssxi-by-id - (lambda (_id156141_) - (letrec ((_catch-e156143_ - (lambda (_exn156162_) + (lambda (_id156146_) + (letrec ((_catch-e156148_ + (lambda (_exn156167_) (if (gxc#current-compile-verbose) (begin (let () (declare (not safe)) (displayln '"Failed to load ssxi module for " - _id156141_)) - (display-exception _exn156162_)) + _id156146_)) + (display-exception _exn156167_)) '#!void) '#f)) - (_import-e156144_ + (_import-e156149_ (lambda () - (let* ((_str-id156147_ + (let* ((_str-id156152_ (string-append (let () (declare (not safe)) - (gxc#module-id->path-string _id156141_)) + (gxc#module-id->path-string _id156146_)) '".ssxi")) - (_artefact-path156155_ - (let ((_odir156148156150_ + (_artefact-path156160_ + (let ((_odir156153156155_ (gxc#current-compile-output-dir))) - (if _odir156148156150_ - (let ((_odir156153_ _odir156148156150_)) + (if _odir156153156155_ + (let ((_odir156158_ _odir156153156155_)) (path-expand - (string-append _str-id156147_ '".ss") - _odir156153_)) + (string-append _str-id156152_ '".ss") + _odir156158_)) '#f))) - (_library-path156157_ + (_library-path156162_ (string->symbol - (string-append '":" _str-id156147_ '".ss"))) - (_ssxi-path156159_ - (if (and _artefact-path156155_ - (file-exists? _artefact-path156155_)) - _artefact-path156155_ - _library-path156157_))) + (string-append '":" _str-id156152_ '".ss"))) + (_ssxi-path156164_ + (if (and _artefact-path156160_ + (file-exists? _artefact-path156160_)) + _artefact-path156160_ + _library-path156162_))) (let () (declare (not safe)) (gxc#verbose '"Loading ssxi module " - _ssxi-path156159_)) + _ssxi-path156164_)) (let () (declare (not safe)) - (gx#import-module__% _ssxi-path156159_ '#t '#t)))))) + (gx#import-module__% _ssxi-path156164_ '#t '#t)))))) (let () (declare (not safe)) - (with-catch _catch-e156143_ _import-e156144_))))) + (with-catch _catch-e156148_ _import-e156149_))))) (define gxc#optimize-source - (lambda (_stx156132_) - (let () (declare (not safe)) (gxc#apply-collect-mutators _stx156132_)) - (let () (declare (not safe)) (gxc#apply-collect-methods _stx156132_)) + (lambda (_stx156137_) + (let () (declare (not safe)) (gxc#apply-collect-mutators _stx156137_)) + (let () (declare (not safe)) (gxc#apply-collect-methods _stx156137_)) (let () (declare (not safe)) - (gxc#apply-collect-top-level-type-info _stx156132_)) - (let* ((_stx156134_ + (gxc#apply-collect-top-level-type-info _stx156137_)) + (let* ((_stx156139_ (let () (declare (not safe)) - (gxc#apply-generate-method-specializers _stx156132_))) - (_stx156136_ + (gxc#apply-generate-method-specializers _stx156137_))) + (_stx156141_ (let () (declare (not safe)) - (gxc#apply-lift-top-lambdas _stx156134_)))) + (gxc#apply-lift-top-lambdas _stx156139_)))) (let () (declare (not safe)) - (gxc#apply-collect-type-info _stx156136_)) - (let ((_stx156139_ + (gxc#apply-collect-type-info _stx156141_)) + (let ((_stx156144_ (let () (declare (not safe)) - (gxc#apply-optimize-annotated _stx156136_)))) + (gxc#apply-optimize-annotated _stx156141_)))) (declare (not safe)) - (gxc#apply-optimize-call _stx156139_))))) + (gxc#apply-optimize-call _stx156144_))))) (define gxc#&generate-ssxi (make-promise (lambda () - (let ((_tbl156129_ + (let ((_tbl156134_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let ((__tmp156579 (force gxc#&generate-runtime-empty))) + (let ((__tmp156584 (force gxc#&generate-runtime-empty))) (declare (not safe)) - (hash-merge! _tbl156129_ __tmp156579)) + (hash-merge! _tbl156134_ __tmp156584)) (let () (declare (not safe)) - (hash-put! _tbl156129_ '%#begin gxc#generate-runtime-begin%)) + (hash-put! _tbl156134_ '%#begin gxc#generate-runtime-begin%)) (let () (declare (not safe)) (hash-put! - _tbl156129_ + _tbl156134_ '%#begin-syntax gxc#generate-ssxi-begin-syntax%)) (let () (declare (not safe)) - (hash-put! _tbl156129_ '%#module gxc#generate-ssxi-module%)) + (hash-put! _tbl156134_ '%#module gxc#generate-ssxi-module%)) (let () (declare (not safe)) (hash-put! - _tbl156129_ + _tbl156134_ '%#define-values gxc#generate-ssxi-define-values%)) (let () (declare (not safe)) - (hash-put! _tbl156129_ '%#call gxc#generate-ssxi-call%)) - _tbl156129_)))) + (hash-put! _tbl156134_ '%#call gxc#generate-ssxi-call%)) + _tbl156134_)))) (define gxc#apply-generate-ssxi - (lambda (_stx156112_ . _args156114_) - (let ((__tmp156581 + (lambda (_stx156117_ . _args156119_) + (let ((__tmp156586 (lambda () (declare (not safe)) - (if (null? _args156114_) - (gxc#compile-e__0 _stx156112_) - (let ((_arg1156119_ (car _args156114_)) - (_rest156121_ (cdr _args156114_))) - (if (null? _rest156121_) - (gxc#compile-e__1 _stx156112_ _arg1156119_) - (let ((_arg2156124_ (car _rest156121_)) - (_rest156126_ (cdr _rest156121_))) - (if (null? _rest156126_) + (if (null? _args156119_) + (gxc#compile-e__0 _stx156117_) + (let ((_arg1156124_ (car _args156119_)) + (_rest156126_ (cdr _args156119_))) + (if (null? _rest156126_) + (gxc#compile-e__1 _stx156117_ _arg1156124_) + (let ((_arg2156129_ (car _rest156126_)) + (_rest156131_ (cdr _rest156126_))) + (if (null? _rest156131_) (gxc#compile-e__2 - _stx156112_ - _arg1156119_ - _arg2156124_) + _stx156117_ + _arg1156124_ + _arg2156129_) (apply gxc#compile-e - _stx156112_ - _arg1156119_ - _arg2156124_ - _rest156126_)))))))) - (__tmp156580 (force gxc#&generate-ssxi))) + _stx156117_ + _arg1156124_ + _arg2156129_ + _rest156131_)))))))) + (__tmp156585 (force gxc#&generate-ssxi))) (declare (not safe)) (call-with-parameters - __tmp156581 + __tmp156586 gxc#current-compile-methods - __tmp156580)))) + __tmp156585)))) (define gxc#generate-ssxi-begin-syntax% - (lambda (_stx156073_) - (let* ((_g156075156085_ - (lambda (_g156076156082_) + (lambda (_stx156078_) + (let* ((_g156080156090_ + (lambda (_g156081156087_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g156076156082_)))) - (_g156074156109_ - (lambda (_g156076156088_) + _g156081156087_)))) + (_g156079156114_ + (lambda (_g156081156093_) (if (let () (declare (not safe)) - (gx#stx-pair? _g156076156088_)) - (let ((_e156080156090_ + (gx#stx-pair? _g156081156093_)) + (let ((_e156085156095_ (let () (declare (not safe)) - (gx#stx-e _g156076156088_)))) - (let ((_hd156079156093_ + (gx#stx-e _g156081156093_)))) + (let ((_hd156084156098_ (let () (declare (not safe)) - (##car _e156080156090_))) - (_tl156078156095_ + (##car _e156085156095_))) + (_tl156083156100_ (let () (declare (not safe)) - (##cdr _e156080156090_)))) - ((lambda (_L156098_) - (let ((__tmp156584 + (##cdr _e156085156095_)))) + ((lambda (_L156103_) + (let ((__tmp156589 (lambda () (let () (declare (not safe)) (gxc#generate-runtime-begin% - _stx156073_)))) - (__tmp156582 - (let ((__tmp156583 + _stx156078_)))) + (__tmp156587 + (let ((__tmp156588 (gx#current-expander-phi))) (declare (not safe)) - (fx+ __tmp156583 '1)))) + (fx+ __tmp156588 '1)))) (declare (not safe)) (call-with-parameters - __tmp156584 + __tmp156589 gx#current-expander-phi - __tmp156582))) - _tl156078156095_))) + __tmp156587))) + _tl156083156100_))) (let () (declare (not safe)) - (_g156075156085_ _g156076156088_)))))) + (_g156080156090_ _g156081156093_)))))) (declare (not safe)) - (_g156074156109_ _stx156073_)))) + (_g156079156114_ _stx156078_)))) (define gxc#generate-ssxi-module% - (lambda (_stx156013_) - (let* ((_g156015156029_ - (lambda (_g156016156026_) + (lambda (_stx156018_) + (let* ((_g156020156034_ + (lambda (_g156021156031_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g156016156026_)))) - (_g156014156070_ - (lambda (_g156016156032_) + _g156021156031_)))) + (_g156019156075_ + (lambda (_g156021156037_) (if (let () (declare (not safe)) - (gx#stx-pair? _g156016156032_)) - (let ((_e156021156034_ + (gx#stx-pair? _g156021156037_)) + (let ((_e156026156039_ (let () (declare (not safe)) - (gx#stx-e _g156016156032_)))) - (let ((_hd156020156037_ + (gx#stx-e _g156021156037_)))) + (let ((_hd156025156042_ (let () (declare (not safe)) - (##car _e156021156034_))) - (_tl156019156039_ + (##car _e156026156039_))) + (_tl156024156044_ (let () (declare (not safe)) - (##cdr _e156021156034_)))) + (##cdr _e156026156039_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl156019156039_)) - (let ((_e156024156042_ + (gx#stx-pair? _tl156024156044_)) + (let ((_e156029156047_ (let () (declare (not safe)) - (gx#stx-e _tl156019156039_)))) - (let ((_hd156023156045_ + (gx#stx-e _tl156024156044_)))) + (let ((_hd156028156050_ (let () (declare (not safe)) - (##car _e156024156042_))) - (_tl156022156047_ + (##car _e156029156047_))) + (_tl156027156052_ (let () (declare (not safe)) - (##cdr _e156024156042_)))) - ((lambda (_L156050_ _L156051_) - (let* ((_ctx156064_ + (##cdr _e156029156047_)))) + ((lambda (_L156055_ _L156056_) + (let* ((_ctx156069_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _L156051_))) - (_code156066_ + _L156056_))) + (_code156071_ (##structure-ref - _ctx156064_ + _ctx156069_ '11 gx#module-context::t '#f))) - (let ((__tmp156585 + (let ((__tmp156590 (lambda () (let () (declare (not safe)) (gxc#compile-e__0 - _code156066_))))) + _code156071_))))) (declare (not safe)) (call-with-parameters - __tmp156585 + __tmp156590 gx#current-expander-context - _ctx156064_)))) - _tl156022156047_ - _hd156023156045_))) + _ctx156069_)))) + _tl156027156052_ + _hd156028156050_))) (let () (declare (not safe)) - (_g156015156029_ _g156016156032_))))) + (_g156020156034_ _g156021156037_))))) (let () (declare (not safe)) - (_g156015156029_ _g156016156032_)))))) + (_g156020156034_ _g156021156037_)))))) (declare (not safe)) - (_g156014156070_ _stx156013_)))) + (_g156019156075_ _stx156018_)))) (define gxc#generate-ssxi-define-values% - (lambda (_stx155823_) - (letrec ((_generate-e155825_ - (lambda (_id156002_) - (let* ((_sym156004_ - (if (let ((__tmp156586 + (lambda (_stx155828_) + (letrec ((_generate-e155830_ + (lambda (_id156007_) + (let* ((_sym156009_ + (if (let ((__tmp156591 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'id)))) (declare (not safe)) - (gx#identifier? __tmp156586)) + (gx#identifier? __tmp156591)) (let () (declare (not safe)) - (gxc#identifier-symbol _id156002_)) + (gxc#identifier-symbol _id156007_)) '#f)) - (_$e156006_ - (if _sym156004_ + (_$e156011_ + (if _sym156009_ (let () (declare (not safe)) - (gxc#optimizer-lookup-type _sym156004_)) + (gxc#optimizer-lookup-type _sym156009_)) '#f))) - (if _$e156006_ - ((lambda (_type156009_) + (if _$e156011_ + ((lambda (_type156014_) (let () (declare (not safe)) - (gxc#verbose '"generate typedecl " _sym156004_)) - (let* ((_typedecl156011_ - (let ((__method156554 + (gxc#verbose '"generate typedecl " _sym156009_)) + (let* ((_typedecl156016_ + (let ((__method156559 (let () (declare (not safe)) (method-ref - _type156009_ + _type156014_ 'typedecl)))) - (if __method156554 - (__method156554 _type156009_) + (if __method156559 + (__method156559 _type156014_) (let () (declare (not safe)) (error '"Missing method" - _type156009_ + _type156014_ 'typedecl))))) - (__tmp156587 - (let ((__tmp156588 + (__tmp156592 + (let ((__tmp156593 (let () (declare (not safe)) - (cons _typedecl156011_ '())))) + (cons _typedecl156016_ '())))) (declare (not safe)) - (cons _sym156004_ __tmp156588)))) + (cons _sym156009_ __tmp156593)))) (declare (not safe)) - (cons 'declare-type __tmp156587))) - _$e156006_) + (cons 'declare-type __tmp156592))) + _$e156011_) '(begin)))))) - (let* ((___stx156252156253_ _stx155823_) - (_g155828155866_ + (let* ((___stx156257156258_ _stx155828_) + (_g155833155871_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx156252156253_))))) - (let ((___kont156254156255_ - (lambda (_L155984_) + ___stx156257156258_))))) + (let ((___kont156259156260_ + (lambda (_L155989_) (let () (declare (not safe)) - (_generate-e155825_ _L155984_)))) - (___kont156256156257_ - (lambda (_L155919_) - (let ((_types155945_ - (map _generate-e155825_ - (let ((__tmp156589 - (lambda (_g155937155940_ - _g155938155942_) + (_generate-e155830_ _L155989_)))) + (___kont156261156262_ + (lambda (_L155924_) + (let ((_types155950_ + (map _generate-e155830_ + (let ((__tmp156594 + (lambda (_g155942155945_ + _g155943155947_) (let () (declare (not safe)) - (cons _g155937155940_ - _g155938155942_))))) + (cons _g155942155945_ + _g155943155947_))))) (declare (not safe)) - (foldr1 __tmp156589 '() _L155919_))))) + (foldr1 __tmp156594 '() _L155924_))))) (declare (not safe)) - (cons 'begin _types155945_))))) - (let ((___match156307156308_ - (lambda (_e155846155871_ - _hd155845155874_ - _tl155844155876_ - _e155849155879_ - _hd155848155882_ - _tl155847155884_ - ___splice156258156259_ - _target155850155887_ - _tl155852155889_) - (letrec ((_loop155853155892_ - (lambda (_hd155851155895_ _id155857155897_) + (cons 'begin _types155950_))))) + (let ((___match156312156313_ + (lambda (_e155851155876_ + _hd155850155879_ + _tl155849155881_ + _e155854155884_ + _hd155853155887_ + _tl155852155889_ + ___splice156263156264_ + _target155855155892_ + _tl155857155894_) + (letrec ((_loop155858155897_ + (lambda (_hd155856155900_ _id155862155902_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd155851155895_)) - (let ((_e155854155900_ + (gx#stx-pair? _hd155856155900_)) + (let ((_e155859155905_ (let () (declare (not safe)) - (gx#stx-e _hd155851155895_)))) - (let ((_lp-tl155856155905_ + (gx#stx-e _hd155856155900_)))) + (let ((_lp-tl155861155910_ (let () (declare (not safe)) - (##cdr _e155854155900_))) - (_lp-hd155855155903_ + (##cdr _e155859155905_))) + (_lp-hd155860155908_ (let () (declare (not safe)) - (##car _e155854155900_)))) - (let ((__tmp156590 + (##car _e155859155905_)))) + (let ((__tmp156595 (let () (declare (not safe)) - (cons _lp-hd155855155903_ - _id155857155897_)))) + (cons _lp-hd155860155908_ + _id155862155902_)))) (declare (not safe)) - (_loop155853155892_ - _lp-tl155856155905_ - __tmp156590)))) - (let ((_id155858155908_ - (reverse _id155857155897_))) + (_loop155858155897_ + _lp-tl155861155910_ + __tmp156595)))) + (let ((_id155863155913_ + (reverse _id155862155902_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl155847155884_)) - (let ((_e155861155911_ + (gx#stx-pair? _tl155852155889_)) + (let ((_e155866155916_ (let () (declare (not safe)) (gx#stx-e - _tl155847155884_)))) - (let ((_tl155859155916_ + _tl155852155889_)))) + (let ((_tl155864155921_ (let () (declare (not safe)) - (##cdr _e155861155911_))) - (_hd155860155914_ + (##cdr _e155866155916_))) + (_hd155865155919_ (let () (declare (not safe)) - (##car _e155861155911_)))) + (##car _e155866155916_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl155859155916_)) - (___kont156256156257_ - _id155858155908_) + _tl155864155921_)) + (___kont156261156262_ + _id155863155913_) (let () (declare (not safe)) - (_g155828155866_))))) + (_g155833155871_))))) (let () (declare (not safe)) - (_g155828155866_)))))))) + (_g155833155871_)))))))) (let () (declare (not safe)) - (_loop155853155892_ _target155850155887_ '())))))) + (_loop155858155897_ _target155855155892_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx156252156253_)) - (let ((_e155833155952_ + (gx#stx-pair? ___stx156257156258_)) + (let ((_e155838155957_ (let () (declare (not safe)) - (gx#stx-e ___stx156252156253_)))) - (let ((_tl155831155957_ + (gx#stx-e ___stx156257156258_)))) + (let ((_tl155836155962_ (let () (declare (not safe)) - (##cdr _e155833155952_))) - (_hd155832155955_ + (##cdr _e155838155957_))) + (_hd155837155960_ (let () (declare (not safe)) - (##car _e155833155952_)))) + (##car _e155838155957_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl155831155957_)) - (let ((_e155836155960_ + (gx#stx-pair? _tl155836155962_)) + (let ((_e155841155965_ (let () (declare (not safe)) - (gx#stx-e _tl155831155957_)))) - (let ((_tl155834155965_ + (gx#stx-e _tl155836155962_)))) + (let ((_tl155839155970_ (let () (declare (not safe)) - (##cdr _e155836155960_))) - (_hd155835155963_ + (##cdr _e155841155965_))) + (_hd155840155968_ (let () (declare (not safe)) - (##car _e155836155960_)))) + (##car _e155841155965_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd155835155963_)) - (let ((_e155839155968_ + (gx#stx-pair? _hd155840155968_)) + (let ((_e155844155973_ (let () (declare (not safe)) - (gx#stx-e _hd155835155963_)))) - (let ((_tl155837155973_ + (gx#stx-e _hd155840155968_)))) + (let ((_tl155842155978_ (let () (declare (not safe)) - (##cdr _e155839155968_))) - (_hd155838155971_ + (##cdr _e155844155973_))) + (_hd155843155976_ (let () (declare (not safe)) - (##car _e155839155968_)))) + (##car _e155844155973_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl155837155973_)) + (gx#stx-null? _tl155842155978_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl155834155965_)) - (let ((_e155842155976_ + _tl155839155970_)) + (let ((_e155847155981_ (let () (declare (not safe)) (gx#stx-e - _tl155834155965_)))) - (let ((_tl155840155981_ + _tl155839155970_)))) + (let ((_tl155845155986_ (let () (declare (not safe)) - (##cdr _e155842155976_))) - (_hd155841155979_ + (##cdr _e155847155981_))) + (_hd155846155984_ (let () (declare (not safe)) - (##car _e155842155976_)))) + (##car _e155847155981_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl155840155981_)) - (___kont156254156255_ - _hd155838155971_) + _tl155845155986_)) + (___kont156259156260_ + _hd155843155976_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd155835155963_)) - (let ((___splice156258156259_ + _hd155840155968_)) + (let ((___splice156263156264_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _hd155835155963_ '0)))) - (let ((_tl155852155889_ + (gx#syntax-split-splice _hd155840155968_ '0)))) + (let ((_tl155857155894_ (let () (declare (not safe)) - (##vector-ref ___splice156258156259_ '1))) - (_target155850155887_ + (##vector-ref ___splice156263156264_ '1))) + (_target155855155892_ (let () (declare (not safe)) - (##vector-ref ___splice156258156259_ '0)))) + (##vector-ref ___splice156263156264_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl155852155889_)) - (___match156307156308_ - _e155833155952_ - _hd155832155955_ - _tl155831155957_ - _e155836155960_ - _hd155835155963_ - _tl155834155965_ - ___splice156258156259_ - _target155850155887_ - _tl155852155889_) - (let () (declare (not safe)) (_g155828155866_))))) - (let () (declare (not safe)) (_g155828155866_)))))) + (gx#stx-null? _tl155857155894_)) + (___match156312156313_ + _e155838155957_ + _hd155837155960_ + _tl155836155962_ + _e155841155965_ + _hd155840155968_ + _tl155839155970_ + ___splice156263156264_ + _target155855155892_ + _tl155857155894_) + (let () (declare (not safe)) (_g155833155871_))))) + (let () (declare (not safe)) (_g155833155871_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd155835155963_)) - (let ((___splice156258156259_ + _hd155840155968_)) + (let ((___splice156263156264_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd155835155963_ + _hd155840155968_ '0)))) - (let ((_tl155852155889_ + (let ((_tl155857155894_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref ___splice156258156259_ '1))) - (_target155850155887_ + (##vector-ref ___splice156263156264_ '1))) + (_target155855155892_ (let () (declare (not safe)) - (##vector-ref ___splice156258156259_ '0)))) + (##vector-ref ___splice156263156264_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl155852155889_)) - (___match156307156308_ - _e155833155952_ - _hd155832155955_ - _tl155831155957_ - _e155836155960_ - _hd155835155963_ - _tl155834155965_ - ___splice156258156259_ - _target155850155887_ - _tl155852155889_) - (let () (declare (not safe)) (_g155828155866_))))) + (gx#stx-null? _tl155857155894_)) + (___match156312156313_ + _e155838155957_ + _hd155837155960_ + _tl155836155962_ + _e155841155965_ + _hd155840155968_ + _tl155839155970_ + ___splice156263156264_ + _target155855155892_ + _tl155857155894_) + (let () (declare (not safe)) (_g155833155871_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g155828155866_)))) + (_g155833155871_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd155835155963_)) - (let ((___splice156258156259_ + _hd155840155968_)) + (let ((___splice156263156264_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd155835155963_ + _hd155840155968_ '0)))) - (let ((_tl155852155889_ + (let ((_tl155857155894_ (let () (declare (not safe)) (##vector-ref - ___splice156258156259_ + ___splice156263156264_ '1))) - (_target155850155887_ + (_target155855155892_ (let () (declare (not safe)) (##vector-ref - ___splice156258156259_ + ___splice156263156264_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl155852155889_)) - (___match156307156308_ - _e155833155952_ - _hd155832155955_ - _tl155831155957_ - _e155836155960_ - _hd155835155963_ - _tl155834155965_ - ___splice156258156259_ - _target155850155887_ - _tl155852155889_) + _tl155857155894_)) + (___match156312156313_ + _e155838155957_ + _hd155837155960_ + _tl155836155962_ + _e155841155965_ + _hd155840155968_ + _tl155839155970_ + ___splice156263156264_ + _target155855155892_ + _tl155857155894_) (let () (declare (not safe)) - (_g155828155866_))))) + (_g155833155871_))))) (let () (declare (not safe)) - (_g155828155866_)))))) + (_g155833155871_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd155835155963_)) - (let ((___splice156258156259_ + (gx#stx-pair/null? _hd155840155968_)) + (let ((___splice156263156264_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd155835155963_ + _hd155840155968_ '0)))) - (let ((_tl155852155889_ + (let ((_tl155857155894_ (let () (declare (not safe)) (##vector-ref - ___splice156258156259_ + ___splice156263156264_ '1))) - (_target155850155887_ + (_target155855155892_ (let () (declare (not safe)) (##vector-ref - ___splice156258156259_ + ___splice156263156264_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl155852155889_)) - (___match156307156308_ - _e155833155952_ - _hd155832155955_ - _tl155831155957_ - _e155836155960_ - _hd155835155963_ - _tl155834155965_ - ___splice156258156259_ - _target155850155887_ - _tl155852155889_) + _tl155857155894_)) + (___match156312156313_ + _e155838155957_ + _hd155837155960_ + _tl155836155962_ + _e155841155965_ + _hd155840155968_ + _tl155839155970_ + ___splice156263156264_ + _target155855155892_ + _tl155857155894_) (let () (declare (not safe)) - (_g155828155866_))))) + (_g155833155871_))))) (let () (declare (not safe)) - (_g155828155866_)))))) - (let () (declare (not safe)) (_g155828155866_))))) - (let () (declare (not safe)) (_g155828155866_))))))))) + (_g155833155871_)))))) + (let () (declare (not safe)) (_g155833155871_))))) + (let () (declare (not safe)) (_g155833155871_))))))))) (define gxc#generate-ssxi-call% - (lambda (_stx155377_) - (let* ((___stx156310156311_ _stx155377_) - (_g155381155483_ + (lambda (_stx155382_) + (let* ((___stx156315156316_ _stx155382_) + (_g155386155488_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx156310156311_))))) - (let ((___kont156312156313_ - (lambda (_L155773_ _L155774_ _L155775_ _L155776_ _L155777_) - (let ((__tmp156591 - (let ((__tmp156598 + ___stx156315156316_))))) + (let ((___kont156317156318_ + (lambda (_L155778_ _L155779_ _L155780_ _L155781_ _L155782_) + (let ((__tmp156596 + (let ((__tmp156603 (let () (declare (not safe)) - (gxc#identifier-symbol _L155776_))) - (__tmp156592 - (let ((__tmp156597 + (gxc#identifier-symbol _L155781_))) + (__tmp156597 + (let ((__tmp156602 (let () (declare (not safe)) - (gx#stx-e _L155775_))) - (__tmp156593 - (let ((__tmp156596 + (gx#stx-e _L155780_))) + (__tmp156598 + (let ((__tmp156601 (let () (declare (not safe)) (gxc#identifier-symbol - _L155774_))) - (__tmp156594 - (let ((__tmp156595 + _L155779_))) + (__tmp156599 + (let ((__tmp156600 (let () (declare (not safe)) - (gx#stx-e _L155773_)))) + (gx#stx-e _L155778_)))) (declare (not safe)) - (cons __tmp156595 '())))) + (cons __tmp156600 '())))) (declare (not safe)) - (cons __tmp156596 __tmp156594)))) + (cons __tmp156601 __tmp156599)))) (declare (not safe)) - (cons __tmp156597 __tmp156593)))) + (cons __tmp156602 __tmp156598)))) (declare (not safe)) - (cons __tmp156598 __tmp156592)))) + (cons __tmp156603 __tmp156597)))) (declare (not safe)) - (cons 'declare-method __tmp156591)))) - (___kont156314156315_ - (lambda (_L155599_ _L155600_ _L155601_ _L155602_) - (let ((__tmp156599 - (let ((__tmp156605 + (cons 'declare-method __tmp156596)))) + (___kont156319156320_ + (lambda (_L155604_ _L155605_ _L155606_ _L155607_) + (let ((__tmp156604 + (let ((__tmp156610 (let () (declare (not safe)) - (gxc#identifier-symbol _L155601_))) - (__tmp156600 - (let ((__tmp156604 + (gxc#identifier-symbol _L155606_))) + (__tmp156605 + (let ((__tmp156609 (let () (declare (not safe)) - (gx#stx-e _L155600_))) - (__tmp156601 - (let ((__tmp156603 + (gx#stx-e _L155605_))) + (__tmp156606 + (let ((__tmp156608 (let () (declare (not safe)) (gxc#identifier-symbol - _L155599_))) - (__tmp156602 + _L155604_))) + (__tmp156607 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons __tmp156603 __tmp156602)))) + (cons __tmp156608 __tmp156607)))) (declare (not safe)) - (cons __tmp156604 __tmp156601)))) + (cons __tmp156609 __tmp156606)))) (declare (not safe)) - (cons __tmp156605 __tmp156600)))) + (cons __tmp156610 __tmp156605)))) (declare (not safe)) - (cons 'declare-method __tmp156599)))) - (___kont156316156317_ (lambda () '(begin)))) - (let ((___match156445156446_ - (lambda (_e155390155645_ - _hd155389155648_ - _tl155388155650_ - _e155393155653_ - _hd155392155656_ - _tl155391155658_ - _e155396155661_ - _hd155395155664_ - _tl155394155666_ - _e155399155669_ - _hd155398155672_ - _tl155397155674_ - _e155402155677_ - _hd155401155680_ - _tl155400155682_ - _e155405155685_ - _hd155404155688_ - _tl155403155690_ - _e155408155693_ - _hd155407155696_ - _tl155406155698_ - _e155411155701_ - _hd155410155704_ - _tl155409155706_ - _e155414155709_ - _hd155413155712_ - _tl155412155714_ - _e155417155717_ - _hd155416155720_ - _tl155415155722_ - _e155420155725_ - _hd155419155728_ - _tl155418155730_ - _e155423155733_ - _hd155422155736_ - _tl155421155738_ - _e155426155741_ - _hd155425155744_ - _tl155424155746_ - _e155429155749_ - _hd155428155752_ - _tl155427155754_ - _e155432155757_ - _hd155431155760_ - _tl155430155762_ - _e155435155765_ - _hd155434155768_ - _tl155433155770_) - (let ((_L155773_ _hd155434155768_) - (_L155774_ _hd155425155744_) - (_L155775_ _hd155416155720_) - (_L155776_ _hd155407155696_) - (_L155777_ _hd155398155672_)) + (cons 'declare-method __tmp156604)))) + (___kont156321156322_ (lambda () '(begin)))) + (let ((___match156450156451_ + (lambda (_e155395155650_ + _hd155394155653_ + _tl155393155655_ + _e155398155658_ + _hd155397155661_ + _tl155396155663_ + _e155401155666_ + _hd155400155669_ + _tl155399155671_ + _e155404155674_ + _hd155403155677_ + _tl155402155679_ + _e155407155682_ + _hd155406155685_ + _tl155405155687_ + _e155410155690_ + _hd155409155693_ + _tl155408155695_ + _e155413155698_ + _hd155412155701_ + _tl155411155703_ + _e155416155706_ + _hd155415155709_ + _tl155414155711_ + _e155419155714_ + _hd155418155717_ + _tl155417155719_ + _e155422155722_ + _hd155421155725_ + _tl155420155727_ + _e155425155730_ + _hd155424155733_ + _tl155423155735_ + _e155428155738_ + _hd155427155741_ + _tl155426155743_ + _e155431155746_ + _hd155430155749_ + _tl155429155751_ + _e155434155754_ + _hd155433155757_ + _tl155432155759_ + _e155437155762_ + _hd155436155765_ + _tl155435155767_ + _e155440155770_ + _hd155439155773_ + _tl155438155775_) + (let ((_L155778_ _hd155439155773_) + (_L155779_ _hd155430155749_) + (_L155780_ _hd155421155725_) + (_L155781_ _hd155412155701_) + (_L155782_ _hd155403155677_)) (if (let () (declare (not safe)) (gxc#runtime-identifier=? - _L155777_ + _L155782_ 'bind-method!)) - (___kont156312156313_ - _L155773_ - _L155774_ - _L155775_ - _L155776_ - _L155777_) - (___kont156316156317_)))))) + (___kont156317156318_ + _L155778_ + _L155779_ + _L155780_ + _L155781_ + _L155782_) + (___kont156321156322_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx156310156311_)) - (let ((_e155390155645_ + (gx#stx-pair? ___stx156315156316_)) + (let ((_e155395155650_ (let () (declare (not safe)) - (gx#stx-e ___stx156310156311_)))) - (let ((_tl155388155650_ + (gx#stx-e ___stx156315156316_)))) + (let ((_tl155393155655_ (let () (declare (not safe)) - (##cdr _e155390155645_))) - (_hd155389155648_ + (##cdr _e155395155650_))) + (_hd155394155653_ (let () (declare (not safe)) - (##car _e155390155645_)))) + (##car _e155395155650_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl155388155650_)) - (let ((_e155393155653_ + (gx#stx-pair? _tl155393155655_)) + (let ((_e155398155658_ (let () (declare (not safe)) - (gx#stx-e _tl155388155650_)))) - (let ((_tl155391155658_ + (gx#stx-e _tl155393155655_)))) + (let ((_tl155396155663_ (let () (declare (not safe)) - (##cdr _e155393155653_))) - (_hd155392155656_ + (##cdr _e155398155658_))) + (_hd155397155661_ (let () (declare (not safe)) - (##car _e155393155653_)))) + (##car _e155398155658_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd155392155656_)) - (let ((_e155396155661_ + (gx#stx-pair? _hd155397155661_)) + (let ((_e155401155666_ (let () (declare (not safe)) - (gx#stx-e _hd155392155656_)))) - (let ((_tl155394155666_ + (gx#stx-e _hd155397155661_)))) + (let ((_tl155399155671_ (let () (declare (not safe)) - (##cdr _e155396155661_))) - (_hd155395155664_ + (##cdr _e155401155666_))) + (_hd155400155669_ (let () (declare (not safe)) - (##car _e155396155661_)))) + (##car _e155401155666_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd155395155664_)) + (gx#identifier? _hd155400155669_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd155395155664_)) + _hd155400155669_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl155394155666_)) - (let ((_e155399155669_ + _tl155399155671_)) + (let ((_e155404155674_ (let () (declare (not safe)) (gx#stx-e - _tl155394155666_)))) - (let ((_tl155397155674_ + _tl155399155671_)))) + (let ((_tl155402155679_ (let () (declare (not safe)) - (##cdr _e155399155669_))) - (_hd155398155672_ + (##cdr _e155404155674_))) + (_hd155403155677_ (let () (declare (not safe)) - (##car _e155399155669_)))) + (##car _e155404155674_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl155397155674_)) + _tl155402155679_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl155391155658_)) - (let ((_e155402155677_ + (gx#stx-pair? _tl155396155663_)) + (let ((_e155407155682_ (let () (declare (not safe)) - (gx#stx-e _tl155391155658_)))) - (let ((_tl155400155682_ + (gx#stx-e _tl155396155663_)))) + (let ((_tl155405155687_ (let () (declare (not safe)) - (##cdr _e155402155677_))) - (_hd155401155680_ + (##cdr _e155407155682_))) + (_hd155406155685_ (let () (declare (not safe)) - (##car _e155402155677_)))) + (##car _e155407155682_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd155401155680_)) - (let ((_e155405155685_ + (gx#stx-pair? _hd155406155685_)) + (let ((_e155410155690_ (let () (declare (not safe)) - (gx#stx-e _hd155401155680_)))) - (let ((_tl155403155690_ + (gx#stx-e _hd155406155685_)))) + (let ((_tl155408155695_ (let () (declare (not safe)) - (##cdr _e155405155685_))) - (_hd155404155688_ + (##cdr _e155410155690_))) + (_hd155409155693_ (let () (declare (not safe)) - (##car _e155405155685_)))) + (##car _e155410155690_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd155404155688_)) + (gx#identifier? _hd155409155693_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd155404155688_)) + _hd155409155693_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl155403155690_)) - (let ((_e155408155693_ + _tl155408155695_)) + (let ((_e155413155698_ (let () (declare (not safe)) (gx#stx-e - _tl155403155690_)))) - (let ((_tl155406155698_ + _tl155408155695_)))) + (let ((_tl155411155703_ (let () (declare (not safe)) - (##cdr _e155408155693_))) - (_hd155407155696_ + (##cdr _e155413155698_))) + (_hd155412155701_ (let () (declare (not safe)) - (##car _e155408155693_)))) + (##car _e155413155698_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl155406155698_)) + _tl155411155703_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl155400155682_)) - (let ((_e155411155701_ + _tl155405155687_)) + (let ((_e155416155706_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl155400155682_)))) - (let ((_tl155409155706_ + (gx#stx-e _tl155405155687_)))) + (let ((_tl155414155711_ (let () (declare (not safe)) - (##cdr _e155411155701_))) - (_hd155410155704_ + (##cdr _e155416155706_))) + (_hd155415155709_ (let () (declare (not safe)) - (##car _e155411155701_)))) + (##car _e155416155706_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd155410155704_)) - (let ((_e155414155709_ + (gx#stx-pair? _hd155415155709_)) + (let ((_e155419155714_ (let () (declare (not safe)) - (gx#stx-e _hd155410155704_)))) - (let ((_tl155412155714_ + (gx#stx-e _hd155415155709_)))) + (let ((_tl155417155719_ (let () (declare (not safe)) - (##cdr _e155414155709_))) - (_hd155413155712_ + (##cdr _e155419155714_))) + (_hd155418155717_ (let () (declare (not safe)) - (##car _e155414155709_)))) + (##car _e155419155714_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd155413155712_)) + (gx#identifier? _hd155418155717_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd155413155712_)) + (gx#stx-eq? '%#quote _hd155418155717_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl155412155714_)) - (let ((_e155417155717_ + (gx#stx-pair? _tl155417155719_)) + (let ((_e155422155722_ (let () (declare (not safe)) (gx#stx-e - _tl155412155714_)))) - (let ((_tl155415155722_ + _tl155417155719_)))) + (let ((_tl155420155727_ (let () (declare (not safe)) - (##cdr _e155417155717_))) - (_hd155416155720_ + (##cdr _e155422155722_))) + (_hd155421155725_ (let () (declare (not safe)) - (##car _e155417155717_)))) + (##car _e155422155722_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl155415155722_)) + _tl155420155727_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl155409155706_)) - (let ((_e155420155725_ + _tl155414155711_)) + (let ((_e155425155730_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl155409155706_)))) - (let ((_tl155418155730_ - (let () (declare (not safe)) (##cdr _e155420155725_))) - (_hd155419155728_ - (let () (declare (not safe)) (##car _e155420155725_)))) + (gx#stx-e _tl155414155711_)))) + (let ((_tl155423155735_ + (let () (declare (not safe)) (##cdr _e155425155730_))) + (_hd155424155733_ + (let () (declare (not safe)) (##car _e155425155730_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd155419155728_)) - (let ((_e155423155733_ + (gx#stx-pair? _hd155424155733_)) + (let ((_e155428155738_ (let () (declare (not safe)) - (gx#stx-e _hd155419155728_)))) - (let ((_tl155421155738_ + (gx#stx-e _hd155424155733_)))) + (let ((_tl155426155743_ (let () (declare (not safe)) - (##cdr _e155423155733_))) - (_hd155422155736_ + (##cdr _e155428155738_))) + (_hd155427155741_ (let () (declare (not safe)) - (##car _e155423155733_)))) + (##car _e155428155738_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd155422155736_)) + (gx#identifier? _hd155427155741_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd155422155736_)) + (gx#stx-eq? '%#ref _hd155427155741_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl155421155738_)) - (let ((_e155426155741_ + (gx#stx-pair? _tl155426155743_)) + (let ((_e155431155746_ (let () (declare (not safe)) - (gx#stx-e _tl155421155738_)))) - (let ((_tl155424155746_ + (gx#stx-e _tl155426155743_)))) + (let ((_tl155429155751_ (let () (declare (not safe)) - (##cdr _e155426155741_))) - (_hd155425155744_ + (##cdr _e155431155746_))) + (_hd155430155749_ (let () (declare (not safe)) - (##car _e155426155741_)))) + (##car _e155431155746_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl155424155746_)) + _tl155429155751_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl155418155730_)) - (let ((_e155429155749_ + _tl155423155735_)) + (let ((_e155434155754_ (let () (declare (not safe)) (gx#stx-e - _tl155418155730_)))) - (let ((_tl155427155754_ + _tl155423155735_)))) + (let ((_tl155432155759_ (let () (declare (not safe)) - (##cdr _e155429155749_))) - (_hd155428155752_ + (##cdr _e155434155754_))) + (_hd155433155757_ (let () (declare (not safe)) - (##car _e155429155749_)))) + (##car _e155434155754_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd155428155752_)) - (let ((_e155432155757_ + _hd155433155757_)) + (let ((_e155437155762_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd155428155752_)))) - (let ((_tl155430155762_ + (gx#stx-e _hd155433155757_)))) + (let ((_tl155435155767_ (let () (declare (not safe)) - (##cdr _e155432155757_))) - (_hd155431155760_ + (##cdr _e155437155762_))) + (_hd155436155765_ (let () (declare (not safe)) - (##car _e155432155757_)))) + (##car _e155437155762_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd155431155760_)) + (gx#identifier? _hd155436155765_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd155431155760_)) + (gx#stx-eq? '%#quote _hd155436155765_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl155430155762_)) - (let ((_e155435155765_ + (gx#stx-pair? _tl155435155767_)) + (let ((_e155440155770_ (let () (declare (not safe)) - (gx#stx-e _tl155430155762_)))) - (let ((_tl155433155770_ + (gx#stx-e _tl155435155767_)))) + (let ((_tl155438155775_ (let () (declare (not safe)) - (##cdr _e155435155765_))) - (_hd155434155768_ + (##cdr _e155440155770_))) + (_hd155439155773_ (let () (declare (not safe)) - (##car _e155435155765_)))) + (##car _e155440155770_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl155433155770_)) + (gx#stx-null? _tl155438155775_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl155427155754_)) - (___match156445156446_ - _e155390155645_ - _hd155389155648_ - _tl155388155650_ - _e155393155653_ - _hd155392155656_ - _tl155391155658_ - _e155396155661_ - _hd155395155664_ - _tl155394155666_ - _e155399155669_ - _hd155398155672_ - _tl155397155674_ - _e155402155677_ - _hd155401155680_ - _tl155400155682_ - _e155405155685_ - _hd155404155688_ - _tl155403155690_ - _e155408155693_ - _hd155407155696_ - _tl155406155698_ - _e155411155701_ - _hd155410155704_ - _tl155409155706_ - _e155414155709_ - _hd155413155712_ - _tl155412155714_ - _e155417155717_ - _hd155416155720_ - _tl155415155722_ - _e155420155725_ - _hd155419155728_ - _tl155418155730_ - _e155423155733_ - _hd155422155736_ - _tl155421155738_ - _e155426155741_ - _hd155425155744_ - _tl155424155746_ - _e155429155749_ - _hd155428155752_ - _tl155427155754_ - _e155432155757_ - _hd155431155760_ - _tl155430155762_ - _e155435155765_ - _hd155434155768_ - _tl155433155770_) - (___kont156316156317_)) - (___kont156316156317_)))) - (___kont156316156317_)) - (___kont156316156317_)) - (___kont156316156317_)))) - (___kont156316156317_)))) + _tl155432155759_)) + (___match156450156451_ + _e155395155650_ + _hd155394155653_ + _tl155393155655_ + _e155398155658_ + _hd155397155661_ + _tl155396155663_ + _e155401155666_ + _hd155400155669_ + _tl155399155671_ + _e155404155674_ + _hd155403155677_ + _tl155402155679_ + _e155407155682_ + _hd155406155685_ + _tl155405155687_ + _e155410155690_ + _hd155409155693_ + _tl155408155695_ + _e155413155698_ + _hd155412155701_ + _tl155411155703_ + _e155416155706_ + _hd155415155709_ + _tl155414155711_ + _e155419155714_ + _hd155418155717_ + _tl155417155719_ + _e155422155722_ + _hd155421155725_ + _tl155420155727_ + _e155425155730_ + _hd155424155733_ + _tl155423155735_ + _e155428155738_ + _hd155427155741_ + _tl155426155743_ + _e155431155746_ + _hd155430155749_ + _tl155429155751_ + _e155434155754_ + _hd155433155757_ + _tl155432155759_ + _e155437155762_ + _hd155436155765_ + _tl155435155767_ + _e155440155770_ + _hd155439155773_ + _tl155438155775_) + (___kont156321156322_)) + (___kont156321156322_)))) + (___kont156321156322_)) + (___kont156321156322_)) + (___kont156321156322_)))) + (___kont156321156322_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _tl155418155730_)) - (if (let ((__tmp156606 + _tl155423155735_)) + (if (let ((__tmp156611 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '-bind-method)))) (declare (not safe)) - (gxc#runtime-identifier=? __tmp156606 'bind-method!)) - (let ((_L155599_ _hd155425155744_) - (_L155600_ _hd155416155720_) - (_L155601_ _hd155407155696_) - (_L155602_ _hd155398155672_)) - (___kont156314156315_ - _L155599_ - _L155600_ - _L155601_ - _L155602_)) - (___kont156316156317_)) - (___kont156316156317_))) + (gxc#runtime-identifier=? __tmp156611 'bind-method!)) + (let ((_L155604_ _hd155430155749_) + (_L155605_ _hd155421155725_) + (_L155606_ _hd155412155701_) + (_L155607_ _hd155403155677_)) + (___kont156319156320_ + _L155604_ + _L155605_ + _L155606_ + _L155607_)) + (___kont156321156322_)) + (___kont156321156322_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont156316156317_)))) - (___kont156316156317_)) - (___kont156316156317_)) - (___kont156316156317_)))) - (___kont156316156317_)))) - (___kont156316156317_)) + (___kont156321156322_)))) + (___kont156321156322_)) + (___kont156321156322_)) + (___kont156321156322_)))) + (___kont156321156322_)))) + (___kont156321156322_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont156316156317_)))) - (___kont156316156317_)) - (___kont156316156317_)) - (___kont156316156317_)))) - (___kont156316156317_)))) - (___kont156316156317_)) - (___kont156316156317_)))) + (___kont156321156322_)))) + (___kont156321156322_)) + (___kont156321156322_)) + (___kont156321156322_)))) + (___kont156321156322_)))) + (___kont156321156322_)) + (___kont156321156322_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont156316156317_)) - (___kont156316156317_)) - (___kont156316156317_)))) - (___kont156316156317_)))) - (___kont156316156317_)) - (___kont156316156317_)))) + (___kont156321156322_)) + (___kont156321156322_)) + (___kont156321156322_)))) + (___kont156321156322_)))) + (___kont156321156322_)) + (___kont156321156322_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont156316156317_)) - (___kont156316156317_)) - (___kont156316156317_)))) - (___kont156316156317_)))) - (___kont156316156317_)))) - (___kont156316156317_))))))) + (___kont156321156322_)) + (___kont156321156322_)) + (___kont156321156322_)))) + (___kont156321156322_)))) + (___kont156321156322_)))) + (___kont156321156322_))))))) (define gxc#!alias::typedecl - (lambda (_self155353_) - (let* ((_self155354155360_ _self155353_) - (_E155356155364_ + (lambda (_self155358_) + (let* ((_self155359155365_ _self155358_) + (_E155361155369_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _self155354155360_)))) - (_K155357155369_ - (lambda (_alias-id155367_) - (let ((__tmp156607 + (error '"No clause matching" _self155359155365_)))) + (_K155362155374_ + (lambda (_alias-id155372_) + (let ((__tmp156612 (let () (declare (not safe)) - (cons _alias-id155367_ '())))) + (cons _alias-id155372_ '())))) (declare (not safe)) - (cons '@alias __tmp156607))))) + (cons '@alias __tmp156612))))) (if (let () (declare (not safe)) - (##structure-instance-of? _self155354155360_ 'gxc#!alias::t)) - (let* ((_e155358155372_ + (##structure-instance-of? _self155359155365_ 'gxc#!alias::t)) + (let* ((_e155363155377_ (let () (declare (not safe)) (##unchecked-structure-ref - _self155354155360_ + _self155359155365_ '1 gxc#!type::t '#f))) - (_alias-id155375_ _e155358155372_)) + (_alias-id155380_ _e155363155377_)) (declare (not safe)) - (_K155357155369_ _alias-id155375_)) - (let () (declare (not safe)) (_E155356155364_)))))) + (_K155362155374_ _alias-id155380_)) + (let () (declare (not safe)) (_E155361155369_)))))) (let () (declare (not safe)) (bind-method!__% gxc#!alias::t 'typedecl gxc#!alias::typedecl '#f)) (define gxc#!class::typedecl - (lambda (_self155144_) - (let* ((_self155145155160_ _self155144_) - (_E155147155164_ + (lambda (_self155149_) + (let* ((_self155150155165_ _self155149_) + (_E155152155169_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _self155145155160_)))) - (_K155148155178_ - (lambda (_methods155167_ - _metaclass155168_ - _final?155169_ - _struct?155170_ - _constructor155171_ - _fields155172_ - _slots155173_ - _precendence-list155174_ - _super155175_ - _id155176_) - (let ((__tmp156608 - (let ((__tmp156609 - (let ((__tmp156610 - (let ((__tmp156611 - (let ((__tmp156612 - (let ((__tmp156613 - (let ((__tmp156614 + (error '"No clause matching" _self155150155165_)))) + (_K155153155183_ + (lambda (_methods155172_ + _metaclass155173_ + _final?155174_ + _struct?155175_ + _constructor155176_ + _fields155177_ + _slots155178_ + _precendence-list155179_ + _super155180_ + _id155181_) + (let ((__tmp156613 + (let ((__tmp156614 + (let ((__tmp156615 + (let ((__tmp156616 + (let ((__tmp156617 + (let ((__tmp156618 + (let ((__tmp156619 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp156615 - (let ((__tmp156616 - (let ((__tmp156617 - (let ((__tmp156618 - (if _methods155167_ + (let ((__tmp156620 + (let ((__tmp156621 + (let ((__tmp156622 + (let ((__tmp156623 + (if _methods155172_ (let () (declare (not safe)) (hash->list - _methods155167_)) + _methods155172_)) '#f))) (declare (not safe)) - (cons __tmp156618 '())))) + (cons __tmp156623 '())))) (declare (not safe)) - (cons _metaclass155168_ - __tmp156617)))) + (cons _metaclass155173_ + __tmp156622)))) (declare (not safe)) - (cons _final?155169_ __tmp156616)))) + (cons _final?155174_ __tmp156621)))) (declare (not safe)) - (cons _struct?155170_ __tmp156615)))) + (cons _struct?155175_ __tmp156620)))) (declare (not safe)) - (cons _constructor155171_ __tmp156614)))) + (cons _constructor155176_ __tmp156619)))) (declare (not safe)) - (cons _fields155172_ __tmp156613)))) + (cons _fields155177_ __tmp156618)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _slots155173_ - __tmp156612)))) + (cons _slots155178_ + __tmp156617)))) (declare (not safe)) - (cons _precendence-list155174_ - __tmp156611)))) + (cons _precendence-list155179_ + __tmp156616)))) (declare (not safe)) - (cons _super155175_ __tmp156610)))) + (cons _super155180_ __tmp156615)))) (declare (not safe)) - (cons _id155176_ __tmp156609)))) + (cons _id155181_ __tmp156614)))) (declare (not safe)) - (cons '@class __tmp156608))))) + (cons '@class __tmp156613))))) (if (let () (declare (not safe)) - (##structure-instance-of? _self155145155160_ 'gxc#!class::t)) - (let* ((_e155149155181_ + (##structure-instance-of? _self155150155165_ 'gxc#!class::t)) + (let* ((_e155154155186_ (let () (declare (not safe)) (##unchecked-structure-ref - _self155145155160_ + _self155150155165_ '1 gxc#!type::t '#f))) - (_id155184_ _e155149155181_) - (_e155150155186_ + (_id155189_ _e155154155186_) + (_e155155155191_ (let () (declare (not safe)) (##unchecked-structure-ref - _self155145155160_ + _self155150155165_ '2 gxc#!class::t '#f))) - (_super155189_ _e155150155186_) - (_e155151155191_ + (_super155194_ _e155155155191_) + (_e155156155196_ (let () (declare (not safe)) (##unchecked-structure-ref - _self155145155160_ + _self155150155165_ '3 gxc#!class::t '#f))) - (_precendence-list155194_ _e155151155191_) - (_e155152155196_ + (_precendence-list155199_ _e155156155196_) + (_e155157155201_ (let () (declare (not safe)) (##unchecked-structure-ref - _self155145155160_ + _self155150155165_ '4 gxc#!class::t '#f))) - (_slots155199_ _e155152155196_) - (_e155153155201_ + (_slots155204_ _e155157155201_) + (_e155158155206_ (let () (declare (not safe)) (##unchecked-structure-ref - _self155145155160_ + _self155150155165_ '5 gxc#!class::t '#f))) - (_fields155204_ _e155153155201_) - (_e155154155206_ + (_fields155209_ _e155158155206_) + (_e155159155211_ (let () (declare (not safe)) (##unchecked-structure-ref - _self155145155160_ + _self155150155165_ '6 gxc#!class::t '#f))) - (_constructor155209_ _e155154155206_) - (_e155155155211_ + (_constructor155214_ _e155159155211_) + (_e155160155216_ (let () (declare (not safe)) (##unchecked-structure-ref - _self155145155160_ + _self155150155165_ '7 gxc#!class::t '#f))) - (_struct?155214_ _e155155155211_) - (_e155156155216_ + (_struct?155219_ _e155160155216_) + (_e155161155221_ (let () (declare (not safe)) (##unchecked-structure-ref - _self155145155160_ + _self155150155165_ '8 gxc#!class::t '#f))) - (_final?155219_ _e155156155216_) - (_e155157155221_ + (_final?155224_ _e155161155221_) + (_e155162155226_ (let () (declare (not safe)) (##unchecked-structure-ref - _self155145155160_ + _self155150155165_ '9 gxc#!class::t '#f))) - (_metaclass155224_ _e155157155221_) - (_e155158155226_ + (_metaclass155229_ _e155162155226_) + (_e155163155231_ (let () (declare (not safe)) (##unchecked-structure-ref - _self155145155160_ + _self155150155165_ '10 gxc#!class::t '#f))) - (_methods155229_ _e155158155226_)) + (_methods155234_ _e155163155231_)) (declare (not safe)) - (_K155148155178_ - _methods155229_ - _metaclass155224_ - _final?155219_ - _struct?155214_ - _constructor155209_ - _fields155204_ - _slots155199_ - _precendence-list155194_ - _super155189_ - _id155184_)) - (let () (declare (not safe)) (_E155147155164_)))))) + (_K155153155183_ + _methods155234_ + _metaclass155229_ + _final?155224_ + _struct?155219_ + _constructor155214_ + _fields155209_ + _slots155204_ + _precendence-list155199_ + _super155194_ + _id155189_)) + (let () (declare (not safe)) (_E155152155169_)))))) (let () (declare (not safe)) (bind-method!__% gxc#!class::t 'typedecl gxc#!class::typedecl '#f)) (define gxc#!predicate::typedecl - (lambda (_self154998_) - (let* ((_self154999155005_ _self154998_) - (_E155001155009_ + (lambda (_self155003_) + (let* ((_self155004155010_ _self155003_) + (_E155006155014_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _self154999155005_)))) - (_K155002155014_ - (lambda (_klass-id155012_) - (let ((__tmp156619 + (error '"No clause matching" _self155004155010_)))) + (_K155007155019_ + (lambda (_klass-id155017_) + (let ((__tmp156624 (let () (declare (not safe)) - (cons _klass-id155012_ '())))) + (cons _klass-id155017_ '())))) (declare (not safe)) - (cons '@predicate __tmp156619))))) + (cons '@predicate __tmp156624))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self154999155005_ + _self155004155010_ 'gxc#!predicate::t)) - (let* ((_e155003155017_ + (let* ((_e155008155022_ (let () (declare (not safe)) (##unchecked-structure-ref - _self154999155005_ + _self155004155010_ '1 gxc#!type::t '#f))) - (_klass-id155020_ _e155003155017_)) + (_klass-id155025_ _e155008155022_)) (declare (not safe)) - (_K155002155014_ _klass-id155020_)) - (let () (declare (not safe)) (_E155001155009_)))))) + (_K155007155019_ _klass-id155025_)) + (let () (declare (not safe)) (_E155006155014_)))))) (let () (declare (not safe)) (bind-method!__% @@ -1797,38 +1797,38 @@ gxc#!predicate::typedecl '#f)) (define gxc#!constructor::typedecl - (lambda (_self154852_) - (let* ((_self154853154859_ _self154852_) - (_E154855154863_ + (lambda (_self154857_) + (let* ((_self154858154864_ _self154857_) + (_E154860154868_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _self154853154859_)))) - (_K154856154868_ - (lambda (_klass-id154866_) - (let ((__tmp156620 + (error '"No clause matching" _self154858154864_)))) + (_K154861154873_ + (lambda (_klass-id154871_) + (let ((__tmp156625 (let () (declare (not safe)) - (cons _klass-id154866_ '())))) + (cons _klass-id154871_ '())))) (declare (not safe)) - (cons '@constructor __tmp156620))))) + (cons '@constructor __tmp156625))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self154853154859_ + _self154858154864_ 'gxc#!constructor::t)) - (let* ((_e154857154871_ + (let* ((_e154862154876_ (let () (declare (not safe)) (##unchecked-structure-ref - _self154853154859_ + _self154858154864_ '1 gxc#!type::t '#f))) - (_klass-id154874_ _e154857154871_)) + (_klass-id154879_ _e154862154876_)) (declare (not safe)) - (_K154856154868_ _klass-id154874_)) - (let () (declare (not safe)) (_E154855154863_)))))) + (_K154861154873_ _klass-id154879_)) + (let () (declare (not safe)) (_E154860154868_)))))) (let () (declare (not safe)) (bind-method!__% @@ -1837,305 +1837,305 @@ gxc#!constructor::typedecl '#f)) (define gxc#!accessor::typedecl - (lambda (_self154692_) - (let* ((_self154693154701_ _self154692_) - (_E154695154705_ + (lambda (_self154697_) + (let* ((_self154698154706_ _self154697_) + (_E154700154710_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _self154693154701_)))) - (_K154696154712_ - (lambda (_checked?154708_ _slot154709_ _klass-id154710_) - (let ((__tmp156621 - (let ((__tmp156622 - (let ((__tmp156623 + (error '"No clause matching" _self154698154706_)))) + (_K154701154717_ + (lambda (_checked?154713_ _slot154714_ _klass-id154715_) + (let ((__tmp156626 + (let ((__tmp156627 + (let ((__tmp156628 (let () (declare (not safe)) - (cons _checked?154708_ '())))) + (cons _checked?154713_ '())))) (declare (not safe)) - (cons _slot154709_ __tmp156623)))) + (cons _slot154714_ __tmp156628)))) (declare (not safe)) - (cons _klass-id154710_ __tmp156622)))) + (cons _klass-id154715_ __tmp156627)))) (declare (not safe)) - (cons '@accessor __tmp156621))))) + (cons '@accessor __tmp156626))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self154693154701_ + _self154698154706_ 'gxc#!accessor::t)) - (let* ((_e154697154715_ + (let* ((_e154702154720_ (let () (declare (not safe)) (##unchecked-structure-ref - _self154693154701_ + _self154698154706_ '1 gxc#!type::t '#f))) - (_klass-id154718_ _e154697154715_) - (_e154698154720_ + (_klass-id154723_ _e154702154720_) + (_e154703154725_ (let () (declare (not safe)) (##unchecked-structure-ref - _self154693154701_ + _self154698154706_ '2 gxc#!accessor::t '#f))) - (_slot154723_ _e154698154720_) - (_e154699154725_ + (_slot154728_ _e154703154725_) + (_e154704154730_ (let () (declare (not safe)) (##unchecked-structure-ref - _self154693154701_ + _self154698154706_ '3 gxc#!accessor::t '#f))) - (_checked?154728_ _e154699154725_)) + (_checked?154733_ _e154704154730_)) (declare (not safe)) - (_K154696154712_ - _checked?154728_ - _slot154723_ - _klass-id154718_)) - (let () (declare (not safe)) (_E154695154705_)))))) + (_K154701154717_ + _checked?154733_ + _slot154728_ + _klass-id154723_)) + (let () (declare (not safe)) (_E154700154710_)))))) (let () (declare (not safe)) (bind-method!__% gxc#!accessor::t 'typedecl gxc#!accessor::typedecl '#f)) (define gxc#!mutator::typedecl - (lambda (_self154532_) - (let* ((_self154533154541_ _self154532_) - (_E154535154545_ + (lambda (_self154537_) + (let* ((_self154538154546_ _self154537_) + (_E154540154550_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _self154533154541_)))) - (_K154536154552_ - (lambda (_checked?154548_ _slot154549_ _klass-id154550_) - (let ((__tmp156624 - (let ((__tmp156625 - (let ((__tmp156626 + (error '"No clause matching" _self154538154546_)))) + (_K154541154557_ + (lambda (_checked?154553_ _slot154554_ _klass-id154555_) + (let ((__tmp156629 + (let ((__tmp156630 + (let ((__tmp156631 (let () (declare (not safe)) - (cons _checked?154548_ '())))) + (cons _checked?154553_ '())))) (declare (not safe)) - (cons _slot154549_ __tmp156626)))) + (cons _slot154554_ __tmp156631)))) (declare (not safe)) - (cons _klass-id154550_ __tmp156625)))) + (cons _klass-id154555_ __tmp156630)))) (declare (not safe)) - (cons '@mutator __tmp156624))))) + (cons '@mutator __tmp156629))))) (if (let () (declare (not safe)) - (##structure-instance-of? _self154533154541_ 'gxc#!mutator::t)) - (let* ((_e154537154555_ + (##structure-instance-of? _self154538154546_ 'gxc#!mutator::t)) + (let* ((_e154542154560_ (let () (declare (not safe)) (##unchecked-structure-ref - _self154533154541_ + _self154538154546_ '1 gxc#!type::t '#f))) - (_klass-id154558_ _e154537154555_) - (_e154538154560_ + (_klass-id154563_ _e154542154560_) + (_e154543154565_ (let () (declare (not safe)) (##unchecked-structure-ref - _self154533154541_ + _self154538154546_ '2 gxc#!mutator::t '#f))) - (_slot154563_ _e154538154560_) - (_e154539154565_ + (_slot154568_ _e154543154565_) + (_e154544154570_ (let () (declare (not safe)) (##unchecked-structure-ref - _self154533154541_ + _self154538154546_ '3 gxc#!mutator::t '#f))) - (_checked?154568_ _e154539154565_)) + (_checked?154573_ _e154544154570_)) (declare (not safe)) - (_K154536154552_ - _checked?154568_ - _slot154563_ - _klass-id154558_)) - (let () (declare (not safe)) (_E154535154545_)))))) + (_K154541154557_ + _checked?154573_ + _slot154568_ + _klass-id154563_)) + (let () (declare (not safe)) (_E154540154550_)))))) (let () (declare (not safe)) (bind-method!__% gxc#!mutator::t 'typedecl gxc#!mutator::typedecl '#f)) (define gxc#!lambda::typedecl - (lambda (_self154358_) - (let* ((_self154359154369_ _self154358_) - (_E154361154373_ + (lambda (_self154363_) + (let* ((_self154364154374_ _self154363_) + (_E154366154378_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _self154359154369_)))) - (_K154362154384_ - (lambda (_typedecl154376_ - _inline154377_ - _dispatch154378_ - _arity154379_) - (if _inline154377_ - (let ((_$e154381_ _typedecl154376_)) - (if _$e154381_ - _$e154381_ + (error '"No clause matching" _self154364154374_)))) + (_K154367154389_ + (lambda (_typedecl154381_ + _inline154382_ + _dispatch154383_ + _arity154384_) + (if _inline154382_ + (let ((_$e154386_ _typedecl154381_)) + (if _$e154386_ + _$e154386_ (let () (declare (not safe)) (error '"Cannot generate typedecl for inline rules")))) - (let ((__tmp156627 - (let ((__tmp156628 + (let ((__tmp156632 + (let ((__tmp156633 (let () (declare (not safe)) - (cons _dispatch154378_ '())))) + (cons _dispatch154383_ '())))) (declare (not safe)) - (cons _arity154379_ __tmp156628)))) + (cons _arity154384_ __tmp156633)))) (declare (not safe)) - (cons '@lambda __tmp156627)))))) + (cons '@lambda __tmp156632)))))) (if (let () (declare (not safe)) - (##structure-instance-of? _self154359154369_ 'gxc#!lambda::t)) - (let* ((_e154363154387_ + (##structure-instance-of? _self154364154374_ 'gxc#!lambda::t)) + (let* ((_e154368154392_ (let () (declare (not safe)) (##unchecked-structure-ref - _self154359154369_ + _self154364154374_ '1 gxc#!type::t '#f))) - (_e154364154390_ + (_e154369154395_ (let () (declare (not safe)) (##unchecked-structure-ref - _self154359154369_ + _self154364154374_ '2 gxc#!lambda::t '#f))) - (_arity154393_ _e154364154390_) - (_e154365154395_ + (_arity154398_ _e154369154395_) + (_e154370154400_ (let () (declare (not safe)) (##unchecked-structure-ref - _self154359154369_ + _self154364154374_ '3 gxc#!lambda::t '#f))) - (_dispatch154398_ _e154365154395_) - (_e154366154400_ + (_dispatch154403_ _e154370154400_) + (_e154371154405_ (let () (declare (not safe)) (##unchecked-structure-ref - _self154359154369_ + _self154364154374_ '4 gxc#!lambda::t '#f))) - (_inline154403_ _e154366154400_) - (_e154367154405_ + (_inline154408_ _e154371154405_) + (_e154372154410_ (let () (declare (not safe)) (##unchecked-structure-ref - _self154359154369_ + _self154364154374_ '5 gxc#!lambda::t '#f))) - (_typedecl154408_ _e154367154405_)) + (_typedecl154413_ _e154372154410_)) (declare (not safe)) - (_K154362154384_ - _typedecl154408_ - _inline154403_ - _dispatch154398_ - _arity154393_)) - (let () (declare (not safe)) (_E154361154373_)))))) + (_K154367154389_ + _typedecl154413_ + _inline154408_ + _dispatch154403_ + _arity154398_)) + (let () (declare (not safe)) (_E154366154378_)))))) (let () (declare (not safe)) (bind-method!__% gxc#!lambda::t 'typedecl gxc#!lambda::typedecl '#f)) (define gxc#!case-lambda::typedecl - (lambda (_self154169_) - (letrec ((_clause-e154171_ - (lambda (_clause154201_) - (let* ((_clause154202154210_ _clause154201_) - (_E154204154214_ + (lambda (_self154174_) + (letrec ((_clause-e154176_ + (lambda (_clause154206_) + (let* ((_clause154207154215_ _clause154206_) + (_E154209154219_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _clause154202154210_)))) - (_K154205154220_ - (lambda (_dispatch154217_ _arity154218_) - (let ((__tmp156629 + _clause154207154215_)))) + (_K154210154225_ + (lambda (_dispatch154222_ _arity154223_) + (let ((__tmp156634 (let () (declare (not safe)) - (cons _dispatch154217_ '())))) + (cons _dispatch154222_ '())))) (declare (not safe)) - (cons _arity154218_ __tmp156629))))) + (cons _arity154223_ __tmp156634))))) (if (let () (declare (not safe)) (##structure-instance-of? - _clause154202154210_ + _clause154207154215_ 'gxc#!lambda::t)) - (let* ((_e154206154223_ + (let* ((_e154211154228_ (let () (declare (not safe)) (##unchecked-structure-ref - _clause154202154210_ + _clause154207154215_ '1 gxc#!type::t '#f))) - (_e154207154226_ + (_e154212154231_ (let () (declare (not safe)) (##unchecked-structure-ref - _clause154202154210_ + _clause154207154215_ '2 gxc#!lambda::t '#f))) - (_arity154229_ _e154207154226_) - (_e154208154231_ + (_arity154234_ _e154212154231_) + (_e154213154236_ (let () (declare (not safe)) (##unchecked-structure-ref - _clause154202154210_ + _clause154207154215_ '3 gxc#!lambda::t '#f))) - (_dispatch154234_ _e154208154231_)) + (_dispatch154239_ _e154213154236_)) (declare (not safe)) - (_K154205154220_ _dispatch154234_ _arity154229_)) - (let () (declare (not safe)) (_E154204154214_))))))) - (let* ((_self154172154179_ _self154169_) - (_E154174154183_ + (_K154210154225_ _dispatch154239_ _arity154234_)) + (let () (declare (not safe)) (_E154209154219_))))))) + (let* ((_self154177154184_ _self154174_) + (_E154179154188_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _self154172154179_)))) - (_K154175154190_ - (lambda (_clauses154186_) - (let ((_clauses154188_ - (map _clause-e154171_ _clauses154186_))) + (error '"No clause matching" _self154177154184_)))) + (_K154180154195_ + (lambda (_clauses154191_) + (let ((_clauses154193_ + (map _clause-e154176_ _clauses154191_))) (declare (not safe)) - (cons '@case-lambda _clauses154188_))))) + (cons '@case-lambda _clauses154193_))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self154172154179_ + _self154177154184_ 'gxc#!case-lambda::t)) - (let* ((_e154176154193_ + (let* ((_e154181154198_ (let () (declare (not safe)) (##unchecked-structure-ref - _self154172154179_ + _self154177154184_ '1 gxc#!type::t '#f))) - (_e154177154196_ + (_e154182154201_ (let () (declare (not safe)) (##unchecked-structure-ref - _self154172154179_ + _self154177154184_ '2 gxc#!case-lambda::t '#f))) - (_clauses154199_ _e154177154196_)) + (_clauses154204_ _e154182154201_)) (declare (not safe)) - (_K154175154190_ _clauses154199_)) - (let () (declare (not safe)) (_E154174154183_))))))) + (_K154180154195_ _clauses154204_)) + (let () (declare (not safe)) (_E154179154188_))))))) (let () (declare (not safe)) (bind-method!__% @@ -2144,58 +2144,58 @@ gxc#!case-lambda::typedecl '#f)) (define gxc#!kw-lambda::typedecl - (lambda (_self154012_) - (let* ((_self154013154021_ _self154012_) - (_E154015154025_ + (lambda (_self154017_) + (let* ((_self154018154026_ _self154017_) + (_E154020154030_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _self154013154021_)))) - (_K154016154031_ - (lambda (_dispatch154028_ _table154029_) - (let ((__tmp156630 - (let ((__tmp156631 + (error '"No clause matching" _self154018154026_)))) + (_K154021154036_ + (lambda (_dispatch154033_ _table154034_) + (let ((__tmp156635 + (let ((__tmp156636 (let () (declare (not safe)) - (cons _dispatch154028_ '())))) + (cons _dispatch154033_ '())))) (declare (not safe)) - (cons _table154029_ __tmp156631)))) + (cons _table154034_ __tmp156636)))) (declare (not safe)) - (cons '@kw-lambda __tmp156630))))) + (cons '@kw-lambda __tmp156635))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self154013154021_ + _self154018154026_ 'gxc#!kw-lambda::t)) - (let* ((_e154017154034_ + (let* ((_e154022154039_ (let () (declare (not safe)) (##unchecked-structure-ref - _self154013154021_ + _self154018154026_ '1 gxc#!type::t '#f))) - (_e154018154037_ + (_e154023154042_ (let () (declare (not safe)) (##unchecked-structure-ref - _self154013154021_ + _self154018154026_ '2 gxc#!kw-lambda::t '#f))) - (_table154040_ _e154018154037_) - (_e154019154042_ + (_table154045_ _e154023154042_) + (_e154024154047_ (let () (declare (not safe)) (##unchecked-structure-ref - _self154013154021_ + _self154018154026_ '3 gxc#!kw-lambda::t '#f))) - (_dispatch154045_ _e154019154042_)) + (_dispatch154050_ _e154024154047_)) (declare (not safe)) - (_K154016154031_ _dispatch154045_ _table154040_)) - (let () (declare (not safe)) (_E154015154025_)))))) + (_K154021154036_ _dispatch154050_ _table154045_)) + (let () (declare (not safe)) (_E154020154030_)))))) (let () (declare (not safe)) (bind-method!__% @@ -2204,58 +2204,58 @@ gxc#!kw-lambda::typedecl '#f)) (define gxc#!kw-lambda-primary::typedecl - (lambda (_self153855_) - (let* ((_self153856153864_ _self153855_) - (_E153858153868_ + (lambda (_self153860_) + (let* ((_self153861153869_ _self153860_) + (_E153863153873_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _self153856153864_)))) - (_K153859153874_ - (lambda (_main153871_ _keys153872_) - (let ((__tmp156632 - (let ((__tmp156633 + (error '"No clause matching" _self153861153869_)))) + (_K153864153879_ + (lambda (_main153876_ _keys153877_) + (let ((__tmp156637 + (let ((__tmp156638 (let () (declare (not safe)) - (cons _main153871_ '())))) + (cons _main153876_ '())))) (declare (not safe)) - (cons _keys153872_ __tmp156633)))) + (cons _keys153877_ __tmp156638)))) (declare (not safe)) - (cons '@kw-lambda-dispatch __tmp156632))))) + (cons '@kw-lambda-dispatch __tmp156637))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self153856153864_ + _self153861153869_ 'gxc#!kw-lambda-primary::t)) - (let* ((_e153860153877_ + (let* ((_e153865153882_ (let () (declare (not safe)) (##unchecked-structure-ref - _self153856153864_ + _self153861153869_ '1 gxc#!type::t '#f))) - (_e153861153880_ + (_e153866153885_ (let () (declare (not safe)) (##unchecked-structure-ref - _self153856153864_ + _self153861153869_ '2 gxc#!kw-lambda-primary::t '#f))) - (_keys153883_ _e153861153880_) - (_e153862153885_ + (_keys153888_ _e153866153885_) + (_e153867153890_ (let () (declare (not safe)) (##unchecked-structure-ref - _self153856153864_ + _self153861153869_ '3 gxc#!kw-lambda-primary::t '#f))) - (_main153888_ _e153862153885_)) + (_main153893_ _e153867153890_)) (declare (not safe)) - (_K153859153874_ _main153888_ _keys153883_)) - (let () (declare (not safe)) (_E153858153868_)))))) + (_K153864153879_ _main153893_ _keys153888_)) + (let () (declare (not safe)) (_E153863153873_)))))) (let () (declare (not safe)) (bind-method!__% diff --git a/src/bootstrap/gerbil/compiler/ssxi__1.scm b/src/bootstrap/gerbil/compiler/ssxi__1.scm index f19135e5..7a673422 100644 --- a/src/bootstrap/gerbil/compiler/ssxi__1.scm +++ b/src/bootstrap/gerbil/compiler/ssxi__1.scm @@ -1,4576 +1,4594 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin (define |gxc[:0:]#declare-type| - (lambda (_$stx158448_) - (let* ((_g158452158470_ - (lambda (_g158453158466_) + (lambda (_$stx158453_) + (let* ((_g158457158475_ + (lambda (_g158458158471_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g158453158466_)))) - (_g158451158525_ - (lambda (_g158453158474_) + _g158458158471_)))) + (_g158456158530_ + (lambda (_g158458158479_) (if (let () (declare (not safe)) - (gx#stx-pair? _g158453158474_)) - (let ((_e158458158477_ + (gx#stx-pair? _g158458158479_)) + (let ((_e158463158482_ (let () (declare (not safe)) - (gx#syntax-e _g158453158474_)))) - (let ((_hd158457158481_ + (gx#syntax-e _g158458158479_)))) + (let ((_hd158462158486_ (let () (declare (not safe)) - (##car _e158458158477_))) - (_tl158456158484_ + (##car _e158463158482_))) + (_tl158461158489_ (let () (declare (not safe)) - (##cdr _e158458158477_)))) + (##cdr _e158463158482_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl158456158484_)) - (let ((_e158461158487_ + (gx#stx-pair? _tl158461158489_)) + (let ((_e158466158492_ (let () (declare (not safe)) - (gx#syntax-e _tl158456158484_)))) - (let ((_hd158460158491_ + (gx#syntax-e _tl158461158489_)))) + (let ((_hd158465158496_ (let () (declare (not safe)) - (##car _e158461158487_))) - (_tl158459158494_ + (##car _e158466158492_))) + (_tl158464158499_ (let () (declare (not safe)) - (##cdr _e158461158487_)))) + (##cdr _e158466158492_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl158459158494_)) - (let ((_e158464158497_ + (gx#stx-pair? _tl158464158499_)) + (let ((_e158469158502_ (let () (declare (not safe)) - (gx#syntax-e _tl158459158494_)))) - (let ((_hd158463158501_ + (gx#syntax-e _tl158464158499_)))) + (let ((_hd158468158506_ (let () (declare (not safe)) - (##car _e158464158497_))) - (_tl158462158504_ + (##car _e158469158502_))) + (_tl158467158509_ (let () (declare (not safe)) - (##cdr _e158464158497_)))) + (##cdr _e158469158502_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl158462158504_)) - ((lambda (_L158507_ _L158509_) + (gx#stx-null? _tl158467158509_)) + ((lambda (_L158512_ _L158514_) (if (let () (declare (not safe)) (gx#identifier? - _L158509_)) - (let ((__tmp161989 + _L158514_)) + (let ((__tmp161994 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'optimizer-declare-type!))) - (__tmp161984 - (let ((__tmp161986 + (__tmp161989 + (let ((__tmp161991 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp161988 + (let ((__tmp161993 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp161987 + (__tmp161992 (let () (declare (not safe)) - (cons _L158509_ '())))) + (cons _L158514_ '())))) (declare (not safe)) - (cons __tmp161988 __tmp161987))) - (__tmp161985 - (let () (declare (not safe)) (cons _L158507_ '())))) + (cons __tmp161993 __tmp161992))) + (__tmp161990 + (let () (declare (not safe)) (cons _L158512_ '())))) (declare (not safe)) - (cons __tmp161986 __tmp161985)))) + (cons __tmp161991 __tmp161990)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp161989 - __tmp161984)) - (_g158452158470_ - _g158453158474_))) - _hd158463158501_ - _hd158460158491_) - (_g158452158470_ - _g158453158474_)))) - (_g158452158470_ _g158453158474_)))) - (_g158452158470_ _g158453158474_)))) - (_g158452158470_ _g158453158474_))))) - (_g158451158525_ _$stx158448_)))) + (cons __tmp161994 + __tmp161989)) + (_g158457158475_ + _g158458158479_))) + _hd158468158506_ + _hd158465158496_) + (_g158457158475_ + _g158458158479_)))) + (_g158457158475_ _g158458158479_)))) + (_g158457158475_ _g158458158479_)))) + (_g158457158475_ _g158458158479_))))) + (_g158456158530_ _$stx158453_)))) (define |gxc[:0:]#declare-type*| - (lambda (_$stx158529_) - (let* ((_g158533158562_ - (lambda (_g158534158558_) + (lambda (_$stx158534_) + (let* ((_g158538158567_ + (lambda (_g158539158563_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g158534158558_)))) - (_g158532158662_ - (lambda (_g158534158566_) + _g158539158563_)))) + (_g158537158667_ + (lambda (_g158539158571_) (if (let () (declare (not safe)) - (gx#stx-pair? _g158534158566_)) - (let ((_e158539158569_ + (gx#stx-pair? _g158539158571_)) + (let ((_e158544158574_ (let () (declare (not safe)) - (gx#syntax-e _g158534158566_)))) - (let ((_hd158538158573_ + (gx#syntax-e _g158539158571_)))) + (let ((_hd158543158578_ (let () (declare (not safe)) - (##car _e158539158569_))) - (_tl158537158576_ + (##car _e158544158574_))) + (_tl158542158581_ (let () (declare (not safe)) - (##cdr _e158539158569_)))) + (##cdr _e158544158574_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl158537158576_)) - (let ((_g161990_ + (gx#stx-pair/null? _tl158542158581_)) + (let ((_g161995_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl158537158576_ + _tl158542158581_ '0)))) (begin - (let ((_g161991_ + (let ((_g161996_ (let () (declare (not safe)) - (if (##values? _g161990_) - (##vector-length _g161990_) + (if (##values? _g161995_) + (##vector-length _g161995_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g161991_ 2))) + (##fx= _g161996_ 2))) (error "Context expects 2 values" - _g161991_))) - (let ((_target158540158579_ + _g161996_))) + (let ((_target158545158584_ (let () (declare (not safe)) - (##vector-ref _g161990_ 0))) - (_tl158542158582_ + (##vector-ref _g161995_ 0))) + (_tl158547158587_ (let () (declare (not safe)) - (##vector-ref _g161990_ 1)))) + (##vector-ref _g161995_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl158542158582_)) - (letrec ((_loop158543158585_ - (lambda (_hd158541158589_ - _type158547158592_ - _symbol158548158594_) + (gx#stx-null? _tl158547158587_)) + (letrec ((_loop158548158590_ + (lambda (_hd158546158594_ + _type158552158597_ + _symbol158553158599_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd158541158589_)) - (let ((_e158544158597_ + _hd158546158594_)) + (let ((_e158549158602_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _hd158541158589_)))) - (let ((_lp-hd158545158601_ - (let () (declare (not safe)) (##car _e158544158597_))) - (_lp-tl158546158604_ - (let () (declare (not safe)) (##cdr _e158544158597_)))) + (gx#syntax-e _hd158546158594_)))) + (let ((_lp-hd158550158606_ + (let () (declare (not safe)) (##car _e158549158602_))) + (_lp-tl158551158609_ + (let () (declare (not safe)) (##cdr _e158549158602_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd158545158601_)) - (let ((_e158553158607_ + (gx#stx-pair? _lp-hd158550158606_)) + (let ((_e158558158612_ (let () (declare (not safe)) - (gx#syntax-e _lp-hd158545158601_)))) - (let ((_hd158552158611_ + (gx#syntax-e _lp-hd158550158606_)))) + (let ((_hd158557158616_ (let () (declare (not safe)) - (##car _e158553158607_))) - (_tl158551158614_ + (##car _e158558158612_))) + (_tl158556158619_ (let () (declare (not safe)) - (##cdr _e158553158607_)))) + (##cdr _e158558158612_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl158551158614_)) - (let ((_e158556158617_ + (gx#stx-pair? _tl158556158619_)) + (let ((_e158561158622_ (let () (declare (not safe)) - (gx#syntax-e _tl158551158614_)))) - (let ((_hd158555158621_ + (gx#syntax-e _tl158556158619_)))) + (let ((_hd158560158626_ (let () (declare (not safe)) - (##car _e158556158617_))) - (_tl158554158624_ + (##car _e158561158622_))) + (_tl158559158629_ (let () (declare (not safe)) - (##cdr _e158556158617_)))) + (##cdr _e158561158622_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl158554158624_)) - (_loop158543158585_ - _lp-tl158546158604_ + (gx#stx-null? _tl158559158629_)) + (_loop158548158590_ + _lp-tl158551158609_ (let () (declare (not safe)) - (cons _hd158555158621_ - _type158547158592_)) + (cons _hd158560158626_ + _type158552158597_)) (let () (declare (not safe)) - (cons _hd158552158611_ - _symbol158548158594_))) - (_g158533158562_ _g158534158566_)))) - (_g158533158562_ _g158534158566_)))) - (_g158533158562_ _g158534158566_)))) - (let ((_type158549158627_ (reverse _type158547158592_)) - (_symbol158550158630_ (reverse _symbol158548158594_))) - ((lambda (_L158633_ _L158635_) - (let ((__tmp161998 + (cons _hd158557158616_ + _symbol158553158599_))) + (_g158538158567_ _g158539158571_)))) + (_g158538158567_ _g158539158571_)))) + (_g158538158567_ _g158539158571_)))) + (let ((_type158554158632_ (reverse _type158552158597_)) + (_symbol158555158635_ (reverse _symbol158553158599_))) + ((lambda (_L158638_ _L158640_) + (let ((__tmp162003 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp161992 + (__tmp161997 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L158633_ - _L158635_)) - (let ((__tmp161993 - (lambda (_g158650158654_ - _g158651158657_ - _g158652158659_) - (let ((__tmp161994 - (let ((__tmp161997 + _L158638_ + _L158640_)) + (let ((__tmp161998 + (lambda (_g158655158659_ + _g158656158662_ + _g158657158664_) + (let ((__tmp161999 + (let ((__tmp162002 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type))) - (__tmp161995 - (let ((__tmp161996 + (__tmp162000 + (let ((__tmp162001 (let () (declare (not safe)) - (cons _g158650158654_ + (cons _g158655158659_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _g158651158657_ - __tmp161996)))) + (cons _g158656158662_ + __tmp162001)))) (declare (not safe)) - (cons __tmp161997 __tmp161995)))) + (cons __tmp162002 __tmp162000)))) (declare (not safe)) - (cons __tmp161994 _g158652158659_))))) + (cons __tmp161999 _g158657158664_))))) (declare (not safe)) - (foldr2 __tmp161993 '() _L158633_ _L158635_))))) + (foldr2 __tmp161998 '() _L158638_ _L158640_))))) (declare (not safe)) - (cons __tmp161998 __tmp161992))) - _type158549158627_ - _symbol158550158630_)))))) + (cons __tmp162003 __tmp161997))) + _type158554158632_ + _symbol158555158635_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop158543158585_ - _target158540158579_ + (_loop158548158590_ + _target158545158584_ '() '())) - (_g158533158562_ _g158534158566_))))) - (_g158533158562_ _g158534158566_)))) - (_g158533158562_ _g158534158566_))))) - (_g158532158662_ _$stx158529_)))) + (_g158538158567_ _g158539158571_))))) + (_g158538158567_ _g158539158571_)))) + (_g158538158567_ _g158539158571_))))) + (_g158537158667_ _$stx158534_)))) (define |gxc[:0:]#declare-method| - (lambda (_$stx158667_) - (let* ((___stx161549161550_ _$stx158667_) - (_g158672158714_ + (lambda (_$stx158672_) + (let* ((___stx161554161555_ _$stx158672_) + (_g158677158719_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx161549161550_))))) - (let ((___kont161552161553_ - (lambda (_L158842_ _L158844_ _L158845_ _L158846_) - (let ((__tmp162012 + ___stx161554161555_))))) + (let ((___kont161557161558_ + (lambda (_L158847_ _L158849_ _L158850_ _L158851_) + (let ((__tmp162017 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'optimizer-declare-method!))) - (__tmp161999 - (let ((__tmp162009 - (let ((__tmp162011 + (__tmp162004 + (let ((__tmp162014 + (let ((__tmp162016 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162010 + (__tmp162015 (let () (declare (not safe)) - (cons _L158846_ '())))) + (cons _L158851_ '())))) (declare (not safe)) - (cons __tmp162011 __tmp162010))) - (__tmp162000 - (let ((__tmp162006 - (let ((__tmp162008 + (cons __tmp162016 __tmp162015))) + (__tmp162005 + (let ((__tmp162011 + (let ((__tmp162013 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162007 + (__tmp162012 (let () (declare (not safe)) - (cons _L158845_ '())))) + (cons _L158850_ '())))) (declare (not safe)) - (cons __tmp162008 __tmp162007))) - (__tmp162001 - (let ((__tmp162003 - (let ((__tmp162005 + (cons __tmp162013 __tmp162012))) + (__tmp162006 + (let ((__tmp162008 + (let ((__tmp162010 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162004 + (__tmp162009 (let () (declare (not safe)) - (cons _L158844_ '())))) + (cons _L158849_ '())))) (declare (not safe)) - (cons __tmp162005 __tmp162004))) - (__tmp162002 + (cons __tmp162010 __tmp162009))) + (__tmp162007 (let () (declare (not safe)) - (cons _L158842_ '())))) + (cons _L158847_ '())))) (declare (not safe)) - (cons __tmp162003 __tmp162002)))) + (cons __tmp162008 __tmp162007)))) (declare (not safe)) - (cons __tmp162006 __tmp162001)))) + (cons __tmp162011 __tmp162006)))) (declare (not safe)) - (cons __tmp162009 __tmp162000)))) + (cons __tmp162014 __tmp162005)))) (declare (not safe)) - (cons __tmp162012 __tmp161999)))) - (___kont161554161555_ - (lambda (_L158761_ _L158763_ _L158764_ _L158765_) - (let ((__tmp162013 - (let ((__tmp162014 - (let ((__tmp162015 - (let ((__tmp162016 - (let ((__tmp162017 + (cons __tmp162017 __tmp162004)))) + (___kont161559161560_ + (lambda (_L158766_ _L158768_ _L158769_ _L158770_) + (let ((__tmp162018 + (let ((__tmp162019 + (let ((__tmp162020 + (let ((__tmp162021 + (let ((__tmp162022 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rebind?)))) (declare (not safe)) - (cons __tmp162017 '())))) + (cons __tmp162022 '())))) (declare (not safe)) - (cons _L158761_ __tmp162016)))) + (cons _L158766_ __tmp162021)))) (declare (not safe)) - (cons _L158763_ __tmp162015)))) + (cons _L158768_ __tmp162020)))) (declare (not safe)) - (cons _L158764_ __tmp162014)))) + (cons _L158769_ __tmp162019)))) (declare (not safe)) - (cons _L158765_ __tmp162013))))) - (let ((___match161588161589_ - (lambda (_e158680158792_ - _hd158679158796_ - _tl158678158799_ - _e158683158802_ - _hd158682158806_ - _tl158681158809_ - _e158686158812_ - _hd158685158816_ - _tl158684158819_ - _e158689158822_ - _hd158688158826_ - _tl158687158829_ - _e158692158832_ - _hd158691158836_ - _tl158690158839_) - (let ((_L158842_ _hd158691158836_) - (_L158844_ _hd158688158826_) - (_L158845_ _hd158685158816_) - (_L158846_ _hd158682158806_)) + (cons _L158770_ __tmp162018))))) + (let ((___match161593161594_ + (lambda (_e158685158797_ + _hd158684158801_ + _tl158683158804_ + _e158688158807_ + _hd158687158811_ + _tl158686158814_ + _e158691158817_ + _hd158690158821_ + _tl158689158824_ + _e158694158827_ + _hd158693158831_ + _tl158692158834_ + _e158697158837_ + _hd158696158841_ + _tl158695158844_) + (let ((_L158847_ _hd158696158841_) + (_L158849_ _hd158693158831_) + (_L158850_ _hd158690158821_) + (_L158851_ _hd158687158811_)) (if (and (let () (declare (not safe)) - (gx#identifier? _L158846_)) + (gx#identifier? _L158851_)) (let () (declare (not safe)) - (gx#identifier? _L158845_)) + (gx#identifier? _L158850_)) (let () (declare (not safe)) - (gx#identifier? _L158844_))) - (___kont161552161553_ - _L158842_ - _L158844_ - _L158845_ - _L158846_) - (let () (declare (not safe)) (_g158672158714_))))))) + (gx#identifier? _L158849_))) + (___kont161557161558_ + _L158847_ + _L158849_ + _L158850_ + _L158851_) + (let () (declare (not safe)) (_g158677158719_))))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx161549161550_)) - (let ((_e158680158792_ + (gx#stx-pair? ___stx161554161555_)) + (let ((_e158685158797_ (let () (declare (not safe)) - (gx#syntax-e ___stx161549161550_)))) - (let ((_tl158678158799_ - (let () (declare (not safe)) (##cdr _e158680158792_))) - (_hd158679158796_ + (gx#syntax-e ___stx161554161555_)))) + (let ((_tl158683158804_ + (let () (declare (not safe)) (##cdr _e158685158797_))) + (_hd158684158801_ (let () (declare (not safe)) - (##car _e158680158792_)))) + (##car _e158685158797_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl158678158799_)) - (let ((_e158683158802_ + (gx#stx-pair? _tl158683158804_)) + (let ((_e158688158807_ (let () (declare (not safe)) - (gx#syntax-e _tl158678158799_)))) - (let ((_tl158681158809_ + (gx#syntax-e _tl158683158804_)))) + (let ((_tl158686158814_ (let () (declare (not safe)) - (##cdr _e158683158802_))) - (_hd158682158806_ + (##cdr _e158688158807_))) + (_hd158687158811_ (let () (declare (not safe)) - (##car _e158683158802_)))) + (##car _e158688158807_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl158681158809_)) - (let ((_e158686158812_ + (gx#stx-pair? _tl158686158814_)) + (let ((_e158691158817_ (let () (declare (not safe)) - (gx#syntax-e _tl158681158809_)))) - (let ((_tl158684158819_ + (gx#syntax-e _tl158686158814_)))) + (let ((_tl158689158824_ (let () (declare (not safe)) - (##cdr _e158686158812_))) - (_hd158685158816_ + (##cdr _e158691158817_))) + (_hd158690158821_ (let () (declare (not safe)) - (##car _e158686158812_)))) + (##car _e158691158817_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl158684158819_)) - (let ((_e158689158822_ + (gx#stx-pair? _tl158689158824_)) + (let ((_e158694158827_ (let () (declare (not safe)) (gx#syntax-e - _tl158684158819_)))) - (let ((_tl158687158829_ + _tl158689158824_)))) + (let ((_tl158692158834_ (let () (declare (not safe)) - (##cdr _e158689158822_))) - (_hd158688158826_ + (##cdr _e158694158827_))) + (_hd158693158831_ (let () (declare (not safe)) - (##car _e158689158822_)))) + (##car _e158694158827_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl158687158829_)) - (let ((_e158692158832_ + _tl158692158834_)) + (let ((_e158697158837_ (let () (declare (not safe)) (gx#syntax-e - _tl158687158829_)))) - (let ((_tl158690158839_ + _tl158692158834_)))) + (let ((_tl158695158844_ (let () (declare (not safe)) - (##cdr _e158692158832_))) - (_hd158691158836_ + (##cdr _e158697158837_))) + (_hd158696158841_ (let () (declare (not safe)) - (##car _e158692158832_)))) + (##car _e158697158837_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl158690158839_)) - (___match161588161589_ - _e158680158792_ - _hd158679158796_ - _tl158678158799_ - _e158683158802_ - _hd158682158806_ - _tl158681158809_ - _e158686158812_ - _hd158685158816_ - _tl158684158819_ - _e158689158822_ - _hd158688158826_ - _tl158687158829_ - _e158692158832_ - _hd158691158836_ - _tl158690158839_) + _tl158695158844_)) + (___match161593161594_ + _e158685158797_ + _hd158684158801_ + _tl158683158804_ + _e158688158807_ + _hd158687158811_ + _tl158686158814_ + _e158691158817_ + _hd158690158821_ + _tl158689158824_ + _e158694158827_ + _hd158693158831_ + _tl158692158834_ + _e158697158837_ + _hd158696158841_ + _tl158695158844_) (let () (declare (not safe)) - (_g158672158714_))))) + (_g158677158719_))))) (if (let () (declare (not safe)) (gx#stx-null? - _tl158687158829_)) - (___kont161554161555_ - _hd158688158826_ - _hd158685158816_ - _hd158682158806_ - _hd158679158796_) + _tl158692158834_)) + (___kont161559161560_ + _hd158693158831_ + _hd158690158821_ + _hd158687158811_ + _hd158684158801_) (let () (declare (not safe)) - (_g158672158714_)))))) + (_g158677158719_)))))) (let () (declare (not safe)) - (_g158672158714_))))) + (_g158677158719_))))) (let () (declare (not safe)) - (_g158672158714_))))) - (let () (declare (not safe)) (_g158672158714_))))) - (let () (declare (not safe)) (_g158672158714_)))))))) + (_g158677158719_))))) + (let () (declare (not safe)) (_g158677158719_))))) + (let () (declare (not safe)) (_g158677158719_)))))))) (define |gxc[:0:]#declare-method*| - (lambda (_$stx158871_) - (let* ((_g158875158910_ - (lambda (_g158876158906_) + (lambda (_$stx158876_) + (let* ((_g158880158915_ + (lambda (_g158881158911_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g158876158906_)))) - (_g158874159029_ - (lambda (_g158876158914_) + _g158881158911_)))) + (_g158879159034_ + (lambda (_g158881158919_) (if (let () (declare (not safe)) - (gx#stx-pair? _g158876158914_)) - (let ((_e158882158917_ + (gx#stx-pair? _g158881158919_)) + (let ((_e158887158922_ (let () (declare (not safe)) - (gx#syntax-e _g158876158914_)))) - (let ((_hd158881158921_ + (gx#syntax-e _g158881158919_)))) + (let ((_hd158886158926_ (let () (declare (not safe)) - (##car _e158882158917_))) - (_tl158880158924_ + (##car _e158887158922_))) + (_tl158885158929_ (let () (declare (not safe)) - (##cdr _e158882158917_)))) + (##cdr _e158887158922_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl158880158924_)) - (let ((_g162018_ + (gx#stx-pair/null? _tl158885158929_)) + (let ((_g162023_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl158880158924_ + _tl158885158929_ '0)))) (begin - (let ((_g162019_ + (let ((_g162024_ (let () (declare (not safe)) - (if (##values? _g162018_) - (##vector-length _g162018_) + (if (##values? _g162023_) + (##vector-length _g162023_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g162019_ 2))) + (##fx= _g162024_ 2))) (error "Context expects 2 values" - _g162019_))) - (let ((_target158883158927_ + _g162024_))) + (let ((_target158888158932_ (let () (declare (not safe)) - (##vector-ref _g162018_ 0))) - (_tl158885158930_ + (##vector-ref _g162023_ 0))) + (_tl158890158935_ (let () (declare (not safe)) - (##vector-ref _g162018_ 1)))) + (##vector-ref _g162023_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl158885158930_)) - (letrec ((_loop158886158933_ - (lambda (_hd158884158937_ - _symbol158890158940_ - _method158891158942_ - _type-t158892158944_) + (gx#stx-null? _tl158890158935_)) + (letrec ((_loop158891158938_ + (lambda (_hd158889158942_ + _symbol158895158945_ + _method158896158947_ + _type-t158897158949_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd158884158937_)) - (let ((_e158887158947_ + _hd158889158942_)) + (let ((_e158892158952_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _hd158884158937_)))) - (let ((_lp-hd158888158951_ - (let () (declare (not safe)) (##car _e158887158947_))) - (_lp-tl158889158954_ - (let () (declare (not safe)) (##cdr _e158887158947_)))) + (gx#syntax-e _hd158889158942_)))) + (let ((_lp-hd158893158956_ + (let () (declare (not safe)) (##car _e158892158952_))) + (_lp-tl158894158959_ + (let () (declare (not safe)) (##cdr _e158892158952_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd158888158951_)) - (let ((_e158898158957_ + (gx#stx-pair? _lp-hd158893158956_)) + (let ((_e158903158962_ (let () (declare (not safe)) - (gx#syntax-e _lp-hd158888158951_)))) - (let ((_hd158897158961_ + (gx#syntax-e _lp-hd158893158956_)))) + (let ((_hd158902158966_ (let () (declare (not safe)) - (##car _e158898158957_))) - (_tl158896158964_ + (##car _e158903158962_))) + (_tl158901158969_ (let () (declare (not safe)) - (##cdr _e158898158957_)))) + (##cdr _e158903158962_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl158896158964_)) - (let ((_e158901158967_ + (gx#stx-pair? _tl158901158969_)) + (let ((_e158906158972_ (let () (declare (not safe)) - (gx#syntax-e _tl158896158964_)))) - (let ((_hd158900158971_ + (gx#syntax-e _tl158901158969_)))) + (let ((_hd158905158976_ (let () (declare (not safe)) - (##car _e158901158967_))) - (_tl158899158974_ + (##car _e158906158972_))) + (_tl158904158979_ (let () (declare (not safe)) - (##cdr _e158901158967_)))) + (##cdr _e158906158972_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl158899158974_)) - (let ((_e158904158977_ + (gx#stx-pair? _tl158904158979_)) + (let ((_e158909158982_ (let () (declare (not safe)) (gx#syntax-e - _tl158899158974_)))) - (let ((_hd158903158981_ + _tl158904158979_)))) + (let ((_hd158908158986_ (let () (declare (not safe)) - (##car _e158904158977_))) - (_tl158902158984_ + (##car _e158909158982_))) + (_tl158907158989_ (let () (declare (not safe)) - (##cdr _e158904158977_)))) + (##cdr _e158909158982_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl158902158984_)) - (_loop158886158933_ - _lp-tl158889158954_ + _tl158907158989_)) + (_loop158891158938_ + _lp-tl158894158959_ (let () (declare (not safe)) - (cons _hd158903158981_ - _symbol158890158940_)) + (cons _hd158908158986_ + _symbol158895158945_)) (let () (declare (not safe)) - (cons _hd158900158971_ - _method158891158942_)) + (cons _hd158905158976_ + _method158896158947_)) (let () (declare (not safe)) - (cons _hd158897158961_ - _type-t158892158944_))) - (_g158875158910_ - _g158876158914_)))) - (_g158875158910_ _g158876158914_)))) - (_g158875158910_ _g158876158914_)))) - (_g158875158910_ _g158876158914_)))) - (let ((_symbol158893158987_ (reverse _symbol158890158940_)) - (_method158894158990_ (reverse _method158891158942_)) - (_type-t158895158992_ (reverse _type-t158892158944_))) - ((lambda (_L158995_ _L158997_ _L158998_) - (let ((__tmp162027 + (cons _hd158902158966_ + _type-t158897158949_))) + (_g158880158915_ + _g158881158919_)))) + (_g158880158915_ _g158881158919_)))) + (_g158880158915_ _g158881158919_)))) + (_g158880158915_ _g158881158919_)))) + (let ((_symbol158898158992_ (reverse _symbol158895158945_)) + (_method158899158995_ (reverse _method158896158947_)) + (_type-t158900158997_ (reverse _type-t158897158949_))) + ((lambda (_L159000_ _L159002_ _L159003_) + (let ((__tmp162032 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp162020 + (__tmp162025 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L158995_ - _L158997_ - _L158998_)) - (let ((__tmp162021 - (lambda (_g159014159019_ - _g159015159022_ - _g159016159024_ - _g159017159026_) - (let ((__tmp162022 - (let ((__tmp162026 + _L159000_ + _L159002_ + _L159003_)) + (let ((__tmp162026 + (lambda (_g159019159024_ + _g159020159027_ + _g159021159029_ + _g159022159031_) + (let ((__tmp162027 + (let ((__tmp162031 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-method))) - (__tmp162023 - (let ((__tmp162024 - (let ((__tmp162025 + (__tmp162028 + (let ((__tmp162029 + (let ((__tmp162030 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _g159014159019_ '())))) + (cons _g159019159024_ '())))) (declare (not safe)) - (cons _g159015159022_ __tmp162025)))) + (cons _g159020159027_ __tmp162030)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _g159016159024_ - __tmp162024)))) + (cons _g159021159029_ + __tmp162029)))) (declare (not safe)) - (cons __tmp162026 __tmp162023)))) + (cons __tmp162031 __tmp162028)))) (declare (not safe)) - (cons __tmp162022 _g159017159026_))))) + (cons __tmp162027 _g159022159031_))))) (declare (not safe)) - (foldr* __tmp162021 + (foldr* __tmp162026 '() - _L158995_ - _L158997_ - _L158998_))))) + _L159000_ + _L159002_ + _L159003_))))) (declare (not safe)) - (cons __tmp162027 __tmp162020))) - _symbol158893158987_ - _method158894158990_ - _type-t158895158992_)))))) + (cons __tmp162032 __tmp162025))) + _symbol158898158992_ + _method158899158995_ + _type-t158900158997_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop158886158933_ - _target158883158927_ + (_loop158891158938_ + _target158888158932_ '() '() '())) - (_g158875158910_ _g158876158914_))))) - (_g158875158910_ _g158876158914_)))) - (_g158875158910_ _g158876158914_))))) - (_g158874159029_ _$stx158871_)))) + (_g158880158915_ _g158881158919_))))) + (_g158880158915_ _g158881158919_)))) + (_g158880158915_ _g158881158919_))))) + (_g158879159034_ _$stx158876_)))) (define |gxc[:0:]#declare-methods| - (lambda (_$stx159034_) - (let* ((_g159038159071_ - (lambda (_g159039159067_) + (lambda (_$stx159039_) + (let* ((_g159043159076_ + (lambda (_g159044159072_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g159039159067_)))) - (_g159037159185_ - (lambda (_g159039159075_) + _g159044159072_)))) + (_g159042159190_ + (lambda (_g159044159080_) (if (let () (declare (not safe)) - (gx#stx-pair? _g159039159075_)) - (let ((_e159045159078_ + (gx#stx-pair? _g159044159080_)) + (let ((_e159050159083_ (let () (declare (not safe)) - (gx#syntax-e _g159039159075_)))) - (let ((_hd159044159082_ + (gx#syntax-e _g159044159080_)))) + (let ((_hd159049159087_ (let () (declare (not safe)) - (##car _e159045159078_))) - (_tl159043159085_ + (##car _e159050159083_))) + (_tl159048159090_ (let () (declare (not safe)) - (##cdr _e159045159078_)))) + (##cdr _e159050159083_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl159043159085_)) - (let ((_e159048159088_ + (gx#stx-pair? _tl159048159090_)) + (let ((_e159053159093_ (let () (declare (not safe)) - (gx#syntax-e _tl159043159085_)))) - (let ((_hd159047159092_ + (gx#syntax-e _tl159048159090_)))) + (let ((_hd159052159097_ (let () (declare (not safe)) - (##car _e159048159088_))) - (_tl159046159095_ + (##car _e159053159093_))) + (_tl159051159100_ (let () (declare (not safe)) - (##cdr _e159048159088_)))) + (##cdr _e159053159093_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl159046159095_)) - (let ((_g162028_ + (gx#stx-pair/null? _tl159051159100_)) + (let ((_g162033_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl159046159095_ + _tl159051159100_ '0)))) (begin - (let ((_g162029_ + (let ((_g162034_ (let () (declare (not safe)) - (if (##values? _g162028_) + (if (##values? _g162033_) (##vector-length - _g162028_) + _g162033_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g162029_ 2))) + (##fx= _g162034_ 2))) (error "Context expects 2 values" - _g162029_))) - (let ((_target159049159098_ + _g162034_))) + (let ((_target159054159103_ (let () (declare (not safe)) - (##vector-ref _g162028_ 0))) - (_tl159051159101_ + (##vector-ref _g162033_ 0))) + (_tl159056159106_ (let () (declare (not safe)) - (##vector-ref _g162028_ 1)))) + (##vector-ref _g162033_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl159051159101_)) - (letrec ((_loop159052159104_ - (lambda (_hd159050159108_ + _tl159056159106_)) + (letrec ((_loop159057159109_ + (lambda (_hd159055159113_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _symbol159056159111_ - _method159057159113_) + _symbol159061159116_ + _method159062159118_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd159050159108_)) - (let ((_e159053159116_ + (gx#stx-pair? _hd159055159113_)) + (let ((_e159058159121_ (let () (declare (not safe)) - (gx#syntax-e _hd159050159108_)))) - (let ((_lp-hd159054159120_ + (gx#syntax-e _hd159055159113_)))) + (let ((_lp-hd159059159125_ (let () (declare (not safe)) - (##car _e159053159116_))) - (_lp-tl159055159123_ + (##car _e159058159121_))) + (_lp-tl159060159128_ (let () (declare (not safe)) - (##cdr _e159053159116_)))) + (##cdr _e159058159121_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd159054159120_)) - (let ((_e159062159126_ + (gx#stx-pair? _lp-hd159059159125_)) + (let ((_e159067159131_ (let () (declare (not safe)) - (gx#syntax-e _lp-hd159054159120_)))) - (let ((_hd159061159130_ + (gx#syntax-e _lp-hd159059159125_)))) + (let ((_hd159066159135_ (let () (declare (not safe)) - (##car _e159062159126_))) - (_tl159060159133_ + (##car _e159067159131_))) + (_tl159065159138_ (let () (declare (not safe)) - (##cdr _e159062159126_)))) + (##cdr _e159067159131_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl159060159133_)) - (let ((_e159065159136_ + (gx#stx-pair? _tl159065159138_)) + (let ((_e159070159141_ (let () (declare (not safe)) (gx#syntax-e - _tl159060159133_)))) - (let ((_hd159064159140_ + _tl159065159138_)))) + (let ((_hd159069159145_ (let () (declare (not safe)) - (##car _e159065159136_))) - (_tl159063159143_ + (##car _e159070159141_))) + (_tl159068159148_ (let () (declare (not safe)) - (##cdr _e159065159136_)))) + (##cdr _e159070159141_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl159063159143_)) - (_loop159052159104_ - _lp-tl159055159123_ + _tl159068159148_)) + (_loop159057159109_ + _lp-tl159060159128_ (let () (declare (not safe)) - (cons _hd159064159140_ - _symbol159056159111_)) + (cons _hd159069159145_ + _symbol159061159116_)) (let () (declare (not safe)) - (cons _hd159061159130_ - _method159057159113_))) - (_g159038159071_ - _g159039159075_)))) - (_g159038159071_ _g159039159075_)))) - (_g159038159071_ _g159039159075_)))) - (let ((_symbol159058159146_ - (reverse _symbol159056159111_)) - (_method159059159149_ - (reverse _method159057159113_))) - ((lambda (_L159152_ _L159154_ _L159155_) - (let ((__tmp162037 + (cons _hd159066159135_ + _method159062159118_))) + (_g159043159076_ + _g159044159080_)))) + (_g159043159076_ _g159044159080_)))) + (_g159043159076_ _g159044159080_)))) + (let ((_symbol159063159151_ + (reverse _symbol159061159116_)) + (_method159064159154_ + (reverse _method159062159118_))) + ((lambda (_L159157_ _L159159_ _L159160_) + (let ((__tmp162042 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp162030 + (__tmp162035 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L159152_ - _L159154_)) - (let ((__tmp162031 - (lambda (_g159173159177_ - _g159174159180_ - _g159175159182_) - (let ((__tmp162032 - (let ((__tmp162036 + _L159157_ + _L159159_)) + (let ((__tmp162036 + (lambda (_g159178159182_ + _g159179159185_ + _g159180159187_) + (let ((__tmp162037 + (let ((__tmp162041 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-method))) - (__tmp162033 - (let ((__tmp162034 + (__tmp162038 + (let ((__tmp162039 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp162035 + (let ((__tmp162040 (let () (declare (not safe)) - (cons _g159173159177_ '())))) + (cons _g159178159182_ '())))) (declare (not safe)) - (cons _g159174159180_ __tmp162035)))) + (cons _g159179159185_ __tmp162040)))) (declare (not safe)) - (cons _L159155_ __tmp162034)))) + (cons _L159160_ __tmp162039)))) (declare (not safe)) - (cons __tmp162036 __tmp162033)))) + (cons __tmp162041 __tmp162038)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp162032 - _g159175159182_))))) + (cons __tmp162037 + _g159180159187_))))) (declare (not safe)) - (foldr2 __tmp162031 + (foldr2 __tmp162036 '() - _L159152_ - _L159154_))))) + _L159157_ + _L159159_))))) (declare (not safe)) - (cons __tmp162037 __tmp162030))) - _symbol159058159146_ - _method159059159149_ - _hd159047159092_)))))) + (cons __tmp162042 __tmp162035))) + _symbol159063159151_ + _method159064159154_ + _hd159052159097_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop159052159104_ - _target159049159098_ + (_loop159057159109_ + _target159054159103_ '() '())) - (_g159038159071_ - _g159039159075_))))) - (_g159038159071_ _g159039159075_)))) - (_g159038159071_ _g159039159075_)))) - (_g159038159071_ _g159039159075_))))) - (_g159037159185_ _$stx159034_)))) + (_g159043159076_ + _g159044159080_))))) + (_g159043159076_ _g159044159080_)))) + (_g159043159076_ _g159044159080_)))) + (_g159043159076_ _g159044159080_))))) + (_g159042159190_ _$stx159039_)))) (define |gxc[:0:]#@alias| - (lambda (_$stx159190_) - (let* ((_g159194159208_ - (lambda (_g159195159204_) + (lambda (_$stx159195_) + (let* ((_g159199159213_ + (lambda (_g159200159209_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g159195159204_)))) - (_g159193159249_ - (lambda (_g159195159212_) + _g159200159209_)))) + (_g159198159254_ + (lambda (_g159200159217_) (if (let () (declare (not safe)) - (gx#stx-pair? _g159195159212_)) - (let ((_e159199159215_ + (gx#stx-pair? _g159200159217_)) + (let ((_e159204159220_ (let () (declare (not safe)) - (gx#syntax-e _g159195159212_)))) - (let ((_hd159198159219_ + (gx#syntax-e _g159200159217_)))) + (let ((_hd159203159224_ (let () (declare (not safe)) - (##car _e159199159215_))) - (_tl159197159222_ + (##car _e159204159220_))) + (_tl159202159227_ (let () (declare (not safe)) - (##cdr _e159199159215_)))) + (##cdr _e159204159220_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl159197159222_)) - (let ((_e159202159225_ + (gx#stx-pair? _tl159202159227_)) + (let ((_e159207159230_ (let () (declare (not safe)) - (gx#syntax-e _tl159197159222_)))) - (let ((_hd159201159229_ + (gx#syntax-e _tl159202159227_)))) + (let ((_hd159206159234_ (let () (declare (not safe)) - (##car _e159202159225_))) - (_tl159200159232_ + (##car _e159207159230_))) + (_tl159205159237_ (let () (declare (not safe)) - (##cdr _e159202159225_)))) + (##cdr _e159207159230_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl159200159232_)) - ((lambda (_L159235_) - (let ((__tmp162042 + (gx#stx-null? _tl159205159237_)) + ((lambda (_L159240_) + (let ((__tmp162047 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!alias))) - (__tmp162038 - (let ((__tmp162039 - (let ((__tmp162041 + (__tmp162043 + (let ((__tmp162044 + (let ((__tmp162046 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162040 + (__tmp162045 (let () (declare (not safe)) - (cons _L159235_ + (cons _L159240_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp162041 __tmp162040)))) + (cons __tmp162046 __tmp162045)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp162039 '())))) + (cons __tmp162044 '())))) (declare (not safe)) - (cons __tmp162042 __tmp162038))) - _hd159201159229_) - (_g159194159208_ _g159195159212_)))) - (_g159194159208_ _g159195159212_)))) - (_g159194159208_ _g159195159212_))))) - (_g159193159249_ _$stx159190_)))) + (cons __tmp162047 __tmp162043))) + _hd159206159234_) + (_g159199159213_ _g159200159217_)))) + (_g159199159213_ _g159200159217_)))) + (_g159199159213_ _g159200159217_))))) + (_g159198159254_ _$stx159195_)))) (define |gxc[:0:]#@class| - (lambda (_$stx159253_) - (let* ((_g159257159307_ - (lambda (_g159258159303_) + (lambda (_$stx159258_) + (let* ((_g159262159312_ + (lambda (_g159263159308_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g159258159303_)))) - (_g159256159474_ - (lambda (_g159258159311_) + _g159263159308_)))) + (_g159261159479_ + (lambda (_g159263159316_) (if (let () (declare (not safe)) - (gx#stx-pair? _g159258159311_)) - (let ((_e159271159314_ + (gx#stx-pair? _g159263159316_)) + (let ((_e159276159319_ (let () (declare (not safe)) - (gx#syntax-e _g159258159311_)))) - (let ((_hd159270159318_ + (gx#syntax-e _g159263159316_)))) + (let ((_hd159275159323_ (let () (declare (not safe)) - (##car _e159271159314_))) - (_tl159269159321_ + (##car _e159276159319_))) + (_tl159274159326_ (let () (declare (not safe)) - (##cdr _e159271159314_)))) + (##cdr _e159276159319_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl159269159321_)) - (let ((_e159274159324_ + (gx#stx-pair? _tl159274159326_)) + (let ((_e159279159329_ (let () (declare (not safe)) - (gx#syntax-e _tl159269159321_)))) - (let ((_hd159273159328_ + (gx#syntax-e _tl159274159326_)))) + (let ((_hd159278159333_ (let () (declare (not safe)) - (##car _e159274159324_))) - (_tl159272159331_ + (##car _e159279159329_))) + (_tl159277159336_ (let () (declare (not safe)) - (##cdr _e159274159324_)))) + (##cdr _e159279159329_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl159272159331_)) - (let ((_e159277159334_ + (gx#stx-pair? _tl159277159336_)) + (let ((_e159282159339_ (let () (declare (not safe)) - (gx#syntax-e _tl159272159331_)))) - (let ((_hd159276159338_ + (gx#syntax-e _tl159277159336_)))) + (let ((_hd159281159343_ (let () (declare (not safe)) - (##car _e159277159334_))) - (_tl159275159341_ + (##car _e159282159339_))) + (_tl159280159346_ (let () (declare (not safe)) - (##cdr _e159277159334_)))) + (##cdr _e159282159339_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl159275159341_)) - (let ((_e159280159344_ + (gx#stx-pair? _tl159280159346_)) + (let ((_e159285159349_ (let () (declare (not safe)) (gx#syntax-e - _tl159275159341_)))) - (let ((_hd159279159348_ + _tl159280159346_)))) + (let ((_hd159284159353_ (let () (declare (not safe)) - (##car _e159280159344_))) - (_tl159278159351_ + (##car _e159285159349_))) + (_tl159283159356_ (let () (declare (not safe)) - (##cdr _e159280159344_)))) + (##cdr _e159285159349_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl159278159351_)) - (let ((_e159283159354_ + _tl159283159356_)) + (let ((_e159288159359_ (let () (declare (not safe)) (gx#syntax-e - _tl159278159351_)))) - (let ((_hd159282159358_ + _tl159283159356_)))) + (let ((_hd159287159363_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e159283159354_))) - (_tl159281159361_ - (let () (declare (not safe)) (##cdr _e159283159354_)))) + (##car _e159288159359_))) + (_tl159286159366_ + (let () (declare (not safe)) (##cdr _e159288159359_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl159281159361_)) - (let ((_e159286159364_ + (gx#stx-pair? _tl159286159366_)) + (let ((_e159291159369_ (let () (declare (not safe)) - (gx#syntax-e _tl159281159361_)))) - (let ((_hd159285159368_ + (gx#syntax-e _tl159286159366_)))) + (let ((_hd159290159373_ (let () (declare (not safe)) - (##car _e159286159364_))) - (_tl159284159371_ + (##car _e159291159369_))) + (_tl159289159376_ (let () (declare (not safe)) - (##cdr _e159286159364_)))) + (##cdr _e159291159369_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl159284159371_)) - (let ((_e159289159374_ + (gx#stx-pair? _tl159289159376_)) + (let ((_e159294159379_ (let () (declare (not safe)) - (gx#syntax-e _tl159284159371_)))) - (let ((_hd159288159378_ + (gx#syntax-e _tl159289159376_)))) + (let ((_hd159293159383_ (let () (declare (not safe)) - (##car _e159289159374_))) - (_tl159287159381_ + (##car _e159294159379_))) + (_tl159292159386_ (let () (declare (not safe)) - (##cdr _e159289159374_)))) + (##cdr _e159294159379_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl159287159381_)) - (let ((_e159292159384_ + (gx#stx-pair? _tl159292159386_)) + (let ((_e159297159389_ (let () (declare (not safe)) - (gx#syntax-e _tl159287159381_)))) - (let ((_hd159291159388_ + (gx#syntax-e _tl159292159386_)))) + (let ((_hd159296159393_ (let () (declare (not safe)) - (##car _e159292159384_))) - (_tl159290159391_ + (##car _e159297159389_))) + (_tl159295159396_ (let () (declare (not safe)) - (##cdr _e159292159384_)))) + (##cdr _e159297159389_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl159290159391_)) - (let ((_e159295159394_ + (gx#stx-pair? _tl159295159396_)) + (let ((_e159300159399_ (let () (declare (not safe)) (gx#syntax-e - _tl159290159391_)))) - (let ((_hd159294159398_ + _tl159295159396_)))) + (let ((_hd159299159403_ (let () (declare (not safe)) - (##car _e159295159394_))) - (_tl159293159401_ + (##car _e159300159399_))) + (_tl159298159406_ (let () (declare (not safe)) - (##cdr _e159295159394_)))) + (##cdr _e159300159399_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl159293159401_)) - (let ((_e159298159404_ + _tl159298159406_)) + (let ((_e159303159409_ (let () (declare (not safe)) (gx#syntax-e - _tl159293159401_)))) - (let ((_hd159297159408_ + _tl159298159406_)))) + (let ((_hd159302159413_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e159298159404_))) - (_tl159296159411_ - (let () (declare (not safe)) (##cdr _e159298159404_)))) + (##car _e159303159409_))) + (_tl159301159416_ + (let () (declare (not safe)) (##cdr _e159303159409_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl159296159411_)) - (let ((_e159301159414_ + (gx#stx-pair? _tl159301159416_)) + (let ((_e159306159419_ (let () (declare (not safe)) - (gx#syntax-e _tl159296159411_)))) - (let ((_hd159300159418_ + (gx#syntax-e _tl159301159416_)))) + (let ((_hd159305159423_ (let () (declare (not safe)) - (##car _e159301159414_))) - (_tl159299159421_ + (##car _e159306159419_))) + (_tl159304159426_ (let () (declare (not safe)) - (##cdr _e159301159414_)))) + (##cdr _e159306159419_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl159299159421_)) - ((lambda (_L159424_ - _L159426_ - _L159427_ - _L159428_ - _L159429_ - _L159430_ + (gx#stx-null? _tl159304159426_)) + ((lambda (_L159429_ _L159431_ _L159432_ _L159433_ - _L159434_) - (let ((__tmp162077 + _L159434_ + _L159435_ + _L159436_ + _L159437_ + _L159438_ + _L159439_) + (let ((__tmp162082 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!class))) - (__tmp162043 - (let ((__tmp162074 - (let ((__tmp162076 + (__tmp162048 + (let ((__tmp162079 + (let ((__tmp162081 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162075 + (__tmp162080 (let () (declare (not safe)) - (cons _L159434_ '())))) + (cons _L159439_ '())))) (declare (not safe)) - (cons __tmp162076 __tmp162075))) - (__tmp162044 - (let ((__tmp162071 - (let ((__tmp162073 + (cons __tmp162081 __tmp162080))) + (__tmp162049 + (let ((__tmp162076 + (let ((__tmp162078 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162072 + (__tmp162077 (let () (declare (not safe)) - (cons _L159433_ + (cons _L159438_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp162073 __tmp162072))) + (cons __tmp162078 __tmp162077))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp162045 - (let ((__tmp162068 - (let ((__tmp162070 + (__tmp162050 + (let ((__tmp162073 + (let ((__tmp162075 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162069 - (let () (declare (not safe)) (cons _L159432_ '())))) + (__tmp162074 + (let () (declare (not safe)) (cons _L159437_ '())))) (declare (not safe)) - (cons __tmp162070 __tmp162069))) - (__tmp162046 - (let ((__tmp162065 - (let ((__tmp162067 + (cons __tmp162075 __tmp162074))) + (__tmp162051 + (let ((__tmp162070 + (let ((__tmp162072 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162066 + (__tmp162071 (let () (declare (not safe)) - (cons _L159431_ '())))) + (cons _L159436_ '())))) (declare (not safe)) - (cons __tmp162067 __tmp162066))) - (__tmp162047 - (let ((__tmp162062 - (let ((__tmp162064 + (cons __tmp162072 __tmp162071))) + (__tmp162052 + (let ((__tmp162067 + (let ((__tmp162069 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162063 + (__tmp162068 (let () (declare (not safe)) - (cons _L159430_ '())))) + (cons _L159435_ '())))) (declare (not safe)) - (cons __tmp162064 __tmp162063))) - (__tmp162048 - (let ((__tmp162059 - (let ((__tmp162061 + (cons __tmp162069 __tmp162068))) + (__tmp162053 + (let ((__tmp162064 + (let ((__tmp162066 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162060 + (__tmp162065 (let () (declare (not safe)) - (cons _L159429_ '())))) + (cons _L159434_ '())))) (declare (not safe)) - (cons __tmp162061 __tmp162060))) - (__tmp162049 - (let ((__tmp162050 - (let ((__tmp162051 - (let ((__tmp162056 - (let ((__tmp162058 + (cons __tmp162066 __tmp162065))) + (__tmp162054 + (let ((__tmp162055 + (let ((__tmp162056 + (let ((__tmp162061 + (let ((__tmp162063 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162057 + (__tmp162062 (let () (declare (not safe)) - (cons _L159426_ '())))) + (cons _L159431_ '())))) (declare (not safe)) - (cons __tmp162058 __tmp162057))) - (__tmp162052 - (let ((__tmp162053 - (let ((__tmp162055 + (cons __tmp162063 __tmp162062))) + (__tmp162057 + (let ((__tmp162058 + (let ((__tmp162060 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162054 + (__tmp162059 (let () (declare (not safe)) - (cons _L159424_ '())))) + (cons _L159429_ '())))) (declare (not safe)) - (cons __tmp162055 __tmp162054)))) + (cons __tmp162060 __tmp162059)))) (declare (not safe)) - (cons __tmp162053 '())))) + (cons __tmp162058 '())))) (declare (not safe)) - (cons __tmp162056 __tmp162052)))) + (cons __tmp162061 __tmp162057)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L159427_ - __tmp162051)))) + (cons _L159432_ + __tmp162056)))) (declare (not safe)) - (cons _L159428_ __tmp162050)))) + (cons _L159433_ __tmp162055)))) (declare (not safe)) - (cons __tmp162059 __tmp162049)))) + (cons __tmp162064 __tmp162054)))) (declare (not safe)) - (cons __tmp162062 __tmp162048)))) + (cons __tmp162067 __tmp162053)))) (declare (not safe)) - (cons __tmp162065 __tmp162047)))) + (cons __tmp162070 __tmp162052)))) (declare (not safe)) - (cons __tmp162068 __tmp162046)))) + (cons __tmp162073 __tmp162051)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp162071 - __tmp162045)))) + (cons __tmp162076 + __tmp162050)))) (declare (not safe)) - (cons __tmp162074 __tmp162044)))) + (cons __tmp162079 __tmp162049)))) (declare (not safe)) - (cons __tmp162077 __tmp162043))) - _hd159300159418_ - _hd159297159408_ - _hd159294159398_ - _hd159291159388_ - _hd159288159378_ - _hd159285159368_ - _hd159282159358_ - _hd159279159348_ - _hd159276159338_ - _hd159273159328_) - (_g159257159307_ _g159258159311_)))) - (_g159257159307_ _g159258159311_)))) + (cons __tmp162082 __tmp162048))) + _hd159305159423_ + _hd159302159413_ + _hd159299159403_ + _hd159296159393_ + _hd159293159383_ + _hd159290159373_ + _hd159287159363_ + _hd159284159353_ + _hd159281159343_ + _hd159278159333_) + (_g159262159312_ _g159263159316_)))) + (_g159262159312_ _g159263159316_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g159257159307_ - _g159258159311_)))) - (_g159257159307_ - _g159258159311_)))) - (_g159257159307_ _g159258159311_)))) - (_g159257159307_ _g159258159311_)))) - (_g159257159307_ _g159258159311_)))) + (_g159262159312_ + _g159263159316_)))) + (_g159262159312_ + _g159263159316_)))) + (_g159262159312_ _g159263159316_)))) + (_g159262159312_ _g159263159316_)))) + (_g159262159312_ _g159263159316_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g159257159307_ - _g159258159311_)))) - (_g159257159307_ - _g159258159311_)))) - (_g159257159307_ _g159258159311_)))) - (_g159257159307_ _g159258159311_)))) - (_g159257159307_ _g159258159311_))))) - (_g159256159474_ _$stx159253_)))) + (_g159262159312_ + _g159263159316_)))) + (_g159262159312_ + _g159263159316_)))) + (_g159262159312_ _g159263159316_)))) + (_g159262159312_ _g159263159316_)))) + (_g159262159312_ _g159263159316_))))) + (_g159261159479_ _$stx159258_)))) (define |gxc[:0:]#@predicate| - (lambda (_$stx159478_) - (let* ((_g159482159496_ - (lambda (_g159483159492_) + (lambda (_$stx159483_) + (let* ((_g159487159501_ + (lambda (_g159488159497_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g159483159492_)))) - (_g159481159537_ - (lambda (_g159483159500_) + _g159488159497_)))) + (_g159486159542_ + (lambda (_g159488159505_) (if (let () (declare (not safe)) - (gx#stx-pair? _g159483159500_)) - (let ((_e159487159503_ + (gx#stx-pair? _g159488159505_)) + (let ((_e159492159508_ (let () (declare (not safe)) - (gx#syntax-e _g159483159500_)))) - (let ((_hd159486159507_ + (gx#syntax-e _g159488159505_)))) + (let ((_hd159491159512_ (let () (declare (not safe)) - (##car _e159487159503_))) - (_tl159485159510_ + (##car _e159492159508_))) + (_tl159490159515_ (let () (declare (not safe)) - (##cdr _e159487159503_)))) + (##cdr _e159492159508_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl159485159510_)) - (let ((_e159490159513_ + (gx#stx-pair? _tl159490159515_)) + (let ((_e159495159518_ (let () (declare (not safe)) - (gx#syntax-e _tl159485159510_)))) - (let ((_hd159489159517_ + (gx#syntax-e _tl159490159515_)))) + (let ((_hd159494159522_ (let () (declare (not safe)) - (##car _e159490159513_))) - (_tl159488159520_ + (##car _e159495159518_))) + (_tl159493159525_ (let () (declare (not safe)) - (##cdr _e159490159513_)))) + (##cdr _e159495159518_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl159488159520_)) - ((lambda (_L159523_) - (let ((__tmp162082 + (gx#stx-null? _tl159493159525_)) + ((lambda (_L159528_) + (let ((__tmp162087 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!predicate))) - (__tmp162078 - (let ((__tmp162079 - (let ((__tmp162081 + (__tmp162083 + (let ((__tmp162084 + (let ((__tmp162086 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162080 + (__tmp162085 (let () (declare (not safe)) - (cons _L159523_ + (cons _L159528_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp162081 __tmp162080)))) + (cons __tmp162086 __tmp162085)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp162079 '())))) + (cons __tmp162084 '())))) (declare (not safe)) - (cons __tmp162082 __tmp162078))) - _hd159489159517_) - (_g159482159496_ _g159483159500_)))) - (_g159482159496_ _g159483159500_)))) - (_g159482159496_ _g159483159500_))))) - (_g159481159537_ _$stx159478_)))) + (cons __tmp162087 __tmp162083))) + _hd159494159522_) + (_g159487159501_ _g159488159505_)))) + (_g159487159501_ _g159488159505_)))) + (_g159487159501_ _g159488159505_))))) + (_g159486159542_ _$stx159483_)))) (define |gxc[:0:]#@constructor| - (lambda (_$stx159541_) - (let* ((_g159545159559_ - (lambda (_g159546159555_) + (lambda (_$stx159546_) + (let* ((_g159550159564_ + (lambda (_g159551159560_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g159546159555_)))) - (_g159544159600_ - (lambda (_g159546159563_) + _g159551159560_)))) + (_g159549159605_ + (lambda (_g159551159568_) (if (let () (declare (not safe)) - (gx#stx-pair? _g159546159563_)) - (let ((_e159550159566_ + (gx#stx-pair? _g159551159568_)) + (let ((_e159555159571_ (let () (declare (not safe)) - (gx#syntax-e _g159546159563_)))) - (let ((_hd159549159570_ + (gx#syntax-e _g159551159568_)))) + (let ((_hd159554159575_ (let () (declare (not safe)) - (##car _e159550159566_))) - (_tl159548159573_ + (##car _e159555159571_))) + (_tl159553159578_ (let () (declare (not safe)) - (##cdr _e159550159566_)))) + (##cdr _e159555159571_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl159548159573_)) - (let ((_e159553159576_ + (gx#stx-pair? _tl159553159578_)) + (let ((_e159558159581_ (let () (declare (not safe)) - (gx#syntax-e _tl159548159573_)))) - (let ((_hd159552159580_ + (gx#syntax-e _tl159553159578_)))) + (let ((_hd159557159585_ (let () (declare (not safe)) - (##car _e159553159576_))) - (_tl159551159583_ + (##car _e159558159581_))) + (_tl159556159588_ (let () (declare (not safe)) - (##cdr _e159553159576_)))) + (##cdr _e159558159581_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl159551159583_)) - ((lambda (_L159586_) - (let ((__tmp162087 + (gx#stx-null? _tl159556159588_)) + ((lambda (_L159591_) + (let ((__tmp162092 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!constructor))) - (__tmp162083 - (let ((__tmp162084 - (let ((__tmp162086 + (__tmp162088 + (let ((__tmp162089 + (let ((__tmp162091 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162085 + (__tmp162090 (let () (declare (not safe)) - (cons _L159586_ + (cons _L159591_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp162086 __tmp162085)))) + (cons __tmp162091 __tmp162090)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp162084 '())))) + (cons __tmp162089 '())))) (declare (not safe)) - (cons __tmp162087 __tmp162083))) - _hd159552159580_) - (_g159545159559_ _g159546159563_)))) - (_g159545159559_ _g159546159563_)))) - (_g159545159559_ _g159546159563_))))) - (_g159544159600_ _$stx159541_)))) + (cons __tmp162092 __tmp162088))) + _hd159557159585_) + (_g159550159564_ _g159551159568_)))) + (_g159550159564_ _g159551159568_)))) + (_g159550159564_ _g159551159568_))))) + (_g159549159605_ _$stx159546_)))) (define |gxc[:0:]#@accessor| - (lambda (_$stx159604_) - (let* ((_g159608159630_ - (lambda (_g159609159626_) + (lambda (_$stx159609_) + (let* ((_g159613159635_ + (lambda (_g159614159631_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g159609159626_)))) - (_g159607159699_ - (lambda (_g159609159634_) + _g159614159631_)))) + (_g159612159704_ + (lambda (_g159614159639_) (if (let () (declare (not safe)) - (gx#stx-pair? _g159609159634_)) - (let ((_e159615159637_ + (gx#stx-pair? _g159614159639_)) + (let ((_e159620159642_ (let () (declare (not safe)) - (gx#syntax-e _g159609159634_)))) - (let ((_hd159614159641_ + (gx#syntax-e _g159614159639_)))) + (let ((_hd159619159646_ (let () (declare (not safe)) - (##car _e159615159637_))) - (_tl159613159644_ + (##car _e159620159642_))) + (_tl159618159649_ (let () (declare (not safe)) - (##cdr _e159615159637_)))) + (##cdr _e159620159642_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl159613159644_)) - (let ((_e159618159647_ + (gx#stx-pair? _tl159618159649_)) + (let ((_e159623159652_ (let () (declare (not safe)) - (gx#syntax-e _tl159613159644_)))) - (let ((_hd159617159651_ + (gx#syntax-e _tl159618159649_)))) + (let ((_hd159622159656_ (let () (declare (not safe)) - (##car _e159618159647_))) - (_tl159616159654_ + (##car _e159623159652_))) + (_tl159621159659_ (let () (declare (not safe)) - (##cdr _e159618159647_)))) + (##cdr _e159623159652_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl159616159654_)) - (let ((_e159621159657_ + (gx#stx-pair? _tl159621159659_)) + (let ((_e159626159662_ (let () (declare (not safe)) - (gx#syntax-e _tl159616159654_)))) - (let ((_hd159620159661_ + (gx#syntax-e _tl159621159659_)))) + (let ((_hd159625159666_ (let () (declare (not safe)) - (##car _e159621159657_))) - (_tl159619159664_ + (##car _e159626159662_))) + (_tl159624159669_ (let () (declare (not safe)) - (##cdr _e159621159657_)))) + (##cdr _e159626159662_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl159619159664_)) - (let ((_e159624159667_ + (gx#stx-pair? _tl159624159669_)) + (let ((_e159629159672_ (let () (declare (not safe)) (gx#syntax-e - _tl159619159664_)))) - (let ((_hd159623159671_ + _tl159624159669_)))) + (let ((_hd159628159676_ (let () (declare (not safe)) - (##car _e159624159667_))) - (_tl159622159674_ + (##car _e159629159672_))) + (_tl159627159679_ (let () (declare (not safe)) - (##cdr _e159624159667_)))) + (##cdr _e159629159672_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl159622159674_)) - ((lambda (_L159677_ - _L159679_ - _L159680_) - (let ((__tmp162097 + _tl159627159679_)) + ((lambda (_L159682_ + _L159684_ + _L159685_) + (let ((__tmp162102 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'make-!accessor))) - (__tmp162088 - (let ((__tmp162094 - (let ((__tmp162096 + (__tmp162093 + (let ((__tmp162099 + (let ((__tmp162101 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162095 + (__tmp162100 (let () (declare (not safe)) - (cons _L159680_ '())))) + (cons _L159685_ '())))) (declare (not safe)) - (cons __tmp162096 __tmp162095))) - (__tmp162089 - (let ((__tmp162091 - (let ((__tmp162093 + (cons __tmp162101 __tmp162100))) + (__tmp162094 + (let ((__tmp162096 + (let ((__tmp162098 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162092 + (__tmp162097 (let () (declare (not safe)) - (cons _L159679_ '())))) + (cons _L159684_ '())))) (declare (not safe)) - (cons __tmp162093 __tmp162092))) - (__tmp162090 + (cons __tmp162098 __tmp162097))) + (__tmp162095 (let () (declare (not safe)) - (cons _L159677_ '())))) + (cons _L159682_ '())))) (declare (not safe)) - (cons __tmp162091 __tmp162090)))) + (cons __tmp162096 __tmp162095)))) (declare (not safe)) - (cons __tmp162094 __tmp162089)))) + (cons __tmp162099 __tmp162094)))) (declare (not safe)) - (cons __tmp162097 __tmp162088))) + (cons __tmp162102 __tmp162093))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd159623159671_ - _hd159620159661_ - _hd159617159651_) - (_g159608159630_ - _g159609159634_)))) - (_g159608159630_ - _g159609159634_)))) - (_g159608159630_ _g159609159634_)))) - (_g159608159630_ _g159609159634_)))) - (_g159608159630_ _g159609159634_))))) - (_g159607159699_ _$stx159604_)))) + _hd159628159676_ + _hd159625159666_ + _hd159622159656_) + (_g159613159635_ + _g159614159639_)))) + (_g159613159635_ + _g159614159639_)))) + (_g159613159635_ _g159614159639_)))) + (_g159613159635_ _g159614159639_)))) + (_g159613159635_ _g159614159639_))))) + (_g159612159704_ _$stx159609_)))) (define |gxc[:0:]#@mutator| - (lambda (_$stx159703_) - (let* ((_g159707159729_ - (lambda (_g159708159725_) + (lambda (_$stx159708_) + (let* ((_g159712159734_ + (lambda (_g159713159730_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g159708159725_)))) - (_g159706159798_ - (lambda (_g159708159733_) + _g159713159730_)))) + (_g159711159803_ + (lambda (_g159713159738_) (if (let () (declare (not safe)) - (gx#stx-pair? _g159708159733_)) - (let ((_e159714159736_ + (gx#stx-pair? _g159713159738_)) + (let ((_e159719159741_ (let () (declare (not safe)) - (gx#syntax-e _g159708159733_)))) - (let ((_hd159713159740_ + (gx#syntax-e _g159713159738_)))) + (let ((_hd159718159745_ (let () (declare (not safe)) - (##car _e159714159736_))) - (_tl159712159743_ + (##car _e159719159741_))) + (_tl159717159748_ (let () (declare (not safe)) - (##cdr _e159714159736_)))) + (##cdr _e159719159741_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl159712159743_)) - (let ((_e159717159746_ + (gx#stx-pair? _tl159717159748_)) + (let ((_e159722159751_ (let () (declare (not safe)) - (gx#syntax-e _tl159712159743_)))) - (let ((_hd159716159750_ + (gx#syntax-e _tl159717159748_)))) + (let ((_hd159721159755_ (let () (declare (not safe)) - (##car _e159717159746_))) - (_tl159715159753_ + (##car _e159722159751_))) + (_tl159720159758_ (let () (declare (not safe)) - (##cdr _e159717159746_)))) + (##cdr _e159722159751_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl159715159753_)) - (let ((_e159720159756_ + (gx#stx-pair? _tl159720159758_)) + (let ((_e159725159761_ (let () (declare (not safe)) - (gx#syntax-e _tl159715159753_)))) - (let ((_hd159719159760_ + (gx#syntax-e _tl159720159758_)))) + (let ((_hd159724159765_ (let () (declare (not safe)) - (##car _e159720159756_))) - (_tl159718159763_ + (##car _e159725159761_))) + (_tl159723159768_ (let () (declare (not safe)) - (##cdr _e159720159756_)))) + (##cdr _e159725159761_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl159718159763_)) - (let ((_e159723159766_ + (gx#stx-pair? _tl159723159768_)) + (let ((_e159728159771_ (let () (declare (not safe)) (gx#syntax-e - _tl159718159763_)))) - (let ((_hd159722159770_ + _tl159723159768_)))) + (let ((_hd159727159775_ (let () (declare (not safe)) - (##car _e159723159766_))) - (_tl159721159773_ + (##car _e159728159771_))) + (_tl159726159778_ (let () (declare (not safe)) - (##cdr _e159723159766_)))) + (##cdr _e159728159771_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl159721159773_)) - ((lambda (_L159776_ - _L159778_ - _L159779_) - (let ((__tmp162107 + _tl159726159778_)) + ((lambda (_L159781_ + _L159783_ + _L159784_) + (let ((__tmp162112 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'make-!mutator))) - (__tmp162098 - (let ((__tmp162104 - (let ((__tmp162106 + (__tmp162103 + (let ((__tmp162109 + (let ((__tmp162111 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162105 + (__tmp162110 (let () (declare (not safe)) - (cons _L159779_ '())))) + (cons _L159784_ '())))) (declare (not safe)) - (cons __tmp162106 __tmp162105))) - (__tmp162099 - (let ((__tmp162101 - (let ((__tmp162103 + (cons __tmp162111 __tmp162110))) + (__tmp162104 + (let ((__tmp162106 + (let ((__tmp162108 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162102 + (__tmp162107 (let () (declare (not safe)) - (cons _L159778_ '())))) + (cons _L159783_ '())))) (declare (not safe)) - (cons __tmp162103 __tmp162102))) - (__tmp162100 + (cons __tmp162108 __tmp162107))) + (__tmp162105 (let () (declare (not safe)) - (cons _L159776_ '())))) + (cons _L159781_ '())))) (declare (not safe)) - (cons __tmp162101 __tmp162100)))) + (cons __tmp162106 __tmp162105)))) (declare (not safe)) - (cons __tmp162104 __tmp162099)))) + (cons __tmp162109 __tmp162104)))) (declare (not safe)) - (cons __tmp162107 __tmp162098))) + (cons __tmp162112 __tmp162103))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd159722159770_ - _hd159719159760_ - _hd159716159750_) - (_g159707159729_ - _g159708159733_)))) - (_g159707159729_ - _g159708159733_)))) - (_g159707159729_ _g159708159733_)))) - (_g159707159729_ _g159708159733_)))) - (_g159707159729_ _g159708159733_))))) - (_g159706159798_ _$stx159703_)))) + _hd159727159775_ + _hd159724159765_ + _hd159721159755_) + (_g159712159734_ + _g159713159738_)))) + (_g159712159734_ + _g159713159738_)))) + (_g159712159734_ _g159713159738_)))) + (_g159712159734_ _g159713159738_)))) + (_g159712159734_ _g159713159738_))))) + (_g159711159803_ _$stx159708_)))) (define |gxc[:0:]#@lambda| - (lambda (_$stx159802_) - (let* ((___stx161617161618_ _$stx159802_) - (_g159810159878_ + (lambda (_$stx159807_) + (let* ((___stx161622161623_ _$stx159807_) + (_g159815159883_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx161617161618_))))) - (let ((___kont161620161621_ - (lambda (_L160156_ _L160158_) - (let ((__tmp162123 + ___stx161622161623_))))) + (let ((___kont161625161626_ + (lambda (_L160161_ _L160163_) + (let ((__tmp162133 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!lambda))) - (__tmp162108 - (let ((__tmp162119 - (let ((__tmp162122 + (__tmp162113 + (let ((__tmp162129 + (let ((__tmp162132 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162120 - (let ((__tmp162121 + (__tmp162130 + (let ((__tmp162131 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lambda)))) (declare (not safe)) - (cons __tmp162121 '())))) + (cons __tmp162131 '())))) (declare (not safe)) - (cons __tmp162122 __tmp162120))) - (__tmp162109 - (let ((__tmp162116 - (let ((__tmp162118 + (cons __tmp162132 __tmp162130))) + (__tmp162114 + (let ((__tmp162126 + (let ((__tmp162128 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162117 + (__tmp162127 (let () (declare (not safe)) - (cons _L160158_ '())))) + (cons _L160163_ '())))) (declare (not safe)) - (cons __tmp162118 __tmp162117))) - (__tmp162110 - (let ((__tmp162111 - (let ((__tmp162112 - (let ((__tmp162113 - (let ((__tmp162115 + (cons __tmp162128 __tmp162127))) + (__tmp162115 + (let ((__tmp162116 + (let ((__tmp162117 + (let ((__tmp162118 + (let ((__tmp162125 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162114 - (let () (declare (not safe)) (cons _L160156_ '())))) + (__tmp162119 + (let ((__tmp162120 + (let ((__tmp162124 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f '@lambda))) + (__tmp162121 + (let ((__tmp162122 + (let ((__tmp162123 + (let () + (declare (not safe)) + (cons _L160161_ '())))) + (declare (not safe)) + (cons 'inline: __tmp162123)))) + (declare (not safe)) + (cons _L160163_ __tmp162122)))) + (declare (not safe)) + (cons __tmp162124 __tmp162121)))) + (declare (not safe)) + (cons __tmp162120 '())))) (declare (not safe)) - (cons __tmp162115 __tmp162114)))) + (cons __tmp162125 __tmp162119)))) (declare (not safe)) - (cons __tmp162113 '())))) + (cons __tmp162118 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L160156_ __tmp162112)))) + (cons _L160161_ __tmp162117)))) (declare (not safe)) - (cons '#f __tmp162111)))) + (cons '#f __tmp162116)))) (declare (not safe)) - (cons __tmp162116 __tmp162110)))) + (cons __tmp162126 __tmp162115)))) (declare (not safe)) - (cons __tmp162119 __tmp162109)))) + (cons __tmp162129 __tmp162114)))) (declare (not safe)) - (cons __tmp162123 __tmp162108)))) - (___kont161622161623_ - (lambda (_L160087_ _L160089_) - (let ((__tmp162124 - (let ((__tmp162125 - (let ((__tmp162126 + (cons __tmp162133 __tmp162113)))) + (___kont161627161628_ + (lambda (_L160092_ _L160094_) + (let ((__tmp162134 + (let ((__tmp162135 + (let ((__tmp162136 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons _L160087_ __tmp162126)))) + (cons _L160092_ __tmp162136)))) (declare (not safe)) - (cons 'primitive: __tmp162125)))) + (cons 'primitive: __tmp162135)))) (declare (not safe)) - (cons _L160089_ __tmp162124)))) - (___kont161624161625_ - (lambda (_L160026_ _L160028_) - (let ((__tmp162140 + (cons _L160094_ __tmp162134)))) + (___kont161629161630_ + (lambda (_L160031_ _L160033_) + (let ((__tmp162150 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!primitive-lambda))) - (__tmp162127 - (let ((__tmp162136 - (let ((__tmp162139 + (__tmp162137 + (let ((__tmp162146 + (let ((__tmp162149 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162137 - (let ((__tmp162138 + (__tmp162147 + (let ((__tmp162148 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lambda)))) (declare (not safe)) - (cons __tmp162138 '())))) + (cons __tmp162148 '())))) (declare (not safe)) - (cons __tmp162139 __tmp162137))) - (__tmp162128 - (let ((__tmp162133 - (let ((__tmp162135 + (cons __tmp162149 __tmp162147))) + (__tmp162138 + (let ((__tmp162143 + (let ((__tmp162145 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162134 + (__tmp162144 (let () (declare (not safe)) - (cons _L160028_ '())))) + (cons _L160033_ '())))) (declare (not safe)) - (cons __tmp162135 __tmp162134))) - (__tmp162129 - (let ((__tmp162130 - (let ((__tmp162132 + (cons __tmp162145 __tmp162144))) + (__tmp162139 + (let ((__tmp162140 + (let ((__tmp162142 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162131 + (__tmp162141 (let () (declare (not safe)) - (cons _L160026_ '())))) + (cons _L160031_ '())))) (declare (not safe)) - (cons __tmp162132 - __tmp162131)))) + (cons __tmp162142 + __tmp162141)))) (declare (not safe)) - (cons __tmp162130 '())))) + (cons __tmp162140 '())))) (declare (not safe)) - (cons __tmp162133 __tmp162129)))) + (cons __tmp162143 __tmp162139)))) (declare (not safe)) - (cons __tmp162136 __tmp162128)))) + (cons __tmp162146 __tmp162138)))) (declare (not safe)) - (cons __tmp162140 __tmp162127)))) - (___kont161626161627_ - (lambda (_L159958_ _L159960_) - (let ((__tmp162154 + (cons __tmp162150 __tmp162137)))) + (___kont161631161632_ + (lambda (_L159963_ _L159965_) + (let ((__tmp162164 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!lambda))) - (__tmp162141 - (let ((__tmp162150 - (let ((__tmp162153 + (__tmp162151 + (let ((__tmp162160 + (let ((__tmp162163 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162151 - (let ((__tmp162152 + (__tmp162161 + (let ((__tmp162162 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lambda)))) (declare (not safe)) - (cons __tmp162152 '())))) + (cons __tmp162162 '())))) (declare (not safe)) - (cons __tmp162153 __tmp162151))) - (__tmp162142 - (let ((__tmp162147 - (let ((__tmp162149 + (cons __tmp162163 __tmp162161))) + (__tmp162152 + (let ((__tmp162157 + (let ((__tmp162159 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162148 + (__tmp162158 (let () (declare (not safe)) - (cons _L159960_ '())))) + (cons _L159965_ '())))) (declare (not safe)) - (cons __tmp162149 __tmp162148))) - (__tmp162143 - (let ((__tmp162144 - (let ((__tmp162146 + (cons __tmp162159 __tmp162158))) + (__tmp162153 + (let ((__tmp162154 + (let ((__tmp162156 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162145 + (__tmp162155 (let () (declare (not safe)) - (cons _L159958_ '())))) + (cons _L159963_ '())))) (declare (not safe)) - (cons __tmp162146 - __tmp162145)))) + (cons __tmp162156 + __tmp162155)))) (declare (not safe)) - (cons __tmp162144 '())))) + (cons __tmp162154 '())))) (declare (not safe)) - (cons __tmp162147 __tmp162143)))) + (cons __tmp162157 __tmp162153)))) (declare (not safe)) - (cons __tmp162150 __tmp162142)))) + (cons __tmp162160 __tmp162152)))) (declare (not safe)) - (cons __tmp162154 __tmp162141)))) - (___kont161628161629_ - (lambda (_L159905_ _L159907_) - (let ((__tmp162155 - (let ((__tmp162156 + (cons __tmp162164 __tmp162151)))) + (___kont161633161634_ + (lambda (_L159910_ _L159912_) + (let ((__tmp162165 + (let ((__tmp162166 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons _L159905_ __tmp162156)))) + (cons _L159910_ __tmp162166)))) (declare (not safe)) - (cons _L159907_ __tmp162155))))) - (if (let () (declare (not safe)) (gx#stx-pair? ___stx161617161618_)) - (let ((_e159816160112_ + (cons _L159912_ __tmp162165))))) + (if (let () (declare (not safe)) (gx#stx-pair? ___stx161622161623_)) + (let ((_e159821160117_ (let () (declare (not safe)) - (gx#syntax-e ___stx161617161618_)))) - (let ((_tl159814160119_ - (let () (declare (not safe)) (##cdr _e159816160112_))) - (_hd159815160116_ - (let () (declare (not safe)) (##car _e159816160112_)))) + (gx#syntax-e ___stx161622161623_)))) + (let ((_tl159819160124_ + (let () (declare (not safe)) (##cdr _e159821160117_))) + (_hd159820160121_ + (let () (declare (not safe)) (##car _e159821160117_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl159814160119_)) - (let ((_e159819160122_ + (gx#stx-pair? _tl159819160124_)) + (let ((_e159824160127_ (let () (declare (not safe)) - (gx#syntax-e _tl159814160119_)))) - (let ((_tl159817160129_ + (gx#syntax-e _tl159819160124_)))) + (let ((_tl159822160134_ (let () (declare (not safe)) - (##cdr _e159819160122_))) - (_hd159818160126_ + (##cdr _e159824160127_))) + (_hd159823160131_ (let () (declare (not safe)) - (##car _e159819160122_)))) + (##car _e159824160127_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl159817160129_)) - (let ((_e159822160132_ + (gx#stx-pair? _tl159822160134_)) + (let ((_e159827160137_ (let () (declare (not safe)) - (gx#syntax-e _tl159817160129_)))) - (let ((_tl159820160139_ + (gx#syntax-e _tl159822160134_)))) + (let ((_tl159825160144_ (let () (declare (not safe)) - (##cdr _e159822160132_))) - (_hd159821160136_ + (##cdr _e159827160137_))) + (_hd159826160141_ (let () (declare (not safe)) - (##car _e159822160132_)))) + (##car _e159827160137_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd159821160136_)) - (let ((_e159823160142_ + (gx#stx-datum? _hd159826160141_)) + (let ((_e159828160147_ (let () (declare (not safe)) - (gx#stx-e _hd159821160136_)))) + (gx#stx-e _hd159826160141_)))) (if (let () (declare (not safe)) - (equal? _e159823160142_ + (equal? _e159828160147_ 'inline:)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl159820160139_)) - (let ((_e159826160146_ + _tl159825160144_)) + (let ((_e159831160151_ (let () (declare (not safe)) (gx#syntax-e - _tl159820160139_)))) - (let ((_tl159824160153_ + _tl159825160144_)))) + (let ((_tl159829160158_ (let () (declare (not safe)) - (##cdr _e159826160146_))) - (_hd159825160150_ + (##cdr _e159831160151_))) + (_hd159830160155_ (let () (declare (not safe)) - (##car _e159826160146_)))) + (##car _e159831160151_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl159824160153_)) - (___kont161620161621_ - _hd159825160150_ - _hd159818160126_) + _tl159829160158_)) + (___kont161625161626_ + _hd159830160155_ + _hd159823160131_) (if (let () (declare (not safe)) (gx#stx-datum? - _hd159818160126_)) - (let ((_e159835160073_ + _hd159823160131_)) + (let ((_e159840160078_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd159818160126_)))) + (gx#stx-e _hd159823160131_)))) (declare (not safe)) - (_g159810159878_)) - (let () (declare (not safe)) (_g159810159878_)))))) + (_g159815159883_)) + (let () (declare (not safe)) (_g159815159883_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-datum? - _hd159818160126_)) - (let ((_e159835160073_ + _hd159823160131_)) + (let ((_e159840160078_ (let () (declare (not safe)) (gx#stx-e - _hd159818160126_)))) + _hd159823160131_)))) (if (let () (declare (not safe)) - (equal? _e159835160073_ + (equal? _e159840160078_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 'primitive:)) (if (let () (declare (not safe)) - (gx#stx-null? _tl159820160139_)) - (___kont161622161623_ _hd159821160136_ _hd159815160116_) - (let () (declare (not safe)) (_g159810159878_))) + (gx#stx-null? _tl159825160144_)) + (___kont161627161628_ _hd159826160141_ _hd159820160121_) + (let () (declare (not safe)) (_g159815159883_))) (if (let () (declare (not safe)) - (gx#stx-null? _tl159820160139_)) - (___kont161626161627_ _hd159821160136_ _hd159818160126_) - (let () (declare (not safe)) (_g159810159878_))))) + (gx#stx-null? _tl159825160144_)) + (___kont161631161632_ _hd159826160141_ _hd159823160131_) + (let () (declare (not safe)) (_g159815159883_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _tl159820160139_)) - (___kont161626161627_ - _hd159821160136_ - _hd159818160126_) + _tl159825160144_)) + (___kont161631161632_ + _hd159826160141_ + _hd159823160131_) (let () (declare (not safe)) - (_g159810159878_))))) + (_g159815159883_))))) (if (let () (declare (not safe)) (gx#stx-datum? - _hd159818160126_)) - (let ((_e159835160073_ + _hd159823160131_)) + (let ((_e159840160078_ (let () (declare (not safe)) (gx#stx-e - _hd159818160126_)))) + _hd159823160131_)))) (if (let () (declare (not safe)) - (equal? _e159835160073_ + (equal? _e159840160078_ 'primitive:)) (if (let () (declare (not safe)) (gx#stx-null? - _tl159820160139_)) - (___kont161622161623_ - _hd159821160136_ - _hd159815160116_) + _tl159825160144_)) + (___kont161627161628_ + _hd159826160141_ + _hd159820160121_) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl159820160139_)) - (let ((_e159853160016_ + (gx#stx-pair? _tl159825160144_)) + (let ((_e159858160021_ (let () (declare (not safe)) - (gx#syntax-e _tl159820160139_)))) - (let ((_tl159851160023_ + (gx#syntax-e _tl159825160144_)))) + (let ((_tl159856160028_ (let () (declare (not safe)) - (##cdr _e159853160016_))) - (_hd159852160020_ + (##cdr _e159858160021_))) + (_hd159857160025_ (let () (declare (not safe)) - (##car _e159853160016_)))) + (##car _e159858160021_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl159851160023_)) - (___kont161624161625_ - _hd159852160020_ - _hd159821160136_) + (gx#stx-null? _tl159856160028_)) + (___kont161629161630_ + _hd159857160025_ + _hd159826160141_) (let () (declare (not safe)) - (_g159810159878_))))) - (let () (declare (not safe)) (_g159810159878_)))) - (if (let () (declare (not safe)) (gx#stx-null? _tl159820160139_)) - (___kont161626161627_ _hd159821160136_ _hd159818160126_) - (let () (declare (not safe)) (_g159810159878_))))) + (_g159815159883_))))) + (let () (declare (not safe)) (_g159815159883_)))) + (if (let () (declare (not safe)) (gx#stx-null? _tl159825160144_)) + (___kont161631161632_ _hd159826160141_ _hd159823160131_) + (let () (declare (not safe)) (_g159815159883_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _tl159820160139_)) - (___kont161626161627_ - _hd159821160136_ - _hd159818160126_) + _tl159825160144_)) + (___kont161631161632_ + _hd159826160141_ + _hd159823160131_) (let () (declare (not safe)) - (_g159810159878_)))))) + (_g159815159883_)))))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd159818160126_)) - (let ((_e159835160073_ + (gx#stx-datum? _hd159823160131_)) + (let ((_e159840160078_ (let () (declare (not safe)) (gx#stx-e - _hd159818160126_)))) + _hd159823160131_)))) (if (let () (declare (not safe)) - (equal? _e159835160073_ + (equal? _e159840160078_ 'primitive:)) (if (let () (declare (not safe)) (gx#stx-null? - _tl159820160139_)) - (___kont161622161623_ - _hd159821160136_ - _hd159815160116_) + _tl159825160144_)) + (___kont161627161628_ + _hd159826160141_ + _hd159820160121_) (if (let () (declare (not safe)) (gx#stx-pair? - _tl159820160139_)) - (let ((_e159853160016_ + _tl159825160144_)) + (let ((_e159858160021_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _tl159820160139_)))) - (let ((_tl159851160023_ - (let () (declare (not safe)) (##cdr _e159853160016_))) - (_hd159852160020_ + (gx#syntax-e _tl159825160144_)))) + (let ((_tl159856160028_ + (let () (declare (not safe)) (##cdr _e159858160021_))) + (_hd159857160025_ (let () (declare (not safe)) - (##car _e159853160016_)))) + (##car _e159858160021_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl159851160023_)) - (___kont161624161625_ - _hd159852160020_ - _hd159821160136_) - (let () (declare (not safe)) (_g159810159878_))))) - (let () (declare (not safe)) (_g159810159878_)))) + (gx#stx-null? _tl159856160028_)) + (___kont161629161630_ + _hd159857160025_ + _hd159826160141_) + (let () (declare (not safe)) (_g159815159883_))))) + (let () (declare (not safe)) (_g159815159883_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _tl159820160139_)) - (___kont161626161627_ - _hd159821160136_ - _hd159818160126_) + _tl159825160144_)) + (___kont161631161632_ + _hd159826160141_ + _hd159823160131_) (let () (declare (not safe)) - (_g159810159878_))))) + (_g159815159883_))))) (if (let () (declare (not safe)) (gx#stx-null? - _tl159820160139_)) - (___kont161626161627_ - _hd159821160136_ - _hd159818160126_) + _tl159825160144_)) + (___kont161631161632_ + _hd159826160141_ + _hd159823160131_) (let () (declare (not safe)) - (_g159810159878_))))))) + (_g159815159883_))))))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd159818160126_)) - (let ((_e159835160073_ + (gx#stx-datum? _hd159823160131_)) + (let ((_e159840160078_ (let () (declare (not safe)) - (gx#stx-e _hd159818160126_)))) + (gx#stx-e _hd159823160131_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl159817160129_)) - (___kont161628161629_ - _hd159818160126_ - _hd159815160116_) + (gx#stx-null? _tl159822160134_)) + (___kont161633161634_ + _hd159823160131_ + _hd159820160121_) (let () (declare (not safe)) - (_g159810159878_)))) + (_g159815159883_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl159817160129_)) - (___kont161628161629_ - _hd159818160126_ - _hd159815160116_) + (gx#stx-null? _tl159822160134_)) + (___kont161633161634_ + _hd159823160131_ + _hd159820160121_) (let () (declare (not safe)) - (_g159810159878_))))))) - (let () (declare (not safe)) (_g159810159878_))))) - (let () (declare (not safe)) (_g159810159878_))))))) + (_g159815159883_))))))) + (let () (declare (not safe)) (_g159815159883_))))) + (let () (declare (not safe)) (_g159815159883_))))))) (define |gxc[:0:]#@case-lambda| - (lambda (_$stx160180_) - (let* ((___stx161757161758_ _$stx160180_) - (_g160185160240_ + (lambda (_$stx160185_) + (let* ((___stx161762161763_ _$stx160185_) + (_g160190160245_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx161757161758_))))) - (let ((___kont161760161761_ - (lambda (_L160425_ _L160427_) - (let ((__tmp162172 + ___stx161762161763_))))) + (let ((___kont161765161766_ + (lambda (_L160430_ _L160432_) + (let ((__tmp162182 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!primitive-case-lambda))) - (__tmp162157 - (let ((__tmp162168 - (let ((__tmp162171 + (__tmp162167 + (let ((__tmp162178 + (let ((__tmp162181 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162169 - (let ((__tmp162170 + (__tmp162179 + (let ((__tmp162180 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'case-lambda)))) (declare (not safe)) - (cons __tmp162170 '())))) + (cons __tmp162180 '())))) (declare (not safe)) - (cons __tmp162171 __tmp162169))) - (__tmp162158 - (let ((__tmp162159 - (let ((__tmp162167 + (cons __tmp162181 __tmp162179))) + (__tmp162168 + (let ((__tmp162169 + (let ((__tmp162177 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@list))) - (__tmp162160 + (__tmp162170 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L160425_ - _L160427_)) - (let ((__tmp162161 - (lambda (_g160444160448_ - _g160445160451_ - _g160446160453_) - (let ((__tmp162162 - (let ((__tmp162166 + _L160430_ + _L160432_)) + (let ((__tmp162171 + (lambda (_g160449160453_ + _g160450160456_ + _g160451160458_) + (let ((__tmp162172 + (let ((__tmp162176 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@lambda))) - (__tmp162163 - (let ((__tmp162164 - (let ((__tmp162165 + (__tmp162173 + (let ((__tmp162174 + (let ((__tmp162175 (let () (declare (not safe)) - (cons _g160444160448_ '())))) + (cons _g160449160453_ '())))) (declare (not safe)) - (cons _g160445160451_ __tmp162165)))) + (cons _g160450160456_ __tmp162175)))) (declare (not safe)) - (cons 'primitive: __tmp162164)))) + (cons 'primitive: __tmp162174)))) (declare (not safe)) - (cons __tmp162166 __tmp162163)))) + (cons __tmp162176 __tmp162173)))) (declare (not safe)) - (cons __tmp162162 _g160446160453_))))) + (cons __tmp162172 _g160451160458_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr2 __tmp162161 + (foldr2 __tmp162171 '() - _L160425_ - _L160427_))))) + _L160430_ + _L160432_))))) (declare (not safe)) - (cons __tmp162167 __tmp162160)))) + (cons __tmp162177 __tmp162170)))) (declare (not safe)) - (cons __tmp162159 '())))) + (cons __tmp162169 '())))) (declare (not safe)) - (cons __tmp162168 __tmp162158)))) + (cons __tmp162178 __tmp162168)))) (declare (not safe)) - (cons __tmp162172 __tmp162157)))) - (___kont161764161765_ - (lambda (_L160311_ _L160313_) - (let ((__tmp162187 + (cons __tmp162182 __tmp162167)))) + (___kont161769161770_ + (lambda (_L160316_ _L160318_) + (let ((__tmp162197 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!case-lambda))) - (__tmp162173 - (let ((__tmp162183 - (let ((__tmp162186 + (__tmp162183 + (let ((__tmp162193 + (let ((__tmp162196 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162184 - (let ((__tmp162185 + (__tmp162194 + (let ((__tmp162195 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'case-lambda)))) (declare (not safe)) - (cons __tmp162185 '())))) + (cons __tmp162195 '())))) (declare (not safe)) - (cons __tmp162186 __tmp162184))) - (__tmp162174 - (let ((__tmp162175 - (let ((__tmp162182 + (cons __tmp162196 __tmp162194))) + (__tmp162184 + (let ((__tmp162185 + (let ((__tmp162192 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@list))) - (__tmp162176 + (__tmp162186 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L160311_ - _L160313_)) - (let ((__tmp162177 - (lambda (_g160328160332_ - _g160329160335_ - _g160330160337_) - (let ((__tmp162178 - (let ((__tmp162181 + _L160316_ + _L160318_)) + (let ((__tmp162187 + (lambda (_g160333160337_ + _g160334160340_ + _g160335160342_) + (let ((__tmp162188 + (let ((__tmp162191 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@lambda))) - (__tmp162179 - (let ((__tmp162180 + (__tmp162189 + (let ((__tmp162190 (let () (declare (not safe)) - (cons _g160328160332_ '())))) + (cons _g160333160337_ '())))) (declare (not safe)) - (cons _g160329160335_ __tmp162180)))) + (cons _g160334160340_ __tmp162190)))) (declare (not safe)) - (cons __tmp162181 __tmp162179)))) + (cons __tmp162191 __tmp162189)))) (declare (not safe)) - (cons __tmp162178 _g160330160337_))))) + (cons __tmp162188 _g160335160342_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr2 __tmp162177 + (foldr2 __tmp162187 '() - _L160311_ - _L160313_))))) + _L160316_ + _L160318_))))) (declare (not safe)) - (cons __tmp162182 __tmp162176)))) + (cons __tmp162192 __tmp162186)))) (declare (not safe)) - (cons __tmp162175 '())))) + (cons __tmp162185 '())))) (declare (not safe)) - (cons __tmp162183 __tmp162174)))) + (cons __tmp162193 __tmp162184)))) (declare (not safe)) - (cons __tmp162187 __tmp162173))))) - (let* ((___match161808161809_ - (lambda (_e160217160247_ - _hd160216160251_ - _tl160215160254_ - ___splice161766161767_ - _target160218160257_ - _tl160220160260_) - (letrec ((_loop160221160263_ - (lambda (_hd160219160267_ - _dispatch160225160270_ - _arity160226160272_) + (cons __tmp162197 __tmp162183))))) + (let* ((___match161813161814_ + (lambda (_e160222160252_ + _hd160221160256_ + _tl160220160259_ + ___splice161771161772_ + _target160223160262_ + _tl160225160265_) + (letrec ((_loop160226160268_ + (lambda (_hd160224160272_ + _dispatch160230160275_ + _arity160231160277_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd160219160267_)) - (let ((_e160222160275_ + (gx#stx-pair? _hd160224160272_)) + (let ((_e160227160280_ (let () (declare (not safe)) - (gx#syntax-e _hd160219160267_)))) - (let ((_lp-tl160224160282_ + (gx#syntax-e _hd160224160272_)))) + (let ((_lp-tl160229160287_ (let () (declare (not safe)) - (##cdr _e160222160275_))) - (_lp-hd160223160279_ + (##cdr _e160227160280_))) + (_lp-hd160228160284_ (let () (declare (not safe)) - (##car _e160222160275_)))) + (##car _e160227160280_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd160223160279_)) - (let ((_e160231160285_ + _lp-hd160228160284_)) + (let ((_e160236160290_ (let () (declare (not safe)) (gx#syntax-e - _lp-hd160223160279_)))) - (let ((_tl160229160292_ + _lp-hd160228160284_)))) + (let ((_tl160234160297_ (let () (declare (not safe)) - (##cdr _e160231160285_))) - (_hd160230160289_ + (##cdr _e160236160290_))) + (_hd160235160294_ (let () (declare (not safe)) - (##car _e160231160285_)))) + (##car _e160236160290_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl160229160292_)) - (let ((_e160234160295_ + _tl160234160297_)) + (let ((_e160239160300_ (let () (declare (not safe)) (gx#syntax-e - _tl160229160292_)))) - (let ((_tl160232160302_ + _tl160234160297_)))) + (let ((_tl160237160307_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e160234160295_))) - (_hd160233160299_ - (let () (declare (not safe)) (##car _e160234160295_)))) + (##cdr _e160239160300_))) + (_hd160238160304_ + (let () (declare (not safe)) (##car _e160239160300_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl160232160302_)) - (_loop160221160263_ - _lp-tl160224160282_ + (gx#stx-null? _tl160237160307_)) + (_loop160226160268_ + _lp-tl160229160287_ (let () (declare (not safe)) - (cons _hd160233160299_ _dispatch160225160270_)) + (cons _hd160238160304_ _dispatch160230160275_)) (let () (declare (not safe)) - (cons _hd160230160289_ _arity160226160272_))) - (let () (declare (not safe)) (_g160185160240_))))) + (cons _hd160235160294_ _arity160231160277_))) + (let () (declare (not safe)) (_g160190160245_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g160185160240_))))) + (_g160190160245_))))) (let () (declare (not safe)) - (_g160185160240_))))) - (let ((_arity160228160308_ - (reverse _arity160226160272_)) - (_dispatch160227160305_ - (reverse _dispatch160225160270_))) - (___kont161764161765_ - _dispatch160227160305_ - _arity160228160308_)))))) - (_loop160221160263_ _target160218160257_ '() '())))) - (___match161800161801_ - (lambda (_e160217160247_ _hd160216160251_ _tl160215160254_) + (_g160190160245_))))) + (let ((_arity160233160313_ + (reverse _arity160231160277_)) + (_dispatch160232160310_ + (reverse _dispatch160230160275_))) + (___kont161769161770_ + _dispatch160232160310_ + _arity160233160313_)))))) + (_loop160226160268_ _target160223160262_ '() '())))) + (___match161805161806_ + (lambda (_e160222160252_ _hd160221160256_ _tl160220160259_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl160215160254_)) - (let ((___splice161766161767_ + (gx#stx-pair/null? _tl160220160259_)) + (let ((___splice161771161772_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl160215160254_ + _tl160220160259_ '0)))) - (let ((_tl160220160260_ + (let ((_tl160225160265_ (let () (declare (not safe)) - (##vector-ref ___splice161766161767_ '1))) - (_target160218160257_ + (##vector-ref ___splice161771161772_ '1))) + (_target160223160262_ (let () (declare (not safe)) - (##vector-ref ___splice161766161767_ '0)))) + (##vector-ref ___splice161771161772_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl160220160260_)) - (___match161808161809_ - _e160217160247_ - _hd160216160251_ - _tl160215160254_ - ___splice161766161767_ - _target160218160257_ - _tl160220160260_) + (gx#stx-null? _tl160225160265_)) + (___match161813161814_ + _e160222160252_ + _hd160221160256_ + _tl160220160259_ + ___splice161771161772_ + _target160223160262_ + _tl160225160265_) (let () (declare (not safe)) - (_g160185160240_))))) - (let () (declare (not safe)) (_g160185160240_))))) - (___match161794161795_ - (lambda (_e160191160347_ - _hd160190160351_ - _tl160189160354_ - _e160194160357_ - _hd160193160361_ - _tl160192160364_ - _e160195160367_ - ___splice161762161763_ - _target160196160371_ - _tl160198160374_) - (letrec ((_loop160199160377_ - (lambda (_hd160197160381_ - _dispatch160203160384_ - _arity160204160386_) + (_g160190160245_))))) + (let () (declare (not safe)) (_g160190160245_))))) + (___match161799161800_ + (lambda (_e160196160352_ + _hd160195160356_ + _tl160194160359_ + _e160199160362_ + _hd160198160366_ + _tl160197160369_ + _e160200160372_ + ___splice161767161768_ + _target160201160376_ + _tl160203160379_) + (letrec ((_loop160204160382_ + (lambda (_hd160202160386_ + _dispatch160208160389_ + _arity160209160391_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd160197160381_)) - (let ((_e160200160389_ + (gx#stx-pair? _hd160202160386_)) + (let ((_e160205160394_ (let () (declare (not safe)) - (gx#syntax-e _hd160197160381_)))) - (let ((_lp-tl160202160396_ + (gx#syntax-e _hd160202160386_)))) + (let ((_lp-tl160207160401_ (let () (declare (not safe)) - (##cdr _e160200160389_))) - (_lp-hd160201160393_ + (##cdr _e160205160394_))) + (_lp-hd160206160398_ (let () (declare (not safe)) - (##car _e160200160389_)))) + (##car _e160205160394_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd160201160393_)) - (let ((_e160209160399_ + _lp-hd160206160398_)) + (let ((_e160214160404_ (let () (declare (not safe)) (gx#syntax-e - _lp-hd160201160393_)))) - (let ((_tl160207160406_ + _lp-hd160206160398_)))) + (let ((_tl160212160411_ (let () (declare (not safe)) - (##cdr _e160209160399_))) - (_hd160208160403_ + (##cdr _e160214160404_))) + (_hd160213160408_ (let () (declare (not safe)) - (##car _e160209160399_)))) + (##car _e160214160404_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl160207160406_)) - (let ((_e160212160409_ + _tl160212160411_)) + (let ((_e160217160414_ (let () (declare (not safe)) (gx#syntax-e - _tl160207160406_)))) - (let ((_tl160210160416_ + _tl160212160411_)))) + (let ((_tl160215160421_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e160212160409_))) - (_hd160211160413_ - (let () (declare (not safe)) (##car _e160212160409_)))) + (##cdr _e160217160414_))) + (_hd160216160418_ + (let () (declare (not safe)) (##car _e160217160414_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl160210160416_)) - (_loop160199160377_ - _lp-tl160202160396_ + (gx#stx-null? _tl160215160421_)) + (_loop160204160382_ + _lp-tl160207160401_ (let () (declare (not safe)) - (cons _hd160211160413_ _dispatch160203160384_)) + (cons _hd160216160418_ _dispatch160208160389_)) (let () (declare (not safe)) - (cons _hd160208160403_ _arity160204160386_))) - (___match161800161801_ - _e160191160347_ - _hd160190160351_ - _tl160189160354_)))) + (cons _hd160213160408_ _arity160209160391_))) + (___match161805161806_ + _e160196160352_ + _hd160195160356_ + _tl160194160359_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match161800161801_ - _e160191160347_ - _hd160190160351_ - _tl160189160354_)))) - (___match161800161801_ - _e160191160347_ - _hd160190160351_ - _tl160189160354_)))) - (let ((_arity160206160422_ - (reverse _arity160204160386_)) - (_dispatch160205160419_ - (reverse _dispatch160203160384_))) - (___kont161760161761_ - _dispatch160205160419_ - _arity160206160422_)))))) - (_loop160199160377_ _target160196160371_ '() '()))))) + (___match161805161806_ + _e160196160352_ + _hd160195160356_ + _tl160194160359_)))) + (___match161805161806_ + _e160196160352_ + _hd160195160356_ + _tl160194160359_)))) + (let ((_arity160211160427_ + (reverse _arity160209160391_)) + (_dispatch160210160424_ + (reverse _dispatch160208160389_))) + (___kont161765161766_ + _dispatch160210160424_ + _arity160211160427_)))))) + (_loop160204160382_ _target160201160376_ '() '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx161757161758_)) - (let ((_e160191160347_ + (gx#stx-pair? ___stx161762161763_)) + (let ((_e160196160352_ (let () (declare (not safe)) - (gx#syntax-e ___stx161757161758_)))) - (let ((_tl160189160354_ - (let () (declare (not safe)) (##cdr _e160191160347_))) - (_hd160190160351_ + (gx#syntax-e ___stx161762161763_)))) + (let ((_tl160194160359_ + (let () (declare (not safe)) (##cdr _e160196160352_))) + (_hd160195160356_ (let () (declare (not safe)) - (##car _e160191160347_)))) + (##car _e160196160352_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl160189160354_)) - (let ((_e160194160357_ + (gx#stx-pair? _tl160194160359_)) + (let ((_e160199160362_ (let () (declare (not safe)) - (gx#syntax-e _tl160189160354_)))) - (let ((_tl160192160364_ + (gx#syntax-e _tl160194160359_)))) + (let ((_tl160197160369_ (let () (declare (not safe)) - (##cdr _e160194160357_))) - (_hd160193160361_ + (##cdr _e160199160362_))) + (_hd160198160366_ (let () (declare (not safe)) - (##car _e160194160357_)))) + (##car _e160199160362_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd160193160361_)) - (let ((_e160195160367_ + (gx#stx-datum? _hd160198160366_)) + (let ((_e160200160372_ (let () (declare (not safe)) - (gx#stx-e _hd160193160361_)))) + (gx#stx-e _hd160198160366_)))) (if (let () (declare (not safe)) - (equal? _e160195160367_ 'primitive:)) + (equal? _e160200160372_ 'primitive:)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl160192160364_)) - (let ((___splice161762161763_ + _tl160197160369_)) + (let ((___splice161767161768_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl160192160364_ + _tl160197160369_ '0)))) - (let ((_tl160198160374_ + (let ((_tl160203160379_ (let () (declare (not safe)) (##vector-ref - ___splice161762161763_ + ___splice161767161768_ '1))) - (_target160196160371_ + (_target160201160376_ (let () (declare (not safe)) (##vector-ref - ___splice161762161763_ + ___splice161767161768_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl160198160374_)) - (___match161794161795_ - _e160191160347_ - _hd160190160351_ - _tl160189160354_ - _e160194160357_ - _hd160193160361_ - _tl160192160364_ - _e160195160367_ - ___splice161762161763_ - _target160196160371_ - _tl160198160374_) + _tl160203160379_)) + (___match161799161800_ + _e160196160352_ + _hd160195160356_ + _tl160194160359_ + _e160199160362_ + _hd160198160366_ + _tl160197160369_ + _e160200160372_ + ___splice161767161768_ + _target160201160376_ + _tl160203160379_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl160189160354_)) - (let ((___splice161766161767_ + _tl160194160359_)) + (let ((___splice161771161772_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _tl160189160354_ '0)))) - (let ((_tl160220160260_ + (gx#syntax-split-splice _tl160194160359_ '0)))) + (let ((_tl160225160265_ (let () (declare (not safe)) - (##vector-ref ___splice161766161767_ '1))) - (_target160218160257_ + (##vector-ref ___splice161771161772_ '1))) + (_target160223160262_ (let () (declare (not safe)) - (##vector-ref ___splice161766161767_ '0)))) + (##vector-ref ___splice161771161772_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl160220160260_)) - (___match161808161809_ - _e160191160347_ - _hd160190160351_ - _tl160189160354_ - ___splice161766161767_ - _target160218160257_ - _tl160220160260_) - (let () (declare (not safe)) (_g160185160240_))))) - (let () (declare (not safe)) (_g160185160240_)))))) + (gx#stx-null? _tl160225160265_)) + (___match161813161814_ + _e160196160352_ + _hd160195160356_ + _tl160194160359_ + ___splice161771161772_ + _target160223160262_ + _tl160225160265_) + (let () (declare (not safe)) (_g160190160245_))))) + (let () (declare (not safe)) (_g160190160245_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl160189160354_)) - (let ((___splice161766161767_ + _tl160194160359_)) + (let ((___splice161771161772_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl160189160354_ + _tl160194160359_ '0)))) - (let ((_tl160220160260_ + (let ((_tl160225160265_ (let () (declare (not safe)) (##vector-ref - ___splice161766161767_ + ___splice161771161772_ '1))) - (_target160218160257_ + (_target160223160262_ (let () (declare (not safe)) (##vector-ref - ___splice161766161767_ + ___splice161771161772_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl160220160260_)) - (___match161808161809_ - _e160191160347_ - _hd160190160351_ - _tl160189160354_ - ___splice161766161767_ - _target160218160257_ - _tl160220160260_) + _tl160225160265_)) + (___match161813161814_ + _e160196160352_ + _hd160195160356_ + _tl160194160359_ + ___splice161771161772_ + _target160223160262_ + _tl160225160265_) (let () (declare (not safe)) - (_g160185160240_))))) + (_g160190160245_))))) (let () (declare (not safe)) - (_g160185160240_)))) + (_g160190160245_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl160189160354_)) - (let ((___splice161766161767_ + _tl160194160359_)) + (let ((___splice161771161772_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl160189160354_ + _tl160194160359_ '0)))) - (let ((_tl160220160260_ + (let ((_tl160225160265_ (let () (declare (not safe)) (##vector-ref - ___splice161766161767_ + ___splice161771161772_ '1))) - (_target160218160257_ + (_target160223160262_ (let () (declare (not safe)) (##vector-ref - ___splice161766161767_ + ___splice161771161772_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl160220160260_)) - (___match161808161809_ - _e160191160347_ - _hd160190160351_ - _tl160189160354_ - ___splice161766161767_ - _target160218160257_ - _tl160220160260_) + _tl160225160265_)) + (___match161813161814_ + _e160196160352_ + _hd160195160356_ + _tl160194160359_ + ___splice161771161772_ + _target160223160262_ + _tl160225160265_) (let () (declare (not safe)) - (_g160185160240_))))) + (_g160190160245_))))) (let () (declare (not safe)) - (_g160185160240_))))) + (_g160190160245_))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl160189160354_)) - (let ((___splice161766161767_ + (gx#stx-pair/null? _tl160194160359_)) + (let ((___splice161771161772_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl160189160354_ + _tl160194160359_ '0)))) - (let ((_tl160220160260_ + (let ((_tl160225160265_ (let () (declare (not safe)) (##vector-ref - ___splice161766161767_ + ___splice161771161772_ '1))) - (_target160218160257_ + (_target160223160262_ (let () (declare (not safe)) (##vector-ref - ___splice161766161767_ + ___splice161771161772_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl160220160260_)) - (___match161808161809_ - _e160191160347_ - _hd160190160351_ - _tl160189160354_ - ___splice161766161767_ - _target160218160257_ - _tl160220160260_) + (gx#stx-null? _tl160225160265_)) + (___match161813161814_ + _e160196160352_ + _hd160195160356_ + _tl160194160359_ + ___splice161771161772_ + _target160223160262_ + _tl160225160265_) (let () (declare (not safe)) - (_g160185160240_))))) + (_g160190160245_))))) (let () (declare (not safe)) - (_g160185160240_)))))) + (_g160190160245_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl160189160354_)) - (let ((___splice161766161767_ + (gx#stx-pair/null? _tl160194160359_)) + (let ((___splice161771161772_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl160189160354_ + _tl160194160359_ '0)))) - (let ((_tl160220160260_ + (let ((_tl160225160265_ (let () (declare (not safe)) (##vector-ref - ___splice161766161767_ + ___splice161771161772_ '1))) - (_target160218160257_ + (_target160223160262_ (let () (declare (not safe)) (##vector-ref - ___splice161766161767_ + ___splice161771161772_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl160220160260_)) - (___match161808161809_ - _e160191160347_ - _hd160190160351_ - _tl160189160354_ - ___splice161766161767_ - _target160218160257_ - _tl160220160260_) + (gx#stx-null? _tl160225160265_)) + (___match161813161814_ + _e160196160352_ + _hd160195160356_ + _tl160194160359_ + ___splice161771161772_ + _target160223160262_ + _tl160225160265_) (let () (declare (not safe)) - (_g160185160240_))))) - (let () (declare (not safe)) (_g160185160240_)))))) - (let () (declare (not safe)) (_g160185160240_)))))))) + (_g160190160245_))))) + (let () (declare (not safe)) (_g160190160245_)))))) + (let () (declare (not safe)) (_g160190160245_)))))))) (define |gxc[:0:]#@kw-lambda| - (lambda (_$stx160462_) - (let* ((_g160466160484_ - (lambda (_g160467160480_) + (lambda (_$stx160467_) + (let* ((_g160471160489_ + (lambda (_g160472160485_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g160467160480_)))) - (_g160465160539_ - (lambda (_g160467160488_) + _g160472160485_)))) + (_g160470160544_ + (lambda (_g160472160493_) (if (let () (declare (not safe)) - (gx#stx-pair? _g160467160488_)) - (let ((_e160472160491_ + (gx#stx-pair? _g160472160493_)) + (let ((_e160477160496_ (let () (declare (not safe)) - (gx#syntax-e _g160467160488_)))) - (let ((_hd160471160495_ + (gx#syntax-e _g160472160493_)))) + (let ((_hd160476160500_ (let () (declare (not safe)) - (##car _e160472160491_))) - (_tl160470160498_ + (##car _e160477160496_))) + (_tl160475160503_ (let () (declare (not safe)) - (##cdr _e160472160491_)))) + (##cdr _e160477160496_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl160470160498_)) - (let ((_e160475160501_ + (gx#stx-pair? _tl160475160503_)) + (let ((_e160480160506_ (let () (declare (not safe)) - (gx#syntax-e _tl160470160498_)))) - (let ((_hd160474160505_ + (gx#syntax-e _tl160475160503_)))) + (let ((_hd160479160510_ (let () (declare (not safe)) - (##car _e160475160501_))) - (_tl160473160508_ + (##car _e160480160506_))) + (_tl160478160513_ (let () (declare (not safe)) - (##cdr _e160475160501_)))) + (##cdr _e160480160506_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl160473160508_)) - (let ((_e160478160511_ + (gx#stx-pair? _tl160478160513_)) + (let ((_e160483160516_ (let () (declare (not safe)) - (gx#syntax-e _tl160473160508_)))) - (let ((_hd160477160515_ + (gx#syntax-e _tl160478160513_)))) + (let ((_hd160482160520_ (let () (declare (not safe)) - (##car _e160478160511_))) - (_tl160476160518_ + (##car _e160483160516_))) + (_tl160481160523_ (let () (declare (not safe)) - (##cdr _e160478160511_)))) + (##cdr _e160483160516_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl160476160518_)) - ((lambda (_L160521_ _L160523_) - (let ((__tmp162201 + (gx#stx-null? _tl160481160523_)) + ((lambda (_L160526_ _L160528_) + (let ((__tmp162211 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!kw-lambda))) - (__tmp162188 - (let ((__tmp162197 - (let ((__tmp162200 + (__tmp162198 + (let ((__tmp162207 + (let ((__tmp162210 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162198 - (let ((__tmp162199 + (__tmp162208 + (let ((__tmp162209 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'kw-lambda)))) (declare (not safe)) - (cons __tmp162199 '())))) + (cons __tmp162209 '())))) (declare (not safe)) - (cons __tmp162200 __tmp162198))) - (__tmp162189 - (let ((__tmp162194 - (let ((__tmp162196 + (cons __tmp162210 __tmp162208))) + (__tmp162199 + (let ((__tmp162204 + (let ((__tmp162206 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162195 + (__tmp162205 (let () (declare (not safe)) - (cons _L160523_ '())))) + (cons _L160528_ '())))) (declare (not safe)) - (cons __tmp162196 __tmp162195))) - (__tmp162190 - (let ((__tmp162191 - (let ((__tmp162193 + (cons __tmp162206 __tmp162205))) + (__tmp162200 + (let ((__tmp162201 + (let ((__tmp162203 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162192 + (__tmp162202 (let () (declare (not safe)) - (cons _L160521_ '())))) + (cons _L160526_ '())))) (declare (not safe)) - (cons __tmp162193 __tmp162192)))) + (cons __tmp162203 __tmp162202)))) (declare (not safe)) - (cons __tmp162191 '())))) + (cons __tmp162201 '())))) (declare (not safe)) - (cons __tmp162194 __tmp162190)))) + (cons __tmp162204 __tmp162200)))) (declare (not safe)) - (cons __tmp162197 __tmp162189)))) + (cons __tmp162207 __tmp162199)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp162201 - __tmp162188))) - _hd160477160515_ - _hd160474160505_) - (_g160466160484_ - _g160467160488_)))) - (_g160466160484_ _g160467160488_)))) - (_g160466160484_ _g160467160488_)))) - (_g160466160484_ _g160467160488_))))) - (_g160465160539_ _$stx160462_)))) + (cons __tmp162211 + __tmp162198))) + _hd160482160520_ + _hd160479160510_) + (_g160471160489_ + _g160472160493_)))) + (_g160471160489_ _g160472160493_)))) + (_g160471160489_ _g160472160493_)))) + (_g160471160489_ _g160472160493_))))) + (_g160470160544_ _$stx160467_)))) (define |gxc[:0:]#@kw-lambda-dispatch| - (lambda (_$stx160543_) - (let* ((_g160547160565_ - (lambda (_g160548160561_) + (lambda (_$stx160548_) + (let* ((_g160552160570_ + (lambda (_g160553160566_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g160548160561_)))) - (_g160546160620_ - (lambda (_g160548160569_) + _g160553160566_)))) + (_g160551160625_ + (lambda (_g160553160574_) (if (let () (declare (not safe)) - (gx#stx-pair? _g160548160569_)) - (let ((_e160553160572_ + (gx#stx-pair? _g160553160574_)) + (let ((_e160558160577_ (let () (declare (not safe)) - (gx#syntax-e _g160548160569_)))) - (let ((_hd160552160576_ + (gx#syntax-e _g160553160574_)))) + (let ((_hd160557160581_ (let () (declare (not safe)) - (##car _e160553160572_))) - (_tl160551160579_ + (##car _e160558160577_))) + (_tl160556160584_ (let () (declare (not safe)) - (##cdr _e160553160572_)))) + (##cdr _e160558160577_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl160551160579_)) - (let ((_e160556160582_ + (gx#stx-pair? _tl160556160584_)) + (let ((_e160561160587_ (let () (declare (not safe)) - (gx#syntax-e _tl160551160579_)))) - (let ((_hd160555160586_ + (gx#syntax-e _tl160556160584_)))) + (let ((_hd160560160591_ (let () (declare (not safe)) - (##car _e160556160582_))) - (_tl160554160589_ + (##car _e160561160587_))) + (_tl160559160594_ (let () (declare (not safe)) - (##cdr _e160556160582_)))) + (##cdr _e160561160587_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl160554160589_)) - (let ((_e160559160592_ + (gx#stx-pair? _tl160559160594_)) + (let ((_e160564160597_ (let () (declare (not safe)) - (gx#syntax-e _tl160554160589_)))) - (let ((_hd160558160596_ + (gx#syntax-e _tl160559160594_)))) + (let ((_hd160563160601_ (let () (declare (not safe)) - (##car _e160559160592_))) - (_tl160557160599_ + (##car _e160564160597_))) + (_tl160562160604_ (let () (declare (not safe)) - (##cdr _e160559160592_)))) + (##cdr _e160564160597_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl160557160599_)) - ((lambda (_L160602_ _L160604_) - (let ((__tmp162215 + (gx#stx-null? _tl160562160604_)) + ((lambda (_L160607_ _L160609_) + (let ((__tmp162225 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!kw-lambda-primary))) - (__tmp162202 - (let ((__tmp162211 - (let ((__tmp162214 + (__tmp162212 + (let ((__tmp162221 + (let ((__tmp162224 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162212 - (let ((__tmp162213 + (__tmp162222 + (let ((__tmp162223 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'kw-lambda-dispatch)))) (declare (not safe)) - (cons __tmp162213 '())))) + (cons __tmp162223 '())))) (declare (not safe)) - (cons __tmp162214 __tmp162212))) - (__tmp162203 - (let ((__tmp162208 - (let ((__tmp162210 + (cons __tmp162224 __tmp162222))) + (__tmp162213 + (let ((__tmp162218 + (let ((__tmp162220 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162209 + (__tmp162219 (let () (declare (not safe)) - (cons _L160604_ '())))) + (cons _L160609_ '())))) (declare (not safe)) - (cons __tmp162210 __tmp162209))) - (__tmp162204 - (let ((__tmp162205 - (let ((__tmp162207 + (cons __tmp162220 __tmp162219))) + (__tmp162214 + (let ((__tmp162215 + (let ((__tmp162217 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp162206 + (__tmp162216 (let () (declare (not safe)) - (cons _L160602_ '())))) + (cons _L160607_ '())))) (declare (not safe)) - (cons __tmp162207 __tmp162206)))) + (cons __tmp162217 __tmp162216)))) (declare (not safe)) - (cons __tmp162205 '())))) + (cons __tmp162215 '())))) (declare (not safe)) - (cons __tmp162208 __tmp162204)))) + (cons __tmp162218 __tmp162214)))) (declare (not safe)) - (cons __tmp162211 __tmp162203)))) + (cons __tmp162221 __tmp162213)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp162215 - __tmp162202))) - _hd160558160596_ - _hd160555160586_) - (_g160547160565_ - _g160548160569_)))) - (_g160547160565_ _g160548160569_)))) - (_g160547160565_ _g160548160569_)))) - (_g160547160565_ _g160548160569_))))) - (_g160546160620_ _$stx160543_)))) + (cons __tmp162225 + __tmp162212))) + _hd160563160601_ + _hd160560160591_) + (_g160552160570_ + _g160553160574_)))) + (_g160552160570_ _g160553160574_)))) + (_g160552160570_ _g160553160574_)))) + (_g160552160570_ _g160553160574_))))) + (_g160551160625_ _$stx160548_)))) (define |gxc[:0:]#declare-primitive| - (lambda (_$stx160624_) - (let* ((___stx161811161812_ _$stx160624_) - (_g160631160702_ + (lambda (_$stx160629_) + (let* ((___stx161816161817_ _$stx160629_) + (_g160636160707_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx161811161812_))))) - (let ((___kont161814161815_ - (lambda (_L160993_ _L160995_) - (let ((__tmp162221 + ___stx161816161817_))))) + (let ((___kont161819161820_ + (lambda (_L160998_ _L161000_) + (let ((__tmp162231 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type))) - (__tmp162216 - (let ((__tmp162217 - (let ((__tmp162218 - (let ((__tmp162220 + (__tmp162226 + (let ((__tmp162227 + (let ((__tmp162228 + (let ((__tmp162230 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@lambda))) - (__tmp162219 + (__tmp162229 (let () (declare (not safe)) - (cons _L160993_ '())))) + (cons _L160998_ '())))) (declare (not safe)) - (cons __tmp162220 __tmp162219)))) + (cons __tmp162230 __tmp162229)))) (declare (not safe)) - (cons __tmp162218 '())))) + (cons __tmp162228 '())))) (declare (not safe)) - (cons _L160995_ __tmp162217)))) + (cons _L161000_ __tmp162227)))) (declare (not safe)) - (cons __tmp162221 __tmp162216)))) - (___kont161816161817_ - (lambda (_L160912_ _L160914_) - (let ((__tmp162230 + (cons __tmp162231 __tmp162226)))) + (___kont161821161822_ + (lambda (_L160917_ _L160919_) + (let ((__tmp162240 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type))) - (__tmp162222 - (let ((__tmp162223 - (let ((__tmp162224 - (let ((__tmp162229 + (__tmp162232 + (let ((__tmp162233 + (let ((__tmp162234 + (let ((__tmp162239 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@case-lambda))) - (__tmp162225 - (let ((__tmp162226 - (lambda (_g160933160936_ - _g160934160939_) - (let ((__tmp162227 - (let ((__tmp162228 + (__tmp162235 + (let ((__tmp162236 + (lambda (_g160938160941_ + _g160939160944_) + (let ((__tmp162237 + (let ((__tmp162238 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons _g160933160936_ __tmp162228)))) + (cons _g160938160941_ __tmp162238)))) (declare (not safe)) - (cons __tmp162227 _g160934160939_))))) + (cons __tmp162237 _g160939160944_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp162226 + (foldr1 __tmp162236 '() - _L160912_)))) + _L160917_)))) (declare (not safe)) - (cons __tmp162229 __tmp162225)))) + (cons __tmp162239 __tmp162235)))) (declare (not safe)) - (cons __tmp162224 '())))) + (cons __tmp162234 '())))) (declare (not safe)) - (cons _L160914_ __tmp162223)))) + (cons _L160919_ __tmp162233)))) (declare (not safe)) - (cons __tmp162230 __tmp162222)))) - (___kont161820161821_ - (lambda (_L160824_ _L160826_) - (let ((__tmp162237 + (cons __tmp162240 __tmp162232)))) + (___kont161825161826_ + (lambda (_L160829_ _L160831_) + (let ((__tmp162247 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type))) - (__tmp162231 - (let ((__tmp162232 - (let ((__tmp162233 - (let ((__tmp162236 + (__tmp162241 + (let ((__tmp162242 + (let ((__tmp162243 + (let ((__tmp162246 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@lambda))) - (__tmp162234 - (let ((__tmp162235 + (__tmp162244 + (let ((__tmp162245 (let () (declare (not safe)) - (cons _L160824_ '())))) + (cons _L160829_ '())))) (declare (not safe)) (cons 'primitive: - __tmp162235)))) + __tmp162245)))) (declare (not safe)) - (cons __tmp162236 __tmp162234)))) + (cons __tmp162246 __tmp162244)))) (declare (not safe)) - (cons __tmp162233 '())))) + (cons __tmp162243 '())))) (declare (not safe)) - (cons _L160826_ __tmp162232)))) + (cons _L160831_ __tmp162242)))) (declare (not safe)) - (cons __tmp162237 __tmp162231)))) - (___kont161822161823_ - (lambda (_L160759_ _L160761_) - (let ((__tmp162247 + (cons __tmp162247 __tmp162241)))) + (___kont161827161828_ + (lambda (_L160764_ _L160766_) + (let ((__tmp162257 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type))) - (__tmp162238 - (let ((__tmp162239 - (let ((__tmp162240 - (let ((__tmp162246 + (__tmp162248 + (let ((__tmp162249 + (let ((__tmp162250 + (let ((__tmp162256 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@case-lambda))) - (__tmp162241 - (let ((__tmp162242 - (let ((__tmp162243 - (lambda (_g160778160781_ + (__tmp162251 + (let ((__tmp162252 + (let ((__tmp162253 + (lambda (_g160783160786_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g160779160784_) - (let ((__tmp162244 - (let ((__tmp162245 + _g160784160789_) + (let ((__tmp162254 + (let ((__tmp162255 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons _g160778160781_ __tmp162245)))) + (cons _g160783160786_ __tmp162255)))) (declare (not safe)) - (cons __tmp162244 _g160779160784_))))) + (cons __tmp162254 _g160784160789_))))) (declare (not safe)) - (foldr1 __tmp162243 '() _L160759_)))) + (foldr1 __tmp162253 '() _L160764_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons 'primitive: - __tmp162242)))) + __tmp162252)))) (declare (not safe)) - (cons __tmp162246 __tmp162241)))) + (cons __tmp162256 __tmp162251)))) (declare (not safe)) - (cons __tmp162240 '())))) + (cons __tmp162250 '())))) (declare (not safe)) - (cons _L160761_ __tmp162239)))) + (cons _L160766_ __tmp162249)))) (declare (not safe)) - (cons __tmp162247 __tmp162238))))) - (let* ((___match161930161931_ - (lambda (_e160684160709_ - _hd160683160713_ - _tl160682160716_ - _e160687160719_ - _hd160686160723_ - _tl160685160726_ - ___splice161824161825_ - _target160688160729_ - _tl160690160732_) - (letrec ((_loop160691160735_ - (lambda (_hd160689160739_ _arity160695160742_) + (cons __tmp162257 __tmp162248))))) + (let* ((___match161935161936_ + (lambda (_e160689160714_ + _hd160688160718_ + _tl160687160721_ + _e160692160724_ + _hd160691160728_ + _tl160690160731_ + ___splice161829161830_ + _target160693160734_ + _tl160695160737_) + (letrec ((_loop160696160740_ + (lambda (_hd160694160744_ _arity160700160747_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd160689160739_)) - (let ((_e160692160745_ + (gx#stx-pair? _hd160694160744_)) + (let ((_e160697160750_ (let () (declare (not safe)) - (gx#syntax-e _hd160689160739_)))) - (let ((_lp-tl160694160752_ + (gx#syntax-e _hd160694160744_)))) + (let ((_lp-tl160699160757_ (let () (declare (not safe)) - (##cdr _e160692160745_))) - (_lp-hd160693160749_ + (##cdr _e160697160750_))) + (_lp-hd160698160754_ (let () (declare (not safe)) - (##car _e160692160745_)))) - (_loop160691160735_ - _lp-tl160694160752_ + (##car _e160697160750_)))) + (_loop160696160740_ + _lp-tl160699160757_ (let () (declare (not safe)) - (cons _lp-hd160693160749_ - _arity160695160742_))))) - (let ((_arity160696160755_ - (reverse _arity160695160742_))) - (___kont161822161823_ - _arity160696160755_ - _hd160686160723_)))))) - (_loop160691160735_ _target160688160729_ '())))) - (___match161890161891_ - (lambda (_e160652160848_ - _hd160651160852_ - _tl160650160855_ - _e160655160858_ - _hd160654160862_ - _tl160653160865_ - _e160658160868_ - _hd160657160872_ - _tl160656160875_ - _e160659160878_ - ___splice161818161819_ - _target160660160882_ - _tl160662160885_) - (letrec ((_loop160663160888_ - (lambda (_hd160661160892_ _arity160667160895_) + (cons _lp-hd160698160754_ + _arity160700160747_))))) + (let ((_arity160701160760_ + (reverse _arity160700160747_))) + (___kont161827161828_ + _arity160701160760_ + _hd160691160728_)))))) + (_loop160696160740_ _target160693160734_ '())))) + (___match161895161896_ + (lambda (_e160657160853_ + _hd160656160857_ + _tl160655160860_ + _e160660160863_ + _hd160659160867_ + _tl160658160870_ + _e160663160873_ + _hd160662160877_ + _tl160661160880_ + _e160664160883_ + ___splice161823161824_ + _target160665160887_ + _tl160667160890_) + (letrec ((_loop160668160893_ + (lambda (_hd160666160897_ _arity160672160900_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd160661160892_)) - (let ((_e160664160898_ + (gx#stx-pair? _hd160666160897_)) + (let ((_e160669160903_ (let () (declare (not safe)) - (gx#syntax-e _hd160661160892_)))) - (let ((_lp-tl160666160905_ + (gx#syntax-e _hd160666160897_)))) + (let ((_lp-tl160671160910_ (let () (declare (not safe)) - (##cdr _e160664160898_))) - (_lp-hd160665160902_ + (##cdr _e160669160903_))) + (_lp-hd160670160907_ (let () (declare (not safe)) - (##car _e160664160898_)))) - (_loop160663160888_ - _lp-tl160666160905_ + (##car _e160669160903_)))) + (_loop160668160893_ + _lp-tl160671160910_ (let () (declare (not safe)) - (cons _lp-hd160665160902_ - _arity160667160895_))))) - (let ((_arity160668160908_ - (reverse _arity160667160895_))) - (___kont161816161817_ - _arity160668160908_ - _hd160654160862_)))))) - (_loop160663160888_ _target160660160882_ '()))))) + (cons _lp-hd160670160907_ + _arity160672160900_))))) + (let ((_arity160673160913_ + (reverse _arity160672160900_))) + (___kont161821161822_ + _arity160673160913_ + _hd160659160867_)))))) + (_loop160668160893_ _target160665160887_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx161811161812_)) - (let ((_e160637160949_ + (gx#stx-pair? ___stx161816161817_)) + (let ((_e160642160954_ (let () (declare (not safe)) - (gx#syntax-e ___stx161811161812_)))) - (let ((_tl160635160956_ - (let () (declare (not safe)) (##cdr _e160637160949_))) - (_hd160636160953_ + (gx#syntax-e ___stx161816161817_)))) + (let ((_tl160640160961_ + (let () (declare (not safe)) (##cdr _e160642160954_))) + (_hd160641160958_ (let () (declare (not safe)) - (##car _e160637160949_)))) + (##car _e160642160954_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl160635160956_)) - (let ((_e160640160959_ + (gx#stx-pair? _tl160640160961_)) + (let ((_e160645160964_ (let () (declare (not safe)) - (gx#syntax-e _tl160635160956_)))) - (let ((_tl160638160966_ + (gx#syntax-e _tl160640160961_)))) + (let ((_tl160643160971_ (let () (declare (not safe)) - (##cdr _e160640160959_))) - (_hd160639160963_ + (##cdr _e160645160964_))) + (_hd160644160968_ (let () (declare (not safe)) - (##car _e160640160959_)))) + (##car _e160645160964_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl160638160966_)) - (let ((_e160643160969_ + (gx#stx-pair? _tl160643160971_)) + (let ((_e160648160974_ (let () (declare (not safe)) - (gx#syntax-e _tl160638160966_)))) - (let ((_tl160641160976_ + (gx#syntax-e _tl160643160971_)))) + (let ((_tl160646160981_ (let () (declare (not safe)) - (##cdr _e160643160969_))) - (_hd160642160973_ + (##cdr _e160648160974_))) + (_hd160647160978_ (let () (declare (not safe)) - (##car _e160643160969_)))) + (##car _e160648160974_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd160642160973_)) - (let ((_e160644160979_ + (gx#stx-datum? _hd160647160978_)) + (let ((_e160649160984_ (let () (declare (not safe)) - (gx#stx-e _hd160642160973_)))) + (gx#stx-e _hd160647160978_)))) (if (let () (declare (not safe)) - (equal? _e160644160979_ + (equal? _e160649160984_ 'unchecked:)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl160641160976_)) - (let ((_e160647160983_ + _tl160646160981_)) + (let ((_e160652160988_ (let () (declare (not safe)) (gx#syntax-e - _tl160641160976_)))) - (let ((_tl160645160990_ + _tl160646160981_)))) + (let ((_tl160650160995_ (let () (declare (not safe)) - (##cdr _e160647160983_))) - (_hd160646160987_ + (##cdr _e160652160988_))) + (_hd160651160992_ (let () (declare (not safe)) - (##car _e160647160983_)))) + (##car _e160652160988_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl160645160990_)) - (___kont161814161815_ - _hd160646160987_ - _hd160639160963_) + _tl160650160995_)) + (___kont161819161820_ + _hd160651160992_ + _hd160644160968_) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair/null? _tl160641160976_)) - (let ((___splice161818161819_ + (gx#stx-pair/null? _tl160646160981_)) + (let ((___splice161823161824_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl160641160976_ '0)))) - (let ((_tl160662160885_ + (gx#syntax-split-splice _tl160646160981_ '0)))) + (let ((_tl160667160890_ (let () (declare (not safe)) - (##vector-ref ___splice161818161819_ '1))) - (_target160660160882_ + (##vector-ref ___splice161823161824_ '1))) + (_target160665160887_ (let () (declare (not safe)) - (##vector-ref ___splice161818161819_ '0)))) + (##vector-ref ___splice161823161824_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl160662160885_)) - (___match161890161891_ - _e160637160949_ - _hd160636160953_ - _tl160635160956_ - _e160640160959_ - _hd160639160963_ - _tl160638160966_ - _e160643160969_ - _hd160642160973_ - _tl160641160976_ - _e160644160979_ - ___splice161818161819_ - _target160660160882_ - _tl160662160885_) + (gx#stx-null? _tl160667160890_)) + (___match161895161896_ + _e160642160954_ + _hd160641160958_ + _tl160640160961_ + _e160645160964_ + _hd160644160968_ + _tl160643160971_ + _e160648160974_ + _hd160647160978_ + _tl160646160981_ + _e160649160984_ + ___splice161823161824_ + _target160665160887_ + _tl160667160890_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl160638160966_)) - (let ((___splice161824161825_ + (gx#stx-pair/null? _tl160643160971_)) + (let ((___splice161829161830_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl160638160966_ + _tl160643160971_ '0)))) - (let ((_tl160690160732_ + (let ((_tl160695160737_ (let () (declare (not safe)) (##vector-ref - ___splice161824161825_ + ___splice161829161830_ '1))) - (_target160688160729_ + (_target160693160734_ (let () (declare (not safe)) (##vector-ref - ___splice161824161825_ + ___splice161829161830_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl160690160732_)) - (___match161930161931_ - _e160637160949_ - _hd160636160953_ - _tl160635160956_ - _e160640160959_ - _hd160639160963_ - _tl160638160966_ - ___splice161824161825_ - _target160688160729_ - _tl160690160732_) + (gx#stx-null? _tl160695160737_)) + (___match161935161936_ + _e160642160954_ + _hd160641160958_ + _tl160640160961_ + _e160645160964_ + _hd160644160968_ + _tl160643160971_ + ___splice161829161830_ + _target160693160734_ + _tl160695160737_) (let () (declare (not safe)) - (_g160631160702_))))) + (_g160636160707_))))) (let () (declare (not safe)) - (_g160631160702_)))))) + (_g160636160707_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl160638160966_)) - (let ((___splice161824161825_ + (gx#stx-pair/null? _tl160643160971_)) + (let ((___splice161829161830_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl160638160966_ + _tl160643160971_ '0)))) - (let ((_tl160690160732_ + (let ((_tl160695160737_ (let () (declare (not safe)) - (##vector-ref ___splice161824161825_ '1))) - (_target160688160729_ + (##vector-ref ___splice161829161830_ '1))) + (_target160693160734_ (let () (declare (not safe)) (##vector-ref - ___splice161824161825_ + ___splice161829161830_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl160690160732_)) - (___match161930161931_ - _e160637160949_ - _hd160636160953_ - _tl160635160956_ - _e160640160959_ - _hd160639160963_ - _tl160638160966_ - ___splice161824161825_ - _target160688160729_ - _tl160690160732_) + (gx#stx-null? _tl160695160737_)) + (___match161935161936_ + _e160642160954_ + _hd160641160958_ + _tl160640160961_ + _e160645160964_ + _hd160644160968_ + _tl160643160971_ + ___splice161829161830_ + _target160693160734_ + _tl160695160737_) (let () (declare (not safe)) - (_g160631160702_))))) - (let () (declare (not safe)) (_g160631160702_))))))) + (_g160636160707_))))) + (let () (declare (not safe)) (_g160636160707_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl160641160976_)) - (let ((___splice161818161819_ + _tl160646160981_)) + (let ((___splice161823161824_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _tl160641160976_ '0)))) - (let ((_tl160662160885_ + (gx#syntax-split-splice _tl160646160981_ '0)))) + (let ((_tl160667160890_ (let () (declare (not safe)) - (##vector-ref ___splice161818161819_ '1))) - (_target160660160882_ + (##vector-ref ___splice161823161824_ '1))) + (_target160665160887_ (let () (declare (not safe)) - (##vector-ref ___splice161818161819_ '0)))) + (##vector-ref ___splice161823161824_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl160662160885_)) - (___match161890161891_ - _e160637160949_ - _hd160636160953_ - _tl160635160956_ - _e160640160959_ - _hd160639160963_ - _tl160638160966_ - _e160643160969_ - _hd160642160973_ - _tl160641160976_ - _e160644160979_ - ___splice161818161819_ - _target160660160882_ - _tl160662160885_) + (gx#stx-null? _tl160667160890_)) + (___match161895161896_ + _e160642160954_ + _hd160641160958_ + _tl160640160961_ + _e160645160964_ + _hd160644160968_ + _tl160643160971_ + _e160648160974_ + _hd160647160978_ + _tl160646160981_ + _e160649160984_ + ___splice161823161824_ + _target160665160887_ + _tl160667160890_) (if (let () (declare (not safe)) - (gx#stx-null? _tl160641160976_)) - (___kont161820161821_ - _hd160642160973_ - _hd160639160963_) + (gx#stx-null? _tl160646160981_)) + (___kont161825161826_ + _hd160647160978_ + _hd160644160968_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl160638160966_)) - (let ((___splice161824161825_ + (gx#stx-pair/null? _tl160643160971_)) + (let ((___splice161829161830_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl160638160966_ + _tl160643160971_ '0)))) - (let ((_tl160690160732_ + (let ((_tl160695160737_ (let () (declare (not safe)) (##vector-ref - ___splice161824161825_ + ___splice161829161830_ '1))) - (_target160688160729_ + (_target160693160734_ (let () (declare (not safe)) (##vector-ref - ___splice161824161825_ + ___splice161829161830_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl160690160732_)) - (___match161930161931_ - _e160637160949_ - _hd160636160953_ - _tl160635160956_ - _e160640160959_ - _hd160639160963_ - _tl160638160966_ - ___splice161824161825_ - _target160688160729_ - _tl160690160732_) + (gx#stx-null? _tl160695160737_)) + (___match161935161936_ + _e160642160954_ + _hd160641160958_ + _tl160640160961_ + _e160645160964_ + _hd160644160968_ + _tl160643160971_ + ___splice161829161830_ + _target160693160734_ + _tl160695160737_) (let () (declare (not safe)) - (_g160631160702_))))) + (_g160636160707_))))) (let () (declare (not safe)) - (_g160631160702_))))))) - (if (let () (declare (not safe)) (gx#stx-null? _tl160641160976_)) - (___kont161820161821_ _hd160642160973_ _hd160639160963_) + (_g160636160707_))))))) + (if (let () (declare (not safe)) (gx#stx-null? _tl160646160981_)) + (___kont161825161826_ _hd160647160978_ _hd160644160968_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl160638160966_)) - (let ((___splice161824161825_ + (gx#stx-pair/null? _tl160643160971_)) + (let ((___splice161829161830_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl160638160966_ '0)))) - (let ((_tl160690160732_ + (gx#syntax-split-splice _tl160643160971_ '0)))) + (let ((_tl160695160737_ (let () (declare (not safe)) - (##vector-ref ___splice161824161825_ '1))) - (_target160688160729_ + (##vector-ref ___splice161829161830_ '1))) + (_target160693160734_ (let () (declare (not safe)) - (##vector-ref ___splice161824161825_ '0)))) + (##vector-ref ___splice161829161830_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl160690160732_)) - (___match161930161931_ - _e160637160949_ - _hd160636160953_ - _tl160635160956_ - _e160640160959_ - _hd160639160963_ - _tl160638160966_ - ___splice161824161825_ - _target160688160729_ - _tl160690160732_) + (gx#stx-null? _tl160695160737_)) + (___match161935161936_ + _e160642160954_ + _hd160641160958_ + _tl160640160961_ + _e160645160964_ + _hd160644160968_ + _tl160643160971_ + ___splice161829161830_ + _target160693160734_ + _tl160695160737_) (let () (declare (not safe)) - (_g160631160702_))))) - (let () (declare (not safe)) (_g160631160702_)))))) + (_g160636160707_))))) + (let () (declare (not safe)) (_g160636160707_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _tl160641160976_)) - (___kont161820161821_ - _hd160642160973_ - _hd160639160963_) + _tl160646160981_)) + (___kont161825161826_ + _hd160647160978_ + _hd160644160968_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl160638160966_)) - (let ((___splice161824161825_ + _tl160643160971_)) + (let ((___splice161829161830_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _tl160638160966_ '0)))) - (let ((_tl160690160732_ + (gx#syntax-split-splice _tl160643160971_ '0)))) + (let ((_tl160695160737_ (let () (declare (not safe)) - (##vector-ref ___splice161824161825_ '1))) - (_target160688160729_ + (##vector-ref ___splice161829161830_ '1))) + (_target160693160734_ (let () (declare (not safe)) - (##vector-ref ___splice161824161825_ '0)))) + (##vector-ref ___splice161829161830_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl160690160732_)) - (___match161930161931_ - _e160637160949_ - _hd160636160953_ - _tl160635160956_ - _e160640160959_ - _hd160639160963_ - _tl160638160966_ - ___splice161824161825_ - _target160688160729_ - _tl160690160732_) - (let () (declare (not safe)) (_g160631160702_))))) - (let () (declare (not safe)) (_g160631160702_)))))) + (gx#stx-null? _tl160695160737_)) + (___match161935161936_ + _e160642160954_ + _hd160641160958_ + _tl160640160961_ + _e160645160964_ + _hd160644160968_ + _tl160643160971_ + ___splice161829161830_ + _target160693160734_ + _tl160695160737_) + (let () (declare (not safe)) (_g160636160707_))))) + (let () (declare (not safe)) (_g160636160707_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (gx#stx-null? _tl160641160976_)) - (___kont161820161821_ - _hd160642160973_ - _hd160639160963_) + (gx#stx-null? _tl160646160981_)) + (___kont161825161826_ + _hd160647160978_ + _hd160644160968_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl160638160966_)) - (let ((___splice161824161825_ + _tl160643160971_)) + (let ((___splice161829161830_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl160638160966_ + _tl160643160971_ '0)))) - (let ((_tl160690160732_ + (let ((_tl160695160737_ (let () (declare (not safe)) (##vector-ref - ___splice161824161825_ + ___splice161829161830_ '1))) - (_target160688160729_ + (_target160693160734_ (let () (declare (not safe)) (##vector-ref - ___splice161824161825_ + ___splice161829161830_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl160690160732_)) - (___match161930161931_ - _e160637160949_ - _hd160636160953_ - _tl160635160956_ - _e160640160959_ - _hd160639160963_ - _tl160638160966_ - ___splice161824161825_ - _target160688160729_ - _tl160690160732_) + _tl160695160737_)) + (___match161935161936_ + _e160642160954_ + _hd160641160958_ + _tl160640160961_ + _e160645160964_ + _hd160644160968_ + _tl160643160971_ + ___splice161829161830_ + _target160693160734_ + _tl160695160737_) (let () (declare (not safe)) - (_g160631160702_))))) + (_g160636160707_))))) (let () (declare (not safe)) - (_g160631160702_))))))) + (_g160636160707_))))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl160638160966_)) - (let ((___splice161824161825_ + (gx#stx-pair/null? _tl160643160971_)) + (let ((___splice161829161830_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl160638160966_ + _tl160643160971_ '0)))) - (let ((_tl160690160732_ + (let ((_tl160695160737_ (let () (declare (not safe)) (##vector-ref - ___splice161824161825_ + ___splice161829161830_ '1))) - (_target160688160729_ + (_target160693160734_ (let () (declare (not safe)) (##vector-ref - ___splice161824161825_ + ___splice161829161830_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl160690160732_)) - (___match161930161931_ - _e160637160949_ - _hd160636160953_ - _tl160635160956_ - _e160640160959_ - _hd160639160963_ - _tl160638160966_ - ___splice161824161825_ - _target160688160729_ - _tl160690160732_) + (gx#stx-null? _tl160695160737_)) + (___match161935161936_ + _e160642160954_ + _hd160641160958_ + _tl160640160961_ + _e160645160964_ + _hd160644160968_ + _tl160643160971_ + ___splice161829161830_ + _target160693160734_ + _tl160695160737_) (let () (declare (not safe)) - (_g160631160702_))))) + (_g160636160707_))))) (let () (declare (not safe)) - (_g160631160702_)))))) - (let () (declare (not safe)) (_g160631160702_))))) - (let () (declare (not safe)) (_g160631160702_)))))))) + (_g160636160707_)))))) + (let () (declare (not safe)) (_g160636160707_))))) + (let () (declare (not safe)) (_g160636160707_)))))))) (define |gxc[:0:]#declare-primitive/unchecked| - (lambda (_$stx161019_) - (let* ((___stx161933161934_ _$stx161019_) - (_g161024161059_ + (lambda (_$stx161024_) + (let* ((___stx161938161939_ _$stx161024_) + (_g161029161064_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx161933161934_))))) - (let ((___kont161936161937_ - (lambda (_L161181_ _L161183_) - (let ((__tmp162253 + ___stx161938161939_))))) + (let ((___kont161941161942_ + (lambda (_L161186_ _L161188_) + (let ((__tmp162263 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type))) - (__tmp162248 - (let ((__tmp162249 - (let ((__tmp162250 - (let ((__tmp162252 + (__tmp162258 + (let ((__tmp162259 + (let ((__tmp162260 + (let ((__tmp162262 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@lambda))) - (__tmp162251 + (__tmp162261 (let () (declare (not safe)) - (cons _L161181_ '())))) + (cons _L161186_ '())))) (declare (not safe)) - (cons __tmp162252 __tmp162251)))) + (cons __tmp162262 __tmp162261)))) (declare (not safe)) - (cons __tmp162250 '())))) + (cons __tmp162260 '())))) (declare (not safe)) - (cons _L161183_ __tmp162249)))) + (cons _L161188_ __tmp162259)))) (declare (not safe)) - (cons __tmp162253 __tmp162248)))) - (___kont161938161939_ - (lambda (_L161116_ _L161118_) - (let ((__tmp162262 + (cons __tmp162263 __tmp162258)))) + (___kont161943161944_ + (lambda (_L161121_ _L161123_) + (let ((__tmp162272 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type))) - (__tmp162254 - (let ((__tmp162255 - (let ((__tmp162256 - (let ((__tmp162261 + (__tmp162264 + (let ((__tmp162265 + (let ((__tmp162266 + (let ((__tmp162271 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@case-lambda))) - (__tmp162257 - (let ((__tmp162258 - (lambda (_g161135161138_ - _g161136161141_) - (let ((__tmp162259 - (let ((__tmp162260 + (__tmp162267 + (let ((__tmp162268 + (lambda (_g161140161143_ + _g161141161146_) + (let ((__tmp162269 + (let ((__tmp162270 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons _g161135161138_ __tmp162260)))) + (cons _g161140161143_ __tmp162270)))) (declare (not safe)) - (cons __tmp162259 _g161136161141_))))) + (cons __tmp162269 _g161141161146_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp162258 + (foldr1 __tmp162268 '() - _L161116_)))) + _L161121_)))) (declare (not safe)) - (cons __tmp162261 __tmp162257)))) + (cons __tmp162271 __tmp162267)))) (declare (not safe)) - (cons __tmp162256 '())))) + (cons __tmp162266 '())))) (declare (not safe)) - (cons _L161118_ __tmp162255)))) + (cons _L161123_ __tmp162265)))) (declare (not safe)) - (cons __tmp162262 __tmp162254))))) - (let ((___match161982161983_ - (lambda (_e161041161066_ - _hd161040161070_ - _tl161039161073_ - _e161044161076_ - _hd161043161080_ - _tl161042161083_ - ___splice161940161941_ - _target161045161086_ - _tl161047161089_) - (letrec ((_loop161048161092_ - (lambda (_hd161046161096_ _arity161052161099_) + (cons __tmp162272 __tmp162264))))) + (let ((___match161987161988_ + (lambda (_e161046161071_ + _hd161045161075_ + _tl161044161078_ + _e161049161081_ + _hd161048161085_ + _tl161047161088_ + ___splice161945161946_ + _target161050161091_ + _tl161052161094_) + (letrec ((_loop161053161097_ + (lambda (_hd161051161101_ _arity161057161104_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd161046161096_)) - (let ((_e161049161102_ + (gx#stx-pair? _hd161051161101_)) + (let ((_e161054161107_ (let () (declare (not safe)) - (gx#syntax-e _hd161046161096_)))) - (let ((_lp-tl161051161109_ + (gx#syntax-e _hd161051161101_)))) + (let ((_lp-tl161056161114_ (let () (declare (not safe)) - (##cdr _e161049161102_))) - (_lp-hd161050161106_ + (##cdr _e161054161107_))) + (_lp-hd161055161111_ (let () (declare (not safe)) - (##car _e161049161102_)))) - (_loop161048161092_ - _lp-tl161051161109_ + (##car _e161054161107_)))) + (_loop161053161097_ + _lp-tl161056161114_ (let () (declare (not safe)) - (cons _lp-hd161050161106_ - _arity161052161099_))))) - (let ((_arity161053161112_ - (reverse _arity161052161099_))) - (___kont161938161939_ - _arity161053161112_ - _hd161043161080_)))))) - (_loop161048161092_ _target161045161086_ '()))))) + (cons _lp-hd161055161111_ + _arity161057161104_))))) + (let ((_arity161058161117_ + (reverse _arity161057161104_))) + (___kont161943161944_ + _arity161058161117_ + _hd161048161085_)))))) + (_loop161053161097_ _target161050161091_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx161933161934_)) - (let ((_e161030161151_ + (gx#stx-pair? ___stx161938161939_)) + (let ((_e161035161156_ (let () (declare (not safe)) - (gx#syntax-e ___stx161933161934_)))) - (let ((_tl161028161158_ - (let () (declare (not safe)) (##cdr _e161030161151_))) - (_hd161029161155_ + (gx#syntax-e ___stx161938161939_)))) + (let ((_tl161033161163_ + (let () (declare (not safe)) (##cdr _e161035161156_))) + (_hd161034161160_ (let () (declare (not safe)) - (##car _e161030161151_)))) + (##car _e161035161156_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl161028161158_)) - (let ((_e161033161161_ + (gx#stx-pair? _tl161033161163_)) + (let ((_e161038161166_ (let () (declare (not safe)) - (gx#syntax-e _tl161028161158_)))) - (let ((_tl161031161168_ + (gx#syntax-e _tl161033161163_)))) + (let ((_tl161036161173_ (let () (declare (not safe)) - (##cdr _e161033161161_))) - (_hd161032161165_ + (##cdr _e161038161166_))) + (_hd161037161170_ (let () (declare (not safe)) - (##car _e161033161161_)))) + (##car _e161038161166_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl161031161168_)) - (let ((_e161036161171_ + (gx#stx-pair? _tl161036161173_)) + (let ((_e161041161176_ (let () (declare (not safe)) - (gx#syntax-e _tl161031161168_)))) - (let ((_tl161034161178_ + (gx#syntax-e _tl161036161173_)))) + (let ((_tl161039161183_ (let () (declare (not safe)) - (##cdr _e161036161171_))) - (_hd161035161175_ + (##cdr _e161041161176_))) + (_hd161040161180_ (let () (declare (not safe)) - (##car _e161036161171_)))) + (##car _e161041161176_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl161034161178_)) - (___kont161936161937_ - _hd161035161175_ - _hd161032161165_) + (gx#stx-null? _tl161039161183_)) + (___kont161941161942_ + _hd161040161180_ + _hd161037161170_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl161031161168_)) - (let ((___splice161940161941_ + _tl161036161173_)) + (let ((___splice161945161946_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl161031161168_ + _tl161036161173_ '0)))) - (let ((_tl161047161089_ + (let ((_tl161052161094_ (let () (declare (not safe)) (##vector-ref - ___splice161940161941_ + ___splice161945161946_ '1))) - (_target161045161086_ + (_target161050161091_ (let () (declare (not safe)) (##vector-ref - ___splice161940161941_ + ___splice161945161946_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl161047161089_)) - (___match161982161983_ - _e161030161151_ - _hd161029161155_ - _tl161028161158_ - _e161033161161_ - _hd161032161165_ - _tl161031161168_ - ___splice161940161941_ - _target161045161086_ - _tl161047161089_) + _tl161052161094_)) + (___match161987161988_ + _e161035161156_ + _hd161034161160_ + _tl161033161163_ + _e161038161166_ + _hd161037161170_ + _tl161036161173_ + ___splice161945161946_ + _target161050161091_ + _tl161052161094_) (let () (declare (not safe)) - (_g161024161059_))))) + (_g161029161064_))))) (let () (declare (not safe)) - (_g161024161059_)))))) + (_g161029161064_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl161031161168_)) - (let ((___splice161940161941_ + (gx#stx-pair/null? _tl161036161173_)) + (let ((___splice161945161946_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl161031161168_ + _tl161036161173_ '0)))) - (let ((_tl161047161089_ + (let ((_tl161052161094_ (let () (declare (not safe)) (##vector-ref - ___splice161940161941_ + ___splice161945161946_ '1))) - (_target161045161086_ + (_target161050161091_ (let () (declare (not safe)) (##vector-ref - ___splice161940161941_ + ___splice161945161946_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl161047161089_)) - (___match161982161983_ - _e161030161151_ - _hd161029161155_ - _tl161028161158_ - _e161033161161_ - _hd161032161165_ - _tl161031161168_ - ___splice161940161941_ - _target161045161086_ - _tl161047161089_) + (gx#stx-null? _tl161052161094_)) + (___match161987161988_ + _e161035161156_ + _hd161034161160_ + _tl161033161163_ + _e161038161166_ + _hd161037161170_ + _tl161036161173_ + ___splice161945161946_ + _target161050161091_ + _tl161052161094_) (let () (declare (not safe)) - (_g161024161059_))))) + (_g161029161064_))))) (let () (declare (not safe)) - (_g161024161059_)))))) - (let () (declare (not safe)) (_g161024161059_))))) - (let () (declare (not safe)) (_g161024161059_)))))))) + (_g161029161064_)))))) + (let () (declare (not safe)) (_g161029161064_))))) + (let () (declare (not safe)) (_g161029161064_)))))))) (define |gxc[:0:]#declare-primitive*| - (lambda (_$stx161203_) - (let* ((_g161207161242_ - (lambda (_g161208161238_) + (lambda (_$stx161208_) + (let* ((_g161212161247_ + (lambda (_g161213161243_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g161208161238_)))) - (_g161206161370_ - (lambda (_g161208161246_) + _g161213161243_)))) + (_g161211161375_ + (lambda (_g161213161251_) (if (let () (declare (not safe)) - (gx#stx-pair? _g161208161246_)) - (let ((_e161213161249_ + (gx#stx-pair? _g161213161251_)) + (let ((_e161218161254_ (let () (declare (not safe)) - (gx#syntax-e _g161208161246_)))) - (let ((_hd161212161253_ + (gx#syntax-e _g161213161251_)))) + (let ((_hd161217161258_ (let () (declare (not safe)) - (##car _e161213161249_))) - (_tl161211161256_ + (##car _e161218161254_))) + (_tl161216161261_ (let () (declare (not safe)) - (##cdr _e161213161249_)))) + (##cdr _e161218161254_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl161211161256_)) - (let ((_g162263_ + (gx#stx-pair/null? _tl161216161261_)) + (let ((_g162273_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl161211161256_ + _tl161216161261_ '0)))) (begin - (let ((_g162264_ + (let ((_g162274_ (let () (declare (not safe)) - (if (##values? _g162263_) - (##vector-length _g162263_) + (if (##values? _g162273_) + (##vector-length _g162273_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g162264_ 2))) + (##fx= _g162274_ 2))) (error "Context expects 2 values" - _g162264_))) - (let ((_target161214161259_ + _g162274_))) + (let ((_target161219161264_ (let () (declare (not safe)) - (##vector-ref _g162263_ 0))) - (_tl161216161262_ + (##vector-ref _g162273_ 0))) + (_tl161221161267_ (let () (declare (not safe)) - (##vector-ref _g162263_ 1)))) + (##vector-ref _g162273_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl161216161262_)) - (letrec ((_loop161217161265_ - (lambda (_hd161215161269_ - _arity161221161272_ - _prim161222161274_) + (gx#stx-null? _tl161221161267_)) + (letrec ((_loop161222161270_ + (lambda (_hd161220161274_ + _arity161226161277_ + _prim161227161279_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd161215161269_)) - (let ((_e161218161277_ + _hd161220161274_)) + (let ((_e161223161282_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _hd161215161269_)))) - (let ((_lp-hd161219161281_ - (let () (declare (not safe)) (##car _e161218161277_))) - (_lp-tl161220161284_ - (let () (declare (not safe)) (##cdr _e161218161277_)))) + (gx#syntax-e _hd161220161274_)))) + (let ((_lp-hd161224161286_ + (let () (declare (not safe)) (##car _e161223161282_))) + (_lp-tl161225161289_ + (let () (declare (not safe)) (##cdr _e161223161282_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd161219161281_)) - (let ((_e161227161287_ + (gx#stx-pair? _lp-hd161224161286_)) + (let ((_e161232161292_ (let () (declare (not safe)) - (gx#syntax-e _lp-hd161219161281_)))) - (let ((_hd161226161291_ + (gx#syntax-e _lp-hd161224161286_)))) + (let ((_hd161231161296_ (let () (declare (not safe)) - (##car _e161227161287_))) - (_tl161225161294_ + (##car _e161232161292_))) + (_tl161230161299_ (let () (declare (not safe)) - (##cdr _e161227161287_)))) + (##cdr _e161232161292_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl161225161294_)) - (let ((_g162273_ + (gx#stx-pair/null? _tl161230161299_)) + (let ((_g162283_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl161225161294_ + _tl161230161299_ '0)))) (begin - (let ((_g162274_ + (let ((_g162284_ (let () (declare (not safe)) - (if (##values? _g162273_) - (##vector-length _g162273_) + (if (##values? _g162283_) + (##vector-length _g162283_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g162274_ 2))) + (##fx= _g162284_ 2))) (error "Context expects 2 values" - _g162274_))) - (let ((_target161228161297_ + _g162284_))) + (let ((_target161233161302_ (let () (declare (not safe)) - (##vector-ref _g162273_ 0))) - (_tl161230161300_ + (##vector-ref _g162283_ 0))) + (_tl161235161305_ (let () (declare (not safe)) - (##vector-ref _g162273_ 1)))) + (##vector-ref _g162283_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl161230161300_)) - (letrec ((_loop161231161303_ - (lambda (_hd161229161307_ - _arity161235161310_) + (gx#stx-null? _tl161235161305_)) + (letrec ((_loop161236161308_ + (lambda (_hd161234161312_ + _arity161240161315_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd161229161307_)) - (let ((_e161232161313_ + _hd161234161312_)) + (let ((_e161237161318_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _hd161229161307_)))) - (let ((_lp-hd161233161317_ - (let () (declare (not safe)) (##car _e161232161313_))) - (_lp-tl161234161320_ + (gx#syntax-e _hd161234161312_)))) + (let ((_lp-hd161238161322_ + (let () (declare (not safe)) (##car _e161237161318_))) + (_lp-tl161239161325_ (let () (declare (not safe)) - (##cdr _e161232161313_)))) - (_loop161231161303_ - _lp-tl161234161320_ + (##cdr _e161237161318_)))) + (_loop161236161308_ + _lp-tl161239161325_ (let () (declare (not safe)) - (cons _lp-hd161233161317_ _arity161235161310_))))) - (let ((_arity161236161323_ (reverse _arity161235161310_))) - (_loop161217161265_ - _lp-tl161220161284_ + (cons _lp-hd161238161322_ _arity161240161315_))))) + (let ((_arity161241161328_ (reverse _arity161240161315_))) + (_loop161222161270_ + _lp-tl161225161289_ (let () (declare (not safe)) - (cons _arity161236161323_ _arity161221161272_)) + (cons _arity161241161328_ _arity161226161277_)) (let () (declare (not safe)) - (cons _hd161226161291_ _prim161222161274_)))))))) + (cons _hd161231161296_ _prim161227161279_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop161231161303_ - _target161228161297_ + (_loop161236161308_ + _target161233161302_ '())) - (_g161207161242_ _g161208161246_))))) - (_g161207161242_ _g161208161246_)))) - (_g161207161242_ _g161208161246_)))) - (let ((_arity161223161327_ (reverse _arity161221161272_)) - (_prim161224161330_ (reverse _prim161222161274_))) - ((lambda (_L161333_ _L161335_) - (let ((__tmp162272 + (_g161212161247_ _g161213161251_))))) + (_g161212161247_ _g161213161251_)))) + (_g161212161247_ _g161213161251_)))) + (let ((_arity161228161332_ (reverse _arity161226161277_)) + (_prim161229161335_ (reverse _prim161227161279_))) + ((lambda (_L161338_ _L161340_) + (let ((__tmp162282 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp162265 + (__tmp162275 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L161333_ - _L161335_)) - (let ((__tmp162266 - (lambda (_g161350161356_ - _g161351161359_ - _g161352161361_) - (let ((__tmp162267 - (let ((__tmp162271 + _L161338_ + _L161340_)) + (let ((__tmp162276 + (lambda (_g161355161361_ + _g161356161364_ + _g161357161366_) + (let ((__tmp162277 + (let ((__tmp162281 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-primitive))) - (__tmp162268 - (let ((__tmp162269 - (let ((__tmp162270 + (__tmp162278 + (let ((__tmp162279 + (let ((__tmp162280 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g161353161364_ _g161354161367_) + (lambda (_g161358161369_ _g161359161372_) (let () (declare (not safe)) - (cons _g161353161364_ _g161354161367_))))) + (cons _g161358161369_ _g161359161372_))))) (declare (not safe)) - (foldr1 __tmp162270 '() _g161350161356_)))) + (foldr1 __tmp162280 '() _g161355161361_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _g161351161359_ - __tmp162269)))) + (cons _g161356161364_ + __tmp162279)))) (declare (not safe)) - (cons __tmp162271 __tmp162268)))) + (cons __tmp162281 __tmp162278)))) (declare (not safe)) - (cons __tmp162267 _g161352161361_))))) + (cons __tmp162277 _g161357161366_))))) (declare (not safe)) - (foldr2 __tmp162266 '() _L161333_ _L161335_))))) + (foldr2 __tmp162276 '() _L161338_ _L161340_))))) (declare (not safe)) - (cons __tmp162272 __tmp162265))) - _arity161223161327_ - _prim161224161330_)))))) + (cons __tmp162282 __tmp162275))) + _arity161228161332_ + _prim161229161335_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop161217161265_ - _target161214161259_ + (_loop161222161270_ + _target161219161264_ '() '())) - (_g161207161242_ _g161208161246_))))) - (_g161207161242_ _g161208161246_)))) - (_g161207161242_ _g161208161246_))))) - (_g161206161370_ _$stx161203_)))) + (_g161212161247_ _g161213161251_))))) + (_g161212161247_ _g161213161251_)))) + (_g161212161247_ _g161213161251_))))) + (_g161211161375_ _$stx161208_)))) (define |gxc[:0:]#declare-primitive/unchecked*| - (lambda (_$stx161376_) - (let* ((_g161380161415_ - (lambda (_g161381161411_) + (lambda (_$stx161381_) + (let* ((_g161385161420_ + (lambda (_g161386161416_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g161381161411_)))) - (_g161379161543_ - (lambda (_g161381161419_) + _g161386161416_)))) + (_g161384161548_ + (lambda (_g161386161424_) (if (let () (declare (not safe)) - (gx#stx-pair? _g161381161419_)) - (let ((_e161386161422_ + (gx#stx-pair? _g161386161424_)) + (let ((_e161391161427_ (let () (declare (not safe)) - (gx#syntax-e _g161381161419_)))) - (let ((_hd161385161426_ + (gx#syntax-e _g161386161424_)))) + (let ((_hd161390161431_ (let () (declare (not safe)) - (##car _e161386161422_))) - (_tl161384161429_ + (##car _e161391161427_))) + (_tl161389161434_ (let () (declare (not safe)) - (##cdr _e161386161422_)))) + (##cdr _e161391161427_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl161384161429_)) - (let ((_g162275_ + (gx#stx-pair/null? _tl161389161434_)) + (let ((_g162285_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl161384161429_ + _tl161389161434_ '0)))) (begin - (let ((_g162276_ + (let ((_g162286_ (let () (declare (not safe)) - (if (##values? _g162275_) - (##vector-length _g162275_) + (if (##values? _g162285_) + (##vector-length _g162285_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g162276_ 2))) + (##fx= _g162286_ 2))) (error "Context expects 2 values" - _g162276_))) - (let ((_target161387161432_ + _g162286_))) + (let ((_target161392161437_ (let () (declare (not safe)) - (##vector-ref _g162275_ 0))) - (_tl161389161435_ + (##vector-ref _g162285_ 0))) + (_tl161394161440_ (let () (declare (not safe)) - (##vector-ref _g162275_ 1)))) + (##vector-ref _g162285_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl161389161435_)) - (letrec ((_loop161390161438_ - (lambda (_hd161388161442_ - _arity161394161445_ - _prim161395161447_) + (gx#stx-null? _tl161394161440_)) + (letrec ((_loop161395161443_ + (lambda (_hd161393161447_ + _arity161399161450_ + _prim161400161452_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd161388161442_)) - (let ((_e161391161450_ + _hd161393161447_)) + (let ((_e161396161455_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _hd161388161442_)))) - (let ((_lp-hd161392161454_ - (let () (declare (not safe)) (##car _e161391161450_))) - (_lp-tl161393161457_ - (let () (declare (not safe)) (##cdr _e161391161450_)))) + (gx#syntax-e _hd161393161447_)))) + (let ((_lp-hd161397161459_ + (let () (declare (not safe)) (##car _e161396161455_))) + (_lp-tl161398161462_ + (let () (declare (not safe)) (##cdr _e161396161455_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd161392161454_)) - (let ((_e161400161460_ + (gx#stx-pair? _lp-hd161397161459_)) + (let ((_e161405161465_ (let () (declare (not safe)) - (gx#syntax-e _lp-hd161392161454_)))) - (let ((_hd161399161464_ + (gx#syntax-e _lp-hd161397161459_)))) + (let ((_hd161404161469_ (let () (declare (not safe)) - (##car _e161400161460_))) - (_tl161398161467_ + (##car _e161405161465_))) + (_tl161403161472_ (let () (declare (not safe)) - (##cdr _e161400161460_)))) + (##cdr _e161405161465_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl161398161467_)) - (let ((_g162285_ + (gx#stx-pair/null? _tl161403161472_)) + (let ((_g162295_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl161398161467_ + _tl161403161472_ '0)))) (begin - (let ((_g162286_ + (let ((_g162296_ (let () (declare (not safe)) - (if (##values? _g162285_) - (##vector-length _g162285_) + (if (##values? _g162295_) + (##vector-length _g162295_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g162286_ 2))) + (##fx= _g162296_ 2))) (error "Context expects 2 values" - _g162286_))) - (let ((_target161401161470_ + _g162296_))) + (let ((_target161406161475_ (let () (declare (not safe)) - (##vector-ref _g162285_ 0))) - (_tl161403161473_ + (##vector-ref _g162295_ 0))) + (_tl161408161478_ (let () (declare (not safe)) - (##vector-ref _g162285_ 1)))) + (##vector-ref _g162295_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl161403161473_)) - (letrec ((_loop161404161476_ - (lambda (_hd161402161480_ - _arity161408161483_) + (gx#stx-null? _tl161408161478_)) + (letrec ((_loop161409161481_ + (lambda (_hd161407161485_ + _arity161413161488_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd161402161480_)) - (let ((_e161405161486_ + _hd161407161485_)) + (let ((_e161410161491_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _hd161402161480_)))) - (let ((_lp-hd161406161490_ - (let () (declare (not safe)) (##car _e161405161486_))) - (_lp-tl161407161493_ + (gx#syntax-e _hd161407161485_)))) + (let ((_lp-hd161411161495_ + (let () (declare (not safe)) (##car _e161410161491_))) + (_lp-tl161412161498_ (let () (declare (not safe)) - (##cdr _e161405161486_)))) - (_loop161404161476_ - _lp-tl161407161493_ + (##cdr _e161410161491_)))) + (_loop161409161481_ + _lp-tl161412161498_ (let () (declare (not safe)) - (cons _lp-hd161406161490_ _arity161408161483_))))) - (let ((_arity161409161496_ (reverse _arity161408161483_))) - (_loop161390161438_ - _lp-tl161393161457_ + (cons _lp-hd161411161495_ _arity161413161488_))))) + (let ((_arity161414161501_ (reverse _arity161413161488_))) + (_loop161395161443_ + _lp-tl161398161462_ (let () (declare (not safe)) - (cons _arity161409161496_ _arity161394161445_)) + (cons _arity161414161501_ _arity161399161450_)) (let () (declare (not safe)) - (cons _hd161399161464_ _prim161395161447_)))))))) + (cons _hd161404161469_ _prim161400161452_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop161404161476_ - _target161401161470_ + (_loop161409161481_ + _target161406161475_ '())) - (_g161380161415_ _g161381161419_))))) - (_g161380161415_ _g161381161419_)))) - (_g161380161415_ _g161381161419_)))) - (let ((_arity161396161500_ (reverse _arity161394161445_)) - (_prim161397161503_ (reverse _prim161395161447_))) - ((lambda (_L161506_ _L161508_) - (let ((__tmp162284 + (_g161385161420_ _g161386161424_))))) + (_g161385161420_ _g161386161424_)))) + (_g161385161420_ _g161386161424_)))) + (let ((_arity161401161505_ (reverse _arity161399161450_)) + (_prim161402161508_ (reverse _prim161400161452_))) + ((lambda (_L161511_ _L161513_) + (let ((__tmp162294 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp162277 + (__tmp162287 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L161506_ - _L161508_)) - (let ((__tmp162278 - (lambda (_g161523161529_ - _g161524161532_ - _g161525161534_) - (let ((__tmp162279 - (let ((__tmp162283 + _L161511_ + _L161513_)) + (let ((__tmp162288 + (lambda (_g161528161534_ + _g161529161537_ + _g161530161539_) + (let ((__tmp162289 + (let ((__tmp162293 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-primitive/unchecked))) - (__tmp162280 - (let ((__tmp162281 - (let ((__tmp162282 + (__tmp162290 + (let ((__tmp162291 + (let ((__tmp162292 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g161526161537_ _g161527161540_) + (lambda (_g161531161542_ _g161532161545_) (let () (declare (not safe)) - (cons _g161526161537_ _g161527161540_))))) + (cons _g161531161542_ _g161532161545_))))) (declare (not safe)) - (foldr1 __tmp162282 '() _g161523161529_)))) + (foldr1 __tmp162292 '() _g161528161534_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _g161524161532_ - __tmp162281)))) + (cons _g161529161537_ + __tmp162291)))) (declare (not safe)) - (cons __tmp162283 __tmp162280)))) + (cons __tmp162293 __tmp162290)))) (declare (not safe)) - (cons __tmp162279 _g161525161534_))))) + (cons __tmp162289 _g161530161539_))))) (declare (not safe)) - (foldr2 __tmp162278 '() _L161506_ _L161508_))))) + (foldr2 __tmp162288 '() _L161511_ _L161513_))))) (declare (not safe)) - (cons __tmp162284 __tmp162277))) - _arity161396161500_ - _prim161397161503_)))))) + (cons __tmp162294 __tmp162287))) + _arity161401161505_ + _prim161402161508_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop161390161438_ - _target161387161432_ + (_loop161395161443_ + _target161392161437_ '() '())) - (_g161380161415_ _g161381161419_))))) - (_g161380161415_ _g161381161419_)))) - (_g161380161415_ _g161381161419_))))) - (_g161379161543_ _$stx161376_))))) + (_g161385161420_ _g161386161424_))))) + (_g161385161420_ _g161386161424_)))) + (_g161385161420_ _g161386161424_))))) + (_g161384161548_ _$stx161381_))))) diff --git a/src/bootstrap/gerbil/core$_MOP_$_MOP_2___0.scm b/src/bootstrap/gerbil/core$_MOP_$_MOP_2___0.scm index 4b765ed1..23bb09d5 100644 --- a/src/bootstrap/gerbil/core$_MOP_$_MOP_2___0.scm +++ b/src/bootstrap/gerbil/core$_MOP_$_MOP_2___0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/core$<MOP>$<MOP:2>::timestamp 1709229967) + (define gerbil/core$<MOP>$<MOP:2>::timestamp 1709375795) (begin (define gerbil/core$<MOP>$<MOP:2>#class-type-info::t (let ((__tmp49652 (list))) diff --git a/src/bootstrap/gerbil/core$_macro-object___0.scm b/src/bootstrap/gerbil/core$_macro-object___0.scm index b76e92ab..ce4bc4d5 100644 --- a/src/bootstrap/gerbil/core$_macro-object___0.scm +++ b/src/bootstrap/gerbil/core$_macro-object___0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/core$<macro-object>::timestamp 1709229967) + (define gerbil/core$<macro-object>::timestamp 1709375795) (begin (define gerbil/core$<macro-object>#macro-object::t (let ((__tmp49659 (list))) diff --git a/src/bootstrap/gerbil/core__10.scm b/src/bootstrap/gerbil/core__10.scm index def24787..feae362b 100644 --- a/src/bootstrap/gerbil/core__10.scm +++ b/src/bootstrap/gerbil/core__10.scm @@ -1,116 +1,116 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core$<match>[1]#_g52030_| + (define |gerbil/core$<match>[1]#_g51844_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[1]#_g52031_| + (define |gerbil/core$<match>[1]#_g51845_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[1]#_g52087_| + (define |gerbil/core$<match>[1]#_g51901_| (##structure gx#syntax-quote::t 'quasiquote #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[1]#_g52088_| + (define |gerbil/core$<match>[1]#_g51902_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[1]#_g52089_| + (define |gerbil/core$<match>[1]#_g51903_| (##structure gx#syntax-quote::t 'apply #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[1]#_g52091_| + (define |gerbil/core$<match>[1]#_g51905_| (##structure gx#syntax-quote::t 'vector #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[1]#_g52092_| + (define |gerbil/core$<match>[1]#_g51906_| (##structure gx#syntax-quote::t 'values #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[1]#_g52093_| + (define |gerbil/core$<match>[1]#_g51907_| (##structure gx#syntax-quote::t 'box #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[1]#_g52094_| + (define |gerbil/core$<match>[1]#_g51908_| (##structure gx#syntax-quote::t '@list #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[1]#_g52095_| + (define |gerbil/core$<match>[1]#_g51909_| (##structure gx#syntax-quote::t 'cons* #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[1]#_g52096_| + (define |gerbil/core$<match>[1]#_g51910_| (##structure gx#syntax-quote::t 'cons #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[1]#_g52097_| + (define |gerbil/core$<match>[1]#_g51911_| (##structure gx#syntax-quote::t 'not #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[1]#_g52098_| + (define |gerbil/core$<match>[1]#_g51912_| (##structure gx#syntax-quote::t 'or #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[1]#_g52099_| + (define |gerbil/core$<match>[1]#_g51913_| (##structure gx#syntax-quote::t 'and #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[1]#_g52100_| + (define |gerbil/core$<match>[1]#_g51914_| (##structure gx#syntax-quote::t '? #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[1]#_g52480_| + (define |gerbil/core$<match>[1]#_g52294_| (##structure gx#syntax-quote::t 'else #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[1]#_g52560_| + (define |gerbil/core$<match>[1]#_g52374_| (##structure gx#syntax-quote::t 'else #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[1]#_g52580_| + (define |gerbil/core$<match>[1]#_g52394_| (##structure gx#syntax-quote::t '<...> #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[1]#_g52581_| + (define |gerbil/core$<match>[1]#_g52395_| (##structure gx#syntax-quote::t '<> #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[1]#_g52698_| + (define |gerbil/core$<match>[1]#_g52512_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[1]#_g52699_| + (define |gerbil/core$<match>[1]#_g52513_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[1]#_g52700_| + (define |gerbil/core$<match>[1]#_g52514_| (##structure gx#syntax-quote::t 'not #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[1]#_g52701_| + (define |gerbil/core$<match>[1]#_g52515_| (##structure gx#syntax-quote::t 'or #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[1]#_g52702_| + (define |gerbil/core$<match>[1]#_g52516_| (##structure gx#syntax-quote::t 'and #f (gx#current-expander-context) '())) (begin (define |gerbil/core$<match>[1]#match-macro::t| - (let ((__tmp52014 (list gerbil/core$<macro-object>#macro-object::t))) + (let ((__tmp51828 (list gerbil/core$<macro-object>#macro-object::t))) (declare (not safe)) (make-class-type 'gerbil.core#match-macro::t 'match-macro - __tmp52014 + __tmp51828 '() '() '#f))) @@ -150,11 +150,11 @@ (define |gerbil/core$<match>[1]#syntax-local-match-macro?| (lambda (_stx30638_) (if (gx#identifier? _stx30638_) - (let ((__tmp52015 (gx#syntax-local-value _stx30638_ false))) + (let ((__tmp51829 (gx#syntax-local-value _stx30638_ false))) (declare (not safe)) (class-instance? |gerbil/core$<match>[1]#match-macro::t| - __tmp52015)) + __tmp51829)) '#f))) (define |gerbil/core$<match>[1]#parse-match-pattern__%| (lambda (_stx28944_ _match-stx28946_) @@ -178,75 +178,75 @@ ___stx4690246903_)))) (let ((___kont4690546906_ (lambda () - (let ((__tmp52016 + (let ((__tmp51830 (let () (declare (not safe)) (cons _L30403_ '())))) (declare (not safe)) - (cons '?: __tmp52016)))) + (cons '?: __tmp51830)))) (___kont4690746908_ (lambda (_L30594_) - (let ((__tmp52017 - (let ((__tmp52018 - (let ((__tmp52019 + (let ((__tmp51831 + (let ((__tmp51832 + (let ((__tmp51833 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (_parse128948_ _L30594_)))) (declare (not safe)) - (cons __tmp52019 '())))) + (cons __tmp51833 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons _L30403_ - __tmp52018)))) + __tmp51832)))) (declare (not safe)) - (cons '?: __tmp52017)))) + (cons '?: __tmp51831)))) (___kont4690946910_ (lambda (_L30564_) - (let ((__tmp52020 - (let ((__tmp52021 - (let ((__tmp52022 - (let ((__tmp52023 + (let ((__tmp51834 + (let ((__tmp51835 + (let ((__tmp51836 + (let ((__tmp51837 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (_parse128948_ _L30564_)))) (declare (not safe)) - (cons __tmp52023 '())))) + (cons __tmp51837 '())))) (declare (not safe)) - (cons '=>: __tmp52022)))) + (cons '=>: __tmp51836)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons _L30403_ - __tmp52021)))) + __tmp51835)))) (declare (not safe)) - (cons '?: __tmp52020)))) + (cons '?: __tmp51834)))) (___kont4691146912_ (lambda (_L30515_ _L30517_) - (let ((__tmp52024 - (let ((__tmp52025 - (let ((__tmp52026 - (let ((__tmp52027 + (let ((__tmp51838 + (let ((__tmp51839 + (let ((__tmp51840 + (let ((__tmp51841 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52028 - (let ((__tmp52029 + (let ((__tmp51842 + (let ((__tmp51843 (let () (declare (not safe)) (_parse128948_ _L30515_)))) (declare (not safe)) - (cons __tmp52029 '())))) + (cons __tmp51843 '())))) (declare (not safe)) - (cons '=>: __tmp52028)))) + (cons '=>: __tmp51842)))) (declare (not safe)) - (cons _L30517_ __tmp52027)))) + (cons _L30517_ __tmp51841)))) (declare (not safe)) - (cons ':: __tmp52026)))) + (cons ':: __tmp51840)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons _L30403_ - __tmp52025)))) + __tmp51839)))) (declare (not safe)) - (cons '?: __tmp52024)))) + (cons '?: __tmp51838)))) (___kont4691346914_ (lambda () (let () @@ -275,7 +275,7 @@ _hd3042430588_) (if (gx#free-identifier=? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core$<match>[1]#_g52031_| + |gerbil/core$<match>[1]#_g51845_| _hd3042430588_) (if (gx#stx-pair? _tl3042330591_) (let ((_e3043230554_ (gx#syntax-e _tl3042330591_))) @@ -322,7 +322,7 @@ (if (gx#identifier? _hd3044330499_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52030_| + |gerbil/core$<match>[1]#_g51844_| _hd3044330499_) (if (gx#stx-pair? _tl3044230502_) @@ -369,12 +369,12 @@ (_parse128948_ _L30357_)))) (___kont4688946890_ (lambda () - (let ((__tmp52032 + (let ((__tmp51846 (gx#stx-map _parse128948_ _L30306_))) (declare (not safe)) - (cons 'and: __tmp52032))))) + (cons 'and: __tmp51846))))) (if (gx#stx-pair? ___stx4688446885_) (let ((_e3032330347_ (gx#syntax-e ___stx4688446885_))) @@ -407,12 +407,12 @@ (_parse128948_ _L30272_)))) (___kont4687146872_ (lambda () - (let ((__tmp52033 + (let ((__tmp51847 (gx#stx-map _parse128948_ _L30221_))) (declare (not safe)) - (cons 'or: __tmp52033))))) + (cons 'or: __tmp51847))))) (if (gx#stx-pair? ___stx4686646867_) (let ((_e3023830262_ (gx#syntax-e ___stx4686646867_))) @@ -431,80 +431,80 @@ (___kont4687146872_)))))) (___kont4699146992_ (lambda (_L30191_) - (let ((__tmp52034 - (let ((__tmp52035 + (let ((__tmp51848 + (let ((__tmp51849 (let () (declare (not safe)) (_parse128948_ _L30191_)))) (declare (not safe)) - (cons __tmp52035 '())))) + (cons __tmp51849 '())))) (declare (not safe)) - (cons 'not: __tmp52034)))) + (cons 'not: __tmp51848)))) (___kont4699346994_ (lambda (_L30147_ _L30149_) - (let ((__tmp52036 - (let ((__tmp52039 + (let ((__tmp51850 + (let ((__tmp51853 (let () (declare (not safe)) (_parse128948_ _L30149_))) - (__tmp52037 - (let ((__tmp52038 + (__tmp51851 + (let ((__tmp51852 (let () (declare (not safe)) (_parse128948_ _L30147_)))) (declare (not safe)) - (cons __tmp52038 '())))) + (cons __tmp51852 '())))) (declare (not safe)) - (cons __tmp52039 __tmp52037)))) + (cons __tmp51853 __tmp51851)))) (declare (not safe)) - (cons 'cons: __tmp52036)))) + (cons 'cons: __tmp51850)))) (___kont4699546996_ (lambda (_L30091_ _L30093_ _L30094_) (if (gx#stx-null? _L30091_) - (let ((__tmp52047 - (let ((__tmp52050 + (let ((__tmp51861 + (let ((__tmp51864 (let () (declare (not safe)) (_parse128948_ _L30094_))) - (__tmp52048 - (let ((__tmp52049 + (__tmp51862 + (let ((__tmp51863 (let () (declare (not safe)) (_parse128948_ _L30093_)))) (declare (not safe)) - (cons __tmp52049 '())))) + (cons __tmp51863 '())))) (declare (not safe)) - (cons __tmp52050 __tmp52048)))) + (cons __tmp51864 __tmp51862)))) (declare (not safe)) - (cons 'cons: __tmp52047)) - (let ((__tmp52040 - (let ((__tmp52046 + (cons 'cons: __tmp51861)) + (let ((__tmp51854 + (let ((__tmp51860 (let () (declare (not safe)) (_parse128948_ _L30094_))) - (__tmp52041 - (let ((__tmp52042 - (let ((__tmp52043 - (let ((__tmp52045 + (__tmp51855 + (let ((__tmp51856 + (let ((__tmp51857 + (let ((__tmp51859 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'cons*)) - (__tmp52044 + (__tmp51858 (let () (declare (not safe)) (cons _L30093_ _L30091_)))) (declare (not safe)) - (cons __tmp52045 __tmp52044)))) + (cons __tmp51859 __tmp51858)))) (declare (not safe)) - (_parse128948_ __tmp52043)))) + (_parse128948_ __tmp51857)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52042 '())))) + (cons __tmp51856 '())))) (declare (not safe)) - (cons __tmp52046 __tmp52041)))) + (cons __tmp51860 __tmp51855)))) (declare (not safe)) - (cons 'cons: __tmp52040))))) + (cons 'cons: __tmp51854))))) (___kont4699746998_ (lambda (_L30043_) (let () @@ -512,26 +512,26 @@ (_parse-list28950_ _L30043_)))) (___kont4699947000_ (lambda (_L30013_) - (let ((__tmp52051 - (let ((__tmp52052 + (let ((__tmp51865 + (let ((__tmp51866 (let () (declare (not safe)) (_parse128948_ _L30013_)))) (declare (not safe)) - (cons __tmp52052 '())))) + (cons __tmp51866 '())))) (declare (not safe)) - (cons 'box: __tmp52051)))) + (cons 'box: __tmp51865)))) (___kont4700147002_ (lambda (_L29976_) - (let ((__tmp52053 - (let ((__tmp52054 + (let ((__tmp51867 + (let ((__tmp51868 (let () (declare (not safe)) (_parse128948_ _L29976_)))) (declare (not safe)) - (cons __tmp52054 '())))) + (cons __tmp51868 '())))) (declare (not safe)) - (cons 'box: __tmp52053)))) + (cons 'box: __tmp51867)))) (___kont4700347004_ (lambda (_L29952_) (let () @@ -539,33 +539,33 @@ (_parse128948_ _L29952_)))) (___kont4700547006_ (lambda (_L29914_) - (let ((__tmp52055 - (let ((__tmp52056 + (let ((__tmp51869 + (let ((__tmp51870 (let () (declare (not safe)) (_parse-vector28951_ _L29914_)))) (declare (not safe)) - (cons __tmp52056 '())))) + (cons __tmp51870 '())))) (declare (not safe)) - (cons 'values: __tmp52055)))) + (cons 'values: __tmp51869)))) (___kont4700747008_ (lambda (_L29886_) - (let ((__tmp52057 - (let ((__tmp52058 + (let ((__tmp51871 + (let ((__tmp51872 (let () (declare (not safe)) (_parse-vector28951_ _L29886_)))) (declare (not safe)) - (cons __tmp52058 '())))) + (cons __tmp51872 '())))) (declare (not safe)) - (cons 'vector: __tmp52057)))) + (cons 'vector: __tmp51871)))) (___kont4700947010_ (lambda (_L29847_) - (let ((__tmp52059 - (let ((__tmp52060 - (let ((__tmp52061 + (let ((__tmp51873 + (let ((__tmp51874 + (let ((__tmp51875 (foldr (lambda (_g2986029863_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g2986129866_) @@ -577,79 +577,79 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (_parse-vector28951_ - __tmp52061)))) + __tmp51875)))) (declare (not safe)) - (cons __tmp52060 '())))) + (cons __tmp51874 '())))) (declare (not safe)) - (cons 'vector: __tmp52059)))) + (cons 'vector: __tmp51873)))) (___kont4701347014_ (lambda (_L29793_ _L29795_) - (let ((__tmp52062 - (let ((__tmp52065 + (let ((__tmp51876 + (let ((__tmp51879 (gx#syntax-local-value _L29795_)) - (__tmp52063 - (let ((__tmp52064 + (__tmp51877 + (let ((__tmp51878 (let () (declare (not safe)) (_parse-vector28951_ _L29793_)))) (declare (not safe)) - (cons __tmp52064 '())))) + (cons __tmp51878 '())))) (declare (not safe)) - (cons __tmp52065 __tmp52063)))) + (cons __tmp51879 __tmp51877)))) (declare (not safe)) - (cons 'struct: __tmp52062)))) + (cons 'struct: __tmp51876)))) (___kont4701547016_ (lambda (_L29763_ _L29765_) - (let ((__tmp52066 - (let ((__tmp52069 + (let ((__tmp51880 + (let ((__tmp51883 (gx#syntax-local-value _L29765_)) - (__tmp52067 - (let ((__tmp52068 + (__tmp51881 + (let ((__tmp51882 (let () (declare (not safe)) (_parse-class-body28953_ _L29763_)))) (declare (not safe)) - (cons __tmp52068 '())))) + (cons __tmp51882 '())))) (declare (not safe)) - (cons __tmp52069 __tmp52067)))) + (cons __tmp51883 __tmp51881)))) (declare (not safe)) - (cons 'class: __tmp52066)))) + (cons 'class: __tmp51880)))) (___kont4701747018_ (lambda (_L29723_ _L29725_) - (let ((__tmp52070 - (let ((__tmp52071 - (let ((__tmp52076 + (let ((__tmp51884 + (let ((__tmp51885 + (let ((__tmp51890 (gx#datum->syntax '#f 'cut)) - (__tmp52072 - (let ((__tmp52073 - (let ((__tmp52075 + (__tmp51886 + (let ((__tmp51887 + (let ((__tmp51889 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '<>)) - (__tmp52074 + (__tmp51888 (let () (declare (not safe)) (cons _L29723_ '())))) (declare (not safe)) - (cons __tmp52075 __tmp52074)))) + (cons __tmp51889 __tmp51888)))) (declare (not safe)) - (cons _L29725_ __tmp52073)))) + (cons _L29725_ __tmp51887)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52076 __tmp52072)))) + (cons __tmp51890 __tmp51886)))) (declare (not safe)) - (cons __tmp52071 '())))) + (cons __tmp51885 '())))) (declare (not safe)) - (cons '?: __tmp52070)))) + (cons '?: __tmp51884)))) (___kont4701947020_ (lambda (_L29683_) - (let ((__tmp52077 - (let ((__tmp52078 (gx#stx-e _L29683_))) + (let ((__tmp51891 + (let ((__tmp51892 (gx#stx-e _L29683_))) (declare (not safe)) - (cons __tmp52078 '())))) + (cons __tmp51892 '())))) (declare (not safe)) - (cons 'datum: __tmp52077)))) + (cons 'datum: __tmp51891)))) (___kont4702147022_ (lambda (_L29643_) (let () @@ -657,22 +657,22 @@ (_parse-qq28954_ _L29643_)))) (___kont4702347024_ (lambda (_L29599_ _L29601_) - (let ((__tmp52079 - (let ((__tmp52080 - (let ((__tmp52081 + (let ((__tmp51893 + (let ((__tmp51894 + (let ((__tmp51895 (let () (declare (not safe)) (_parse128948_ _L29599_)))) (declare (not safe)) - (cons __tmp52081 '())))) + (cons __tmp51895 '())))) (declare (not safe)) - (cons _L29601_ __tmp52080)))) + (cons _L29601_ __tmp51894)))) (declare (not safe)) - (cons 'apply: __tmp52079)))) + (cons 'apply: __tmp51893)))) (___kont4702547026_ (lambda (_L29547_) - (let ((__tmp52082 + (let ((__tmp51896 (gx#core-apply-expander (gx#syntax-local-e _L29547_) (gx#stx-wrap-source @@ -685,26 +685,26 @@ _$e29558_ (gx#stx-source _stx28944_))))))) (declare (not safe)) - (_parse128948_ __tmp52082)))) + (_parse128948_ __tmp51896)))) (___kont4702747028_ (lambda (_L29521_) (let () (declare (not safe)) (cons 'any: '())))) (___kont4702947030_ (lambda (_L29505_) - (let ((__tmp52083 + (let ((__tmp51897 (let () (declare (not safe)) (cons _L29505_ '())))) (declare (not safe)) - (cons 'var: __tmp52083)))) + (cons 'var: __tmp51897)))) (___kont4703147032_ (lambda (_L29487_) - (let ((__tmp52084 - (let ((__tmp52085 (gx#stx-e _L29487_))) + (let ((__tmp51898 + (let ((__tmp51899 (gx#stx-e _L29487_))) (declare (not safe)) - (cons __tmp52085 '())))) + (cons __tmp51899 '())))) (declare (not safe)) - (cons 'datum: __tmp52084)))) + (cons 'datum: __tmp51898)))) (___kont4703347034_ (lambda () (let () @@ -720,10 +720,10 @@ (lambda () (let ((_L29505_ ___stx4698246983_)) (if (and (gx#identifier? _L29505_) - (let ((__tmp52086 + (let ((__tmp51900 (gx#ellipsis? _L29505_))) (declare (not safe)) - (not __tmp52086))) + (not __tmp51900))) (___kont4702947030_ _L29505_) (let () (declare (not safe)) @@ -773,12 +773,12 @@ (___kont4701747018_ _L29723_ _L29725_) (if (gx#identifier? _hd2942729707_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52088_| + |gerbil/core$<match>[1]#_g51902_| _hd2942729707_) (___kont4701947020_ _hd2943029717_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52087_| + |gerbil/core$<match>[1]#_g51901_| _hd2942729707_) (___kont4702147022_ _hd2943029717_) @@ -825,7 +825,7 @@ (if (gx#identifier? _hd2942229757_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52088_| + |gerbil/core$<match>[1]#_g51902_| _hd2942229757_) (___match4730947310_ _e2942329753_ @@ -833,14 +833,14 @@ _tl2942129760_) (if (gx#free-identifier=? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core$<match>[1]#_g52087_| + |gerbil/core$<match>[1]#_g51901_| _hd2942229757_) (___match4730947310_ _e2942329753_ _hd2942229757_ _tl2942129760_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52089_| + |gerbil/core$<match>[1]#_g51903_| _hd2942229757_) (if (gx#stx-pair? _tl2942929720_) (let ((_e2945629589_ @@ -916,14 +916,14 @@ (declare (not safe)) (##car _e2940929833_)))) - (let ((__tmp52090 + (let ((__tmp51904 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons _lp-hd2941029837_ _body2941229830_)))) (declare (not safe)) - (_loop2940829823_ _lp-tl2941129840_ __tmp52090)))) + (_loop2940829823_ _lp-tl2941129840_ __tmp51904)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_body2941329843_ (reverse _body2941229830_))) @@ -1019,7 +1019,7 @@ (##car _e2933330381_)))) (if (gx#identifier? _hd2933230385_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52100_| + |gerbil/core$<match>[1]#_g51914_| _hd2933230385_) (if (gx#stx-pair? _tl2933130388_) (let ((_e2933630391_ @@ -1041,21 +1041,21 @@ _hd2933230385_ _tl2933130388_)) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52099_| + |gerbil/core$<match>[1]#_g51913_| _hd2933230385_) (___match4706147062_ _e2933330381_ _hd2933230385_ _tl2933130388_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52098_| + |gerbil/core$<match>[1]#_g51912_| _hd2933230385_) (___match4707147072_ _e2933330381_ _hd2933230385_ _tl2933130388_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52097_| + |gerbil/core$<match>[1]#_g51911_| _hd2933230385_) (if (gx#stx-pair? _tl2933130388_) @@ -1079,7 +1079,7 @@ _hd2933230385_ _tl2933130388_)) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52096_| + |gerbil/core$<match>[1]#_g51910_| _hd2933230385_) (if (gx#stx-pair? _tl2933130388_) (let ((_e2935930127_ (gx#syntax-e _tl2933130388_))) @@ -1119,7 +1119,7 @@ _hd2933230385_ _tl2933130388_)) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52095_| + |gerbil/core$<match>[1]#_g51909_| _hd2933230385_) (if (gx#stx-pair? _tl2933130388_) (let ((_e2937130071_ (gx#syntax-e _tl2933130388_))) @@ -1155,11 +1155,11 @@ _hd2933230385_ _tl2933130388_)) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52094_| + |gerbil/core$<match>[1]#_g51908_| _hd2933230385_) (___kont4699746998_ _tl2933130388_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52093_| + |gerbil/core$<match>[1]#_g51907_| _hd2933230385_) (if (gx#stx-pair? _tl2933130388_) (let ((_e2938530003_ @@ -1183,7 +1183,7 @@ _hd2933230385_ _tl2933130388_)) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52092_| + |gerbil/core$<match>[1]#_g51906_| _hd2933230385_) (if (gx#stx-pair? _tl2933130388_) (let ((_e2939429942_ @@ -1203,7 +1203,7 @@ _tl2933130388_)))) (___kont4700547006_ _tl2933130388_)) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52091_| + |gerbil/core$<match>[1]#_g51905_| _hd2933230385_) (___kont4700747008_ _tl2933130388_) (___match4722347224_ @@ -1234,52 +1234,52 @@ (_parse128948_ _L29283_)))) (___kont4731747318_ (lambda (_L29235_ _L29237_ _L29238_) - (let ((__tmp52101 - (let ((__tmp52104 + (let ((__tmp51915 + (let ((__tmp51918 (let () (declare (not safe)) (_parse128948_ _L29238_))) - (__tmp52102 - (let ((__tmp52103 + (__tmp51916 + (let ((__tmp51917 (let () (declare (not safe)) (_parse-list28950_ _L29235_)))) (declare (not safe)) - (cons __tmp52103 '())))) + (cons __tmp51917 '())))) (declare (not safe)) - (cons __tmp52104 __tmp52102)))) + (cons __tmp51918 __tmp51916)))) (declare (not safe)) - (cons 'splice: __tmp52101)))) + (cons 'splice: __tmp51915)))) (___kont4731947320_ (lambda (_L29193_ _L29195_) - (let ((__tmp52105 - (let ((__tmp52108 + (let ((__tmp51919 + (let ((__tmp51922 (let () (declare (not safe)) (_parse128948_ _L29195_))) - (__tmp52106 - (let ((__tmp52107 + (__tmp51920 + (let ((__tmp51921 (let () (declare (not safe)) (_parse-list28950_ _L29193_)))) (declare (not safe)) - (cons __tmp52107 '())))) + (cons __tmp51921 '())))) (declare (not safe)) - (cons __tmp52108 __tmp52106)))) + (cons __tmp51922 __tmp51920)))) (declare (not safe)) - (cons 'cons: __tmp52105)))) + (cons 'cons: __tmp51919)))) (___kont4732147322_ (lambda () (if (gx#stx-null? _body29130_) (let () (declare (not safe)) (cons 'null: '())) - (if (let ((__tmp52109 + (if (let ((__tmp51923 (gx#stx-pair? _body29130_))) (declare (not safe)) - (not __tmp52109)) + (not __tmp51923)) (let () (declare (not safe)) (_parse128948_ _body29130_)) @@ -1292,10 +1292,10 @@ _tl2915729190_) (let ((_L29193_ _tl2915729190_) (_L29195_ _hd2915829187_)) - (if (let ((__tmp52110 + (if (let ((__tmp51924 (gx#ellipsis? _L29195_))) (declare (not safe)) - (not __tmp52110)) + (not __tmp51924)) (___kont4731947320_ _L29193_ _L29195_) (___kont4732147322_))))) (___match4735547356_ @@ -1412,22 +1412,22 @@ (if (let () (declare (not safe)) (_simple-vector?28952_ _body29127_)) - (let ((__tmp52113 - (let ((__tmp52114 + (let ((__tmp51927 + (let ((__tmp51928 (gx#stx-map _parse128948_ _body29127_))) (declare (not safe)) - (cons __tmp52114 '())))) + (cons __tmp51928 '())))) (declare (not safe)) - (cons 'simple: __tmp52113)) - (let ((__tmp52111 - (let ((__tmp52112 + (cons 'simple: __tmp51927)) + (let ((__tmp51925 + (let ((__tmp51926 (let () (declare (not safe)) (_parse-list28950_ _body29127_)))) (declare (not safe)) - (cons __tmp52112 '())))) + (cons __tmp51926 '())))) (declare (not safe)) - (cons 'list: __tmp52111))))) + (cons 'list: __tmp51925))))) (_simple-vector?28952_ (lambda (_body29064_) (let* ((___stx4736447365_ _body29064_) @@ -1439,9 +1439,9 @@ ___stx4736447365_)))) (let ((___kont4736747368_ (lambda (_L29108_ _L29110_) - (if (let ((__tmp52115 (gx#ellipsis? _L29110_))) + (if (let ((__tmp51929 (gx#ellipsis? _L29110_))) (declare (not safe)) - (not __tmp52115)) + (not __tmp51929)) (let () (declare (not safe)) (_simple-vector?28952_ _L29108_)) @@ -1475,19 +1475,19 @@ ___stx4738047381_)))) (let ((___kont4738347384_ (lambda (_L29037_ _L29039_ _L29040_) - (let ((__tmp52116 - (let ((__tmp52118 + (let ((__tmp51930 + (let ((__tmp51932 (let () (declare (not safe)) (_parse128948_ _L29039_))) - (__tmp52117 + (__tmp51931 (let () (declare (not safe)) (_recur28976_ _L29037_)))) (declare (not safe)) - (cons __tmp52118 __tmp52117)))) + (cons __tmp51932 __tmp51931)))) (declare (not safe)) - (cons _L29040_ __tmp52116)))) + (cons _L29040_ __tmp51930)))) (___kont4738547386_ (lambda () (if (gx#stx-null? _rest28979_) @@ -1558,21 +1558,21 @@ '#f '"bad syntax; illegal pattern" (if _match-stx28946_ - (let ((__tmp52120 - (let ((__tmp52121 + (let ((__tmp51934 + (let ((__tmp51935 (let () (declare (not safe)) (cons _hd28957_ '())))) (declare (not safe)) - (cons _stx28944_ __tmp52121)))) + (cons _stx28944_ __tmp51935)))) (declare (not safe)) - (cons _match-stx28946_ __tmp52120)) - (let ((__tmp52119 + (cons _match-stx28946_ __tmp51934)) + (let ((__tmp51933 (let () (declare (not safe)) (cons _hd28957_ '())))) (declare (not safe)) - (cons _stx28944_ __tmp52119))))))) + (cons _stx28944_ __tmp51933))))))) (let () (declare (not safe)) (_parse128948_ _stx28944_))))) (define |gerbil/core$<match>[1]#parse-match-pattern__0| (lambda (_stx30628_) @@ -1582,27 +1582,27 @@ _stx30628_ _match-stx30631_)))) (define |gerbil/core$<match>[1]#parse-match-pattern| - (lambda _g52123_ - (let ((_g52122_ (let () (declare (not safe)) (##length _g52123_)))) - (cond ((let () (declare (not safe)) (##fx= _g52122_ 1)) + (lambda _g51937_ + (let ((_g51936_ (let () (declare (not safe)) (##length _g51937_)))) + (cond ((let () (declare (not safe)) (##fx= _g51936_ 1)) (apply (lambda (_stx30628_) (let () (declare (not safe)) (|gerbil/core$<match>[1]#parse-match-pattern__0| _stx30628_))) - _g52123_)) - ((let () (declare (not safe)) (##fx= _g52122_ 2)) + _g51937_)) + ((let () (declare (not safe)) (##fx= _g51936_ 2)) (apply (lambda (_stx30634_ _match-stx30636_) (let () (declare (not safe)) (|gerbil/core$<match>[1]#parse-match-pattern__%| _stx30634_ _match-stx30636_))) - _g52123_)) + _g51937_)) (else (##raise-wrong-number-of-arguments-exception |gerbil/core$<match>[1]#parse-match-pattern| - _g52123_)))))) + _g51937_)))))) (define |gerbil/core$<match>[1]#match-pattern?| (lambda (_stx28928_) (call-with-current-continuation @@ -1774,9 +1774,9 @@ ___stx4740247403_)))) (let ((___kont4740547406_ (lambda (_L28654_ _L28656_) - (let ((__tmp52124 + (let ((__tmp51938 (lambda (_g2866828670_) - (let ((__tmp52125 + (let ((__tmp51939 (let () (declare (not safe)) @@ -1786,14 +1786,14 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (_loop27666_ - __tmp52125 + __tmp51939 _g2866828670_ _K27956_))))) (declare (not safe)) (_loop27666_ _L28656_ _vars27955_ - __tmp52124)))) + __tmp51938)))) (___kont4740747408_ (lambda () (_K27956_ _vars27955_)))) (if (gx#stx-pair? ___stx4740247403_) @@ -1818,7 +1818,7 @@ (_loop27666_ _L28565_ _vars27955_ _K27956_)))) (___kont4750747508_ (lambda (_L28511_ _L28513_) - (let ((__tmp52126 + (let ((__tmp51940 (lambda (_g2852828530_) (let () (declare (not safe)) @@ -1830,10 +1830,10 @@ (_loop27666_ _L28513_ _vars27955_ - __tmp52126)))) + __tmp51940)))) (___kont4750947510_ (lambda (_L28447_ _L28449_) - (let ((__tmp52127 + (let ((__tmp51941 (lambda (_g2846428466_) (let () (declare (not safe)) @@ -1845,7 +1845,7 @@ (_loop27666_ _L28449_ _vars27955_ - __tmp52127)))) + __tmp51941)))) (___kont4751147512_ (lambda (_L28392_) (let () @@ -2322,7 +2322,7 @@ ___stx4780647807_)))) (let ((___kont4780947810_ (lambda (_L27805_ _L27807_) - (let ((__tmp52128 + (let ((__tmp51942 (lambda (_g2781927821_) (let () (declare (not safe)) @@ -2334,7 +2334,7 @@ (_loop27666_ _L27807_ _vars27761_ - __tmp52128)))) + __tmp51942)))) (___kont4781147812_ (lambda () (_K27762_ _vars27761_)))) (if (gx#stx-pair? ___stx4780647807_) @@ -2363,7 +2363,7 @@ ___stx4782247823_)))) (let ((___kont4782547826_ (lambda (_L27731_ _L27733_) - (let ((__tmp52129 + (let ((__tmp51943 (lambda (_g2774927751_) (let () (declare (not safe)) @@ -2375,7 +2375,7 @@ (_loop27666_ _L27733_ _vars27674_ - __tmp52129)))) + __tmp51943)))) (___kont4782747828_ (lambda () (_K27675_ _vars27674_)))) (if (gx#stx-pair? ___stx4782247823_) @@ -2441,46 +2441,46 @@ ___stx4797647977_)))) (let ((___kont4797947980_ (lambda () - (let ((__tmp52130 - (let ((__tmp52133 + (let ((__tmp51944 + (let ((__tmp51947 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52136 (gx#datum->syntax '#f '?)) - (__tmp52134 - (let ((__tmp52135 + (let ((__tmp51950 (gx#datum->syntax '#f '?)) + (__tmp51948 + (let ((__tmp51949 (let () (declare (not safe)) (cons _L25897_ '())))) (declare (not safe)) - (cons _L27376_ __tmp52135)))) + (cons _L27376_ __tmp51949)))) (declare (not safe)) - (cons __tmp52136 __tmp52134))) - (__tmp52131 - (let ((__tmp52132 + (cons __tmp51950 __tmp51948))) + (__tmp51945 + (let ((__tmp51946 (let () (declare (not safe)) (cons _E25880_ '())))) (declare (not safe)) - (cons _K25879_ __tmp52132)))) + (cons _K25879_ __tmp51946)))) (declare (not safe)) - (cons __tmp52133 __tmp52131)))) + (cons __tmp51947 __tmp51945)))) (declare (not safe)) - (cons 'if __tmp52130)))) + (cons 'if __tmp51944)))) (___kont4798147982_ (lambda (_L27629_) - (let ((__tmp52137 - (let ((__tmp52141 - (let ((__tmp52144 (gx#datum->syntax '#f '?)) - (__tmp52142 - (let ((__tmp52143 + (let ((__tmp51951 + (let ((__tmp51955 + (let ((__tmp51958 (gx#datum->syntax '#f '?)) + (__tmp51956 + (let ((__tmp51957 (let () (declare (not safe)) (cons _L25897_ '())))) (declare (not safe)) - (cons _L27376_ __tmp52143)))) + (cons _L27376_ __tmp51957)))) (declare (not safe)) - (cons __tmp52144 __tmp52142))) - (__tmp52138 - (let ((__tmp52140 + (cons __tmp51958 __tmp51956))) + (__tmp51952 + (let ((__tmp51954 (let () (declare (not safe)) (_generate124631_ @@ -2488,16 +2488,16 @@ _L27629_ _K25879_ _E25880_))) - (__tmp52139 + (__tmp51953 (let () (declare (not safe)) (cons _E25880_ '())))) (declare (not safe)) - (cons __tmp52140 __tmp52139)))) + (cons __tmp51954 __tmp51953)))) (declare (not safe)) - (cons __tmp52141 __tmp52138)))) + (cons __tmp51955 __tmp51952)))) (declare (not safe)) - (cons 'if __tmp52137)))) + (cons 'if __tmp51951)))) (___kont4798347984_ (lambda (_L27567_) (let* ((_g2758127589_ @@ -2510,31 +2510,31 @@ (lambda (_g2758227593_) ((lambda (_L27596_) (let () - (let ((__tmp52145 - (let ((__tmp52152 - (let ((__tmp52153 - (let ((__tmp52154 - (let ((__tmp52155 + (let ((__tmp51959 + (let ((__tmp51966 + (let ((__tmp51967 + (let ((__tmp51968 + (let ((__tmp51969 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52156 + (let ((__tmp51970 (let () (declare (not safe)) (cons _L25897_ '())))) (declare (not safe)) - (cons _L27376_ __tmp52156)))) + (cons _L27376_ __tmp51970)))) (declare (not safe)) - (cons __tmp52155 '())))) + (cons __tmp51969 '())))) (declare (not safe)) - (cons _L27596_ __tmp52154)))) + (cons _L27596_ __tmp51968)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52153 '()))) - (__tmp52146 - (let ((__tmp52147 - (let ((__tmp52148 - (let ((__tmp52149 + (cons __tmp51967 '()))) + (__tmp51960 + (let ((__tmp51961 + (let ((__tmp51962 + (let ((__tmp51963 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52151 + (let ((__tmp51965 (let () (declare (not safe)) (_generate124631_ @@ -2542,27 +2542,27 @@ _L27567_ _K25879_ _E25880_))) - (__tmp52150 + (__tmp51964 (let () (declare (not safe)) (cons _E25880_ '())))) (declare (not safe)) - (cons __tmp52151 __tmp52150)))) + (cons __tmp51965 __tmp51964)))) (declare (not safe)) - (cons _L27596_ __tmp52149)))) + (cons _L27596_ __tmp51963)))) (declare (not safe)) - (cons 'if __tmp52148)))) + (cons 'if __tmp51962)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52147 '())))) + (cons __tmp51961 '())))) (declare (not safe)) - (cons __tmp52152 __tmp52146)))) + (cons __tmp51966 __tmp51960)))) (declare (not safe)) - (cons 'let __tmp52145)))) + (cons 'let __tmp51959)))) _g2758227593_))) - (__tmp52157 (gx#genident 'e))) + (__tmp51971 (gx#genident 'e))) (declare (not safe)) - (_g2758027608_ __tmp52157)))) + (_g2758027608_ __tmp51971)))) (___kont4798547986_ (lambda (_L27483_ _L27485_) (let* ((_g2750527513_ @@ -2575,12 +2575,12 @@ (lambda (_g2750627517_) ((lambda (_L27520_) (let () - (let ((__tmp52158 - (let ((__tmp52170 - (let ((__tmp52173 + (let ((__tmp51972 + (let ((__tmp51984 + (let ((__tmp51987 (gx#datum->syntax '#f '?)) - (__tmp52171 - (let ((__tmp52172 + (__tmp51985 + (let ((__tmp51986 (let () (declare (not safe)) @@ -2588,32 +2588,32 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons _L27376_ __tmp52172)))) + (cons _L27376_ __tmp51986)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52173 __tmp52171))) - (__tmp52159 - (let ((__tmp52161 - (let ((__tmp52162 - (let ((__tmp52165 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52166 - (let ((__tmp52167 - (let ((__tmp52168 - (let ((__tmp52169 + (cons __tmp51987 __tmp51985))) + (__tmp51973 + (let ((__tmp51975 + (let ((__tmp51976 + (let ((__tmp51979 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp51980 + (let ((__tmp51981 + (let ((__tmp51982 + (let ((__tmp51983 (let () (declare (not safe)) (cons _L25897_ '())))) (declare (not safe)) - (cons _L27485_ __tmp52169)))) + (cons _L27485_ __tmp51983)))) (declare (not safe)) - (cons __tmp52168 '())))) + (cons __tmp51982 '())))) (declare (not safe)) - (cons _L27520_ __tmp52167)))) + (cons _L27520_ __tmp51981)))) (declare (not safe)) - (cons __tmp52166 '()))) - (__tmp52163 - (let ((__tmp52164 + (cons __tmp51980 '()))) + (__tmp51977 + (let ((__tmp51978 (let () (declare (not safe)) (_generate124631_ @@ -2622,26 +2622,26 @@ _K25879_ _E25880_)))) (declare (not safe)) - (cons __tmp52164 '())))) + (cons __tmp51978 '())))) (declare (not safe)) - (cons __tmp52165 __tmp52163)))) + (cons __tmp51979 __tmp51977)))) (declare (not safe)) - (cons 'let __tmp52162))) + (cons 'let __tmp51976))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp52160 + (__tmp51974 (let () (declare (not safe)) (cons _E25880_ '())))) (declare (not safe)) - (cons __tmp52161 __tmp52160)))) + (cons __tmp51975 __tmp51974)))) (declare (not safe)) - (cons __tmp52170 __tmp52159)))) + (cons __tmp51984 __tmp51973)))) (declare (not safe)) - (cons 'if __tmp52158)))) + (cons 'if __tmp51972)))) _g2750627517_))) - (__tmp52174 (gx#genident 'e))) + (__tmp51988 (gx#genident 'e))) (declare (not safe)) - (_g2750427532_ __tmp52174))))) + (_g2750427532_ __tmp51988))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_g2739027640_ (lambda () @@ -2775,8 +2775,8 @@ (let ((___kont4796347964_ (lambda (_L27324_ _L27326_) - (let ((__tmp52175 - (let ((__tmp52176 + (let ((__tmp51989 + (let ((__tmp51990 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) @@ -2784,14 +2784,14 @@ (declare (not safe)) (_generate124631_ _tgt25876_ - __tmp52176 + __tmp51990 _K25879_ _E25880_)))) (declare (not safe)) (_generate124631_ _tgt25876_ _L27326_ - __tmp52175 + __tmp51989 _E25880_)))) (___kont4796547966_ (lambda () _K25879_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -2823,8 +2823,8 @@ (let ((___kont4794747948_ (lambda (_L27231_ _L27233_) - (let ((__tmp52177 - (let ((__tmp52178 + (let ((__tmp51991 + (let ((__tmp51992 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) @@ -2832,7 +2832,7 @@ (declare (not safe)) (_generate124631_ _tgt25876_ - __tmp52178 + __tmp51992 _K25879_ _E25880_)))) (declare (not safe)) @@ -2840,7 +2840,7 @@ _tgt25876_ _L27233_ _K25879_ - __tmp52177)))) + __tmp51991)))) (___kont4794947950_ (lambda () _E25880_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? @@ -2903,22 +2903,22 @@ (if (gx#stx-null? _tl2705127083_) ((lambda (_L27086_ _L27088_) (let () - (let ((__tmp52179 - (let ((__tmp52217 - (let ((__tmp52219 + (let ((__tmp51993 + (let ((__tmp52031 + (let ((__tmp52033 (gx#datum->syntax '#f '##pair?)) - (__tmp52218 + (__tmp52032 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons _L25897_ '())))) (declare (not safe)) - (cons __tmp52219 __tmp52218))) - (__tmp52180 - (let ((__tmp52182 + (cons __tmp52033 __tmp52032))) + (__tmp51994 + (let ((__tmp51996 (let ((_hd-pat27104_ (gx#stx-e _L27027_)) (_tl-pat27106_ (gx#stx-e _L27025_))) (if (and (let () @@ -2931,28 +2931,28 @@ (if (let () (declare (not safe)) (equal? _tl-pat27106_ '(any:))) - (let ((__tmp52208 - (let ((__tmp52211 - (let ((__tmp52212 - (let ((__tmp52213 - (let ((__tmp52214 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52216 (gx#datum->syntax '#f '##car)) - (__tmp52215 + (let ((__tmp52022 + (let ((__tmp52025 + (let ((__tmp52026 + (let ((__tmp52027 + (let ((__tmp52028 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp52030 (gx#datum->syntax '#f '##car)) + (__tmp52029 (let () (declare (not safe)) (cons _L25897_ '())))) (declare (not safe)) - (cons __tmp52216 __tmp52215)))) + (cons __tmp52030 __tmp52029)))) (declare (not safe)) - (cons __tmp52214 '())))) + (cons __tmp52028 '())))) (declare (not safe)) - (cons _L27088_ __tmp52213)))) + (cons _L27088_ __tmp52027)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52212 '()))) - (__tmp52209 - (let ((__tmp52210 + (cons __tmp52026 '()))) + (__tmp52023 + (let ((__tmp52024 (let () (declare (not safe)) (_generate124631_ @@ -2961,36 +2961,36 @@ _K25879_ _E25880_)))) (declare (not safe)) - (cons __tmp52210 '())))) + (cons __tmp52024 '())))) (declare (not safe)) - (cons __tmp52211 __tmp52209)))) + (cons __tmp52025 __tmp52023)))) (declare (not safe)) - (cons 'let __tmp52208)) + (cons 'let __tmp52022)) (if (let () (declare (not safe)) (equal? _hd-pat27104_ '(any:))) - (let ((__tmp52199 - (let ((__tmp52202 - (let ((__tmp52203 - (let ((__tmp52204 - (let ((__tmp52205 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52207 (gx#datum->syntax '#f '##cdr)) - (__tmp52206 + (let ((__tmp52013 + (let ((__tmp52016 + (let ((__tmp52017 + (let ((__tmp52018 + (let ((__tmp52019 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp52021 (gx#datum->syntax '#f '##cdr)) + (__tmp52020 (let () (declare (not safe)) (cons _L25897_ '())))) (declare (not safe)) - (cons __tmp52207 __tmp52206)))) + (cons __tmp52021 __tmp52020)))) (declare (not safe)) - (cons __tmp52205 '())))) + (cons __tmp52019 '())))) (declare (not safe)) - (cons _L27086_ __tmp52204)))) + (cons _L27086_ __tmp52018)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52203 '()))) - (__tmp52200 - (let ((__tmp52201 + (cons __tmp52017 '()))) + (__tmp52014 + (let ((__tmp52015 (let () (declare (not safe)) (_generate124631_ @@ -2999,53 +2999,53 @@ _K25879_ _E25880_)))) (declare (not safe)) - (cons __tmp52201 '())))) + (cons __tmp52015 '())))) (declare (not safe)) - (cons __tmp52202 __tmp52200)))) + (cons __tmp52016 __tmp52014)))) (declare (not safe)) - (cons 'let __tmp52199)) - (let ((__tmp52183 - (let ((__tmp52187 - (let ((__tmp52194 - (let ((__tmp52195 - (let ((__tmp52196 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52198 (gx#datum->syntax '#f '##car)) - (__tmp52197 + (cons 'let __tmp52013)) + (let ((__tmp51997 + (let ((__tmp52001 + (let ((__tmp52008 + (let ((__tmp52009 + (let ((__tmp52010 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp52012 (gx#datum->syntax '#f '##car)) + (__tmp52011 (let () (declare (not safe)) (cons _L25897_ '())))) (declare (not safe)) - (cons __tmp52198 __tmp52197)))) + (cons __tmp52012 __tmp52011)))) (declare (not safe)) - (cons __tmp52196 '())))) + (cons __tmp52010 '())))) (declare (not safe)) - (cons _L27088_ __tmp52195))) - (__tmp52188 - (let ((__tmp52189 - (let ((__tmp52190 - (let ((__tmp52191 - (let ((__tmp52193 + (cons _L27088_ __tmp52009))) + (__tmp52002 + (let ((__tmp52003 + (let ((__tmp52004 + (let ((__tmp52005 + (let ((__tmp52007 (gx#datum->syntax '#f '##cdr)) - (__tmp52192 + (__tmp52006 (let () (declare (not safe)) (cons _L25897_ '())))) (declare (not safe)) - (cons __tmp52193 __tmp52192)))) + (cons __tmp52007 __tmp52006)))) (declare (not safe)) - (cons __tmp52191 '())))) + (cons __tmp52005 '())))) (declare (not safe)) - (cons _L27086_ __tmp52190)))) + (cons _L27086_ __tmp52004)))) (declare (not safe)) - (cons __tmp52189 '())))) + (cons __tmp52003 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52194 - __tmp52188))) - (__tmp52184 - (let ((__tmp52185 - (let ((__tmp52186 + (cons __tmp52008 + __tmp52002))) + (__tmp51998 + (let ((__tmp51999 + (let ((__tmp52000 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) @@ -3055,24 +3055,24 @@ _K25879_ _E25880_)))) (declare (not safe)) - (_generate124631_ _L27088_ _L27027_ __tmp52186 _E25880_)))) + (_generate124631_ _L27088_ _L27027_ __tmp52000 _E25880_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52185 '())))) + (cons __tmp51999 '())))) (declare (not safe)) - (cons __tmp52187 __tmp52184)))) + (cons __tmp52001 __tmp51998)))) (declare (not safe)) - (cons 'let __tmp52183))))))) - (__tmp52181 + (cons 'let __tmp51997))))))) + (__tmp51995 (let () (declare (not safe)) (cons _E25880_ '())))) (declare (not safe)) - (cons __tmp52182 __tmp52181)))) + (cons __tmp51996 __tmp51995)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52217 - __tmp52180)))) + (cons __tmp52031 + __tmp51994)))) (declare (not safe)) - (cons 'if __tmp52179)))) + (cons 'if __tmp51993)))) _hd2705227080_ _hd2704927070_) (let () @@ -3085,33 +3085,33 @@ (declare (not safe)) (_g2704427059_ _g2704527063_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp52220 + (__tmp52034 (list (gx#genident 'hd) (gx#genident 'tl)))) (declare (not safe)) - (_g2704327108_ __tmp52220)))) + (_g2704327108_ __tmp52034)))) (___kont4807148072_ (lambda () - (let ((__tmp52221 - (let ((__tmp52224 - (let ((__tmp52226 + (let ((__tmp52035 + (let ((__tmp52038 + (let ((__tmp52040 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '##null?)) - (__tmp52225 + (__tmp52039 (let () (declare (not safe)) (cons _L25897_ '())))) (declare (not safe)) - (cons __tmp52226 __tmp52225))) - (__tmp52222 - (let ((__tmp52223 + (cons __tmp52040 __tmp52039))) + (__tmp52036 + (let ((__tmp52037 (let () (declare (not safe)) (cons _E25880_ '())))) (declare (not safe)) - (cons _K25879_ __tmp52223)))) + (cons _K25879_ __tmp52037)))) (declare (not safe)) - (cons __tmp52224 __tmp52222)))) + (cons __tmp52038 __tmp52036)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'if __tmp52221)))) + (cons 'if __tmp52035)))) (___kont4807348074_ (lambda (_L26941_ _L26943_) (let () @@ -3134,41 +3134,41 @@ (lambda (_g2687026881_) ((lambda (_L26884_) (let () - (let ((__tmp52227 + (let ((__tmp52041 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52240 - (let ((__tmp52242 + (let ((__tmp52054 + (let ((__tmp52056 (gx#datum->syntax '#f '##box?)) - (__tmp52241 + (__tmp52055 (let () (declare (not safe)) (cons _L25897_ '())))) (declare (not safe)) - (cons __tmp52242 __tmp52241))) - (__tmp52228 - (let ((__tmp52230 - (let ((__tmp52231 - (let ((__tmp52234 - (let ((__tmp52235 - (let ((__tmp52236 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52237 - (let ((__tmp52239 + (cons __tmp52056 __tmp52055))) + (__tmp52042 + (let ((__tmp52044 + (let ((__tmp52045 + (let ((__tmp52048 + (let ((__tmp52049 + (let ((__tmp52050 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp52051 + (let ((__tmp52053 (gx#datum->syntax '#f '##unbox)) - (__tmp52238 + (__tmp52052 (let () (declare (not safe)) (cons _L25897_ '())))) (declare (not safe)) - (cons __tmp52239 __tmp52238)))) + (cons __tmp52053 __tmp52052)))) (declare (not safe)) - (cons __tmp52237 '())))) + (cons __tmp52051 '())))) (declare (not safe)) - (cons _L26884_ __tmp52236)))) + (cons _L26884_ __tmp52050)))) (declare (not safe)) - (cons __tmp52235 '()))) - (__tmp52232 - (let ((__tmp52233 + (cons __tmp52049 '()))) + (__tmp52046 + (let ((__tmp52047 (let () (declare (not safe)) (_generate124631_ @@ -3177,29 +3177,29 @@ _K25879_ _E25880_)))) (declare (not safe)) - (cons __tmp52233 '())))) + (cons __tmp52047 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52234 - __tmp52232)))) + (cons __tmp52048 + __tmp52046)))) (declare (not safe)) - (cons 'let __tmp52231))) - (__tmp52229 + (cons 'let __tmp52045))) + (__tmp52043 (let () (declare (not safe)) (cons _E25880_ '())))) (declare (not safe)) - (cons __tmp52230 __tmp52229)))) + (cons __tmp52044 __tmp52043)))) (declare (not safe)) - (cons __tmp52240 __tmp52228)))) + (cons __tmp52054 __tmp52042)))) (declare (not safe)) - (cons 'if __tmp52227)))) + (cons 'if __tmp52041)))) _g2687026881_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp52243 + (__tmp52057 (gx#genident 'e))) (declare (not safe)) - (_g2686826896_ __tmp52243)))) + (_g2686826896_ __tmp52057)))) (___kont4807748078_ (lambda (_L26660_) (let* ((___stx4789447895_ @@ -3223,30 +3223,30 @@ (lambda (_g2679026801_) ((lambda (_L26804_) (let () - (let ((__tmp52244 - (let ((__tmp52248 - (let ((__tmp52254 + (let ((__tmp52058 + (let ((__tmp52062 + (let ((__tmp52068 (gx#datum->syntax '#f '##fx=)) - (__tmp52249 - (let ((__tmp52251 - (let ((__tmp52253 + (__tmp52063 + (let ((__tmp52065 + (let ((__tmp52067 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'values-count)) - (__tmp52252 + (__tmp52066 (let () (declare (not safe)) (cons _L25897_ '())))) (declare (not safe)) - (cons __tmp52253 __tmp52252))) - (__tmp52250 + (cons __tmp52067 __tmp52066))) + (__tmp52064 (let () (declare (not safe)) (cons _L26804_ '())))) (declare (not safe)) - (cons __tmp52251 __tmp52250)))) + (cons __tmp52065 __tmp52064)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52254 __tmp52249))) - (__tmp52245 - (let ((__tmp52247 + (cons __tmp52068 __tmp52063))) + (__tmp52059 + (let ((__tmp52061 (let () (declare (not safe)) (_generate-simple-vector24634_ @@ -3255,20 +3255,20 @@ '0 _K25879_ _E25880_))) - (__tmp52246 + (__tmp52060 (let () (declare (not safe)) (cons _E25880_ '())))) (declare (not safe)) - (cons __tmp52247 __tmp52246)))) + (cons __tmp52061 __tmp52060)))) (declare (not safe)) - (cons __tmp52248 __tmp52245)))) + (cons __tmp52062 __tmp52059)))) (declare (not safe)) - (cons 'if __tmp52244)))) + (cons 'if __tmp52058)))) _g2679026801_))) - (__tmp52255 (gx#stx-length _L26775_))) + (__tmp52069 (gx#stx-length _L26775_))) (declare (not safe)) - (_g2678826816_ __tmp52255)))) + (_g2678826816_ __tmp52069)))) (___kont4789947900_ (lambda (_L26729_) (let () @@ -3365,46 +3365,46 @@ (lambda (_g2659526606_) ((lambda (_L26609_) (let () - (let ((__tmp52256 - (let ((__tmp52271 - (let ((__tmp52273 + (let ((__tmp52070 + (let ((__tmp52085 + (let ((__tmp52087 (gx#datum->syntax '#f '##vector?)) - (__tmp52272 + (__tmp52086 (let () (declare (not safe)) (cons _L25897_ '())))) (declare (not safe)) - (cons __tmp52273 __tmp52272))) - (__tmp52257 - (let ((__tmp52259 - (let ((__tmp52260 - (let ((__tmp52264 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52270 (gx#datum->syntax '#f '##fx=)) - (__tmp52265 - (let ((__tmp52267 - (let ((__tmp52269 + (cons __tmp52087 __tmp52086))) + (__tmp52071 + (let ((__tmp52073 + (let ((__tmp52074 + (let ((__tmp52078 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp52084 (gx#datum->syntax '#f '##fx=)) + (__tmp52079 + (let ((__tmp52081 + (let ((__tmp52083 (gx#datum->syntax '#f '##vector-length)) - (__tmp52268 + (__tmp52082 (let () (declare (not safe)) (cons _L25897_ '())))) (declare (not safe)) - (cons __tmp52269 __tmp52268))) - (__tmp52266 + (cons __tmp52083 __tmp52082))) + (__tmp52080 (let () (declare (not safe)) (cons _L26609_ '())))) (declare (not safe)) - (cons __tmp52267 __tmp52266)))) + (cons __tmp52081 __tmp52080)))) (declare (not safe)) - (cons __tmp52270 __tmp52265))) - (__tmp52261 - (let ((__tmp52263 + (cons __tmp52084 __tmp52079))) + (__tmp52075 + (let ((__tmp52077 (let () (declare (not safe)) (_generate-simple-vector24634_ @@ -3413,45 +3413,45 @@ '0 _K25879_ _E25880_))) - (__tmp52262 + (__tmp52076 (let () (declare (not safe)) (cons _E25880_ '())))) (declare (not safe)) - (cons __tmp52263 __tmp52262)))) + (cons __tmp52077 __tmp52076)))) (declare (not safe)) - (cons __tmp52264 __tmp52261)))) + (cons __tmp52078 __tmp52075)))) (declare (not safe)) - (cons 'if __tmp52260))) + (cons 'if __tmp52074))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp52258 + (__tmp52072 (let () (declare (not safe)) (cons _E25880_ '())))) (declare (not safe)) - (cons __tmp52259 __tmp52258)))) + (cons __tmp52073 __tmp52072)))) (declare (not safe)) - (cons __tmp52271 __tmp52257)))) + (cons __tmp52085 __tmp52071)))) (declare (not safe)) - (cons 'if __tmp52256)))) + (cons 'if __tmp52070)))) _g2659526606_))) - (__tmp52274 (gx#stx-length _L26580_))) + (__tmp52088 (gx#stx-length _L26580_))) (declare (not safe)) - (_g2659326621_ __tmp52274)))) + (_g2659326621_ __tmp52088)))) (___kont4784947850_ (lambda (_L26534_) - (let ((__tmp52275 - (let ((__tmp52279 - (let ((__tmp52281 + (let ((__tmp52089 + (let ((__tmp52093 + (let ((__tmp52095 (gx#datum->syntax '#f '##vector?)) - (__tmp52280 + (__tmp52094 (let () (declare (not safe)) (cons _L25897_ '())))) (declare (not safe)) - (cons __tmp52281 __tmp52280))) - (__tmp52276 - (let ((__tmp52278 + (cons __tmp52095 __tmp52094))) + (__tmp52090 + (let ((__tmp52092 (let () (declare (not safe)) (_generate-list-vector24635_ @@ -3460,16 +3460,16 @@ 'vector->list _K25879_ _E25880_))) - (__tmp52277 + (__tmp52091 (let () (declare (not safe)) (cons _E25880_ '())))) (declare (not safe)) - (cons __tmp52278 __tmp52277)))) + (cons __tmp52092 __tmp52091)))) (declare (not safe)) - (cons __tmp52279 __tmp52276)))) + (cons __tmp52093 __tmp52090)))) (declare (not safe)) - (cons 'if __tmp52275))))) + (cons 'if __tmp52089))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? ___stx4784447845_) @@ -3535,22 +3535,22 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (___kont4808148082_ (lambda (_L26416_ _L26418_) - (let ((__tmp52282 + (let ((__tmp52096 (gx#stx-e _L26418_))) (declare (not safe)) (_generate-struct24636_ - __tmp52282 + __tmp52096 _tgt25876_ _L26416_ _K25879_ _E25880_)))) (___kont4808348084_ (lambda (_L26357_ _L26359_) - (let ((__tmp52283 + (let ((__tmp52097 (gx#stx-e _L26359_))) (declare (not safe)) (_generate-class24639_ - __tmp52283 + __tmp52097 _tgt25876_ _L26357_ _K25879_ @@ -3567,44 +3567,44 @@ (lambda (_g2627526286_) ((lambda (_L26289_) (let () - (let ((__tmp52284 + (let ((__tmp52098 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52287 - (let ((__tmp52288 - (let ((__tmp52289 - (let ((__tmp52290 - (let ((__tmp52292 + (let ((__tmp52101 + (let ((__tmp52102 + (let ((__tmp52103 + (let ((__tmp52104 + (let ((__tmp52106 (gx#datum->syntax '#f 'quote)) - (__tmp52291 + (__tmp52105 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (cons _L26260_ '())))) (declare (not safe)) - (cons __tmp52292 __tmp52291)))) + (cons __tmp52106 __tmp52105)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52290 '())))) + (cons __tmp52104 '())))) (declare (not safe)) - (cons _L25897_ __tmp52289)))) + (cons _L25897_ __tmp52103)))) (declare (not safe)) - (cons _L26289_ __tmp52288))) - (__tmp52285 - (let ((__tmp52286 + (cons _L26289_ __tmp52102))) + (__tmp52099 + (let ((__tmp52100 (let () (declare (not safe)) (cons _E25880_ '())))) (declare (not safe)) - (cons _K25879_ __tmp52286)))) + (cons _K25879_ __tmp52100)))) (declare (not safe)) - (cons __tmp52287 __tmp52285)))) + (cons __tmp52101 __tmp52099)))) (declare (not safe)) - (cons 'if __tmp52284)))) + (cons 'if __tmp52098)))) _g2627526286_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp52293 + (__tmp52107 (let ((_e26305_ (gx#stx-e _L26260_))) @@ -3620,7 +3620,7 @@ 'equal?))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g2627326301_ __tmp52293)))) + (_g2627326301_ __tmp52107)))) (___kont4808748088_ (lambda (_L26180_ _L26182_) (let* ((_g2619826206_ @@ -3633,28 +3633,28 @@ (lambda (_g2619926210_) ((lambda (_L26213_) (let () - (let ((__tmp52294 + (let ((__tmp52108 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52297 - (let ((__tmp52298 - (let ((__tmp52299 - (let ((__tmp52300 - (let ((__tmp52301 + (let ((__tmp52111 + (let ((__tmp52112 + (let ((__tmp52113 + (let ((__tmp52114 + (let ((__tmp52115 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (cons _L25897_ '())))) (declare (not safe)) - (cons _L26182_ __tmp52301)))) + (cons _L26182_ __tmp52115)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52300 '())))) + (cons __tmp52114 '())))) (declare (not safe)) - (cons _L26213_ __tmp52299)))) + (cons _L26213_ __tmp52113)))) (declare (not safe)) - (cons __tmp52298 '()))) - (__tmp52295 - (let ((__tmp52296 + (cons __tmp52112 '()))) + (__tmp52109 + (let ((__tmp52110 (let () (declare (not safe)) (_generate124631_ @@ -3663,38 +3663,38 @@ _K25879_ _E25880_)))) (declare (not safe)) - (cons __tmp52296 '())))) + (cons __tmp52110 '())))) (declare (not safe)) - (cons __tmp52297 __tmp52295)))) + (cons __tmp52111 __tmp52109)))) (declare (not safe)) - (cons 'let __tmp52294)))) + (cons 'let __tmp52108)))) _g2619926210_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp52302 + (__tmp52116 (gx#genident 'e))) (declare (not safe)) - (_g2619726225_ __tmp52302)))) + (_g2619726225_ __tmp52116)))) (___kont4808948090_ (lambda (_L26122_) - (let ((__tmp52303 - (let ((__tmp52305 - (let ((__tmp52306 + (let ((__tmp52117 + (let ((__tmp52119 + (let ((__tmp52120 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52307 + (let ((__tmp52121 (let () (declare (not safe)) (cons _L25897_ '())))) (declare (not safe)) - (cons _L26122_ __tmp52307)))) + (cons _L26122_ __tmp52121)))) (declare (not safe)) - (cons __tmp52306 '()))) - (__tmp52304 + (cons __tmp52120 '()))) + (__tmp52118 (let () (declare (not safe)) (cons _K25879_ '())))) (declare (not safe)) - (cons __tmp52305 __tmp52304)))) + (cons __tmp52119 __tmp52118)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'let __tmp52303)))) + (cons 'let __tmp52117)))) (___kont4809148092_ (lambda () _K25879_))) (if (gx#stx-pair? ___stx4805848059_) @@ -4095,30 +4095,30 @@ (_g2525425872_ (lambda (_g2525625276_) (if (gx#stx-pair/null? _g2525625276_) - (let ((_g52308_ + (let ((_g52122_ (gx#syntax-split-splice _g2525625276_ '0))) (begin - (let ((_g52309_ + (let ((_g52123_ (let () (declare (not safe)) - (if (##values? _g52308_) - (##vector-length _g52308_) + (if (##values? _g52122_) + (##vector-length _g52122_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g52309_ 2))) + (##fx= _g52123_ 2))) (error "Context expects 2 values" - _g52309_))) + _g52123_))) (let ((_target2525825279_ (let () (declare (not safe)) - (##vector-ref _g52308_ 0))) + (##vector-ref _g52122_ 0))) (_tl2526025282_ (let () (declare (not safe)) - (##vector-ref _g52308_ 1)))) + (##vector-ref _g52122_ 1)))) (if (gx#stx-null? _tl2526025282_) (letrec ((_loop2526125285_ (lambda (_hd2525925289_ @@ -4136,12 +4136,12 @@ (let () (declare (not safe)) (##cdr _e2526225295_)))) - (let ((__tmp52391 + (let ((__tmp52205 (let () (declare (not safe)) (cons _lp-hd2526325299_ _var2526525292_)))) (declare (not safe)) - (_loop2526125285_ _lp-tl2526425302_ __tmp52391)))) + (_loop2526125285_ _lp-tl2526425302_ __tmp52205)))) (let ((_var2526625305_ (reverse _var2526525292_))) ((lambda (_L25309_) (let () @@ -4154,34 +4154,34 @@ (_g2532425860_ (lambda (_g2532625346_) (if (gx#stx-pair/null? _g2532625346_) - (let ((_g52310_ + (let ((_g52124_ (gx#syntax-split-splice _g2532625346_ '0))) (begin - (let ((_g52311_ + (let ((_g52125_ (let () (declare (not safe)) - (if (##values? _g52310_) + (if (##values? _g52124_) (##vector-length - _g52310_) + _g52124_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g52311_ 2))) + (##fx= _g52125_ 2))) (error "Context expects 2 values" - _g52311_))) + _g52125_))) (let ((_target2532825349_ (let () (declare (not safe)) (##vector-ref - _g52310_ + _g52124_ 0))) (_tl2533025352_ (let () (declare (not safe)) (##vector-ref - _g52310_ + _g52124_ 1)))) (if (gx#stx-null? _tl2533025352_) @@ -4199,7 +4199,7 @@ (let () (declare (not safe)) (##cdr _e2533225365_)))) - (let ((__tmp52389 + (let ((__tmp52203 (let () (declare (not safe)) (cons _lp-hd2533325369_ @@ -4207,7 +4207,7 @@ (declare (not safe)) (_loop2533125355_ _lp-tl2533425372_ - __tmp52389)))) + __tmp52203)))) (let ((_var-r2533625375_ (reverse _var-r2533525362_))) ((lambda (_L25379_) @@ -4222,36 +4222,36 @@ (lambda (_g2539725417_) (if (gx#stx-pair/null? _g2539725417_) - (let ((_g52312_ + (let ((_g52126_ (gx#syntax-split-splice _g2539725417_ '0))) (begin - (let ((_g52313_ + (let ((_g52127_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g52312_) - (##vector-length _g52312_) + _g52126_) + (##vector-length _g52126_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g52313_ 2))) - (error "Context expects 2 values" _g52313_))) + (if (not (let () (declare (not safe)) (##fx= _g52127_ 2))) + (error "Context expects 2 values" _g52127_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target2539925420_ (let () (declare (not safe)) (##vector-ref - _g52312_ + _g52126_ 0))) (_tl2540125423_ (let () (declare (not safe)) (##vector-ref - _g52312_ + _g52126_ 1)))) (if (gx#stx-null? _tl2540125423_) @@ -4269,7 +4269,7 @@ (let () (declare (not safe)) (##cdr _e2540325436_)))) - (let ((__tmp52386 + (let ((__tmp52200 (let () (declare (not safe)) (cons _lp-hd2540425440_ @@ -4277,7 +4277,7 @@ (declare (not safe)) (_loop2540225426_ _lp-tl2540525443_ - __tmp52386)))) + __tmp52200)))) (let ((_init2540725446_ (reverse _init2540625433_))) ((lambda (_L25450_) @@ -4387,18 +4387,18 @@ ((lambda (_L25734_) (let () (let () - (let ((__tmp52362 + (let ((__tmp52176 (gx#datum->syntax '#f 'letrec)) - (__tmp52314 - (let ((__tmp52319 - (let ((__tmp52354 - (let ((__tmp52355 - (let ((__tmp52356 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52361 (gx#datum->syntax '#f 'lambda)) - (__tmp52357 - (let ((__tmp52359 - (let ((__tmp52360 + (__tmp52128 + (let ((__tmp52133 + (let ((__tmp52168 + (let ((__tmp52169 + (let ((__tmp52170 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp52175 (gx#datum->syntax '#f 'lambda)) + (__tmp52171 + (let ((__tmp52173 + (let ((__tmp52174 (foldr (lambda (_g2575625759_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g2575725762_) @@ -4409,31 +4409,31 @@ _L25309_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L25622_ __tmp52360))) - (__tmp52358 + (cons _L25622_ __tmp52174))) + (__tmp52172 (let () (declare (not safe)) (cons _L25650_ '())))) (declare (not safe)) - (cons __tmp52359 __tmp52358)))) + (cons __tmp52173 __tmp52172)))) (declare (not safe)) - (cons __tmp52361 __tmp52357)))) + (cons __tmp52175 __tmp52171)))) (declare (not safe)) - (cons __tmp52356 '())))) + (cons __tmp52170 '())))) (declare (not safe)) - (cons _L25510_ __tmp52355))) + (cons _L25510_ __tmp52169))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp52320 - (let ((__tmp52345 - (let ((__tmp52346 + (__tmp52134 + (let ((__tmp52159 + (let ((__tmp52160 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52347 - (let ((__tmp52353 + (let ((__tmp52161 + (let ((__tmp52167 (gx#datum->syntax '#f 'lambda)) - (__tmp52348 - (let ((__tmp52350 - (let ((__tmp52351 - (let ((__tmp52352 + (__tmp52162 + (let ((__tmp52164 + (let ((__tmp52165 + (let ((__tmp52166 (foldr (lambda (_g2575425765_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g2575525768_) @@ -4443,33 +4443,33 @@ '() _L25379_))) (declare (not safe)) - (cons _L25622_ __tmp52352)))) + (cons _L25622_ __tmp52166)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L25594_ __tmp52351))) - (__tmp52349 + (cons _L25594_ __tmp52165))) + (__tmp52163 (let () (declare (not safe)) (cons _L25734_ '())))) (declare (not safe)) - (cons __tmp52350 __tmp52349)))) + (cons __tmp52164 __tmp52163)))) (declare (not safe)) - (cons __tmp52353 __tmp52348)))) + (cons __tmp52167 __tmp52162)))) (declare (not safe)) - (cons __tmp52347 '())))) + (cons __tmp52161 '())))) (declare (not safe)) - (cons _L25566_ __tmp52346))) - (__tmp52321 - (let ((__tmp52322 - (let ((__tmp52323 - (let ((__tmp52324 - (let ((__tmp52344 + (cons _L25566_ __tmp52160))) + (__tmp52135 + (let ((__tmp52136 + (let ((__tmp52137 + (let ((__tmp52138 + (let ((__tmp52158 (gx#datum->syntax '#f 'lambda)) - (__tmp52325 - (let ((__tmp52342 - (let ((__tmp52343 + (__tmp52139 + (let ((__tmp52156 + (let ((__tmp52157 (foldr (lambda (_g2575225771_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g2575325774_) @@ -4479,33 +4479,33 @@ '() _L25379_))) (declare (not safe)) - (cons _L25622_ __tmp52343))) - (__tmp52326 - (let ((__tmp52327 - (let ((__tmp52341 (gx#datum->syntax '#f 'if)) - (__tmp52328 - (let ((__tmp52338 - (let ((__tmp52340 + (cons _L25622_ __tmp52157))) + (__tmp52140 + (let ((__tmp52141 + (let ((__tmp52155 (gx#datum->syntax '#f 'if)) + (__tmp52142 + (let ((__tmp52152 + (let ((__tmp52154 (gx#datum->syntax '#f 'pair?)) - (__tmp52339 + (__tmp52153 (let () (declare (not safe)) (cons _L25622_ '())))) (declare (not safe)) - (cons __tmp52340 __tmp52339))) - (__tmp52329 - (let ((__tmp52331 - (let ((__tmp52332 - (let ((__tmp52335 - (let ((__tmp52337 + (cons __tmp52154 __tmp52153))) + (__tmp52143 + (let ((__tmp52145 + (let ((__tmp52146 + (let ((__tmp52149 + (let ((__tmp52151 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '##car)) - (__tmp52336 + (__tmp52150 (let () (declare (not safe)) (cons _L25622_ '())))) (declare (not safe)) - (cons __tmp52337 __tmp52336))) - (__tmp52333 - (let ((__tmp52334 + (cons __tmp52151 __tmp52150))) + (__tmp52147 + (let ((__tmp52148 (foldr (lambda (_g2575025777_ _g2575125780_) (let () (declare (not safe)) @@ -4513,46 +4513,46 @@ '() _L25379_))) (declare (not safe)) - (cons _L25622_ __tmp52334)))) + (cons _L25622_ __tmp52148)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52335 - __tmp52333)))) + (cons __tmp52149 + __tmp52147)))) (declare (not safe)) - (cons _L25566_ __tmp52332))) - (__tmp52330 + (cons _L25566_ __tmp52146))) + (__tmp52144 (let () (declare (not safe)) (cons _L25706_ '())))) (declare (not safe)) - (cons __tmp52331 __tmp52330)))) + (cons __tmp52145 __tmp52144)))) (declare (not safe)) - (cons __tmp52338 __tmp52329)))) + (cons __tmp52152 __tmp52143)))) (declare (not safe)) - (cons __tmp52341 __tmp52328)))) + (cons __tmp52155 __tmp52142)))) (declare (not safe)) - (cons __tmp52327 '())))) + (cons __tmp52141 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52342 - __tmp52326)))) + (cons __tmp52156 + __tmp52140)))) (declare (not safe)) - (cons __tmp52344 __tmp52325)))) + (cons __tmp52158 __tmp52139)))) (declare (not safe)) - (cons __tmp52324 '())))) + (cons __tmp52138 '())))) (declare (not safe)) - (cons _L25538_ __tmp52323)))) + (cons _L25538_ __tmp52137)))) (declare (not safe)) - (cons __tmp52322 '())))) + (cons __tmp52136 '())))) (declare (not safe)) - (cons __tmp52345 __tmp52321)))) + (cons __tmp52159 __tmp52135)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52354 __tmp52320))) - (__tmp52315 - (let ((__tmp52316 - (let ((__tmp52317 - (let ((__tmp52318 + (cons __tmp52168 __tmp52134))) + (__tmp52129 + (let ((__tmp52130 + (let ((__tmp52131 + (let ((__tmp52132 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (foldr (lambda (_g2574825783_ _g2574925786_) (let () @@ -4561,18 +4561,18 @@ '() _L25450_))) (declare (not safe)) - (cons _L25482_ __tmp52318)))) + (cons _L25482_ __tmp52132)))) (declare (not safe)) - (cons _L25538_ __tmp52317)))) + (cons _L25538_ __tmp52131)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52316 '())))) + (cons __tmp52130 '())))) (declare (not safe)) - (cons __tmp52319 __tmp52315)))) + (cons __tmp52133 __tmp52129)))) (declare (not safe)) - (cons __tmp52362 __tmp52314))))) + (cons __tmp52176 __tmp52128))))) _g2572025731_))) - (__tmp52363 + (__tmp52177 (let () (declare (not safe)) (_generate124631_ @@ -4581,52 +4581,52 @@ _L25678_ _L25706_)))) (declare (not safe)) - (_g2571825789_ __tmp52363)))) + (_g2571825789_ __tmp52177)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g2569225703_))) - (__tmp52364 - (let ((__tmp52365 - (let ((__tmp52366 + (__tmp52178 + (let ((__tmp52179 + (let ((__tmp52180 (foldr (lambda (_g2579625799_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g2579725802_) - (let ((__tmp52367 - (let ((__tmp52369 + (let ((__tmp52181 + (let ((__tmp52183 (gx#datum->syntax '#f 'reverse)) - (__tmp52368 + (__tmp52182 (let () (declare (not safe)) (cons _g2579625799_ '())))) (declare (not safe)) - (cons __tmp52369 __tmp52368)))) + (cons __tmp52183 __tmp52182)))) (declare (not safe)) - (cons __tmp52367 _g2579725802_))) + (cons __tmp52181 _g2579725802_))) '() _L25379_))) (declare (not safe)) - (cons _L25622_ __tmp52366)))) + (cons _L25622_ __tmp52180)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons _L25510_ - __tmp52365)))) + __tmp52179)))) (declare (not safe)) - (_g2569025793_ __tmp52364)))) + (_g2569025793_ __tmp52178)))) _g2566425675_))) - (__tmp52370 - (let ((__tmp52371 - (let ((__tmp52377 - (let ((__tmp52379 + (__tmp52184 + (let ((__tmp52185 + (let ((__tmp52191 + (let ((__tmp52193 (gx#datum->syntax '#f '##cdr)) - (__tmp52378 + (__tmp52192 (let () (declare (not safe)) (cons _L25622_ '())))) (declare (not safe)) - (cons __tmp52379 - __tmp52378))) - (__tmp52372 + (cons __tmp52193 + __tmp52192))) + (__tmp52186 (begin (gx#syntax-check-splice-targets _L25379_ @@ -4635,31 +4635,31 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g2580925815_ _g2581025817_) - (let ((__tmp52373 - (let ((__tmp52376 (gx#datum->syntax '#f 'cons)) - (__tmp52374 - (let ((__tmp52375 + (let ((__tmp52187 + (let ((__tmp52190 (gx#datum->syntax '#f 'cons)) + (__tmp52188 + (let ((__tmp52189 (let () (declare (not safe)) (cons _g2580825812_ '())))) (declare (not safe)) - (cons _g2580925815_ __tmp52375)))) + (cons _g2580925815_ __tmp52189)))) (declare (not safe)) - (cons __tmp52376 __tmp52374)))) + (cons __tmp52190 __tmp52188)))) (declare (not safe)) - (cons __tmp52373 _g2581025817_))) + (cons __tmp52187 _g2581025817_))) '() _L25379_ _L25309_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52377 __tmp52372)))) + (cons __tmp52191 __tmp52186)))) (declare (not safe)) - (cons _L25538_ __tmp52371)))) + (cons _L25538_ __tmp52185)))) (declare (not safe)) - (_g2566225805_ __tmp52370)))) + (_g2566225805_ __tmp52184)))) _g2563625647_))) - (__tmp52380 + (__tmp52194 (let () (declare (not safe)) (_generate124631_ @@ -4670,30 +4670,30 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (_g2563425820_ - __tmp52380)))) + __tmp52194)))) _g2560825619_))) - (__tmp52381 (gx#genident 'rest))) + (__tmp52195 (gx#genident 'rest))) (declare (not safe)) - (_g2560625824_ __tmp52381)))) + (_g2560625824_ __tmp52195)))) _g2558025591_))) - (__tmp52382 (gx#genident 'hd))) + (__tmp52196 (gx#genident 'hd))) (declare (not safe)) - (_g2557825828_ __tmp52382)))) + (_g2557825828_ __tmp52196)))) _g2555225563_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp52383 + (__tmp52197 (gx#genident 'splice-try))) (declare (not safe)) - (_g2555025832_ __tmp52383)))) + (_g2555025832_ __tmp52197)))) _g2552425535_))) - (__tmp52384 (gx#genident 'splice-loop))) + (__tmp52198 (gx#genident 'splice-loop))) (declare (not safe)) - (_g2552225836_ __tmp52384)))) + (_g2552225836_ __tmp52198)))) _g2549625507_))) - (__tmp52385 (gx#genident 'splice-rest))) + (__tmp52199 (gx#genident 'splice-rest))) (declare (not safe)) - (_g2549425840_ __tmp52385)))) + (_g2549425840_ __tmp52199)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g2546825479_)))) (declare (not safe)) @@ -4710,7 +4710,7 @@ (declare (not safe)) (_g2539625413_ _g2539725417_))))) - (__tmp52387 + (__tmp52201 (make-list (gx#stx-length (foldr (lambda (_g2585125854_ @@ -4721,14 +4721,14 @@ _g2585225857_))) '() _L25309_)) - (let ((__tmp52388 + (let ((__tmp52202 (gx#datum->syntax '#f '@list))) (declare (not safe)) - (cons __tmp52388 '()))))) + (cons __tmp52202 '()))))) (declare (not safe)) - (_g2539525848_ __tmp52387)))) + (_g2539525848_ __tmp52201)))) _var-r2533625375_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () @@ -4743,7 +4743,7 @@ (let () (declare (not safe)) (_g2532525342_ _g2532625346_))))) - (__tmp52390 + (__tmp52204 (gx#gentemps (foldr (lambda (_g2586325866_ _g2586425869_) @@ -4754,7 +4754,7 @@ '() _L25309_)))) (declare (not safe)) - (_g2532425860_ __tmp52390)))) + (_g2532425860_ __tmp52204)))) _var2526625305_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () @@ -4769,13 +4769,13 @@ (let () (declare (not safe)) (_g2525525272_ _g2525625276_))))) - (__tmp52392 + (__tmp52206 (let () (declare (not safe)) (|gerbil/core$<match>[1]#match-pattern-vars| _hd25250_)))) (declare (not safe)) - (_g2525425872_ __tmp52392)))) + (_g2525425872_ __tmp52206)))) (_generate-simple-vector24634_ (lambda (_tgt25090_ _body25092_ @@ -4838,49 +4838,49 @@ (if (gx#stx-null? _tl2517325215_) ((lambda (_L25218_ _L25220_ _L25221_) (let () - (let ((__tmp52393 - (let ((__tmp52398 - (let ((__tmp52399 - (let ((__tmp52400 - (let ((__tmp52401 + (let ((__tmp52207 + (let ((__tmp52212 + (let ((__tmp52213 + (let ((__tmp52214 + (let ((__tmp52215 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52404 + (let ((__tmp52218 (gx#datum->syntax '#f '##vector-ref)) - (__tmp52402 - (let ((__tmp52403 + (__tmp52216 + (let ((__tmp52217 (let () (declare (not safe)) (cons _L25218_ '())))) (declare (not safe)) - (cons _L25220_ __tmp52403)))) + (cons _L25220_ __tmp52217)))) (declare (not safe)) - (cons __tmp52404 __tmp52402)))) + (cons __tmp52218 __tmp52216)))) (declare (not safe)) - (cons __tmp52401 '())))) + (cons __tmp52215 '())))) (declare (not safe)) - (cons _L25221_ __tmp52400)))) + (cons _L25221_ __tmp52214)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52399 '()))) - (__tmp52394 - (let ((__tmp52395 - (let ((__tmp52396 - (let ((__tmp52397 + (cons __tmp52213 '()))) + (__tmp52208 + (let ((__tmp52209 + (let ((__tmp52210 + (let ((__tmp52211 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (fx+ _off25102_ '1)))) (declare (not safe)) - (_recur25097_ _L25145_ __tmp52397)))) + (_recur25097_ _L25145_ __tmp52211)))) (declare (not safe)) - (_generate124631_ _L25221_ _L25147_ __tmp52396 _E25095_)))) + (_generate124631_ _L25221_ _L25147_ __tmp52210 _E25095_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52395 '())))) + (cons __tmp52209 '())))) (declare (not safe)) - (cons __tmp52398 __tmp52394)))) + (cons __tmp52212 __tmp52208)))) (declare (not safe)) - (cons 'let __tmp52393)))) + (cons 'let __tmp52207)))) _hd2517425212_ _hd2517125202_ _hd2516825192_) @@ -4896,12 +4896,12 @@ (declare (not safe)) (_g2516225181_ _g2516325185_))))) - (__tmp52405 + (__tmp52219 (list (gx#genident 'e) _tgt25090_ _off25102_))) (declare (not safe)) - (_g2516125240_ __tmp52405)))) + (_g2516125240_ __tmp52219)))) (___kont4842148422_ (lambda () _K25094_))) (if (gx#stx-pair? ___stx4841648417_) (let ((_e2511125135_ @@ -4956,19 +4956,19 @@ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () - (let ((__tmp52406 - (let ((__tmp52409 - (let ((__tmp52410 - (let ((__tmp52411 + (let ((__tmp52220 + (let ((__tmp52223 + (let ((__tmp52224 + (let ((__tmp52225 (let () (declare (not safe)) (cons _L25059_ '())))) (declare (not safe)) - (cons _L25004_ __tmp52411)))) + (cons _L25004_ __tmp52225)))) (declare (not safe)) - (cons __tmp52410 '()))) - (__tmp52407 - (let ((__tmp52408 + (cons __tmp52224 '()))) + (__tmp52221 + (let ((__tmp52222 (let () (declare (not safe)) (_generate124631_ @@ -4977,56 +4977,56 @@ _K24986_ _E24987_)))) (declare (not safe)) - (cons __tmp52408 '())))) + (cons __tmp52222 '())))) (declare (not safe)) - (cons __tmp52409 __tmp52407)))) + (cons __tmp52223 __tmp52221)))) (declare (not safe)) - (cons 'let __tmp52406))))) + (cons 'let __tmp52220))))) _g2504525056_))) - (__tmp52412 + (__tmp52226 (let ((_$e25078_ _->list24985_)) (if (let () (declare (not safe)) (eq? 'values->list _$e25078_)) - (let ((__tmp52421 (gx#datum->syntax '#f 'values->list)) - (__tmp52420 + (let ((__tmp52235 (gx#datum->syntax '#f 'values->list)) + (__tmp52234 (let () (declare (not safe)) (cons _L25031_ '())))) (declare (not safe)) - (cons __tmp52421 __tmp52420)) + (cons __tmp52235 __tmp52234)) (if (let () (declare (not safe)) (eq? 'vector->list _$e25078_)) - (let ((__tmp52419 + (let ((__tmp52233 (gx#datum->syntax '#f '##vector->list)) - (__tmp52418 + (__tmp52232 (let () (declare (not safe)) (cons _L25031_ '())))) (declare (not safe)) - (cons __tmp52419 __tmp52418)) + (cons __tmp52233 __tmp52232)) (if (let () (declare (not safe)) (eq? 'struct->list _$e25078_)) - (let ((__tmp52417 + (let ((__tmp52231 (gx#datum->syntax '#f '##cdr)) - (__tmp52413 - (let ((__tmp52414 - (let ((__tmp52416 + (__tmp52227 + (let ((__tmp52228 + (let ((__tmp52230 (gx#datum->syntax '#f '##structure->list)) - (__tmp52415 + (__tmp52229 (let () (declare (not safe)) (cons _L25031_ '())))) (declare (not safe)) - (cons __tmp52416 __tmp52415)))) + (cons __tmp52230 __tmp52229)))) (declare (not safe)) - (cons __tmp52414 '())))) + (cons __tmp52228 '())))) (declare (not safe)) - (cons __tmp52417 __tmp52413)) + (cons __tmp52231 __tmp52227)) (gx#raise-syntax-error '#f '"Unexpected list conversion" @@ -5035,14 +5035,14 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (_g2504325074_ - __tmp52412)))) + __tmp52226)))) _g2501725028_)))) (declare (not safe)) (_g2501525082_ _tgt24982_)))) _g2499025001_))) - (__tmp52422 (gx#genident 'e))) + (__tmp52236 (gx#genident 'e))) (declare (not safe)) - (_g2498825086_ __tmp52422)))) + (_g2498825086_ __tmp52236)))) (_generate-struct24636_ (lambda (_info24853_ _tgt24855_ @@ -5063,9 +5063,9 @@ (declare (not safe)) (_struct-field-accessors24638_ _info24853_))) - (__tmp52423 - (let ((__tmp52427 - (let ((__tmp52429 + (__tmp52237 + (let ((__tmp52241 + (let ((__tmp52243 (let ((__obj49635 _info24853_)) (if (let () @@ -5086,14 +5086,14 @@ gerbil/core$<MOP>$<MOP:2>#class-type-info::t __obj49635 'predicate)))) - (__tmp52428 + (__tmp52242 (let () (declare (not safe)) (cons _tgt24855_ '())))) (declare (not safe)) - (cons __tmp52429 __tmp52428))) - (__tmp52424 - (let ((__tmp52426 + (cons __tmp52243 __tmp52242))) + (__tmp52238 + (let ((__tmp52240 (let () (declare (not safe)) (_generate-simple-struct-body24637_ @@ -5102,21 +5102,21 @@ _L24961_ _K24857_ _E24858_))) - (__tmp52425 + (__tmp52239 (let () (declare (not safe)) (cons _E24858_ '())))) (declare (not safe)) - (cons __tmp52426 __tmp52425)))) + (cons __tmp52240 __tmp52239)))) (declare (not safe)) - (cons __tmp52427 __tmp52424)))) + (cons __tmp52241 __tmp52238)))) (declare (not safe)) - (cons 'if __tmp52423)))) + (cons 'if __tmp52237)))) (___kont4843748438_ (lambda (_L24915_) - (let ((__tmp52430 - (let ((__tmp52434 - (let ((__tmp52436 + (let ((__tmp52244 + (let ((__tmp52248 + (let ((__tmp52250 (let ((__obj49636 _info24853_)) (if (let () @@ -5137,14 +5137,14 @@ gerbil/core$<MOP>$<MOP:2>#class-type-info::t __obj49636 'predicate)))) - (__tmp52435 + (__tmp52249 (let () (declare (not safe)) (cons _tgt24855_ '())))) (declare (not safe)) - (cons __tmp52436 __tmp52435))) - (__tmp52431 - (let ((__tmp52433 + (cons __tmp52250 __tmp52249))) + (__tmp52245 + (let ((__tmp52247 (let () (declare (not safe)) (_generate-list-vector24635_ @@ -5153,16 +5153,16 @@ 'struct->list _K24857_ _E24858_))) - (__tmp52432 + (__tmp52246 (let () (declare (not safe)) (cons _E24858_ '())))) (declare (not safe)) - (cons __tmp52433 __tmp52432)))) + (cons __tmp52247 __tmp52246)))) (declare (not safe)) - (cons __tmp52434 __tmp52431)))) + (cons __tmp52248 __tmp52245)))) (declare (not safe)) - (cons 'if __tmp52430))))) + (cons 'if __tmp52244))))) (if (gx#stx-pair? ___stx4843248433_) (let ((_e2486624937_ (gx#syntax-e ___stx4843248433_))) @@ -5285,45 +5285,45 @@ 'name)))) (let ((_$tgt24845_ (gx#genident 'e)) (_getf24847_ (car _fields24785_))) - (let ((__tmp52437 - (let ((__tmp52442 - (let ((__tmp52443 - (let ((__tmp52444 + (let ((__tmp52251 + (let ((__tmp52256 + (let ((__tmp52257 + (let ((__tmp52258 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52445 - (let ((__tmp52446 + (let ((__tmp52259 + (let ((__tmp52260 (let () (declare (not safe)) (cons _tgt24775_ '())))) (declare (not safe)) - (cons _getf24847_ __tmp52446)))) + (cons _getf24847_ __tmp52260)))) (declare (not safe)) - (cons __tmp52445 '())))) + (cons __tmp52259 '())))) (declare (not safe)) - (cons _$tgt24845_ __tmp52444)))) + (cons _$tgt24845_ __tmp52258)))) (declare (not safe)) - (cons __tmp52443 '()))) + (cons __tmp52257 '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp52438 - (let ((__tmp52439 - (let ((__tmp52440 + (__tmp52252 + (let ((__tmp52253 + (let ((__tmp52254 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52441 (cdr _fields24785_))) + (let ((__tmp52255 (cdr _fields24785_))) (declare (not safe)) - (_recur24780_ _L24828_ __tmp52441)))) + (_recur24780_ _L24828_ __tmp52255)))) (declare (not safe)) (_generate124631_ _$tgt24845_ _L24830_ - __tmp52440 + __tmp52254 _E24778_)))) (declare (not safe)) - (cons __tmp52439 '())))) + (cons __tmp52253 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52442 __tmp52438)))) + (cons __tmp52256 __tmp52252)))) (declare (not safe)) - (cons 'let __tmp52437)))))) + (cons 'let __tmp52251)))))) (___kont4848748488_ (lambda () _K24777_))) (if (gx#stx-pair? ___stx4848248483_) (let ((_e2479424818_ @@ -5349,7 +5349,7 @@ (if (let () (declare (not safe)) (null? _next24760_)) '() (let ((_ti24763_ (car _next24760_))) - (append (let ((__tmp52447 + (append (let ((__tmp52261 (map gx#syntax-local-value (let ((__obj49638 _ti24763_)) (if (let () @@ -5369,7 +5369,7 @@ __obj49638 'super)))))) (declare (not safe)) - (_recur24757_ __tmp52447)) + (_recur24757_ __tmp52261)) (map (lambda (_slot24766_) (let ((_$e24769_ (assgetq _slot24766_ @@ -5424,9 +5424,9 @@ _body24750_ _K24751_ _E24752_) - (let ((__tmp52448 - (let ((__tmp52452 - (let ((__tmp52454 + (let ((__tmp52262 + (let ((__tmp52266 + (let ((__tmp52268 (let ((__obj49641 _info24747_)) (if (let () (declare (not safe)) @@ -5444,14 +5444,14 @@ gerbil/core$<MOP>$<MOP:2>#class-type-info::t __obj49641 'predicate)))) - (__tmp52453 + (__tmp52267 (let () (declare (not safe)) (cons _tgt24749_ '())))) (declare (not safe)) - (cons __tmp52454 __tmp52453))) - (__tmp52449 - (let ((__tmp52451 + (cons __tmp52268 __tmp52267))) + (__tmp52263 + (let ((__tmp52265 (let () (declare (not safe)) (_generate-class-body24640_ @@ -5460,16 +5460,16 @@ _body24750_ _K24751_ _E24752_))) - (__tmp52450 + (__tmp52264 (let () (declare (not safe)) (cons _E24752_ '())))) (declare (not safe)) - (cons __tmp52451 __tmp52450)))) + (cons __tmp52265 __tmp52264)))) (declare (not safe)) - (cons __tmp52452 __tmp52449)))) + (cons __tmp52266 __tmp52263)))) (declare (not safe)) - (cons 'if __tmp52448)))) + (cons 'if __tmp52262)))) (_generate-class-body24640_ (lambda (_info24642_ _tgt24644_ @@ -5511,27 +5511,27 @@ (if _$e24733_ ((lambda (_getf24737_) (let* ((_$tgt24740_ (gx#genident 'e)) - (__tmp52455 - (let ((__tmp52459 - (let ((__tmp52460 - (let ((__tmp52461 + (__tmp52269 + (let ((__tmp52273 + (let ((__tmp52274 + (let ((__tmp52275 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52462 - (let ((__tmp52463 + (let ((__tmp52276 + (let ((__tmp52277 (let () (declare (not safe)) (cons _tgt24644_ '())))) (declare (not safe)) - (cons _getf24737_ __tmp52463)))) + (cons _getf24737_ __tmp52277)))) (declare (not safe)) - (cons __tmp52462 '())))) + (cons __tmp52276 '())))) (declare (not safe)) - (cons _$tgt24740_ __tmp52461)))) + (cons _$tgt24740_ __tmp52275)))) (declare (not safe)) - (cons __tmp52460 '()))) - (__tmp52456 - (let ((__tmp52457 - (let ((__tmp52458 + (cons __tmp52274 '()))) + (__tmp52270 + (let ((__tmp52271 + (let ((__tmp52272 (let () (declare (not safe)) (_recur24649_ _L24710_)))) @@ -5539,16 +5539,16 @@ (_generate124631_ _$tgt24740_ _L24712_ - __tmp52458 + __tmp52272 _E24647_)))) (declare (not safe)) - (cons __tmp52457 '())))) + (cons __tmp52271 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52459 - __tmp52456)))) + (cons __tmp52273 + __tmp52270)))) (declare (not safe)) - (cons 'let __tmp52455))) + (cons 'let __tmp52269))) _$e24733_) (gx#raise-syntax-error '#f @@ -5613,33 +5613,33 @@ (let ((___kont4852348524_ (lambda (_L24601_) (if (gx#stx-null? _L24497_) - (let ((__tmp52464 - (let ((__tmp52469 + (let ((__tmp52278 + (let ((__tmp52283 (gx#genident 'else)) - (__tmp52465 - (let ((__tmp52466 + (__tmp52279 + (let ((__tmp52280 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52467 + (let ((__tmp52281 (gx#stx-wrap-source - (let ((__tmp52468 + (let ((__tmp52282 (gx#datum->syntax '#f 'begin))) (declare (not safe)) - (cons __tmp52468 _L24601_)) + (cons __tmp52282 _L24601_)) (let ((_$e24612_ (gx#stx-source _L24499_))) (if _$e24612_ _$e24612_ (gx#stx-source _stx23520_)))))) (declare (not safe)) - (cons __tmp52467 '())))) + (cons __tmp52281 '())))) (declare (not safe)) - (cons '#f __tmp52466)))) + (cons '#f __tmp52280)))) (declare (not safe)) - (cons __tmp52469 __tmp52465)))) + (cons __tmp52283 __tmp52279)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52464 _r24454_)) + (cons __tmp52278 _r24454_)) (gx#raise-syntax-error '#f '"bad syntax; misplaced else" @@ -5647,13 +5647,13 @@ _L24499_)))) (___kont4852548526_ (lambda (_L24560_ _L24562_) - (let ((__tmp52470 - (let ((__tmp52471 - (let ((__tmp52477 + (let ((__tmp52284 + (let ((__tmp52285 + (let ((__tmp52291 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#genident 'try-match)) - (__tmp52472 - (let ((__tmp52476 + (__tmp52286 + (let ((__tmp52290 (gx#stx-map (lambda (_g2457424576_) (let () @@ -5662,32 +5662,32 @@ _g2457424576_ _stx23520_))) _L24562_)) - (__tmp52473 - (let ((__tmp52474 + (__tmp52287 + (let ((__tmp52288 (gx#stx-wrap-source - (let ((__tmp52475 + (let ((__tmp52289 (gx#datum->syntax '#f 'begin))) (declare (not safe)) - (cons __tmp52475 _L24560_)) + (cons __tmp52289 _L24560_)) (let ((_$e24580_ (gx#stx-source _L24499_))) (if _$e24580_ _$e24580_ (gx#stx-source _stx23520_)))))) (declare (not safe)) - (cons __tmp52474 '())))) + (cons __tmp52288 '())))) (declare (not safe)) - (cons __tmp52476 __tmp52473)))) + (cons __tmp52290 __tmp52287)))) (declare (not safe)) - (cons __tmp52477 __tmp52472)))) + (cons __tmp52291 __tmp52286)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52471 + (cons __tmp52285 _r24454_)))) (declare (not safe)) (_lp24449_ _L24497_ - __tmp52470)))) + __tmp52284)))) (___kont4852748528_ (lambda () (gx#raise-syntax-error @@ -5708,11 +5708,11 @@ _hd-len24446_) (gx#stx-list? _L24560_) - (let ((__tmp52478 + (let ((__tmp52292 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#stx-null? _L24560_))) (declare (not safe)) - (not __tmp52478))) + (not __tmp52292))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (___kont4852548526_ _L24560_ @@ -5725,11 +5725,11 @@ (let ((_L24601_ _tl2451924598_)) (if (and (gx#stx-list? _L24601_) - (let ((__tmp52479 + (let ((__tmp52293 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#stx-null? _L24601_))) (declare (not safe)) - (not __tmp52479))) + (not __tmp52293))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (___kont4852348524_ _L24601_) @@ -5752,7 +5752,7 @@ (if (gx#identifier? _hd2452024595_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52480_| + |gerbil/core$<match>[1]#_g52294_| _hd2452024595_) (___match4853948540_ _e2452124591_ @@ -5805,36 +5805,36 @@ (lambda (_g2426224282_) (if (gx#stx-pair/null? _g2426224282_) - (let ((_g52481_ + (let ((_g52295_ (gx#syntax-split-splice _g2426224282_ '0))) (begin - (let ((_g52482_ + (let ((_g52296_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g52481_) - (##vector-length _g52481_) + _g52295_) + (##vector-length _g52295_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g52482_ 2))) - (error "Context expects 2 values" _g52482_))) + (if (not (let () (declare (not safe)) (##fx= _g52296_ 2))) + (error "Context expects 2 values" _g52296_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target2426424285_ (let () (declare (not safe)) (##vector-ref - _g52481_ + _g52295_ 0))) (_tl2426624288_ (let () (declare (not safe)) (##vector-ref - _g52481_ + _g52295_ 1)))) (if (gx#stx-null? _tl2426624288_) @@ -5852,7 +5852,7 @@ (let () (declare (not safe)) (##cdr _e2426824301_)))) - (let ((__tmp52504 + (let ((__tmp52318 (let () (declare (not safe)) (cons _lp-hd2426924305_ @@ -5860,7 +5860,7 @@ (declare (not safe)) (_loop2426724291_ _lp-tl2427024308_ - __tmp52504)))) + __tmp52318)))) (let ((_target2427224311_ (reverse _target2427124298_))) ((lambda (_L24315_) @@ -5897,79 +5897,79 @@ ((lambda (_L24403_) (let () (let () - (let ((__tmp52486 + (let ((__tmp52300 (gx#datum->syntax '#f 'begin-annotation)) - (__tmp52483 - (let ((__tmp52485 + (__tmp52297 + (let ((__tmp52299 (gx#datum->syntax '#f '@match)) - (__tmp52484 + (__tmp52298 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (cons _L24403_ '())))) (declare (not safe)) - (cons __tmp52485 __tmp52484)))) + (cons __tmp52299 __tmp52298)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52486 - __tmp52483))))) + (cons __tmp52300 + __tmp52297))))) _g2438924400_))) - (__tmp52487 + (__tmp52301 (gx#stx-wrap-source - (let ((__tmp52493 + (let ((__tmp52307 (gx#datum->syntax '#f 'let)) - (__tmp52488 - (let ((__tmp52490 - (let ((__tmp52491 - (let ((__tmp52492 + (__tmp52302 + (let ((__tmp52304 + (let ((__tmp52305 + (let ((__tmp52306 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _L24347_ '())))) (declare (not safe)) - (cons _L24249_ __tmp52492)))) + (cons _L24249_ __tmp52306)))) (declare (not safe)) - (cons __tmp52491 '()))) - (__tmp52489 (let () (declare (not safe)) (cons _L24375_ '())))) + (cons __tmp52305 '()))) + (__tmp52303 (let () (declare (not safe)) (cons _L24375_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52490 - __tmp52489)))) + (cons __tmp52304 + __tmp52303)))) (declare (not safe)) - (cons __tmp52493 __tmp52488)) + (cons __tmp52307 __tmp52302)) (gx#stx-source _stx23520_)))) (declare (not safe)) - (_g2438724418_ __tmp52487)))) + (_g2438724418_ __tmp52301)))) _g2436124372_))) - (__tmp52494 - (let ((__tmp52495 + (__tmp52308 + (let ((__tmp52309 (let () (declare (not safe)) (cons _L24249_ '())))) (declare (not safe)) - (_generate-clauses23528_ _body24231_ __tmp52495)))) + (_generate-clauses23528_ _body24231_ __tmp52309)))) (declare (not safe)) - (_g2435924422_ __tmp52494)))) + (_g2435924422_ __tmp52308)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g2433324344_))) - (__tmp52496 + (__tmp52310 (gx#stx-wrap-source - (let ((__tmp52503 + (let ((__tmp52317 (gx#datum->syntax '#f 'lambda)) - (__tmp52497 - (let ((__tmp52498 + (__tmp52311 + (let ((__tmp52312 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52499 - (let ((__tmp52502 + (let ((__tmp52313 + (let ((__tmp52316 (gx#datum->syntax '#f 'error)) - (__tmp52500 - (let ((__tmp52501 + (__tmp52314 + (let ((__tmp52315 (foldr (lambda (_g2442924432_ _g2443024435_) (let () @@ -5980,21 +5980,21 @@ _L24315_))) (declare (not safe)) (cons '"No clause matching" - __tmp52501)))) + __tmp52315)))) (declare (not safe)) - (cons __tmp52502 __tmp52500)))) + (cons __tmp52316 __tmp52314)))) (declare (not safe)) - (cons __tmp52499 '())))) + (cons __tmp52313 '())))) (declare (not safe)) - (cons '() __tmp52498)))) + (cons '() __tmp52312)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52503 - __tmp52497)) + (cons __tmp52317 + __tmp52311)) (gx#stx-source _stx23520_)))) (declare (not safe)) - (_g2433124426_ __tmp52496)))) + (_g2433124426_ __tmp52310)))) _target2427224311_)))))) (let () (declare (not safe)) @@ -6010,9 +6010,9 @@ (declare (not safe)) (_g2426024438_ _tgt-lst23522_)))) _g2423524246_))) - (__tmp52505 (gx#genident 'E))) + (__tmp52319 (gx#genident 'E))) (declare (not safe)) - (_g2423324442_ __tmp52505)))) + (_g2423324442_ __tmp52319)))) (_generate-clauses23528_ (lambda (_rest23883_ _E23885_) (let* ((___stx4856448565_ _rest23883_) @@ -6069,9 +6069,9 @@ (##cdr _e2416224195_)))) (if (gx#stx-null? _tl2416024202_) ((lambda (_L24205_ _L24207_) - (let ((__tmp52506 - (let ((__tmp52507 - (let ((__tmp52508 + (let ((__tmp52320 + (let ((__tmp52321 + (let ((__tmp52322 (if (gx#stx-e _L24207_) (let () (declare (not safe)) @@ -6081,11 +6081,11 @@ _E23885_)) _L24205_))) (declare (not safe)) - (cons __tmp52508 '())))) + (cons __tmp52322 '())))) (declare (not safe)) - (cons '@match-body __tmp52507)))) + (cons '@match-body __tmp52321)))) (declare (not safe)) - (cons 'begin-annotation __tmp52506))) + (cons 'begin-annotation __tmp52320))) _hd2416124199_ _hd2415824189_) (let () @@ -6189,38 +6189,38 @@ (if (gx#stx-null? _tl2403124063_) ((lambda (_L24066_ _L24068_) (let () - (let ((__tmp52535 (gx#datum->syntax '#f 'let)) - (__tmp52526 - (let ((__tmp52528 - (let ((__tmp52529 - (let ((__tmp52530 - (let ((__tmp52531 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52534 (gx#datum->syntax '#f 'lambda)) - (__tmp52532 - (let ((__tmp52533 + (let ((__tmp52349 (gx#datum->syntax '#f 'let)) + (__tmp52340 + (let ((__tmp52342 + (let ((__tmp52343 + (let ((__tmp52344 + (let ((__tmp52345 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp52348 (gx#datum->syntax '#f 'lambda)) + (__tmp52346 + (let ((__tmp52347 (let () (declare (not safe)) (cons _L24068_ '())))) (declare (not safe)) - (cons '() __tmp52533)))) + (cons '() __tmp52347)))) (declare (not safe)) - (cons __tmp52534 __tmp52532)))) + (cons __tmp52348 __tmp52346)))) (declare (not safe)) - (cons __tmp52531 '())))) + (cons __tmp52345 '())))) (declare (not safe)) - (cons _L24007_ __tmp52530)))) + (cons _L24007_ __tmp52344)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52529 '()))) - (__tmp52527 + (cons __tmp52343 '()))) + (__tmp52341 (let () (declare (not safe)) (cons _L24066_ '())))) (declare (not safe)) - (cons __tmp52528 __tmp52527)))) + (cons __tmp52342 __tmp52341)))) (declare (not safe)) - (cons __tmp52535 __tmp52526)))) + (cons __tmp52349 __tmp52340)))) _hd2403224060_ _hd2402924050_) (let () @@ -6234,14 +6234,14 @@ (declare (not safe)) (_g2402424039_ _g2402524043_))))) - (__tmp52536 + (__tmp52350 (list (let () (declare (not safe)) (_generate123529_ _L24006_ _L24004_ _E23885_)) - (let ((__tmp52537 + (let ((__tmp52351 (let () (declare (not safe)) (cons _L24007_ @@ -6251,9 +6251,9 @@ (declare (not safe)) (_generate-clauses23528_ _L23933_ - __tmp52537))))) + __tmp52351))))) (declare (not safe)) - (_g2402324084_ __tmp52536)) + (_g2402324084_ __tmp52350)) (let* ((_g2408824096_ (lambda (_g2408924092_) (gx#raise-syntax-error @@ -6264,71 +6264,71 @@ (lambda (_g2408924100_) ((lambda (_L24103_) (let () - (let ((__tmp52523 + (let ((__tmp52337 (gx#datum->syntax '#f 'let)) - (__tmp52509 - (let ((__tmp52511 + (__tmp52323 + (let ((__tmp52325 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52512 - (let ((__tmp52513 - (let ((__tmp52514 - (let ((__tmp52522 + (let ((__tmp52326 + (let ((__tmp52327 + (let ((__tmp52328 + (let ((__tmp52336 (gx#datum->syntax '#f 'begin-annotation)) - (__tmp52515 - (let ((__tmp52521 + (__tmp52329 + (let ((__tmp52335 (gx#datum->syntax '#f '@match-else)) - (__tmp52516 - (let ((__tmp52517 + (__tmp52330 + (let ((__tmp52331 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52520 (gx#datum->syntax '#f 'lambda)) - (__tmp52518 - (let ((__tmp52519 + (let ((__tmp52334 (gx#datum->syntax '#f 'lambda)) + (__tmp52332 + (let ((__tmp52333 (let () (declare (not safe)) (cons _L24004_ '())))) (declare (not safe)) - (cons '() __tmp52519)))) + (cons '() __tmp52333)))) (declare (not safe)) - (cons __tmp52520 __tmp52518)))) + (cons __tmp52334 __tmp52332)))) (declare (not safe)) - (cons __tmp52517 '())))) + (cons __tmp52331 '())))) (declare (not safe)) - (cons __tmp52521 __tmp52516)))) + (cons __tmp52335 __tmp52330)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52522 __tmp52515)))) + (cons __tmp52336 __tmp52329)))) (declare (not safe)) - (cons __tmp52514 '())))) + (cons __tmp52328 '())))) (declare (not safe)) - (cons _L24007_ __tmp52513)))) + (cons _L24007_ __tmp52327)))) (declare (not safe)) - (cons __tmp52512 '()))) - (__tmp52510 + (cons __tmp52326 '()))) + (__tmp52324 (let () (declare (not safe)) (cons _L24103_ '())))) (declare (not safe)) - (cons __tmp52511 __tmp52510)))) + (cons __tmp52325 __tmp52324)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52523 - __tmp52509)))) + (cons __tmp52337 + __tmp52323)))) _g2408924100_))) - (__tmp52524 - (let ((__tmp52525 + (__tmp52338 + (let ((__tmp52339 (let () (declare (not safe)) (cons _L24007_ '())))) (declare (not safe)) (_generate-clauses23528_ _L23933_ - __tmp52525)))) + __tmp52339)))) (declare (not safe)) - (_g2408724114_ __tmp52524)))) + (_g2408724114_ __tmp52338)))) _hd2396023998_ _hd2395723988_ _hd2395423978_) @@ -6351,15 +6351,15 @@ (_g2394724118_ _L23935_)))) (___kont4857148572_ (lambda () - (let ((__tmp52538 - (let ((__tmp52539 + (let ((__tmp52352 + (let ((__tmp52353 (let () (declare (not safe)) (cons _E23885_ '())))) (declare (not safe)) - (cons '@match-body __tmp52539)))) + (cons '@match-body __tmp52353)))) (declare (not safe)) - (cons 'begin-annotation __tmp52538))))) + (cons 'begin-annotation __tmp52352))))) (if (gx#stx-pair? ___stx4856448565_) (let ((_e2389424129_ (gx#syntax-e ___stx4856448565_))) @@ -6411,25 +6411,25 @@ (##cdr _e2354523577_)))) (if (gx#stx-pair/null? _hd2354423581_) - (let ((_g52540_ + (let ((_g52354_ (gx#syntax-split-splice _hd2354423581_ '0))) (begin - (let ((_g52541_ + (let ((_g52355_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (if (##values? _g52540_) - (##vector-length _g52540_) + (if (##values? _g52354_) + (##vector-length _g52354_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g52541_ 2))) - (error "Context expects 2 values" _g52541_))) + (if (not (let () (declare (not safe)) (##fx= _g52355_ 2))) + (error "Context expects 2 values" _g52355_))) (let ((_target2354623587_ - (let () (declare (not safe)) (##vector-ref _g52540_ 0))) + (let () (declare (not safe)) (##vector-ref _g52354_ 0))) (_tl2354823590_ - (let () (declare (not safe)) (##vector-ref _g52540_ 1)))) + (let () (declare (not safe)) (##vector-ref _g52354_ 1)))) (if (gx#stx-null? _tl2354823590_) (letrec ((_loop2354923593_ (lambda (_hd2354723597_ _var2355323600_) @@ -6444,7 +6444,7 @@ (let () (declare (not safe)) (##cdr _e2355023603_)))) - (let ((__tmp52555 + (let ((__tmp52369 (let () (declare (not safe)) (cons _lp-hd2355123607_ @@ -6452,7 +6452,7 @@ (declare (not safe)) (_loop2354923593_ _lp-tl2355223610_ - __tmp52555)))) + __tmp52369)))) (let ((_var2355423613_ (reverse _var2355323600_))) (if (gx#stx-null? _tl2354323584_) @@ -6503,38 +6503,38 @@ (let () (let () (gx#stx-wrap-source - (let ((__tmp52546 + (let ((__tmp52360 (gx#datum->syntax '#f 'let)) - (__tmp52542 - (let ((__tmp52544 + (__tmp52356 + (let ((__tmp52358 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52545 + (let ((__tmp52359 (let () (declare (not safe)) (cons _L23720_ '())))) (declare (not safe)) - (cons _L23619_ __tmp52545))) - (__tmp52543 + (cons _L23619_ __tmp52359))) + (__tmp52357 (let () (declare (not safe)) (cons _L23664_ '())))) (declare (not safe)) - (cons __tmp52544 __tmp52543)))) + (cons __tmp52358 __tmp52357)))) (declare (not safe)) - (cons __tmp52546 __tmp52542)) + (cons __tmp52360 __tmp52356)) (gx#stx-source _stx23520_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g2370623717_))) - (__tmp52547 + (__tmp52361 (gx#stx-wrap-source - (let ((__tmp52551 + (let ((__tmp52365 (gx#datum->syntax '#f 'lambda)) - (__tmp52548 - (let ((__tmp52550 + (__tmp52362 + (let ((__tmp52364 (foldr (lambda (_g2373823741_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g2373923744_) @@ -6543,21 +6543,21 @@ (cons _g2373823741_ _g2373923744_))) '() _L23617_)) - (__tmp52549 + (__tmp52363 (let () (declare (not safe)) (cons _L23692_ '())))) (declare (not safe)) - (cons __tmp52550 __tmp52549)))) + (cons __tmp52364 __tmp52363)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52551 __tmp52548)) + (cons __tmp52365 __tmp52362)) (gx#stx-source _stx23520_)))) (declare (not safe)) - (_g2370423735_ __tmp52547)))) + (_g2370423735_ __tmp52361)))) _g2367823689_)))) (declare (not safe)) (_g2367623747_ _body23533_)))) _g2365023661_))) - (__tmp52552 + (__tmp52366 (let _recur23755_ ((_rest23758_ _clause23531_) (_rest-targets23760_ _tgt-lst23522_)) (let* ((___stx4859048591_ _rest23758_) @@ -6589,7 +6589,7 @@ (declare (not safe)) (##cdr _e2383423847_)))) ((lambda (_L23857_ _L23859_) - (let ((__tmp52553 + (let ((__tmp52367 (let () (declare (not safe)) (_recur23755_ @@ -6600,7 +6600,7 @@ _stx23520_ _L23859_ _L23813_ - __tmp52553 + __tmp52367 _E23534_))) _tl2383223854_ _hd2383323851_))) @@ -6611,7 +6611,7 @@ (_g2382723871_ _rest-targets23760_)))) (___kont4859548596_ (lambda () - (let ((__tmp52554 + (let ((__tmp52368 (foldr (lambda (_g2378523788_ _g2378623791_) (let () (declare (not safe)) @@ -6620,7 +6620,7 @@ '() _L23617_))) (declare (not safe)) - (cons _L23619_ __tmp52554))))) + (cons _L23619_ __tmp52368))))) (if (gx#stx-pair? ___stx4859048591_) (let ((_e2376923801_ (gx#syntax-e ___stx4859048591_))) (let ((_tl2376723808_ @@ -6637,7 +6637,7 @@ (___kont4859548596_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g2364823751_ __tmp52552)))) + (_g2364823751_ __tmp52366)))) _var2355423613_ _hd2354123571_) (let () @@ -6661,19 +6661,19 @@ (let () (declare (not safe)) (_g2353623560_ _g2353723564_))))) - (__tmp52556 + (__tmp52370 (list (gx#genident 'K) (apply append (map |gerbil/core$<match>[1]#match-pattern-vars| _clause23531_))))) (declare (not safe)) - (_g2353523879_ __tmp52556))))) - (let ((__tmp52557 - (let ((__tmp52558 (gx#stx-length _tgt-lst23522_))) + (_g2353523879_ __tmp52370))))) + (let ((__tmp52371 + (let ((__tmp52372 (gx#stx-length _tgt-lst23522_))) (declare (not safe)) - (_parse-body23525_ __tmp52558)))) + (_parse-body23525_ __tmp52372)))) (declare (not safe)) - (_generate-body23527_ __tmp52557))))) + (_generate-body23527_ __tmp52371))))) (define |gerbil/core$<match>[1]#generate-match| (lambda (_stx23422_ _tgt23424_ _clauses23425_) (letrec ((_reclause23427_ @@ -6689,12 +6689,12 @@ (___kont4861148612_ (lambda (_L23478_ _L23480_) (gx#stx-wrap-source - (let ((__tmp52559 + (let ((__tmp52373 (let () (declare (not safe)) (cons _L23480_ '())))) (declare (not safe)) - (cons __tmp52559 _L23478_)) + (cons __tmp52373 _L23478_)) (gx#stx-source (gx#datum->syntax '#f 'clause))))) (___kont4861348614_ @@ -6717,7 +6717,7 @@ (##car _e2343923502_)))) (if (gx#identifier? _hd2343823506_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52560_| + |gerbil/core$<match>[1]#_g52374_| _hd2343823506_) (___kont4860948610_) (___kont4861148612_ @@ -6727,14 +6727,14 @@ _tl2343723509_ _hd2343823506_)))) (___kont4861348614_))))))) - (let ((__tmp52562 + (let ((__tmp52376 (let () (declare (not safe)) (cons _tgt23424_ '()))) - (__tmp52561 (gx#stx-map _reclause23427_ _clauses23425_))) + (__tmp52375 (gx#stx-map _reclause23427_ _clauses23425_))) (declare (not safe)) (|gerbil/core$<match>[1]#generate-match*| _stx23422_ - __tmp52562 - __tmp52561))))) + __tmp52376 + __tmp52375))))) (define |gerbil/core$<match>[:0:]#match| (lambda (_stx30653_) (let* ((___stx4863448635_ _stx30653_) @@ -6767,33 +6767,33 @@ ((lambda (_L30982_) (let () (let () - (let ((__tmp52566 + (let ((__tmp52380 (gx#datum->syntax '#f 'lambda)) - (__tmp52563 - (let ((__tmp52565 + (__tmp52377 + (let ((__tmp52379 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _L30955_ '()))) - (__tmp52564 + (__tmp52378 (let () (declare (not safe)) (cons _L30982_ '())))) (declare (not safe)) - (cons __tmp52565 __tmp52564)))) + (cons __tmp52379 __tmp52378)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52566 - __tmp52563))))) + (cons __tmp52380 + __tmp52377))))) _g3096830979_)))) (_g3096630997_ (gx#stx-wrap-source - (let ((__tmp52568 + (let ((__tmp52382 (gx#datum->syntax '#f 'match)) - (__tmp52567 + (__tmp52381 (let () (declare (not safe)) (cons _L30955_ _L30927_)))) (declare (not safe)) - (cons __tmp52568 __tmp52567)) + (cons __tmp52382 __tmp52381)) (gx#stx-source _stx30653_)))))) _g3094130952_)))) (_g3093931001_ (gx#genident 'e))))) @@ -6820,31 +6820,31 @@ ((lambda (_L30877_) (let () (let () - (let ((__tmp52571 + (let ((__tmp52385 (gx#datum->syntax '#f 'lambda)) - (__tmp52569 - (let ((__tmp52570 + (__tmp52383 + (let ((__tmp52384 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _L30877_ '())))) (declare (not safe)) - (cons _L30850_ __tmp52570)))) + (cons _L30850_ __tmp52384)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52571 - __tmp52569))))) + (cons __tmp52385 + __tmp52383))))) _g3086330874_)))) (_g3086130892_ (gx#stx-wrap-source - (let ((__tmp52573 + (let ((__tmp52387 (gx#datum->syntax '#f 'match)) - (__tmp52572 + (__tmp52386 (let () (declare (not safe)) (cons _L30850_ _L30822_)))) (declare (not safe)) - (cons __tmp52573 __tmp52572)) + (cons __tmp52387 __tmp52386)) (gx#stx-source _stx30653_)))))) _g3083630847_)))) (_g3083430896_ (gx#genident 'args))))) @@ -6871,30 +6871,30 @@ ((lambda (_L30772_) (let () (let () - (let ((__tmp52579 + (let ((__tmp52393 (gx#datum->syntax '#f 'let)) - (__tmp52574 - (let ((__tmp52576 + (__tmp52388 + (let ((__tmp52390 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52577 - (let ((__tmp52578 + (let ((__tmp52391 + (let ((__tmp52392 (let () (declare (not safe)) (cons _L30716_ '())))) (declare (not safe)) - (cons _L30745_ __tmp52578)))) + (cons _L30745_ __tmp52392)))) (declare (not safe)) - (cons __tmp52577 '()))) - (__tmp52575 + (cons __tmp52391 '()))) + (__tmp52389 (let () (declare (not safe)) (cons _L30772_ '())))) (declare (not safe)) - (cons __tmp52576 __tmp52575)))) + (cons __tmp52390 __tmp52389)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52579 - __tmp52574))))) + (cons __tmp52393 + __tmp52388))))) _g3075830769_)))) (_g3075630787_ (let () @@ -6971,7 +6971,7 @@ (##car _e3066630917_)))) (if (gx#identifier? _hd3066530921_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52581_| + |gerbil/core$<match>[1]#_g52395_| _hd3066530921_) (___match4865948660_ _e3066330907_ @@ -6981,7 +6981,7 @@ _hd3066530921_ _tl3066430924_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52580_| + |gerbil/core$<match>[1]#_g52394_| _hd3066530921_) (___match4867548676_ _e3066330907_ @@ -7038,31 +7038,31 @@ (declare (not safe)) (##cdr _e3102131053_)))) (if (gx#stx-pair/null? _hd3102031057_) - (let ((_g52582_ + (let ((_g52396_ (gx#syntax-split-splice _hd3102031057_ '0))) (begin - (let ((_g52583_ + (let ((_g52397_ (let () (declare (not safe)) - (if (##values? _g52582_) + (if (##values? _g52396_) (##vector-length - _g52582_) + _g52396_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g52583_ 2))) + (##fx= _g52397_ 2))) (error "Context expects 2 values" - _g52583_))) + _g52397_))) (let ((_target3102231063_ (let () (declare (not safe)) - (##vector-ref _g52582_ 0))) + (##vector-ref _g52396_ 0))) (_tl3102431066_ (let () (declare (not safe)) - (##vector-ref _g52582_ 1)))) + (##vector-ref _g52396_ 1)))) (if (gx#stx-null? _tl3102431066_) (letrec ((_loop3102531069_ (lambda (_hd3102331073_ @@ -7096,41 +7096,41 @@ (lambda (_g3111431134_) (if (gx#stx-pair/null? _g3111431134_) - (let ((_g52584_ + (let ((_g52398_ (gx#syntax-split-splice _g3111431134_ '0))) (begin - (let ((_g52585_ + (let ((_g52399_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g52584_) - (##vector-length _g52584_) + _g52398_) + (##vector-length _g52398_) 1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g52585_ 2))) - (error "Context expects 2 values" _g52585_))) + (##fx= _g52399_ 2))) + (error "Context expects 2 values" _g52399_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target3111631137_ (let () (declare (not safe)) (##vector-ref - _g52584_ + _g52398_ 0))) (_tl3111831140_ (let () (declare (not safe)) (##vector-ref - _g52584_ + _g52398_ 1)))) (if (gx#stx-null? _tl3111831140_) @@ -7169,13 +7169,13 @@ ((lambda (_L31198_) (let () (let () - (let ((__tmp52591 + (let ((__tmp52405 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'let)) - (__tmp52586 - (let ((__tmp52588 + (__tmp52400 + (let ((__tmp52402 (begin (gx#syntax-check-splice-targets _L31095_ @@ -7183,32 +7183,32 @@ (foldr (lambda (_g3121231216_ _g3121331219_ _g3121431221_) - (let ((__tmp52589 - (let ((__tmp52590 + (let ((__tmp52403 + (let ((__tmp52404 (let () (declare (not safe)) (cons _g3121231216_ '())))) (declare (not safe)) (cons _g3121331219_ - __tmp52590)))) + __tmp52404)))) (declare (not safe)) - (cons __tmp52589 _g3121431221_))) + (cons __tmp52403 _g3121431221_))) '() _L31095_ _L31167_))) - (__tmp52587 + (__tmp52401 (let () (declare (not safe)) (cons _L31198_ '())))) (declare (not safe)) - (cons __tmp52588 __tmp52587)))) + (cons __tmp52402 __tmp52401)))) (declare (not safe)) - (cons __tmp52591 __tmp52586))))) + (cons __tmp52405 __tmp52400))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g3118431195_)))) (_g3118231224_ - (let ((__tmp52592 + (let ((__tmp52406 (foldr (lambda (_g3122731230_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g3122831233_) @@ -7221,7 +7221,7 @@ (declare (not safe)) (|gerbil/core$<match>[1]#generate-match*| _stx31009_ - __tmp52592 + __tmp52406 _L31093_)))))) _$e3112431163_)))))) (_loop3111931143_ _target3111631137_ '())) @@ -7263,9 +7263,9 @@ ___stx4869048691_)))) (let ((___kont4869348694_ (lambda (_L31673_) - (let ((__tmp52595 (gx#datum->syntax '#f 'let)) - (__tmp52593 - (let ((__tmp52594 + (let ((__tmp52409 (gx#datum->syntax '#f 'let)) + (__tmp52407 + (let ((__tmp52408 (foldr (lambda (_g3168931692_ _g3169031695_) (let () (declare (not safe)) @@ -7274,23 +7274,23 @@ '() _L31673_))) (declare (not safe)) - (cons '() __tmp52594)))) + (cons '() __tmp52408)))) (declare (not safe)) - (cons __tmp52595 __tmp52593)))) + (cons __tmp52409 __tmp52407)))) (___kont4869748698_ (lambda (_L31581_ _L31583_ _L31584_ _L31585_) - (let ((__tmp52596 - (let ((__tmp52598 - (let ((__tmp52599 - (let ((__tmp52600 + (let ((__tmp52410 + (let ((__tmp52412 + (let ((__tmp52413 + (let ((__tmp52414 (let () (declare (not safe)) (cons _L31583_ '())))) (declare (not safe)) - (cons _L31584_ __tmp52600)))) + (cons _L31584_ __tmp52414)))) (declare (not safe)) - (cons __tmp52599 '()))) - (__tmp52597 + (cons __tmp52413 '()))) + (__tmp52411 (foldr (lambda (_g3160731610_ _g3160831613_) (let () (declare (not safe)) @@ -7299,14 +7299,14 @@ '() _L31581_))) (declare (not safe)) - (cons __tmp52598 __tmp52597)))) + (cons __tmp52412 __tmp52411)))) (declare (not safe)) - (cons _L31585_ __tmp52596)))) + (cons _L31585_ __tmp52410)))) (___kont4870148702_ (lambda (_L31454_ _L31456_ _L31457_) - (let ((__tmp52607 (gx#datum->syntax '#f 'match*)) - (__tmp52601 - (let ((__tmp52606 + (let ((__tmp52421 (gx#datum->syntax '#f 'match*)) + (__tmp52415 + (let ((__tmp52420 (foldr (lambda (_g3148331486_ _g3148431489_) (let () (declare (not safe)) @@ -7314,9 +7314,9 @@ _g3148431489_))) '() _L31456_)) - (__tmp52602 - (let ((__tmp52603 - (let ((__tmp52605 + (__tmp52416 + (let ((__tmp52417 + (let ((__tmp52419 (foldr (lambda (_g3148131492_ _g3148231495_) (let () @@ -7325,7 +7325,7 @@ _g3148231495_))) '() _L31457_)) - (__tmp52604 + (__tmp52418 (foldr (lambda (_g3147931498_ _g3148031501_) (let () @@ -7335,13 +7335,13 @@ '() _L31454_))) (declare (not safe)) - (cons __tmp52605 __tmp52604)))) + (cons __tmp52419 __tmp52418)))) (declare (not safe)) - (cons __tmp52603 '())))) + (cons __tmp52417 '())))) (declare (not safe)) - (cons __tmp52606 __tmp52602)))) + (cons __tmp52420 __tmp52416)))) (declare (not safe)) - (cons __tmp52607 __tmp52601))))) + (cons __tmp52421 __tmp52415))))) (let* ((___match4878348784_ (lambda (_e3130831350_ _hd3130731354_ @@ -7931,22 +7931,22 @@ ___stx4878648787_)))) (let ((___kont4878948790_ (lambda (_L31933_ _L31935_ _L31936_ _L31937_ _L31938_) - (let ((__tmp52616 (gx#datum->syntax '#f 'with)) - (__tmp52608 - (let ((__tmp52613 - (let ((__tmp52614 - (let ((__tmp52615 + (let ((__tmp52430 (gx#datum->syntax '#f 'with)) + (__tmp52422 + (let ((__tmp52427 + (let ((__tmp52428 + (let ((__tmp52429 (let () (declare (not safe)) (cons _L31936_ '())))) (declare (not safe)) - (cons _L31937_ __tmp52615)))) + (cons _L31937_ __tmp52429)))) (declare (not safe)) - (cons __tmp52614 '()))) - (__tmp52609 - (let ((__tmp52610 - (let ((__tmp52611 - (let ((__tmp52612 + (cons __tmp52428 '()))) + (__tmp52423 + (let ((__tmp52424 + (let ((__tmp52425 + (let ((__tmp52426 (foldr (lambda (_g3196331966_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g3196431969_) @@ -7957,20 +7957,20 @@ _L31933_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L31935_ __tmp52612)))) + (cons _L31935_ __tmp52426)))) (declare (not safe)) - (cons _L31938_ __tmp52611)))) + (cons _L31938_ __tmp52425)))) (declare (not safe)) - (cons __tmp52610 '())))) + (cons __tmp52424 '())))) (declare (not safe)) - (cons __tmp52613 __tmp52609)))) + (cons __tmp52427 __tmp52423)))) (declare (not safe)) - (cons __tmp52616 __tmp52608)))) + (cons __tmp52430 __tmp52422)))) (___kont4879348794_ (lambda (_L31820_) - (let ((__tmp52619 (gx#datum->syntax '#f 'let)) - (__tmp52617 - (let ((__tmp52618 + (let ((__tmp52433 (gx#datum->syntax '#f 'let)) + (__tmp52431 + (let ((__tmp52432 (foldr (lambda (_g3183731840_ _g3183831843_) (let () (declare (not safe)) @@ -7979,9 +7979,9 @@ '() _L31820_))) (declare (not safe)) - (cons '() __tmp52618)))) + (cons '() __tmp52432)))) (declare (not safe)) - (cons __tmp52619 __tmp52617))))) + (cons __tmp52433 __tmp52431))))) (let* ((___match4885948860_ (lambda (_e3174531770_ _hd3174431774_ @@ -8213,269 +8213,269 @@ ___stx4886248863_)))) (let ((___kont4886548866_ (lambda (_L32739_ _L32741_ _L32742_) - (let ((__tmp52624 (gx#datum->syntax '#f 'and)) - (__tmp52620 + (let ((__tmp52438 (gx#datum->syntax '#f 'and)) + (__tmp52434 (foldr (lambda (_g3276332766_ _g3276432769_) - (let ((__tmp52621 - (let ((__tmp52622 - (let ((__tmp52623 + (let ((__tmp52435 + (let ((__tmp52436 + (let ((__tmp52437 (let () (declare (not safe)) (cons _L32739_ '())))) (declare (not safe)) (cons _g3276332766_ - __tmp52623)))) + __tmp52437)))) (declare (not safe)) - (cons _L32742_ __tmp52622)))) + (cons _L32742_ __tmp52436)))) (declare (not safe)) - (cons __tmp52621 _g3276432769_))) + (cons __tmp52435 _g3276432769_))) '() _L32741_))) (declare (not safe)) - (cons __tmp52624 __tmp52620)))) + (cons __tmp52438 __tmp52434)))) (___kont4886948870_ (lambda (_L32629_ _L32631_ _L32632_) - (let ((__tmp52629 (gx#datum->syntax '#f 'or)) - (__tmp52625 + (let ((__tmp52443 (gx#datum->syntax '#f 'or)) + (__tmp52439 (foldr (lambda (_g3265332656_ _g3265432659_) - (let ((__tmp52626 - (let ((__tmp52627 - (let ((__tmp52628 + (let ((__tmp52440 + (let ((__tmp52441 + (let ((__tmp52442 (let () (declare (not safe)) (cons _L32629_ '())))) (declare (not safe)) (cons _g3265332656_ - __tmp52628)))) + __tmp52442)))) (declare (not safe)) - (cons _L32632_ __tmp52627)))) + (cons _L32632_ __tmp52441)))) (declare (not safe)) - (cons __tmp52626 _g3265432659_))) + (cons __tmp52440 _g3265432659_))) '() _L32631_))) (declare (not safe)) - (cons __tmp52629 __tmp52625)))) + (cons __tmp52443 __tmp52439)))) (___kont4887348874_ (lambda (_L32529_ _L32531_ _L32532_) - (let ((__tmp52634 (gx#datum->syntax '#f 'not)) - (__tmp52630 - (let ((__tmp52631 - (let ((__tmp52632 - (let ((__tmp52633 + (let ((__tmp52448 (gx#datum->syntax '#f 'not)) + (__tmp52444 + (let ((__tmp52445 + (let ((__tmp52446 + (let ((__tmp52447 (let () (declare (not safe)) (cons _L32529_ '())))) (declare (not safe)) - (cons _L32531_ __tmp52633)))) + (cons _L32531_ __tmp52447)))) (declare (not safe)) - (cons _L32532_ __tmp52632)))) + (cons _L32532_ __tmp52446)))) (declare (not safe)) - (cons __tmp52631 '())))) + (cons __tmp52445 '())))) (declare (not safe)) - (cons __tmp52634 __tmp52630)))) + (cons __tmp52448 __tmp52444)))) (___kont4887548876_ (lambda (_L32455_ _L32457_) - (let ((__tmp52635 + (let ((__tmp52449 (let () (declare (not safe)) (cons _L32455_ '())))) (declare (not safe)) - (cons _L32457_ __tmp52635)))) + (cons _L32457_ __tmp52449)))) (___kont4887748878_ (lambda (_L32403_ _L32405_) - (let ((__tmp52644 (gx#datum->syntax '#f 'lambda)) - (__tmp52636 - (let ((__tmp52642 - (let ((__tmp52643 + (let ((__tmp52458 (gx#datum->syntax '#f 'lambda)) + (__tmp52450 + (let ((__tmp52456 + (let ((__tmp52457 (gx#datum->syntax '#f '$obj))) (declare (not safe)) - (cons __tmp52643 '()))) - (__tmp52637 - (let ((__tmp52638 - (let ((__tmp52639 - (let ((__tmp52640 - (let ((__tmp52641 + (cons __tmp52457 '()))) + (__tmp52451 + (let ((__tmp52452 + (let ((__tmp52453 + (let ((__tmp52454 + (let ((__tmp52455 (gx#datum->syntax '#f '$obj))) (declare (not safe)) - (cons __tmp52641 + (cons __tmp52455 '())))) (declare (not safe)) - (cons _L32403_ __tmp52640)))) + (cons _L32403_ __tmp52454)))) (declare (not safe)) - (cons _L32405_ __tmp52639)))) + (cons _L32405_ __tmp52453)))) (declare (not safe)) - (cons __tmp52638 '())))) + (cons __tmp52452 '())))) (declare (not safe)) - (cons __tmp52642 __tmp52637)))) + (cons __tmp52456 __tmp52451)))) (declare (not safe)) - (cons __tmp52644 __tmp52636)))) + (cons __tmp52458 __tmp52450)))) (___kont4887948880_ (lambda (_L32355_ _L32357_ _L32358_) - (let ((__tmp52663 (gx#datum->syntax '#f 'lambda)) - (__tmp52645 - (let ((__tmp52661 - (let ((__tmp52662 + (let ((__tmp52477 (gx#datum->syntax '#f 'lambda)) + (__tmp52459 + (let ((__tmp52475 + (let ((__tmp52476 (gx#datum->syntax '#f '$obj))) (declare (not safe)) - (cons __tmp52662 '()))) - (__tmp52646 - (let ((__tmp52647 - (let ((__tmp52660 + (cons __tmp52476 '()))) + (__tmp52460 + (let ((__tmp52461 + (let ((__tmp52474 (gx#datum->syntax '#f 'alet)) - (__tmp52648 - (let ((__tmp52653 - (let ((__tmp52659 + (__tmp52462 + (let ((__tmp52467 + (let ((__tmp52473 (gx#datum->syntax '#f '$val)) - (__tmp52654 - (let ((__tmp52655 + (__tmp52468 + (let ((__tmp52469 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52656 - (let ((__tmp52657 - (let ((__tmp52658 + (let ((__tmp52470 + (let ((__tmp52471 + (let ((__tmp52472 (gx#datum->syntax '#f '$obj))) (declare (not safe)) - (cons __tmp52658 '())))) + (cons __tmp52472 '())))) (declare (not safe)) - (cons _L32357_ __tmp52657)))) + (cons _L32357_ __tmp52471)))) (declare (not safe)) - (cons _L32358_ __tmp52656)))) + (cons _L32358_ __tmp52470)))) (declare (not safe)) - (cons __tmp52655 '())))) + (cons __tmp52469 '())))) (declare (not safe)) - (cons __tmp52659 __tmp52654))) + (cons __tmp52473 __tmp52468))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp52649 - (let ((__tmp52650 - (let ((__tmp52651 + (__tmp52463 + (let ((__tmp52464 + (let ((__tmp52465 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52652 (gx#datum->syntax '#f '$val))) + (let ((__tmp52466 (gx#datum->syntax '#f '$val))) (declare (not safe)) - (cons __tmp52652 '())))) + (cons __tmp52466 '())))) (declare (not safe)) - (cons _L32355_ __tmp52651)))) + (cons _L32355_ __tmp52465)))) (declare (not safe)) - (cons __tmp52650 '())))) + (cons __tmp52464 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52653 - __tmp52649)))) + (cons __tmp52467 + __tmp52463)))) (declare (not safe)) - (cons __tmp52660 __tmp52648)))) + (cons __tmp52474 __tmp52462)))) (declare (not safe)) - (cons __tmp52647 '())))) + (cons __tmp52461 '())))) (declare (not safe)) - (cons __tmp52661 __tmp52646)))) + (cons __tmp52475 __tmp52460)))) (declare (not safe)) - (cons __tmp52663 __tmp52645)))) + (cons __tmp52477 __tmp52459)))) (___kont4888148882_ (lambda (_L32286_ _L32288_ _L32289_) - (let ((__tmp52679 (gx#datum->syntax '#f 'lambda)) - (__tmp52664 - (let ((__tmp52677 - (let ((__tmp52678 + (let ((__tmp52493 (gx#datum->syntax '#f 'lambda)) + (__tmp52478 + (let ((__tmp52491 + (let ((__tmp52492 (gx#datum->syntax '#f '$obj))) (declare (not safe)) - (cons __tmp52678 '()))) - (__tmp52665 - (let ((__tmp52666 - (let ((__tmp52676 + (cons __tmp52492 '()))) + (__tmp52479 + (let ((__tmp52480 + (let ((__tmp52490 (gx#datum->syntax '#f 'and)) - (__tmp52667 - (let ((__tmp52672 - (let ((__tmp52673 - (let ((__tmp52674 + (__tmp52481 + (let ((__tmp52486 + (let ((__tmp52487 + (let ((__tmp52488 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52675 (gx#datum->syntax '#f '$obj))) + (let ((__tmp52489 (gx#datum->syntax '#f '$obj))) (declare (not safe)) - (cons __tmp52675 '())))) + (cons __tmp52489 '())))) (declare (not safe)) - (cons _L32288_ __tmp52674)))) + (cons _L32288_ __tmp52488)))) (declare (not safe)) - (cons _L32289_ __tmp52673))) + (cons _L32289_ __tmp52487))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp52668 - (let ((__tmp52669 - (let ((__tmp52670 + (__tmp52482 + (let ((__tmp52483 + (let ((__tmp52484 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52671 (gx#datum->syntax '#f '$obj))) + (let ((__tmp52485 (gx#datum->syntax '#f '$obj))) (declare (not safe)) - (cons __tmp52671 '())))) + (cons __tmp52485 '())))) (declare (not safe)) - (cons _L32286_ __tmp52670)))) + (cons _L32286_ __tmp52484)))) (declare (not safe)) - (cons __tmp52669 '())))) + (cons __tmp52483 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52672 - __tmp52668)))) + (cons __tmp52486 + __tmp52482)))) (declare (not safe)) - (cons __tmp52676 __tmp52667)))) + (cons __tmp52490 __tmp52481)))) (declare (not safe)) - (cons __tmp52666 '())))) + (cons __tmp52480 '())))) (declare (not safe)) - (cons __tmp52677 __tmp52665)))) + (cons __tmp52491 __tmp52479)))) (declare (not safe)) - (cons __tmp52679 __tmp52664)))) + (cons __tmp52493 __tmp52478)))) (___kont4888348884_ (lambda (_L32206_ _L32208_ _L32209_ _L32210_) - (let ((__tmp52697 (gx#datum->syntax '#f 'lambda)) - (__tmp52680 - (let ((__tmp52695 - (let ((__tmp52696 + (let ((__tmp52511 (gx#datum->syntax '#f 'lambda)) + (__tmp52494 + (let ((__tmp52509 + (let ((__tmp52510 (gx#datum->syntax '#f '$obj))) (declare (not safe)) - (cons __tmp52696 '()))) - (__tmp52681 - (let ((__tmp52682 - (let ((__tmp52694 + (cons __tmp52510 '()))) + (__tmp52495 + (let ((__tmp52496 + (let ((__tmp52508 (gx#datum->syntax '#f 'and)) - (__tmp52683 - (let ((__tmp52690 - (let ((__tmp52691 - (let ((__tmp52692 + (__tmp52497 + (let ((__tmp52504 + (let ((__tmp52505 + (let ((__tmp52506 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52693 (gx#datum->syntax '#f '$obj))) + (let ((__tmp52507 (gx#datum->syntax '#f '$obj))) (declare (not safe)) - (cons __tmp52693 '())))) + (cons __tmp52507 '())))) (declare (not safe)) - (cons _L32209_ __tmp52692)))) + (cons _L32209_ __tmp52506)))) (declare (not safe)) - (cons _L32210_ __tmp52691))) + (cons _L32210_ __tmp52505))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp52684 - (let ((__tmp52685 - (let ((__tmp52686 + (__tmp52498 + (let ((__tmp52499 + (let ((__tmp52500 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52687 - (let ((__tmp52688 - (let ((__tmp52689 + (let ((__tmp52501 + (let ((__tmp52502 + (let ((__tmp52503 (gx#datum->syntax '#f '$obj))) (declare (not safe)) - (cons __tmp52689 '())))) + (cons __tmp52503 '())))) (declare (not safe)) - (cons _L32208_ __tmp52688)))) + (cons _L32208_ __tmp52502)))) (declare (not safe)) - (cons __tmp52687 '())))) + (cons __tmp52501 '())))) (declare (not safe)) - (cons _L32206_ __tmp52686)))) + (cons _L32206_ __tmp52500)))) (declare (not safe)) - (cons __tmp52685 '())))) + (cons __tmp52499 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52690 - __tmp52684)))) + (cons __tmp52504 + __tmp52498)))) (declare (not safe)) - (cons __tmp52694 __tmp52683)))) + (cons __tmp52508 __tmp52497)))) (declare (not safe)) - (cons __tmp52682 '())))) + (cons __tmp52496 '())))) (declare (not safe)) - (cons __tmp52695 __tmp52681)))) + (cons __tmp52509 __tmp52495)))) (declare (not safe)) - (cons __tmp52697 __tmp52680))))) + (cons __tmp52511 __tmp52494))))) (let* ((___match4903549036_ (lambda (_e3208132315_ _hd3208032319_ @@ -8488,7 +8488,7 @@ _tl3208532342_) (if (gx#identifier? _hd3208632339_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52699_| + |gerbil/core$<match>[1]#_g52513_| _hd3208632339_) (if (gx#stx-pair? _tl3208532342_) (let ((_e3209032345_ @@ -8549,7 +8549,7 @@ (let () (declare (not safe)) (##car _e3212632186_)))) (if (gx#identifier? _hd3212532190_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52698_| + |gerbil/core$<match>[1]#_g52512_| _hd3212532190_) (if (gx#stx-pair? _tl3212432193_) (let ((_e3212932196_ (gx#syntax-e _tl3212432193_))) @@ -8606,7 +8606,7 @@ (##car _e3208732335_)))) (if (gx#identifier? _hd3208632339_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52699_| + |gerbil/core$<match>[1]#_g52513_| _hd3208632339_) (if (gx#stx-pair? _tl3208532342_) (let ((_e3209032345_ @@ -8671,7 +8671,7 @@ (##car _e3212632186_)))) (if (gx#identifier? _hd3212532190_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52698_| + |gerbil/core$<match>[1]#_g52512_| _hd3212532190_) (if (gx#stx-pair? _tl3212432193_) (let ((_e3212932196_ @@ -8885,7 +8885,7 @@ (##car _e3200232689_)))) (if (gx#identifier? _hd3200132693_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52702_| + |gerbil/core$<match>[1]#_g52516_| _hd3200132693_) (if (gx#stx-pair/null? _tl3200032696_) @@ -8941,7 +8941,7 @@ _hd3199832683_) (if (gx#identifier? _hd3206632449_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52699_| + |gerbil/core$<match>[1]#_g52513_| _hd3206632449_) (if (gx#stx-pair? _tl3206532452_) (let ((_e3209032345_ @@ -9007,7 +9007,7 @@ (##car _e3212632186_)))) (if (gx#identifier? _hd3212532190_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52698_| + |gerbil/core$<match>[1]#_g52512_| _hd3212532190_) (if (gx#stx-pair? _tl3212432193_) (let ((_e3212932196_ @@ -9065,7 +9065,7 @@ (___kont4887548876_ _hd3206632449_ _hd3199832683_) (if (gx#identifier? _hd3206632449_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52699_| + |gerbil/core$<match>[1]#_g52513_| _hd3206632449_) (if (gx#stx-pair? _tl3206532452_) (let ((_e3209032345_ @@ -9126,7 +9126,7 @@ (let () (declare (not safe)) (##car _e3212632186_)))) (if (gx#identifier? _hd3212532190_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52698_| + |gerbil/core$<match>[1]#_g52512_| _hd3212532190_) (if (gx#stx-pair? _tl3212432193_) (let ((_e3212932196_ (gx#syntax-e _tl3212432193_))) @@ -9168,7 +9168,7 @@ (let () (declare (not safe)) (_g3198932135_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52701_| + |gerbil/core$<match>[1]#_g52515_| _hd3200132693_) (if (gx#stx-pair/null? _tl3200032696_) @@ -9215,7 +9215,7 @@ _hd3199832683_) (if (gx#identifier? _hd3206632449_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52699_| + |gerbil/core$<match>[1]#_g52513_| _hd3206632449_) (if (gx#stx-pair? _tl3206532452_) (let ((_e3209032345_ @@ -9280,7 +9280,7 @@ (##car _e3212632186_)))) (if (gx#identifier? _hd3212532190_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52698_| + |gerbil/core$<match>[1]#_g52512_| _hd3212532190_) (if (gx#stx-pair? _tl3212432193_) (let ((_e3212932196_ @@ -9341,7 +9341,7 @@ (___kont4887548876_ _hd3206632449_ _hd3199832683_) (if (gx#identifier? _hd3206632449_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52699_| + |gerbil/core$<match>[1]#_g52513_| _hd3206632449_) (if (gx#stx-pair? _tl3206532452_) (let ((_e3209032345_ @@ -9404,7 +9404,7 @@ (let () (declare (not safe)) (##car _e3212632186_)))) (if (gx#identifier? _hd3212532190_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52698_| + |gerbil/core$<match>[1]#_g52512_| _hd3212532190_) (if (gx#stx-pair? _tl3212432193_) (let ((_e3212932196_ @@ -9445,7 +9445,7 @@ (let () (declare (not safe)) (_g3198932135_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52700_| + |gerbil/core$<match>[1]#_g52514_| _hd3200132693_) (if (gx#stx-pair? _tl3200032696_) @@ -9477,7 +9477,7 @@ _hd3199532673_) (if (gx#identifier? _hd3205532523_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52699_| + |gerbil/core$<match>[1]#_g52513_| _hd3205532523_) (if (gx#stx-pair? _tl3205432526_) (let ((_e3209032345_ @@ -9544,7 +9544,7 @@ (##car _e3212632186_)))) (if (gx#identifier? _hd3212532190_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52698_| + |gerbil/core$<match>[1]#_g52512_| _hd3212532190_) (if (gx#stx-pair? _tl3212432193_) (let ((_e3212932196_ @@ -9610,7 +9610,7 @@ _hd3199832683_) (if (gx#identifier? _hd3206632449_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52699_| + |gerbil/core$<match>[1]#_g52513_| _hd3206632449_) (if (gx#stx-pair? _tl3206532452_) (let ((_e3209032345_ @@ -9677,7 +9677,7 @@ (##car _e3212632186_)))) (if (gx#identifier? _hd3212532190_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52698_| + |gerbil/core$<match>[1]#_g52512_| _hd3212532190_) (if (gx#stx-pair? _tl3212432193_) (let ((_e3212932196_ @@ -9742,7 +9742,7 @@ _hd3199832683_) (if (gx#identifier? _hd3206632449_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52699_| + |gerbil/core$<match>[1]#_g52513_| _hd3206632449_) (if (gx#stx-pair? _tl3206532452_) (let ((_e3209032345_ @@ -9808,7 +9808,7 @@ (##car _e3212632186_)))) (if (gx#identifier? _hd3212532190_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52698_| + |gerbil/core$<match>[1]#_g52512_| _hd3212532190_) (if (gx#stx-pair? _tl3212432193_) (let ((_e3212932196_ @@ -9861,7 +9861,7 @@ (___kont4887548876_ _hd3206632449_ _hd3199832683_) (if (gx#identifier? _hd3206632449_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52699_| + |gerbil/core$<match>[1]#_g52513_| _hd3206632449_) (if (gx#stx-pair? _tl3206532452_) (let ((_e3209032345_ @@ -9924,7 +9924,7 @@ (let () (declare (not safe)) (##car _e3212632186_)))) (if (gx#identifier? _hd3212532190_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52698_| + |gerbil/core$<match>[1]#_g52512_| _hd3212532190_) (if (gx#stx-pair? _tl3212432193_) (let ((_e3212932196_ @@ -9984,7 +9984,7 @@ (if (gx#identifier? _hd3206632449_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52699_| + |gerbil/core$<match>[1]#_g52513_| _hd3206632449_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -10044,7 +10044,7 @@ (if (gx#identifier? _hd3212532190_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52698_| + |gerbil/core$<match>[1]#_g52512_| _hd3212532190_) (if (gx#stx-pair? _tl3212432193_) @@ -10104,7 +10104,7 @@ (if (gx#identifier? _hd3206632449_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52699_| + |gerbil/core$<match>[1]#_g52513_| _hd3206632449_) (if (gx#stx-pair? _tl3206532452_) @@ -10165,7 +10165,7 @@ (##car _e3212632186_)))) (if (gx#identifier? _hd3212532190_) (if (gx#free-identifier=? - |gerbil/core$<match>[1]#_g52698_| + |gerbil/core$<match>[1]#_g52512_| _hd3212532190_) (if (gx#stx-pair? _tl3212432193_) @@ -10224,256 +10224,256 @@ ___stx4913049131_)))) (let ((___kont4913349134_ (lambda (_L32921_ _L32923_ _L32924_) - (let ((__tmp52764 (gx#datum->syntax '#f 'defsyntax)) - (__tmp52703 - (let ((__tmp52704 - (let ((__tmp52705 - (let ((__tmp52763 + (let ((__tmp52578 (gx#datum->syntax '#f 'defsyntax)) + (__tmp52517 + (let ((__tmp52518 + (let ((__tmp52519 + (let ((__tmp52577 (gx#datum->syntax '#f 'make-match-macro)) - (__tmp52706 - (let ((__tmp52707 - (let ((__tmp52708 - (let ((__tmp52762 + (__tmp52520 + (let ((__tmp52521 + (let ((__tmp52522 + (let ((__tmp52576 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'let)) - (__tmp52709 - (let ((__tmp52754 - (let ((__tmp52759 - (let ((__tmp52761 + (__tmp52523 + (let ((__tmp52568 + (let ((__tmp52573 + (let ((__tmp52575 (gx#datum->syntax '#f '$match-e)) - (__tmp52760 + (__tmp52574 (let () (declare (not safe)) (cons _L32923_ '())))) (declare (not safe)) - (cons __tmp52761 __tmp52760))) - (__tmp52755 - (let ((__tmp52756 - (let ((__tmp52758 + (cons __tmp52575 __tmp52574))) + (__tmp52569 + (let ((__tmp52570 + (let ((__tmp52572 (gx#datum->syntax '#f '$macro-e)) - (__tmp52757 + (__tmp52571 (let () (declare (not safe)) (cons _L32921_ '())))) (declare (not safe)) - (cons __tmp52758 - __tmp52757)))) + (cons __tmp52572 + __tmp52571)))) (declare (not safe)) - (cons __tmp52756 '())))) + (cons __tmp52570 '())))) (declare (not safe)) - (cons __tmp52759 __tmp52755))) - (__tmp52710 - (let ((__tmp52711 - (let ((__tmp52753 + (cons __tmp52573 __tmp52569))) + (__tmp52524 + (let ((__tmp52525 + (let ((__tmp52567 (gx#datum->syntax '#f 'lambda)) - (__tmp52712 - (let ((__tmp52751 - (let ((__tmp52752 + (__tmp52526 + (let ((__tmp52565 + (let ((__tmp52566 (gx#datum->syntax '#f '$stx))) (declare (not safe)) - (cons __tmp52752 + (cons __tmp52566 '()))) - (__tmp52713 - (let ((__tmp52714 - (let ((__tmp52750 + (__tmp52527 + (let ((__tmp52528 + (let ((__tmp52564 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'syntax-case)) - (__tmp52715 - (let ((__tmp52749 (gx#datum->syntax '#f '$stx)) - (__tmp52716 - (let ((__tmp52717 - (let ((__tmp52728 - (let ((__tmp52747 - (let ((__tmp52748 + (__tmp52529 + (let ((__tmp52563 (gx#datum->syntax '#f '$stx)) + (__tmp52530 + (let ((__tmp52531 + (let ((__tmp52542 + (let ((__tmp52561 + (let ((__tmp52562 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'body))) (declare (not safe)) - (cons 'match: __tmp52748))) - (__tmp52729 - (let ((__tmp52730 - (let ((__tmp52746 + (cons 'match: __tmp52562))) + (__tmp52543 + (let ((__tmp52544 + (let ((__tmp52560 (gx#datum->syntax '#f 'core-apply-expander)) - (__tmp52731 - (let ((__tmp52745 + (__tmp52545 + (let ((__tmp52559 (gx#datum->syntax '#f '$match-e)) - (__tmp52732 - (let ((__tmp52733 - (let ((__tmp52744 + (__tmp52546 + (let ((__tmp52547 + (let ((__tmp52558 (gx#datum->syntax '#f 'stx-wrap-source)) - (__tmp52734 - (let ((__tmp52740 - (let ((__tmp52743 + (__tmp52548 + (let ((__tmp52554 + (let ((__tmp52557 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'syntax)) - (__tmp52741 - (let ((__tmp52742 (gx#datum->syntax '#f 'body))) + (__tmp52555 + (let ((__tmp52556 (gx#datum->syntax '#f 'body))) (declare (not safe)) - (cons __tmp52742 '())))) + (cons __tmp52556 '())))) (declare (not safe)) - (cons __tmp52743 __tmp52741))) - (__tmp52735 - (let ((__tmp52736 - (let ((__tmp52739 + (cons __tmp52557 __tmp52555))) + (__tmp52549 + (let ((__tmp52550 + (let ((__tmp52553 (gx#datum->syntax '#f 'stx-source)) - (__tmp52737 - (let ((__tmp52738 + (__tmp52551 + (let ((__tmp52552 (gx#datum->syntax '#f '$stx))) (declare (not safe)) - (cons __tmp52738 '())))) + (cons __tmp52552 '())))) (declare (not safe)) - (cons __tmp52739 __tmp52737)))) + (cons __tmp52553 __tmp52551)))) (declare (not safe)) - (cons __tmp52736 '())))) + (cons __tmp52550 '())))) (declare (not safe)) - (cons __tmp52740 __tmp52735)))) + (cons __tmp52554 __tmp52549)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52744 __tmp52734)))) + (cons __tmp52558 __tmp52548)))) (declare (not safe)) - (cons __tmp52733 '())))) + (cons __tmp52547 '())))) (declare (not safe)) - (cons __tmp52745 __tmp52732)))) + (cons __tmp52559 __tmp52546)))) (declare (not safe)) - (cons __tmp52746 __tmp52731)))) + (cons __tmp52560 __tmp52545)))) (declare (not safe)) - (cons __tmp52730 '())))) + (cons __tmp52544 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52747 - __tmp52729))) - (__tmp52718 - (let ((__tmp52719 - (let ((__tmp52727 + (cons __tmp52561 + __tmp52543))) + (__tmp52532 + (let ((__tmp52533 + (let ((__tmp52541 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '_)) - (__tmp52720 - (let ((__tmp52721 - (let ((__tmp52726 + (__tmp52534 + (let ((__tmp52535 + (let ((__tmp52540 (gx#datum->syntax '#f 'core-apply-expander)) - (__tmp52722 - (let ((__tmp52725 + (__tmp52536 + (let ((__tmp52539 (gx#datum->syntax '#f '$macro-e)) - (__tmp52723 - (let ((__tmp52724 + (__tmp52537 + (let ((__tmp52538 (gx#datum->syntax '#f '$stx))) (declare (not safe)) - (cons __tmp52724 '())))) + (cons __tmp52538 '())))) (declare (not safe)) - (cons __tmp52725 __tmp52723)))) + (cons __tmp52539 __tmp52537)))) (declare (not safe)) - (cons __tmp52726 __tmp52722)))) + (cons __tmp52540 __tmp52536)))) (declare (not safe)) - (cons __tmp52721 '())))) + (cons __tmp52535 '())))) (declare (not safe)) - (cons __tmp52727 __tmp52720)))) + (cons __tmp52541 __tmp52534)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52719 '())))) + (cons __tmp52533 '())))) (declare (not safe)) - (cons __tmp52728 __tmp52718)))) + (cons __tmp52542 __tmp52532)))) (declare (not safe)) - (cons '() __tmp52717)))) + (cons '() __tmp52531)))) (declare (not safe)) - (cons __tmp52749 __tmp52716)))) + (cons __tmp52563 __tmp52530)))) (declare (not safe)) - (cons __tmp52750 __tmp52715)))) + (cons __tmp52564 __tmp52529)))) (declare (not safe)) - (cons __tmp52714 '())))) + (cons __tmp52528 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52751 - __tmp52713)))) + (cons __tmp52565 + __tmp52527)))) (declare (not safe)) - (cons __tmp52753 __tmp52712)))) + (cons __tmp52567 __tmp52526)))) (declare (not safe)) - (cons __tmp52711 '())))) + (cons __tmp52525 '())))) (declare (not safe)) - (cons __tmp52754 __tmp52710)))) + (cons __tmp52568 __tmp52524)))) (declare (not safe)) - (cons __tmp52762 __tmp52709)))) + (cons __tmp52576 __tmp52523)))) (declare (not safe)) - (cons __tmp52708 '())))) + (cons __tmp52522 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'macro: __tmp52707)))) + (cons 'macro: __tmp52521)))) (declare (not safe)) - (cons __tmp52763 __tmp52706)))) + (cons __tmp52577 __tmp52520)))) (declare (not safe)) - (cons __tmp52705 '())))) + (cons __tmp52519 '())))) (declare (not safe)) - (cons _L32924_ __tmp52704)))) + (cons _L32924_ __tmp52518)))) (declare (not safe)) - (cons __tmp52764 __tmp52703)))) + (cons __tmp52578 __tmp52517)))) (___kont4913549136_ (lambda (_L32854_ _L32856_ _L32857_) - (let ((__tmp52765 - (let ((__tmp52766 - (let ((__tmp52767 - (let ((__tmp52768 - (let ((__tmp52779 + (let ((__tmp52579 + (let ((__tmp52580 + (let ((__tmp52581 + (let ((__tmp52582 + (let ((__tmp52593 (gx#datum->syntax '#f 'lambda)) - (__tmp52769 - (let ((__tmp52777 - (let ((__tmp52778 + (__tmp52583 + (let ((__tmp52591 + (let ((__tmp52592 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '$stx))) (declare (not safe)) - (cons __tmp52778 '()))) - (__tmp52770 - (let ((__tmp52771 - (let ((__tmp52776 + (cons __tmp52592 '()))) + (__tmp52584 + (let ((__tmp52585 + (let ((__tmp52590 (gx#datum->syntax '#f 'raise-syntax-error)) - (__tmp52772 - (let ((__tmp52773 - (let ((__tmp52774 - (let ((__tmp52775 + (__tmp52586 + (let ((__tmp52587 + (let ((__tmp52588 + (let ((__tmp52589 (gx#datum->syntax '#f '$stx))) (declare (not safe)) - (cons __tmp52775 '())))) + (cons __tmp52589 '())))) (declare (not safe)) (cons '"bad syntax; no macro definition for defsyntax-for-match" - __tmp52774)))) + __tmp52588)))) (declare (not safe)) - (cons '#f __tmp52773)))) + (cons '#f __tmp52587)))) (declare (not safe)) - (cons __tmp52776 __tmp52772)))) + (cons __tmp52590 __tmp52586)))) (declare (not safe)) - (cons __tmp52771 '())))) + (cons __tmp52585 '())))) (declare (not safe)) - (cons __tmp52777 __tmp52770)))) + (cons __tmp52591 __tmp52584)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52779 - __tmp52769)))) + (cons __tmp52593 + __tmp52583)))) (declare (not safe)) - (cons __tmp52768 '())))) + (cons __tmp52582 '())))) (declare (not safe)) - (cons _L32854_ __tmp52767)))) + (cons _L32854_ __tmp52581)))) (declare (not safe)) - (cons _L32856_ __tmp52766)))) + (cons _L32856_ __tmp52580)))) (declare (not safe)) - (cons _L32857_ __tmp52765))))) + (cons _L32857_ __tmp52579))))) (let ((___match4916349164_ (lambda (_e3279032881_ _hd3278932885_ @@ -10595,25 +10595,25 @@ (declare (not safe)) (##cdr _e3295932982_)))) ((lambda (_L32992_ _L32994_) - (let ((__tmp52784 + (let ((__tmp52598 (gx#datum->syntax '#f 'defsyntax-for-match)) - (__tmp52780 - (let ((__tmp52781 - (let ((__tmp52782 - (let ((__tmp52783 + (__tmp52594 + (let ((__tmp52595 + (let ((__tmp52596 + (let ((__tmp52597 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'syntax-rules))) (declare (not safe)) - (cons __tmp52783 _L32992_)))) + (cons __tmp52597 _L32992_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52782 '())))) + (cons __tmp52596 '())))) (declare (not safe)) - (cons _L32994_ __tmp52781)))) + (cons _L32994_ __tmp52595)))) (declare (not safe)) - (cons __tmp52784 __tmp52780))) + (cons __tmp52598 __tmp52594))) _tl3295732989_ _hd3295832986_))) (_g3295032965_ _g3295132969_)))) diff --git a/src/bootstrap/gerbil/core__11.scm b/src/bootstrap/gerbil/core__11.scm index a6e16b22..25985f84 100644 --- a/src/bootstrap/gerbil/core__11.scm +++ b/src/bootstrap/gerbil/core__11.scm @@ -1,55 +1,55 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core$<match>[2]#_g52787_| + (define |gerbil/core$<match>[2]#_g52601_| (##structure gx#syntax-quote::t 'macro-object #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[2]#_g52789_| + (define |gerbil/core$<match>[2]#_g52603_| (##structure gx#syntax-quote::t 'match-macro::t #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[2]#_g52791_| + (define |gerbil/core$<match>[2]#_g52605_| (##structure gx#syntax-quote::t 'make-match-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[2]#_g52793_| + (define |gerbil/core$<match>[2]#_g52607_| (##structure gx#syntax-quote::t 'match-macro? #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[2]#_g52797_| + (define |gerbil/core$<match>[2]#_g52611_| (##structure gx#syntax-quote::t 'match-macro-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[2]#_g52801_| + (define |gerbil/core$<match>[2]#_g52615_| (##structure gx#syntax-quote::t 'match-macro-macro-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[2]#_g52805_| + (define |gerbil/core$<match>[2]#_g52619_| (##structure gx#syntax-quote::t '&match-macro-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$<match>[2]#_g52809_| + (define |gerbil/core$<match>[2]#_g52623_| (##structure gx#syntax-quote::t '&match-macro-macro-set! @@ -101,14 +101,14 @@ '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp52785 - (let ((__tmp52786 |gerbil/core$<match>[2]#_g52787_|)) + (let ((__tmp52599 + (let ((__tmp52600 |gerbil/core$<match>[2]#_g52601_|)) (declare (not safe)) - (cons __tmp52786 '())))) + (cons __tmp52600 '())))) (declare (not safe)) (##unchecked-structure-set! __obj49634 - __tmp52785 + __tmp52599 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) @@ -144,83 +144,83 @@ '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp52788 |gerbil/core$<match>[2]#_g52789_|)) + (let ((__tmp52602 |gerbil/core$<match>[2]#_g52603_|)) (declare (not safe)) (##unchecked-structure-set! __obj49634 - __tmp52788 + __tmp52602 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp52790 |gerbil/core$<match>[2]#_g52791_|)) + (let ((__tmp52604 |gerbil/core$<match>[2]#_g52605_|)) (declare (not safe)) (##unchecked-structure-set! __obj49634 - __tmp52790 + __tmp52604 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp52792 |gerbil/core$<match>[2]#_g52793_|)) + (let ((__tmp52606 |gerbil/core$<match>[2]#_g52607_|)) (declare (not safe)) (##unchecked-structure-set! __obj49634 - __tmp52792 + __tmp52606 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp52794 - (let ((__tmp52795 - (let ((__tmp52796 |gerbil/core$<match>[2]#_g52797_|)) + (let ((__tmp52608 + (let ((__tmp52609 + (let ((__tmp52610 |gerbil/core$<match>[2]#_g52611_|)) (declare (not safe)) - (cons 'macro __tmp52796)))) + (cons 'macro __tmp52610)))) (declare (not safe)) - (cons __tmp52795 '())))) + (cons __tmp52609 '())))) (declare (not safe)) (##unchecked-structure-set! __obj49634 - __tmp52794 + __tmp52608 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp52798 - (let ((__tmp52799 - (let ((__tmp52800 |gerbil/core$<match>[2]#_g52801_|)) + (let ((__tmp52612 + (let ((__tmp52613 + (let ((__tmp52614 |gerbil/core$<match>[2]#_g52615_|)) (declare (not safe)) - (cons 'macro __tmp52800)))) + (cons 'macro __tmp52614)))) (declare (not safe)) - (cons __tmp52799 '())))) + (cons __tmp52613 '())))) (declare (not safe)) (##unchecked-structure-set! __obj49634 - __tmp52798 + __tmp52612 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp52802 - (let ((__tmp52803 - (let ((__tmp52804 |gerbil/core$<match>[2]#_g52805_|)) + (let ((__tmp52616 + (let ((__tmp52617 + (let ((__tmp52618 |gerbil/core$<match>[2]#_g52619_|)) (declare (not safe)) - (cons 'macro __tmp52804)))) + (cons 'macro __tmp52618)))) (declare (not safe)) - (cons __tmp52803 '())))) + (cons __tmp52617 '())))) (declare (not safe)) (##unchecked-structure-set! __obj49634 - __tmp52802 + __tmp52616 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp52806 - (let ((__tmp52807 - (let ((__tmp52808 |gerbil/core$<match>[2]#_g52809_|)) + (let ((__tmp52620 + (let ((__tmp52621 + (let ((__tmp52622 |gerbil/core$<match>[2]#_g52623_|)) (declare (not safe)) - (cons 'macro __tmp52808)))) + (cons 'macro __tmp52622)))) (declare (not safe)) - (cons __tmp52807 '())))) + (cons __tmp52621 '())))) (declare (not safe)) (##unchecked-structure-set! __obj49634 - __tmp52806 + __tmp52620 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) diff --git a/src/bootstrap/gerbil/core__12.scm b/src/bootstrap/gerbil/core__12.scm index c084d813..66636cef 100644 --- a/src/bootstrap/gerbil/core__12.scm +++ b/src/bootstrap/gerbil/core__12.scm @@ -37,12 +37,12 @@ _g3305933061_)))) (_g3305833065_ _$stx33055_)))) (define |gerbil/core$<more-sugar>[1]#setq-macro::t| - (let ((__tmp52810 (list gerbil/core$<macro-object>#macro-object::t))) + (let ((__tmp52624 (list gerbil/core$<macro-object>#macro-object::t))) (declare (not safe)) (make-class-type 'gerbil.core#setq-macro::t 'setq-macro - __tmp52810 + __tmp52624 '() '() '#f))) @@ -80,12 +80,12 @@ |gerbil/core$<more-sugar>[1]#setq-macro::t| 'macro))) (define |gerbil/core$<more-sugar>[1]#setf-macro::t| - (let ((__tmp52811 (list gerbil/core$<macro-object>#macro-object::t))) + (let ((__tmp52625 (list gerbil/core$<macro-object>#macro-object::t))) (declare (not safe)) (make-class-type 'gerbil.core#setf-macro::t 'setf-macro - __tmp52811 + __tmp52625 '() '() '#f))) @@ -125,20 +125,20 @@ (define |gerbil/core$<more-sugar>[1]#syntax-local-setf-macro?| (lambda (_stx33073_) (if (gx#identifier? _stx33073_) - (let ((__tmp52812 (gx#syntax-local-value _stx33073_ false))) + (let ((__tmp52626 (gx#syntax-local-value _stx33073_ false))) (declare (not safe)) (class-instance? |gerbil/core$<more-sugar>[1]#setf-macro::t| - __tmp52812)) + __tmp52626)) '#f))) (define |gerbil/core$<more-sugar>[1]#syntax-local-setq-macro?| (lambda (_stx33070_) (if (gx#identifier? _stx33070_) - (let ((__tmp52813 (gx#syntax-local-value _stx33070_ false))) + (let ((__tmp52627 (gx#syntax-local-value _stx33070_ false))) (declare (not safe)) (class-instance? |gerbil/core$<more-sugar>[1]#setq-macro::t| - __tmp52813)) + __tmp52627)) '#f))) (define |gerbil/core$<more-sugar>[:0:]#set!| (lambda (_stx33084_) @@ -166,7 +166,7 @@ (lambda (_g3334733358_) ((lambda (_L33361_) (let () - (let ((__tmp52814 + (let ((__tmp52628 (foldr (lambda (_g3337233375_ _g3337333378_) (let () @@ -178,7 +178,7 @@ (cons _L33321_ '())) _L33323_))) (declare (not safe)) - (cons _L33361_ __tmp52814)))) + (cons _L33361_ __tmp52628)))) _g3334733358_)))) (_g3334533381_ (gx#stx-identifier _L33324_ _L33324_ '"-set!"))))) @@ -189,16 +189,16 @@ _stx33084_))) (___kont4919749198_ (lambda (_L33186_ _L33188_) - (let ((__tmp52817 (gx#datum->syntax '#f '%#set!)) - (__tmp52815 - (let ((__tmp52816 + (let ((__tmp52631 (gx#datum->syntax '#f '%#set!)) + (__tmp52629 + (let ((__tmp52630 (let () (declare (not safe)) (cons _L33186_ '())))) (declare (not safe)) - (cons _L33188_ __tmp52816)))) + (cons _L33188_ __tmp52630)))) (declare (not safe)) - (cons __tmp52817 __tmp52815))))) + (cons __tmp52631 __tmp52629))))) (let* ((___match4927749278_ (lambda (_e3313733156_ _hd3313633160_ @@ -361,11 +361,11 @@ (let () (declare (not safe)) (##car _e3310133412_)))) - (if (let ((__tmp52818 + (if (let ((__tmp52632 (gx#datum->syntax '#f 'setfid))) (declare (not safe)) (|gerbil/core$<more-sugar>[1]#syntax-local-setf-macro?| - __tmp52818)) + __tmp52632)) (let ((_L33422_ _hd3310033416_)) (___kont4918949190_ _L33422_)) (if (gx#stx-pair/null? _tl3309933419_) @@ -445,30 +445,30 @@ (##cdr _e3345133476_)))) (if (gx#stx-pair/null? _tl3344933483_) (if (fx>= (gx#stx-length _tl3344933483_) '1) - (let ((_g52819_ + (let ((_g52633_ (gx#syntax-split-splice _tl3344933483_ '1))) (begin - (let ((_g52820_ + (let ((_g52634_ (let () (declare (not safe)) - (if (##values? _g52819_) - (##vector-length _g52819_) + (if (##values? _g52633_) + (##vector-length _g52633_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g52820_ 2))) + (##fx= _g52634_ 2))) (error "Context expects 2 values" - _g52820_))) + _g52634_))) (let ((_target3345233486_ (let () (declare (not safe)) - (##vector-ref _g52819_ 0))) + (##vector-ref _g52633_ 0))) (_tl3345433489_ (let () (declare (not safe)) - (##vector-ref _g52819_ 1)))) + (##vector-ref _g52633_ 1)))) (if (gx#stx-pair? _tl3345433489_) (let ((_e3346333492_ (gx#syntax-e _tl3345433489_))) @@ -511,38 +511,38 @@ (_g3354533635_ (lambda (_g3354733567_) (if (gx#stx-pair/null? _g3354733567_) - (let ((_g52821_ + (let ((_g52635_ (gx#syntax-split-splice _g3354733567_ '0))) (begin - (let ((_g52822_ + (let ((_g52636_ (let () (declare (not safe)) (if (##values? - _g52821_) + _g52635_) (##vector-length - _g52821_) + _g52635_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g52822_ + (##fx= _g52636_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g52822_))) + (error "Context expects 2 values" _g52636_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target3354933570_ (let () (declare (not safe)) (##vector-ref - _g52821_ + _g52635_ 0))) (_tl3355133573_ (let () (declare (not safe)) (##vector-ref - _g52821_ + _g52635_ 1)))) (if (gx#stx-null? _tl3355133573_) @@ -569,14 +569,14 @@ (let ((_$e3355733596_ (reverse _$e3355633583_))) ((lambda (_L33600_) (let () - (let ((__tmp52833 + (let ((__tmp52647 (gx#datum->syntax '#f 'let-values)) - (__tmp52823 - (let ((__tmp52829 - (let ((__tmp52830 - (let ((__tmp52832 + (__tmp52637 + (let ((__tmp52643 + (let ((__tmp52644 + (let ((__tmp52646 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (foldr (lambda (_g3361833621_ _g3361933624_) (let () @@ -584,14 +584,14 @@ (cons _g3361833621_ _g3361933624_))) '() _L33600_)) - (__tmp52831 + (__tmp52645 (let () (declare (not safe)) (cons _L33526_ '())))) (declare (not safe)) - (cons __tmp52832 __tmp52831)))) + (cons __tmp52646 __tmp52645)))) (declare (not safe)) - (cons __tmp52830 '()))) + (cons __tmp52644 '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp52824 + (__tmp52638 (begin (gx#syntax-check-splice-targets _L33600_ @@ -600,27 +600,27 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g3361633630_ _g3361733632_) - (let ((__tmp52825 - (let ((__tmp52828 (gx#datum->syntax '#f 'set!)) - (__tmp52826 - (let ((__tmp52827 + (let ((__tmp52639 + (let ((__tmp52642 (gx#datum->syntax '#f 'set!)) + (__tmp52640 + (let ((__tmp52641 (let () (declare (not safe)) (cons _g3361533627_ '())))) (declare (not safe)) - (cons _g3361633630_ __tmp52827)))) + (cons _g3361633630_ __tmp52641)))) (declare (not safe)) - (cons __tmp52828 __tmp52826)))) + (cons __tmp52642 __tmp52640)))) (declare (not safe)) - (cons __tmp52825 _g3361733632_))) + (cons __tmp52639 _g3361733632_))) '() _L33600_ _L33528_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52829 __tmp52824)))) + (cons __tmp52643 __tmp52638)))) (declare (not safe)) - (cons __tmp52833 __tmp52823)))) + (cons __tmp52647 __tmp52637)))) _$e3355733596_)))))) (_loop3355233576_ _target3354933570_ '())) (_g3354633563_ _g3354733567_))))) @@ -659,9 +659,9 @@ ___stx4928049281_)))) (let ((___kont4928349284_ (lambda (_L34049_) - (let ((__tmp52836 (gx#datum->syntax '#f 'let)) - (__tmp52834 - (let ((__tmp52835 + (let ((__tmp52650 (gx#datum->syntax '#f 'let)) + (__tmp52648 + (let ((__tmp52649 (foldr (lambda (_g3406534068_ _g3406634071_) (let () (declare (not safe)) @@ -669,9 +669,9 @@ '() _L34049_))) (declare (not safe)) - (cons '() __tmp52835)))) + (cons '() __tmp52649)))) (declare (not safe)) - (cons __tmp52836 __tmp52834)))) + (cons __tmp52650 __tmp52648)))) (___kont4928749288_ (lambda (_L33826_ _L33828_ _L33829_) (let* ((_g3385233860_ @@ -693,37 +693,37 @@ (_g3387833960_ (lambda (_g3388033900_) (if (gx#stx-pair/null? _g3388033900_) - (let ((_g52837_ + (let ((_g52651_ (gx#syntax-split-splice _g3388033900_ '0))) (begin - (let ((_g52838_ + (let ((_g52652_ (let () (declare (not safe)) (if (##values? - _g52837_) + _g52651_) (##vector-length - _g52837_) + _g52651_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g52838_ 2))) - (error "Context expects 2 values" _g52838_))) + (##fx= _g52652_ 2))) + (error "Context expects 2 values" _g52652_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target3388233903_ (let () (declare (not safe)) (##vector-ref - _g52837_ + _g52651_ 0))) (_tl3388433906_ (let () (declare (not safe)) (##vector-ref - _g52837_ + _g52651_ 1)))) (if (gx#stx-null? _tl3388433906_) @@ -752,12 +752,12 @@ ((lambda (_L33933_) (let () (let () - (let ((__tmp52841 + (let ((__tmp52655 (gx#datum->syntax '#f 'call-with-parameters)) - (__tmp52839 - (let ((__tmp52840 + (__tmp52653 + (let ((__tmp52654 (foldr (lambda (_g3395133954_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g3395233957_) @@ -768,9 +768,9 @@ _L33933_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L33867_ __tmp52840)))) + (cons _L33867_ __tmp52654)))) (declare (not safe)) - (cons __tmp52841 __tmp52839))))) + (cons __tmp52655 __tmp52653))))) _arg3389033929_)))))) (_loop3388533909_ _target3388233903_ '())) (_g3387933896_ _g3388033900_))))) @@ -800,9 +800,9 @@ _g3385333864_)))) (_g3385133980_ (gx#stx-wrap-source - (let ((__tmp52844 (gx#datum->syntax '#f 'lambda)) - (__tmp52842 - (let ((__tmp52843 + (let ((__tmp52658 (gx#datum->syntax '#f 'lambda)) + (__tmp52656 + (let ((__tmp52657 (foldr (lambda (_g3398333986_ _g3398433989_) (let () (declare (not safe)) @@ -811,9 +811,9 @@ '() _L33826_))) (declare (not safe)) - (cons '() __tmp52843)))) + (cons '() __tmp52657)))) (declare (not safe)) - (cons __tmp52844 __tmp52842)) + (cons __tmp52658 __tmp52656)) (gx#stx-source _stx33653_))))))) (let* ((___match4933549336_ (lambda (_e3368033722_ @@ -1155,30 +1155,30 @@ (declare (not safe)) (##cdr _e3409534127_)))) (if (gx#stx-pair/null? _tl3409334134_) - (let ((_g52845_ + (let ((_g52659_ (gx#syntax-split-splice _tl3409334134_ '0))) (begin - (let ((_g52846_ + (let ((_g52660_ (let () (declare (not safe)) - (if (##values? _g52845_) - (##vector-length _g52845_) + (if (##values? _g52659_) + (##vector-length _g52659_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g52846_ 2))) + (##fx= _g52660_ 2))) (error "Context expects 2 values" - _g52846_))) + _g52660_))) (let ((_target3409634137_ (let () (declare (not safe)) - (##vector-ref _g52845_ 0))) + (##vector-ref _g52659_ 0))) (_tl3409834140_ (let () (declare (not safe)) - (##vector-ref _g52845_ 1)))) + (##vector-ref _g52659_ 1)))) (if (gx#stx-null? _tl3409834140_) (letrec ((_loop3409934143_ (lambda (_hd3409734147_ @@ -1202,23 +1202,23 @@ (let ((_body3410434163_ (reverse _body3410334150_))) ((lambda (_L34167_ _L34169_) (if (gx#identifier? _L34169_) - (let ((__tmp52853 + (let ((__tmp52667 (gx#datum->syntax '#f 'call/cc)) - (__tmp52847 - (let ((__tmp52848 - (let ((__tmp52852 + (__tmp52661 + (let ((__tmp52662 + (let ((__tmp52666 (gx#datum->syntax '#f 'lambda)) - (__tmp52849 - (let ((__tmp52851 + (__tmp52663 + (let ((__tmp52665 (let () (declare (not safe)) (cons _L34169_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) - (__tmp52850 + (__tmp52664 (foldr (lambda (_g3418634189_ _g3418734192_) (let () (declare (not safe)) @@ -1226,14 +1226,14 @@ '() _L34167_))) (declare (not safe)) - (cons __tmp52851 __tmp52850)))) + (cons __tmp52665 __tmp52664)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52852 __tmp52849)))) + (cons __tmp52666 __tmp52663)))) (declare (not safe)) - (cons __tmp52848 '())))) + (cons __tmp52662 '())))) (declare (not safe)) - (cons __tmp52853 __tmp52847)) + (cons __tmp52667 __tmp52661)) (_g3408634110_ _g3408734114_))) _body3410434163_ _hd3409434131_)))))) @@ -1277,30 +1277,30 @@ (declare (not safe)) (##cdr _e3421334245_)))) (if (gx#stx-pair/null? _tl3421134252_) - (let ((_g52854_ + (let ((_g52668_ (gx#syntax-split-splice _tl3421134252_ '0))) (begin - (let ((_g52855_ + (let ((_g52669_ (let () (declare (not safe)) - (if (##values? _g52854_) - (##vector-length _g52854_) + (if (##values? _g52668_) + (##vector-length _g52668_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g52855_ 2))) + (##fx= _g52669_ 2))) (error "Context expects 2 values" - _g52855_))) + _g52669_))) (let ((_target3421434255_ (let () (declare (not safe)) - (##vector-ref _g52854_ 0))) + (##vector-ref _g52668_ 0))) (_tl3421634258_ (let () (declare (not safe)) - (##vector-ref _g52854_ 1)))) + (##vector-ref _g52668_ 1)))) (if (gx#stx-null? _tl3421634258_) (letrec ((_loop3421734261_ (lambda (_hd3421534265_ @@ -1324,23 +1324,23 @@ (let ((_body3422234281_ (reverse _body3422134268_))) ((lambda (_L34285_ _L34287_) (if (gx#identifier? _L34287_) - (let ((__tmp52862 + (let ((__tmp52676 (gx#datum->syntax '#f 'call/esc)) - (__tmp52856 - (let ((__tmp52857 - (let ((__tmp52861 + (__tmp52670 + (let ((__tmp52671 + (let ((__tmp52675 (gx#datum->syntax '#f 'lambda)) - (__tmp52858 - (let ((__tmp52860 + (__tmp52672 + (let ((__tmp52674 (let () (declare (not safe)) (cons _L34287_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) - (__tmp52859 + (__tmp52673 (foldr (lambda (_g3430434307_ _g3430534310_) (let () (declare (not safe)) @@ -1348,14 +1348,14 @@ '() _L34285_))) (declare (not safe)) - (cons __tmp52860 __tmp52859)))) + (cons __tmp52674 __tmp52673)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52861 __tmp52858)))) + (cons __tmp52675 __tmp52672)))) (declare (not safe)) - (cons __tmp52857 '())))) + (cons __tmp52671 '())))) (declare (not safe)) - (cons __tmp52862 __tmp52856)) + (cons __tmp52676 __tmp52670)) (_g3420434228_ _g3420534232_))) _body3422234281_ _hd3421234249_)))))) @@ -1410,38 +1410,38 @@ (declare (not safe)) (##cdr _e3433534377_)))) (if (gx#stx-pair/null? _tl3433334384_) - (let ((_g52863_ + (let ((_g52677_ (gx#syntax-split-splice _tl3433334384_ '0))) (begin - (let ((_g52864_ + (let ((_g52678_ (let () (declare (not safe)) (if (##values? - _g52863_) + _g52677_) (##vector-length - _g52863_) + _g52677_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g52864_ + (##fx= _g52678_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g52864_))) + (error "Context expects 2 values" _g52678_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target3433634387_ (let () (declare (not safe)) (##vector-ref - _g52863_ + _g52677_ 0))) (_tl3433834390_ (let () (declare (not safe)) (##vector-ref - _g52863_ + _g52677_ 1)))) (if (gx#stx-null? _tl3433834390_) @@ -1469,38 +1469,38 @@ (let ((_rest3434434413_ (reverse _rest3434334400_))) ((lambda (_L34417_ _L34419_ _L34420_) - (let ((__tmp52876 + (let ((__tmp52690 (gx#datum->syntax '#f 'with-unwind-protect)) - (__tmp52865 - (let ((__tmp52872 - (let ((__tmp52875 + (__tmp52679 + (let ((__tmp52686 + (let ((__tmp52689 (gx#datum->syntax '#f 'lambda)) - (__tmp52873 - (let ((__tmp52874 + (__tmp52687 + (let ((__tmp52688 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (cons _L34420_ '())))) (declare (not safe)) - (cons '() __tmp52874)))) + (cons '() __tmp52688)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52875 - __tmp52873))) - (__tmp52866 - (let ((__tmp52867 - (let ((__tmp52871 + (cons __tmp52689 + __tmp52687))) + (__tmp52680 + (let ((__tmp52681 + (let ((__tmp52685 (gx#datum->syntax '#f 'lambda)) - (__tmp52868 - (let ((__tmp52869 + (__tmp52682 + (let ((__tmp52683 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp52870 + (let ((__tmp52684 (foldr (lambda (_g3444034443_ _g3444134446_) (let () @@ -1510,18 +1510,18 @@ '() _L34417_))) (declare (not safe)) - (cons _L34419_ __tmp52870)))) + (cons _L34419_ __tmp52684)))) (declare (not safe)) - (cons '() __tmp52869)))) + (cons '() __tmp52683)))) (declare (not safe)) - (cons __tmp52871 __tmp52868)))) + (cons __tmp52685 __tmp52682)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52867 '())))) + (cons __tmp52681 '())))) (declare (not safe)) - (cons __tmp52872 __tmp52866)))) + (cons __tmp52686 __tmp52680)))) (declare (not safe)) - (cons __tmp52876 __tmp52865))) + (cons __tmp52690 __tmp52679))) _rest3434434413_ _hd3433434381_ _hd3433134371_)))))) @@ -1576,13 +1576,13 @@ (lambda (_g3451334524_) ((lambda (_L34527_) (let () - (let ((__tmp52878 + (let ((__tmp52692 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'quote)) - (__tmp52877 + (__tmp52691 (let () (declare (not safe)) (cons _L34527_ '())))) (declare (not safe)) - (cons __tmp52878 __tmp52877)))) + (cons __tmp52692 __tmp52691)))) _g3451334524_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_g3451134539_ diff --git a/src/bootstrap/gerbil/core__13.scm b/src/bootstrap/gerbil/core__13.scm index 7b1b5610..e8aa2875 100644 --- a/src/bootstrap/gerbil/core__13.scm +++ b/src/bootstrap/gerbil/core__13.scm @@ -1,104 +1,104 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core$<more-sugar>[2]#_g52881_| + (define |gerbil/core$<more-sugar>[2]#_g52695_| (##structure gx#syntax-quote::t 'macro-object #f (gx#current-expander-context) '())) - (define |gerbil/core$<more-sugar>[2]#_g52883_| + (define |gerbil/core$<more-sugar>[2]#_g52697_| (##structure gx#syntax-quote::t 'setq-macro::t #f (gx#current-expander-context) '())) - (define |gerbil/core$<more-sugar>[2]#_g52885_| + (define |gerbil/core$<more-sugar>[2]#_g52699_| (##structure gx#syntax-quote::t 'make-setq-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$<more-sugar>[2]#_g52887_| + (define |gerbil/core$<more-sugar>[2]#_g52701_| (##structure gx#syntax-quote::t 'setq-macro? #f (gx#current-expander-context) '())) - (define |gerbil/core$<more-sugar>[2]#_g52891_| + (define |gerbil/core$<more-sugar>[2]#_g52705_| (##structure gx#syntax-quote::t 'setq-macro-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$<more-sugar>[2]#_g52895_| + (define |gerbil/core$<more-sugar>[2]#_g52709_| (##structure gx#syntax-quote::t 'setq-macro-macro-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<more-sugar>[2]#_g52899_| + (define |gerbil/core$<more-sugar>[2]#_g52713_| (##structure gx#syntax-quote::t '&setq-macro-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$<more-sugar>[2]#_g52903_| + (define |gerbil/core$<more-sugar>[2]#_g52717_| (##structure gx#syntax-quote::t '&setq-macro-macro-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<more-sugar>[2]#_g52907_| + (define |gerbil/core$<more-sugar>[2]#_g52721_| (##structure gx#syntax-quote::t 'setf-macro::t #f (gx#current-expander-context) '())) - (define |gerbil/core$<more-sugar>[2]#_g52909_| + (define |gerbil/core$<more-sugar>[2]#_g52723_| (##structure gx#syntax-quote::t 'make-setf-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$<more-sugar>[2]#_g52911_| + (define |gerbil/core$<more-sugar>[2]#_g52725_| (##structure gx#syntax-quote::t 'setf-macro? #f (gx#current-expander-context) '())) - (define |gerbil/core$<more-sugar>[2]#_g52915_| + (define |gerbil/core$<more-sugar>[2]#_g52729_| (##structure gx#syntax-quote::t 'setf-macro-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$<more-sugar>[2]#_g52919_| + (define |gerbil/core$<more-sugar>[2]#_g52733_| (##structure gx#syntax-quote::t 'setf-macro-macro-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<more-sugar>[2]#_g52923_| + (define |gerbil/core$<more-sugar>[2]#_g52737_| (##structure gx#syntax-quote::t '&setf-macro-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$<more-sugar>[2]#_g52927_| + (define |gerbil/core$<more-sugar>[2]#_g52741_| (##structure gx#syntax-quote::t '&setf-macro-macro-set! @@ -151,14 +151,14 @@ '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp52879 - (let ((__tmp52880 |gerbil/core$<more-sugar>[2]#_g52881_|)) + (let ((__tmp52693 + (let ((__tmp52694 |gerbil/core$<more-sugar>[2]#_g52695_|)) (declare (not safe)) - (cons __tmp52880 '())))) + (cons __tmp52694 '())))) (declare (not safe)) (##unchecked-structure-set! __obj49643 - __tmp52879 + __tmp52693 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) @@ -194,87 +194,87 @@ '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp52882 |gerbil/core$<more-sugar>[2]#_g52883_|)) + (let ((__tmp52696 |gerbil/core$<more-sugar>[2]#_g52697_|)) (declare (not safe)) (##unchecked-structure-set! __obj49643 - __tmp52882 + __tmp52696 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp52884 |gerbil/core$<more-sugar>[2]#_g52885_|)) + (let ((__tmp52698 |gerbil/core$<more-sugar>[2]#_g52699_|)) (declare (not safe)) (##unchecked-structure-set! __obj49643 - __tmp52884 + __tmp52698 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp52886 |gerbil/core$<more-sugar>[2]#_g52887_|)) + (let ((__tmp52700 |gerbil/core$<more-sugar>[2]#_g52701_|)) (declare (not safe)) (##unchecked-structure-set! __obj49643 - __tmp52886 + __tmp52700 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp52888 - (let ((__tmp52889 - (let ((__tmp52890 - |gerbil/core$<more-sugar>[2]#_g52891_|)) + (let ((__tmp52702 + (let ((__tmp52703 + (let ((__tmp52704 + |gerbil/core$<more-sugar>[2]#_g52705_|)) (declare (not safe)) - (cons 'macro __tmp52890)))) + (cons 'macro __tmp52704)))) (declare (not safe)) - (cons __tmp52889 '())))) + (cons __tmp52703 '())))) (declare (not safe)) (##unchecked-structure-set! __obj49643 - __tmp52888 + __tmp52702 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp52892 - (let ((__tmp52893 - (let ((__tmp52894 - |gerbil/core$<more-sugar>[2]#_g52895_|)) + (let ((__tmp52706 + (let ((__tmp52707 + (let ((__tmp52708 + |gerbil/core$<more-sugar>[2]#_g52709_|)) (declare (not safe)) - (cons 'macro __tmp52894)))) + (cons 'macro __tmp52708)))) (declare (not safe)) - (cons __tmp52893 '())))) + (cons __tmp52707 '())))) (declare (not safe)) (##unchecked-structure-set! __obj49643 - __tmp52892 + __tmp52706 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp52896 - (let ((__tmp52897 - (let ((__tmp52898 - |gerbil/core$<more-sugar>[2]#_g52899_|)) + (let ((__tmp52710 + (let ((__tmp52711 + (let ((__tmp52712 + |gerbil/core$<more-sugar>[2]#_g52713_|)) (declare (not safe)) - (cons 'macro __tmp52898)))) + (cons 'macro __tmp52712)))) (declare (not safe)) - (cons __tmp52897 '())))) + (cons __tmp52711 '())))) (declare (not safe)) (##unchecked-structure-set! __obj49643 - __tmp52896 + __tmp52710 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp52900 - (let ((__tmp52901 - (let ((__tmp52902 - |gerbil/core$<more-sugar>[2]#_g52903_|)) + (let ((__tmp52714 + (let ((__tmp52715 + (let ((__tmp52716 + |gerbil/core$<more-sugar>[2]#_g52717_|)) (declare (not safe)) - (cons 'macro __tmp52902)))) + (cons 'macro __tmp52716)))) (declare (not safe)) - (cons __tmp52901 '())))) + (cons __tmp52715 '())))) (declare (not safe)) (##unchecked-structure-set! __obj49643 - __tmp52900 + __tmp52714 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) @@ -324,14 +324,14 @@ '4 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp52904 - (let ((__tmp52905 |gerbil/core$<more-sugar>[2]#_g52881_|)) + (let ((__tmp52718 + (let ((__tmp52719 |gerbil/core$<more-sugar>[2]#_g52695_|)) (declare (not safe)) - (cons __tmp52905 '())))) + (cons __tmp52719 '())))) (declare (not safe)) (##unchecked-structure-set! __obj49644 - __tmp52904 + __tmp52718 '3 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) @@ -367,87 +367,87 @@ '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp52906 |gerbil/core$<more-sugar>[2]#_g52907_|)) + (let ((__tmp52720 |gerbil/core$<more-sugar>[2]#_g52721_|)) (declare (not safe)) (##unchecked-structure-set! __obj49644 - __tmp52906 + __tmp52720 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp52908 |gerbil/core$<more-sugar>[2]#_g52909_|)) + (let ((__tmp52722 |gerbil/core$<more-sugar>[2]#_g52723_|)) (declare (not safe)) (##unchecked-structure-set! __obj49644 - __tmp52908 + __tmp52722 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp52910 |gerbil/core$<more-sugar>[2]#_g52911_|)) + (let ((__tmp52724 |gerbil/core$<more-sugar>[2]#_g52725_|)) (declare (not safe)) (##unchecked-structure-set! __obj49644 - __tmp52910 + __tmp52724 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp52912 - (let ((__tmp52913 - (let ((__tmp52914 - |gerbil/core$<more-sugar>[2]#_g52915_|)) + (let ((__tmp52726 + (let ((__tmp52727 + (let ((__tmp52728 + |gerbil/core$<more-sugar>[2]#_g52729_|)) (declare (not safe)) - (cons 'macro __tmp52914)))) + (cons 'macro __tmp52728)))) (declare (not safe)) - (cons __tmp52913 '())))) + (cons __tmp52727 '())))) (declare (not safe)) (##unchecked-structure-set! __obj49644 - __tmp52912 + __tmp52726 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp52916 - (let ((__tmp52917 - (let ((__tmp52918 - |gerbil/core$<more-sugar>[2]#_g52919_|)) + (let ((__tmp52730 + (let ((__tmp52731 + (let ((__tmp52732 + |gerbil/core$<more-sugar>[2]#_g52733_|)) (declare (not safe)) - (cons 'macro __tmp52918)))) + (cons 'macro __tmp52732)))) (declare (not safe)) - (cons __tmp52917 '())))) + (cons __tmp52731 '())))) (declare (not safe)) (##unchecked-structure-set! __obj49644 - __tmp52916 + __tmp52730 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp52920 - (let ((__tmp52921 - (let ((__tmp52922 - |gerbil/core$<more-sugar>[2]#_g52923_|)) + (let ((__tmp52734 + (let ((__tmp52735 + (let ((__tmp52736 + |gerbil/core$<more-sugar>[2]#_g52737_|)) (declare (not safe)) - (cons 'macro __tmp52922)))) + (cons 'macro __tmp52736)))) (declare (not safe)) - (cons __tmp52921 '())))) + (cons __tmp52735 '())))) (declare (not safe)) (##unchecked-structure-set! __obj49644 - __tmp52920 + __tmp52734 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp52924 - (let ((__tmp52925 - (let ((__tmp52926 - |gerbil/core$<more-sugar>[2]#_g52927_|)) + (let ((__tmp52738 + (let ((__tmp52739 + (let ((__tmp52740 + |gerbil/core$<more-sugar>[2]#_g52741_|)) (declare (not safe)) - (cons 'macro __tmp52926)))) + (cons 'macro __tmp52740)))) (declare (not safe)) - (cons __tmp52925 '())))) + (cons __tmp52739 '())))) (declare (not safe)) (##unchecked-structure-set! __obj49644 - __tmp52924 + __tmp52738 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) diff --git a/src/bootstrap/gerbil/core__14.scm b/src/bootstrap/gerbil/core__14.scm index 79bdea69..16b1e13d 100644 --- a/src/bootstrap/gerbil/core__14.scm +++ b/src/bootstrap/gerbil/core__14.scm @@ -21,23 +21,23 @@ (declare (not safe)) (##cdr _e3455934572_)))) ((lambda (_L34582_) - (let ((__tmp52932 + (let ((__tmp52746 (gx#datum->syntax '#f 'make-setq-macro)) - (__tmp52928 - (let ((__tmp52929 - (let ((__tmp52930 - (let ((__tmp52931 + (__tmp52742 + (let ((__tmp52743 + (let ((__tmp52744 + (let ((__tmp52745 (gx#datum->syntax '#f 'syntax-rules))) (declare (not safe)) - (cons __tmp52931 _L34582_)))) + (cons __tmp52745 _L34582_)))) (declare (not safe)) - (cons __tmp52930 '())))) + (cons __tmp52744 '())))) (declare (not safe)) - (cons 'macro: __tmp52929)))) + (cons 'macro: __tmp52743)))) (declare (not safe)) - (cons __tmp52932 __tmp52928))) + (cons __tmp52746 __tmp52742))) _tl3455734579_))) (_g3455434565_ _g3455534569_))))) (_g3455334595_ _$stx34550_)))) diff --git a/src/bootstrap/gerbil/core__15.scm b/src/bootstrap/gerbil/core__15.scm index 3aa97ce8..fe56ddc3 100644 --- a/src/bootstrap/gerbil/core__15.scm +++ b/src/bootstrap/gerbil/core__15.scm @@ -11,52 +11,52 @@ ___stx4933849339_)))) (let ((___kont4934149342_ (lambda () - (let ((__tmp52933 (gx#datum->syntax '#f 'begin))) + (let ((__tmp52747 (gx#datum->syntax '#f 'begin))) (declare (not safe)) - (cons __tmp52933 '())))) + (cons __tmp52747 '())))) (___kont4934349344_ (lambda (_L34665_ _L34667_ _L34668_) - (let ((__tmp52946 (gx#datum->syntax '#f 'cond-expand)) - (__tmp52934 - (let ((__tmp52943 - (let ((__tmp52944 - (let ((__tmp52945 + (let ((__tmp52760 (gx#datum->syntax '#f 'cond-expand)) + (__tmp52748 + (let ((__tmp52757 + (let ((__tmp52758 + (let ((__tmp52759 (let () (declare (not safe)) (cons _L34668_ _L34665_)))) (declare (not safe)) - (cons __tmp52945 '())))) + (cons __tmp52759 '())))) (declare (not safe)) - (cons _L34667_ __tmp52944))) - (__tmp52935 - (let ((__tmp52936 - (let ((__tmp52942 + (cons _L34667_ __tmp52758))) + (__tmp52749 + (let ((__tmp52750 + (let ((__tmp52756 (gx#datum->syntax '#f 'else)) - (__tmp52937 - (let ((__tmp52938 - (let ((__tmp52941 + (__tmp52751 + (let ((__tmp52752 + (let ((__tmp52755 (gx#datum->syntax '#f 'syntax-error)) - (__tmp52939 - (let ((__tmp52940 + (__tmp52753 + (let ((__tmp52754 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _L34667_ '())))) (declare (not safe)) - (cons '"Missing required feature" __tmp52940)))) + (cons '"Missing required feature" __tmp52754)))) (declare (not safe)) - (cons __tmp52941 __tmp52939)))) + (cons __tmp52755 __tmp52753)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp52938 '())))) + (cons __tmp52752 '())))) (declare (not safe)) - (cons __tmp52942 __tmp52937)))) + (cons __tmp52756 __tmp52751)))) (declare (not safe)) - (cons __tmp52936 '())))) + (cons __tmp52750 '())))) (declare (not safe)) - (cons __tmp52943 __tmp52935)))) + (cons __tmp52757 __tmp52749)))) (declare (not safe)) - (cons __tmp52946 __tmp52934))))) + (cons __tmp52760 __tmp52748))))) (if (gx#stx-pair? ___stx4933849339_) (let ((_e3462334691_ (gx#syntax-e ___stx4933849339_))) (let ((_tl3462134698_ @@ -92,35 +92,35 @@ ___stx4936849369_)))) (let ((___kont4937149372_ (lambda (_L34892_ _L34894_) - (let ((__tmp52952 (gx#datum->syntax '#f 'defsyntax)) - (__tmp52947 - (let ((__tmp52948 - (let ((__tmp52949 - (let ((__tmp52951 + (let ((__tmp52766 (gx#datum->syntax '#f 'defsyntax)) + (__tmp52761 + (let ((__tmp52762 + (let ((__tmp52763 + (let ((__tmp52765 (gx#datum->syntax '#f 'make-import-expander)) - (__tmp52950 + (__tmp52764 (let () (declare (not safe)) (cons _L34892_ '())))) (declare (not safe)) - (cons __tmp52951 __tmp52950)))) + (cons __tmp52765 __tmp52764)))) (declare (not safe)) - (cons __tmp52949 '())))) + (cons __tmp52763 '())))) (declare (not safe)) - (cons _L34894_ __tmp52948)))) + (cons _L34894_ __tmp52762)))) (declare (not safe)) - (cons __tmp52952 __tmp52947)))) + (cons __tmp52766 __tmp52761)))) (___kont4937349374_ (lambda (_L34821_ _L34823_ _L34824_ _L34825_) - (let ((__tmp52953 - (let ((__tmp52954 - (let ((__tmp52955 - (let ((__tmp52958 + (let ((__tmp52767 + (let ((__tmp52768 + (let ((__tmp52769 + (let ((__tmp52772 (gx#datum->syntax '#f 'lambda)) - (__tmp52956 - (let ((__tmp52957 + (__tmp52770 + (let ((__tmp52771 (foldr (lambda (_g3484634849_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g3484734852_) @@ -131,15 +131,15 @@ _L34821_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L34823_ __tmp52957)))) + (cons _L34823_ __tmp52771)))) (declare (not safe)) - (cons __tmp52958 __tmp52956)))) + (cons __tmp52772 __tmp52770)))) (declare (not safe)) - (cons __tmp52955 '())))) + (cons __tmp52769 '())))) (declare (not safe)) - (cons _L34824_ __tmp52954)))) + (cons _L34824_ __tmp52768)))) (declare (not safe)) - (cons _L34825_ __tmp52953))))) + (cons _L34825_ __tmp52767))))) (let* ((___match4942349424_ (lambda (_e3473334761_ _hd3473234765_ @@ -405,35 +405,35 @@ ___stx4942649427_)))) (let ((___kont4942949430_ (lambda (_L35097_ _L35099_) - (let ((__tmp52964 (gx#datum->syntax '#f 'defsyntax)) - (__tmp52959 - (let ((__tmp52960 - (let ((__tmp52961 - (let ((__tmp52963 + (let ((__tmp52778 (gx#datum->syntax '#f 'defsyntax)) + (__tmp52773 + (let ((__tmp52774 + (let ((__tmp52775 + (let ((__tmp52777 (gx#datum->syntax '#f 'make-export-expander)) - (__tmp52962 + (__tmp52776 (let () (declare (not safe)) (cons _L35097_ '())))) (declare (not safe)) - (cons __tmp52963 __tmp52962)))) + (cons __tmp52777 __tmp52776)))) (declare (not safe)) - (cons __tmp52961 '())))) + (cons __tmp52775 '())))) (declare (not safe)) - (cons _L35099_ __tmp52960)))) + (cons _L35099_ __tmp52774)))) (declare (not safe)) - (cons __tmp52964 __tmp52959)))) + (cons __tmp52778 __tmp52773)))) (___kont4943149432_ (lambda (_L35026_ _L35028_ _L35029_ _L35030_) - (let ((__tmp52965 - (let ((__tmp52966 - (let ((__tmp52967 - (let ((__tmp52970 + (let ((__tmp52779 + (let ((__tmp52780 + (let ((__tmp52781 + (let ((__tmp52784 (gx#datum->syntax '#f 'lambda)) - (__tmp52968 - (let ((__tmp52969 + (__tmp52782 + (let ((__tmp52783 (foldr (lambda (_g3505135054_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g3505235057_) @@ -444,15 +444,15 @@ _L35026_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L35028_ __tmp52969)))) + (cons _L35028_ __tmp52783)))) (declare (not safe)) - (cons __tmp52970 __tmp52968)))) + (cons __tmp52784 __tmp52782)))) (declare (not safe)) - (cons __tmp52967 '())))) + (cons __tmp52781 '())))) (declare (not safe)) - (cons _L35029_ __tmp52966)))) + (cons _L35029_ __tmp52780)))) (declare (not safe)) - (cons _L35030_ __tmp52965))))) + (cons _L35030_ __tmp52779))))) (let* ((___match4948149482_ (lambda (_e3493834966_ _hd3493734970_ @@ -718,35 +718,35 @@ ___stx4948449485_)))) (let ((___kont4948749488_ (lambda (_L35302_ _L35304_) - (let ((__tmp52976 (gx#datum->syntax '#f 'defsyntax)) - (__tmp52971 - (let ((__tmp52972 - (let ((__tmp52973 - (let ((__tmp52975 + (let ((__tmp52790 (gx#datum->syntax '#f 'defsyntax)) + (__tmp52785 + (let ((__tmp52786 + (let ((__tmp52787 + (let ((__tmp52789 (gx#datum->syntax '#f 'make-import-export-expander)) - (__tmp52974 + (__tmp52788 (let () (declare (not safe)) (cons _L35302_ '())))) (declare (not safe)) - (cons __tmp52975 __tmp52974)))) + (cons __tmp52789 __tmp52788)))) (declare (not safe)) - (cons __tmp52973 '())))) + (cons __tmp52787 '())))) (declare (not safe)) - (cons _L35304_ __tmp52972)))) + (cons _L35304_ __tmp52786)))) (declare (not safe)) - (cons __tmp52976 __tmp52971)))) + (cons __tmp52790 __tmp52785)))) (___kont4948949490_ (lambda (_L35231_ _L35233_ _L35234_ _L35235_) - (let ((__tmp52977 - (let ((__tmp52978 - (let ((__tmp52979 - (let ((__tmp52982 + (let ((__tmp52791 + (let ((__tmp52792 + (let ((__tmp52793 + (let ((__tmp52796 (gx#datum->syntax '#f 'lambda)) - (__tmp52980 - (let ((__tmp52981 + (__tmp52794 + (let ((__tmp52795 (foldr (lambda (_g3525635259_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g3525735262_) @@ -757,15 +757,15 @@ _L35231_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L35233_ __tmp52981)))) + (cons _L35233_ __tmp52795)))) (declare (not safe)) - (cons __tmp52982 __tmp52980)))) + (cons __tmp52796 __tmp52794)))) (declare (not safe)) - (cons __tmp52979 '())))) + (cons __tmp52793 '())))) (declare (not safe)) - (cons _L35234_ __tmp52978)))) + (cons _L35234_ __tmp52792)))) (declare (not safe)) - (cons _L35235_ __tmp52977))))) + (cons _L35235_ __tmp52791))))) (let* ((___match4953949540_ (lambda (_e3514335171_ _hd3514235175_ @@ -1042,30 +1042,30 @@ (declare (not safe)) (##cdr _e3533235354_)))) (if (gx#stx-pair/null? _tl3533035361_) - (let ((_g52983_ + (let ((_g52797_ (gx#syntax-split-splice _tl3533035361_ '0))) (begin - (let ((_g52984_ + (let ((_g52798_ (let () (declare (not safe)) - (if (##values? _g52983_) - (##vector-length _g52983_) + (if (##values? _g52797_) + (##vector-length _g52797_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g52984_ 2))) + (##fx= _g52798_ 2))) (error "Context expects 2 values" - _g52984_))) + _g52798_))) (let ((_target3533335364_ (let () (declare (not safe)) - (##vector-ref _g52983_ 0))) + (##vector-ref _g52797_ 0))) (_tl3533535367_ (let () (declare (not safe)) - (##vector-ref _g52983_ 1)))) + (##vector-ref _g52797_ 1)))) (if (gx#stx-null? _tl3533535367_) (letrec ((_loop3533635370_ (lambda (_hd3533435374_ @@ -1089,8 +1089,8 @@ (cons _lp-hd3533835384_ _body3534035377_))))) (let ((_body3534135390_ (reverse _body3534035377_))) ((lambda (_L35394_) - (let ((__tmp52985 - (let ((__tmp52986 + (let ((__tmp52799 + (let ((__tmp52800 (foldr (lambda (_g3540935412_ _g3541035415_) (let () (declare (not safe)) @@ -1099,9 +1099,9 @@ '() _L35394_))) (declare (not safe)) - (cons '1 __tmp52986)))) + (cons '1 __tmp52800)))) (declare (not safe)) - (cons 'phi: __tmp52985))) + (cons 'phi: __tmp52799))) _body3534135390_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_loop3533635370_ @@ -1133,30 +1133,30 @@ (declare (not safe)) (##cdr _e3543135453_)))) (if (gx#stx-pair/null? _tl3542935460_) - (let ((_g52987_ + (let ((_g52801_ (gx#syntax-split-splice _tl3542935460_ '0))) (begin - (let ((_g52988_ + (let ((_g52802_ (let () (declare (not safe)) - (if (##values? _g52987_) - (##vector-length _g52987_) + (if (##values? _g52801_) + (##vector-length _g52801_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g52988_ 2))) + (##fx= _g52802_ 2))) (error "Context expects 2 values" - _g52988_))) + _g52802_))) (let ((_target3543235463_ (let () (declare (not safe)) - (##vector-ref _g52987_ 0))) + (##vector-ref _g52801_ 0))) (_tl3543435466_ (let () (declare (not safe)) - (##vector-ref _g52987_ 1)))) + (##vector-ref _g52801_ 1)))) (if (gx#stx-null? _tl3543435466_) (letrec ((_loop3543535469_ (lambda (_hd3543335473_ @@ -1180,8 +1180,8 @@ (cons _lp-hd3543735483_ _body3543935476_))))) (let ((_body3544035489_ (reverse _body3543935476_))) ((lambda (_L35493_) - (let ((__tmp52989 - (let ((__tmp52990 + (let ((__tmp52803 + (let ((__tmp52804 (foldr (lambda (_g3550835511_ _g3550935514_) (let () (declare (not safe)) @@ -1190,9 +1190,9 @@ '() _L35493_))) (declare (not safe)) - (cons '-1 __tmp52990)))) + (cons '-1 __tmp52804)))) (declare (not safe)) - (cons 'phi: __tmp52989))) + (cons 'phi: __tmp52803))) _body3544035489_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_loop3543535469_ @@ -1235,31 +1235,31 @@ (declare (not safe)) (##cdr _e3553435566_)))) (if (gx#stx-pair/null? _tl3553235573_) - (let ((_g52991_ + (let ((_g52805_ (gx#syntax-split-splice _tl3553235573_ '0))) (begin - (let ((_g52992_ + (let ((_g52806_ (let () (declare (not safe)) - (if (##values? _g52991_) + (if (##values? _g52805_) (##vector-length - _g52991_) + _g52805_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g52992_ 2))) + (##fx= _g52806_ 2))) (error "Context expects 2 values" - _g52992_))) + _g52806_))) (let ((_target3553535576_ (let () (declare (not safe)) - (##vector-ref _g52991_ 0))) + (##vector-ref _g52805_ 0))) (_tl3553735579_ (let () (declare (not safe)) - (##vector-ref _g52991_ 1)))) + (##vector-ref _g52805_ 1)))) (if (gx#stx-null? _tl3553735579_) (letrec ((_loop3553835582_ (lambda (_hd3553635586_ @@ -1324,11 +1324,11 @@ (lambda (_in35662_ _r35664_) (if (gx#module-import? _in35662_) - (if (let ((__tmp52993 + (if (let ((__tmp52807 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#module-import-name _in35662_))) (declare (not safe)) - (hash-get _keytab35653_ __tmp52993)) + (hash-get _keytab35653_ __tmp52807)) (let () (declare (not safe)) (cons _in35662_ _r35664_)) _r35664_) (if (gx#import-set? _in35662_) @@ -1338,12 +1338,12 @@ _r35664_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _fold-e35659_))) - (let ((__tmp52994 + (let ((__tmp52808 (foldl _fold-e35666_ '() _imports35656_))) (declare (not safe)) - (cons 'begin: __tmp52994))) + (cons 'begin: __tmp52808))) (_g3552535549_ _g3552635553_))) _id3554335602_ _hd3553335570_)))))) @@ -1390,31 +1390,31 @@ (declare (not safe)) (##cdr _e3568835720_)))) (if (gx#stx-pair/null? _tl3568635727_) - (let ((_g52995_ + (let ((_g52809_ (gx#syntax-split-splice _tl3568635727_ '0))) (begin - (let ((_g52996_ + (let ((_g52810_ (let () (declare (not safe)) - (if (##values? _g52995_) + (if (##values? _g52809_) (##vector-length - _g52995_) + _g52809_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g52996_ 2))) + (##fx= _g52810_ 2))) (error "Context expects 2 values" - _g52996_))) + _g52810_))) (let ((_target3568935730_ (let () (declare (not safe)) - (##vector-ref _g52995_ 0))) + (##vector-ref _g52809_ 0))) (_tl3569135733_ (let () (declare (not safe)) - (##vector-ref _g52995_ 1)))) + (##vector-ref _g52809_ 1)))) (if (gx#stx-null? _tl3569135733_) (letrec ((_loop3569235736_ (lambda (_hd3569035740_ @@ -1479,11 +1479,11 @@ (lambda (_in35816_ _r35818_) (if (gx#module-import? _in35816_) - (if (let ((__tmp52997 + (if (let ((__tmp52811 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#module-import-name _in35816_))) (declare (not safe)) - (hash-get _keytab35807_ __tmp52997)) + (hash-get _keytab35807_ __tmp52811)) _r35818_ (let () (declare (not safe)) (cons _in35816_ _r35818_))) (if (gx#import-set? _in35816_) @@ -1495,12 +1495,12 @@ (cons _in35816_ _r35818_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _fold-e35813_))) - (let ((__tmp52998 + (let ((__tmp52812 (foldl _fold-e35820_ '() _imports35810_))) (declare (not safe)) - (cons 'begin: __tmp52998))) + (cons 'begin: __tmp52812))) (_g3567935703_ _g3568035707_))) _id3569735756_ _hd3568735724_)))))) @@ -1528,9 +1528,9 @@ (lambda () (make-symbol _pre35832_ _name35830_))) (_K3583735861_ (lambda (_mark35857_ _id35859_) - (let ((__tmp52999 (make-symbol _pre35832_ _id35859_))) + (let ((__tmp52813 (make-symbol _pre35832_ _id35859_))) (declare (not safe)) - (cons __tmp52999 _mark35857_))))) + (cons __tmp52813 _mark35857_))))) (if (let () (declare (not safe)) (##pair? _name3583335841_)) (let ((_hd3583835865_ (let () (declare (not safe)) (##car _name3583335841_))) @@ -1573,31 +1573,31 @@ (declare (not safe)) (##cdr _e3589435934_)))) (if (gx#stx-pair/null? _tl3589235941_) - (let ((_g53000_ + (let ((_g52814_ (gx#syntax-split-splice _tl3589235941_ '0))) (begin - (let ((_g53001_ + (let ((_g52815_ (let () (declare (not safe)) - (if (##values? _g53000_) + (if (##values? _g52814_) (##vector-length - _g53000_) + _g52814_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g53001_ 2))) + (##fx= _g52815_ 2))) (error "Context expects 2 values" - _g53001_))) + _g52815_))) (let ((_target3589535944_ (let () (declare (not safe)) - (##vector-ref _g53000_ 0))) + (##vector-ref _g52814_ 0))) (_tl3589735947_ (let () (declare (not safe)) - (##vector-ref _g53000_ 1)))) + (##vector-ref _g52814_ 1)))) (if (gx#stx-null? _tl3589735947_) (letrec ((_loop3589835950_ (lambda (_hd3589635954_ @@ -1679,20 +1679,20 @@ (let () (declare (not safe)) (make-hash-table))) - (_g53004_ + (_g52818_ (for-each (lambda (_id36042_ _new-id36044_) - (let ((__tmp53003 + (let ((__tmp52817 (gx#core-identifier-key _id36042_)) - (__tmp53002 + (__tmp52816 (gx#core-identifier-key _new-id36044_))) (declare (not safe)) (hash-put! _keytab36036_ - __tmp53003 - __tmp53002))) + __tmp52817 + __tmp52816))) (foldr (lambda (_g3604536048_ _g3604636051_) (let () @@ -1730,14 +1730,14 @@ (let () (declare (not safe)) (hash-put! _found36039_ _name36074_ '#t)) - (let ((__tmp53005 + (let ((__tmp52819 (let () (declare (not safe)) (|gerbil/core$<module-sugar>[1]#module-import-rename| _in36070_ _rename36081_)))) (declare (not safe)) - (cons __tmp53005 _r36072_))) + (cons __tmp52819 _r36072_))) _$e36077_) (let () (declare (not safe)) (cons _in36070_ _r36072_)))) (if (gx#import-set? _in36070_) @@ -1755,11 +1755,11 @@ _imports36064_))) (for-each (lambda (_id36092_) - (if (let ((__tmp53006 + (if (let ((__tmp52820 (gx#core-identifier-key _id36092_))) (declare (not safe)) - (hash-get _found36039_ __tmp53006)) + (hash-get _found36039_ __tmp52820)) '#!void (gx#raise-syntax-error '#f @@ -1856,17 +1856,17 @@ (letrec ((_fold-e36197_ (lambda (_in36200_ _r36202_) (if (gx#module-import? _in36200_) - (let ((__tmp53007 - (let ((__tmp53008 + (let ((__tmp52821 + (let ((__tmp52822 (_rename-e36194_ (gx#module-import-name _in36200_)))) (declare (not safe)) (|gerbil/core$<module-sugar>[1]#module-import-rename| _in36200_ - __tmp53008)))) + __tmp52822)))) (declare (not safe)) - (cons __tmp53007 _r36202_)) + (cons __tmp52821 _r36202_)) (if (gx#import-set? _in36200_) (foldl _fold-e36197_ _r36202_ @@ -1876,9 +1876,9 @@ (declare (not safe)) (cons _in36200_ _r36202_))))))) _fold-e36197_))) - (let ((__tmp53009 (foldl _fold-e36204_ '() _imports36188_))) + (let ((__tmp52823 (foldl _fold-e36204_ '() _imports36188_))) (declare (not safe)) - (cons 'begin: __tmp53009))) + (cons 'begin: __tmp52823))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_g3611236130_ _g3611336134_))) @@ -2066,32 +2066,32 @@ (declare (not safe)) (##cdr _e3622936261_)))) (if (gx#stx-pair/null? _tl3622736268_) - (let ((_g53010_ + (let ((_g52824_ (gx#syntax-split-splice _tl3622736268_ '0))) (begin - (let ((_g53011_ + (let ((_g52825_ (let () (declare (not safe)) - (if (##values? _g53010_) + (if (##values? _g52824_) (##vector-length - _g53010_) + _g52824_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g53011_ 2))) + (##fx= _g52825_ 2))) (error "Context expects 2 values" - _g53011_))) + _g52825_))) (let ((_target3623036271_ (let () (declare (not safe)) - (##vector-ref _g53010_ 0))) + (##vector-ref _g52824_ 0))) (_tl3623236274_ (let () (declare (not safe)) (##vector-ref - _g53010_ + _g52824_ 1)))) (if (gx#stx-null? _tl3623236274_) (letrec ((_loop3623336277_ @@ -2115,7 +2115,7 @@ (cons _lp-hd3623536291_ _mod3623736284_))))) (let ((_mod3623836297_ (reverse _mod3623736284_))) ((lambda (_L36301_ _L36303_) - (let ((__tmp53012 + (let ((__tmp52826 (_flatten36216_ (map (lambda (_g3632136323_) (_expand-path36218_ @@ -2130,7 +2130,7 @@ '() _L36301_))))) (declare (not safe)) - (cons 'begin: __tmp53012))) + (cons 'begin: __tmp52826))) _mod3623836297_ _hd3622836265_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -2176,31 +2176,31 @@ (declare (not safe)) (##cdr _e3649236524_)))) (if (gx#stx-pair/null? _tl3649036531_) - (let ((_g53013_ + (let ((_g52827_ (gx#syntax-split-splice _tl3649036531_ '0))) (begin - (let ((_g53014_ + (let ((_g52828_ (let () (declare (not safe)) - (if (##values? _g53013_) + (if (##values? _g52827_) (##vector-length - _g53013_) + _g52827_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g53014_ 2))) + (##fx= _g52828_ 2))) (error "Context expects 2 values" - _g53014_))) + _g52828_))) (let ((_target3649336534_ (let () (declare (not safe)) - (##vector-ref _g53013_ 0))) + (##vector-ref _g52827_ 0))) (_tl3649536537_ (let () (declare (not safe)) - (##vector-ref _g53013_ 1)))) + (##vector-ref _g52827_ 1)))) (if (gx#stx-null? _tl3649536537_) (letrec ((_loop3649636540_ (lambda (_hd3649436544_ @@ -2265,11 +2265,11 @@ (lambda (_out36620_ _r36622_) (if (gx#module-export? _out36620_) - (if (let ((__tmp53015 + (if (let ((__tmp52829 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#module-export-name _out36620_))) (declare (not safe)) - (hash-get _keytab36611_ __tmp53015)) + (hash-get _keytab36611_ __tmp52829)) _r36622_ (let () (declare (not safe)) (cons _out36620_ _r36622_))) (if (gx#export-set? _out36620_) @@ -2279,12 +2279,12 @@ _r36622_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _fold-e36617_))) - (let ((__tmp53016 + (let ((__tmp52830 (foldl _fold-e36624_ '() _exports36614_))) (declare (not safe)) - (cons 'begin: __tmp53016))) + (cons 'begin: __tmp52830))) (_g3648336507_ _g3648436511_))) _id3650136560_ _hd3649136528_)))))) @@ -2339,31 +2339,31 @@ (declare (not safe)) (##cdr _e3665136691_)))) (if (gx#stx-pair/null? _tl3664936698_) - (let ((_g53017_ + (let ((_g52831_ (gx#syntax-split-splice _tl3664936698_ '0))) (begin - (let ((_g53018_ + (let ((_g52832_ (let () (declare (not safe)) - (if (##values? _g53017_) + (if (##values? _g52831_) (##vector-length - _g53017_) + _g52831_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g53018_ 2))) + (##fx= _g52832_ 2))) (error "Context expects 2 values" - _g53018_))) + _g52832_))) (let ((_target3665236701_ (let () (declare (not safe)) - (##vector-ref _g53017_ 0))) + (##vector-ref _g52831_ 0))) (_tl3665436704_ (let () (declare (not safe)) - (##vector-ref _g53017_ 1)))) + (##vector-ref _g52831_ 1)))) (if (gx#stx-null? _tl3665436704_) (letrec ((_loop3665536707_ (lambda (_hd3665336711_ @@ -2445,20 +2445,20 @@ (let () (declare (not safe)) (make-hash-table))) - (_g53021_ + (_g52835_ (for-each (lambda (_id36799_ _new-id36801_) - (let ((__tmp53020 + (let ((__tmp52834 (gx#core-identifier-key _id36799_)) - (__tmp53019 + (__tmp52833 (gx#core-identifier-key _new-id36801_))) (declare (not safe)) (hash-put! _keytab36793_ - __tmp53020 - __tmp53019))) + __tmp52834 + __tmp52833))) (foldr (lambda (_g3680236805_ _g3680336808_) (let () @@ -2496,14 +2496,14 @@ (let () (declare (not safe)) (hash-put! _found36796_ _name36831_ '#t)) - (let ((__tmp53022 + (let ((__tmp52836 (let () (declare (not safe)) (|gerbil/core$<module-sugar>[1]#module-export-rename| _out36827_ _rename36838_)))) (declare (not safe)) - (cons __tmp53022 _r36829_))) + (cons __tmp52836 _r36829_))) _$e36834_) (let () (declare (not safe)) @@ -2523,11 +2523,11 @@ _exports36821_))) (for-each (lambda (_id36849_) - (if (let ((__tmp53023 + (if (let ((__tmp52837 (gx#core-identifier-key _id36849_))) (declare (not safe)) - (hash-get _found36796_ __tmp53023)) + (hash-get _found36796_ __tmp52837)) '#!void (gx#raise-syntax-error '#f @@ -2624,17 +2624,17 @@ (letrec ((_fold-e36954_ (lambda (_out36957_ _r36959_) (if (gx#module-export? _out36957_) - (let ((__tmp53024 - (let ((__tmp53025 + (let ((__tmp52838 + (let ((__tmp52839 (_rename-e36951_ (gx#module-export-name _out36957_)))) (declare (not safe)) (|gerbil/core$<module-sugar>[1]#module-export-rename| _out36957_ - __tmp53025)))) + __tmp52839)))) (declare (not safe)) - (cons __tmp53024 _r36959_)) + (cons __tmp52838 _r36959_)) (if (gx#export-set? _out36957_) (foldl _fold-e36954_ _r36959_ @@ -2644,9 +2644,9 @@ (declare (not safe)) (cons _out36957_ _r36959_))))))) _fold-e36954_))) - (let ((__tmp53026 (foldl _fold-e36961_ '() _exports36945_))) + (let ((__tmp52840 (foldl _fold-e36961_ '() _exports36945_))) (declare (not safe)) - (cons 'begin: __tmp53026))) + (cons 'begin: __tmp52840))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_g3686936887_ _g3687036891_))) @@ -2668,8 +2668,8 @@ (class-instance? gerbil/core$<MOP>$<MOP:2>#class-type-info::t _info37209_)) - (let ((__tmp53027 - (let ((__tmp53031 + (let ((__tmp52841 + (let ((__tmp52845 (let ((__obj49645 _info37209_)) (if (let () (declare (not safe)) @@ -2687,9 +2687,9 @@ gerbil/core$<MOP>$<MOP:2>#class-type-info::t __obj49645 'type-descriptor)))) - (__tmp53028 + (__tmp52842 (foldr cons - (let ((__tmp53030 + (let ((__tmp52844 (let ((__obj49646 _info37209_)) (if (let () @@ -2710,7 +2710,7 @@ gerbil/core$<MOP>$<MOP:2>#class-type-info::t __obj49646 'predicate)))) - (__tmp53029 + (__tmp52843 (foldr cons (foldr cons ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -2791,7 +2791,7 @@ 'accessors))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp53030 __tmp53029)) + (cons __tmp52844 __tmp52843)) (let ((_ctor37212_ (let ((__obj49651 _info37209_)) @@ -2819,9 +2819,9 @@ (cons _ctor37212_ '())) '()))))) (declare (not safe)) - (cons __tmp53031 __tmp53028)))) + (cons __tmp52845 __tmp52842)))) (declare (not safe)) - (cons _id37205_ __tmp53027)) + (cons _id37205_ __tmp52841)) (gx#raise-syntax-error '#f '"no class type info" @@ -2836,7 +2836,7 @@ ___stx4956849569_)))) (let ((___kont4957149572_ (lambda (_L37166_ _L37168_) - (let ((__tmp53032 + (let ((__tmp52846 (concatenate (gx#stx-map (lambda (_g3718737189_) @@ -2850,10 +2850,10 @@ '() _L37166_))))) (declare (not safe)) - (cons 'begin: __tmp53032)))) + (cons 'begin: __tmp52846)))) (___kont4957549576_ (lambda (_L37065_) - (let ((__tmp53033 + (let ((__tmp52847 (concatenate (gx#stx-map (lambda (_g3708137083_) @@ -2865,7 +2865,7 @@ '() _L37065_))))) (declare (not safe)) - (cons 'begin: __tmp53033))))) + (cons 'begin: __tmp52847))))) (let* ((___match4962549626_ (lambda (_e3700337025_ _hd3700237029_ diff --git a/src/bootstrap/gerbil/core__16.scm b/src/bootstrap/gerbil/core__16.scm index 318c7673..65c437f7 100644 --- a/src/bootstrap/gerbil/core__16.scm +++ b/src/bootstrap/gerbil/core__16.scm @@ -32,10 +32,10 @@ (if (gx#current-expander-compiling?) (gx#eval-syntax _L37262_) '#!void) - (let ((__tmp53034 + (let ((__tmp52848 (gx#datum->syntax '#f 'void))) (declare (not safe)) - (cons __tmp53034 '()))) + (cons __tmp52848 '()))) _hd3722837256_) (_g3722137235_ _g3722237239_)))) (_g3722137235_ _g3722237239_)))) diff --git a/src/bootstrap/gerbil/core__4.scm b/src/bootstrap/gerbil/core__4.scm index 0c6338c3..5046337d 100644 --- a/src/bootstrap/gerbil/core__4.scm +++ b/src/bootstrap/gerbil/core__4.scm @@ -11,91 +11,91 @@ #f (gx#current-expander-context) '())) - (define |gerbil/core$<sugar>$<sugar:2>[1]#_g50922_| + (define |gerbil/core$<sugar>$<sugar:2>[1]#_g52896_| (##structure gx#syntax-quote::t 'values #f (gx#current-expander-context) '())) - (define |gerbil/core$<sugar>$<sugar:2>[1]#_g50925_| + (define |gerbil/core$<sugar>$<sugar:2>[1]#_g52899_| (##structure gx#syntax-quote::t 'values #f (gx#current-expander-context) '())) - (define |gerbil/core$<sugar>$<sugar:2>[1]#_g50926_| + (define |gerbil/core$<sugar>$<sugar:2>[1]#_g52900_| (##structure gx#syntax-quote::t 'values #f (gx#current-expander-context) '())) - (define |gerbil/core$<sugar>$<sugar:2>[1]#_g50987_| + (define |gerbil/core$<sugar>$<sugar:2>[1]#_g52961_| (##structure gx#syntax-quote::t 'quasiquote #f (gx#current-expander-context) '())) - (define |gerbil/core$<sugar>$<sugar:2>[1]#_g50988_| + (define |gerbil/core$<sugar>$<sugar:2>[1]#_g52962_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gerbil/core$<sugar>$<sugar:2>[1]#_g50989_| + (define |gerbil/core$<sugar>$<sugar:2>[1]#_g52963_| (##structure gx#syntax-quote::t 'unquote-splicing #f (gx#current-expander-context) '())) - (define |gerbil/core$<sugar>$<sugar:2>[1]#_g50990_| + (define |gerbil/core$<sugar>$<sugar:2>[1]#_g52964_| (##structure gx#syntax-quote::t 'unquote #f (gx#current-expander-context) '())) - (define |gerbil/core$<sugar>$<sugar:2>[1]#_g51034_| + (define |gerbil/core$<sugar>$<sugar:2>[1]#_g53008_| (##structure gx#syntax-quote::t 'unquote-splicing #f (gx#current-expander-context) '())) - (define |gerbil/core$<sugar>$<sugar:2>[1]#_g51035_| + (define |gerbil/core$<sugar>$<sugar:2>[1]#_g53009_| (##structure gx#syntax-quote::t 'unquote-splicing #f (gx#current-expander-context) '())) - (define |gerbil/core$<sugar>$<sugar:2>[1]#_g51036_| + (define |gerbil/core$<sugar>$<sugar:2>[1]#_g53010_| (##structure gx#syntax-quote::t 'unquote #f (gx#current-expander-context) '())) - (define |gerbil/core$<sugar>$<sugar:2>[1]#_g51037_| + (define |gerbil/core$<sugar>$<sugar:2>[1]#_g53011_| (##structure gx#syntax-quote::t 'quasiquote #f (gx#current-expander-context) '())) - (define |gerbil/core$<sugar>$<sugar:2>[1]#_g51048_| + (define |gerbil/core$<sugar>$<sugar:2>[1]#_g53022_| (##structure gx#syntax-quote::t '<...> #f (gx#current-expander-context) '())) - (define |gerbil/core$<sugar>$<sugar:2>[1]#_g51049_| + (define |gerbil/core$<sugar>$<sugar:2>[1]#_g53023_| (##structure gx#syntax-quote::t '<> #f (gx#current-expander-context) '())) (begin (define |gerbil/core$<sugar>$<sugar:2>[:0:]#lambda| @@ -9966,36 +9966,36 @@ (##cdr _e1301313119_)))) (if (gx#stx-pair/null? _tl1301113126_) - (let ((_g50875_ + (let ((_g52849_ (gx#syntax-split-splice _tl1301113126_ '0))) (begin - (let ((_g50876_ + (let ((_g52850_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g50875_) - (##vector-length _g50875_) + _g52849_) + (##vector-length _g52849_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g50876_ 2))) - (error "Context expects 2 values" _g50876_))) + (if (not (let () (declare (not safe)) (##fx= _g52850_ 2))) + (error "Context expects 2 values" _g52850_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target1301413129_ (let () (declare (not safe)) (##vector-ref - _g50875_ + _g52849_ 0))) (_tl1301613132_ (let () (declare (not safe)) (##vector-ref - _g50875_ + _g52849_ 1)))) (if (gx#stx-null? _tl1301613132_) @@ -10403,31 +10403,31 @@ _L13425_ _L13426_ _L13427_) - (let ((__tmp50883 + (let ((__tmp52857 (gx#datum->syntax '#f 'do)) - (__tmp50877 - (let ((__tmp50878 + (__tmp52851 + (let ((__tmp52852 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50879 - (let ((__tmp50880 - (let ((__tmp50882 + (let ((__tmp52853 + (let ((__tmp52854 + (let ((__tmp52856 (gx#datum->syntax '#f 'not)) - (__tmp50881 + (__tmp52855 (let () (declare (not safe)) (cons _L13426_ '())))) (declare (not safe)) - (cons __tmp50882 __tmp50881)))) + (cons __tmp52856 __tmp52855)))) (declare (not safe)) - (cons __tmp50880 _L13425_)))) + (cons __tmp52854 _L13425_)))) (declare (not safe)) - (cons __tmp50879 _L13423_)))) + (cons __tmp52853 _L13423_)))) (declare (not safe)) - (cons _L13427_ __tmp50878)))) + (cons _L13427_ __tmp52852)))) (declare (not safe)) - (cons __tmp50883 __tmp50877))) + (cons __tmp52857 __tmp52851))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _tl1336513410_ _tl1336813420_ @@ -10450,29 +10450,29 @@ (let ((___kont4560945610_ (lambda (_L13599_) _L13599_)) (___kont4561145612_ (lambda (_L13544_ _L13546_) - (let ((__tmp50897 (gx#datum->syntax '#f 'let)) - (__tmp50884 - (let ((__tmp50894 - (let ((__tmp50896 (gx#datum->syntax '#f '$r)) - (__tmp50895 + (let ((__tmp52871 (gx#datum->syntax '#f 'let)) + (__tmp52858 + (let ((__tmp52868 + (let ((__tmp52870 (gx#datum->syntax '#f '$r)) + (__tmp52869 (let () (declare (not safe)) (cons _L13546_ '())))) (declare (not safe)) - (cons __tmp50896 __tmp50895))) - (__tmp50885 - (let ((__tmp50888 - (let ((__tmp50893 + (cons __tmp52870 __tmp52869))) + (__tmp52859 + (let ((__tmp52862 + (let ((__tmp52867 (gx#datum->syntax '#f '%#expression)) - (__tmp50889 - (let ((__tmp50890 - (let ((__tmp50892 + (__tmp52863 + (let ((__tmp52864 + (let ((__tmp52866 (gx#datum->syntax '#f 'begin)) - (__tmp50891 + (__tmp52865 (foldr (lambda (_g1356313566_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1356413569_) @@ -10482,23 +10482,23 @@ '() _L13544_))) (declare (not safe)) - (cons __tmp50892 __tmp50891)))) + (cons __tmp52866 __tmp52865)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50890 '())))) + (cons __tmp52864 '())))) (declare (not safe)) - (cons __tmp50893 __tmp50889))) - (__tmp50886 - (let ((__tmp50887 + (cons __tmp52867 __tmp52863))) + (__tmp52860 + (let ((__tmp52861 (gx#datum->syntax '#f '$r))) (declare (not safe)) - (cons __tmp50887 '())))) + (cons __tmp52861 '())))) (declare (not safe)) - (cons __tmp50888 __tmp50886)))) + (cons __tmp52862 __tmp52860)))) (declare (not safe)) - (cons __tmp50894 __tmp50885)))) + (cons __tmp52868 __tmp52859)))) (declare (not safe)) - (cons __tmp50897 __tmp50884))))) + (cons __tmp52871 __tmp52858))))) (let ((___match4564945650_ (lambda (_e1346913494_ _hd1346813498_ @@ -10601,66 +10601,66 @@ ___stx4565245653_)))) (let ((___kont4565545656_ (lambda (_L13878_ _L13880_) - (let ((__tmp50903 (gx#datum->syntax '#f 'letrec)) - (__tmp50898 - (let ((__tmp50900 - (let ((__tmp50901 - (let ((__tmp50902 + (let ((__tmp52877 (gx#datum->syntax '#f 'letrec)) + (__tmp52872 + (let ((__tmp52874 + (let ((__tmp52875 + (let ((__tmp52876 (let () (declare (not safe)) (cons _L13878_ '())))) (declare (not safe)) - (cons _L13880_ __tmp50902)))) + (cons _L13880_ __tmp52876)))) (declare (not safe)) - (cons __tmp50901 '()))) - (__tmp50899 + (cons __tmp52875 '()))) + (__tmp52873 (let () (declare (not safe)) (cons _L13880_ '())))) (declare (not safe)) - (cons __tmp50900 __tmp50899)))) + (cons __tmp52874 __tmp52873)))) (declare (not safe)) - (cons __tmp50903 __tmp50898)))) + (cons __tmp52877 __tmp52872)))) (___kont4565745658_ (lambda (_L13822_ _L13824_) - (let ((__tmp50911 (gx#datum->syntax '#f 'letrec-values)) - (__tmp50904 - (let ((__tmp50908 - (let ((__tmp50909 - (let ((__tmp50910 + (let ((__tmp52885 (gx#datum->syntax '#f 'letrec-values)) + (__tmp52878 + (let ((__tmp52882 + (let ((__tmp52883 + (let ((__tmp52884 (let () (declare (not safe)) (cons _L13822_ '())))) (declare (not safe)) - (cons _L13824_ __tmp50910)))) + (cons _L13824_ __tmp52884)))) (declare (not safe)) - (cons __tmp50909 '()))) - (__tmp50905 - (let ((__tmp50906 - (let ((__tmp50907 + (cons __tmp52883 '()))) + (__tmp52879 + (let ((__tmp52880 + (let ((__tmp52881 (gx#datum->syntax '#f 'values))) (declare (not safe)) - (cons __tmp50907 _L13824_)))) + (cons __tmp52881 _L13824_)))) (declare (not safe)) - (cons __tmp50906 '())))) + (cons __tmp52880 '())))) (declare (not safe)) - (cons __tmp50908 __tmp50905)))) + (cons __tmp52882 __tmp52879)))) (declare (not safe)) - (cons __tmp50911 __tmp50904)))) + (cons __tmp52885 __tmp52878)))) (___kont4565945660_ (lambda (_L13743_ _L13745_ _L13746_) - (let ((__tmp50921 (gx#datum->syntax '#f 'letrec)) - (__tmp50912 - (let ((__tmp50914 - (let ((__tmp50915 - (let ((__tmp50916 - (let ((__tmp50917 - (let ((__tmp50920 + (let ((__tmp52895 (gx#datum->syntax '#f 'letrec)) + (__tmp52886 + (let ((__tmp52888 + (let ((__tmp52889 + (let ((__tmp52890 + (let ((__tmp52891 + (let ((__tmp52894 (gx#datum->syntax '#f 'lambda)) - (__tmp50918 - (let ((__tmp50919 + (__tmp52892 + (let ((__tmp52893 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (foldr (lambda (_g1376613769_ _g1376713772_) (let () @@ -10669,24 +10669,24 @@ '() _L13743_))) (declare (not safe)) - (cons _L13745_ __tmp50919)))) + (cons _L13745_ __tmp52893)))) (declare (not safe)) - (cons __tmp50920 __tmp50918)))) + (cons __tmp52894 __tmp52892)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50917 '())))) + (cons __tmp52891 '())))) (declare (not safe)) - (cons _L13746_ __tmp50916)))) + (cons _L13746_ __tmp52890)))) (declare (not safe)) - (cons __tmp50915 '()))) - (__tmp50913 + (cons __tmp52889 '()))) + (__tmp52887 (let () (declare (not safe)) (cons _L13746_ '())))) (declare (not safe)) - (cons __tmp50914 __tmp50913)))) + (cons __tmp52888 __tmp52887)))) (declare (not safe)) - (cons __tmp50921 __tmp50912))))) + (cons __tmp52895 __tmp52886))))) (let* ((___match4573945740_ (lambda (_e1365513683_ _hd1365413687_ @@ -10814,7 +10814,7 @@ (##car _e1364613802_)))) (if (gx#identifier? _hd1364513806_) (if (gx#free-identifier=? - |gerbil/core$<sugar>$<sugar:2>[1]#_g50922_| + |gerbil/core$<sugar>$<sugar:2>[1]#_g52896_| _hd1364513806_) (___match4571345714_ _e1362913848_ @@ -11111,13 +11111,13 @@ (lambda (_L14807_ _L14809_) _x14728_)) (___kont4578145782_ (lambda (_L14768_) - (let ((__tmp50924 (gx#datum->syntax '#f '_)) - (__tmp50923 + (let ((__tmp52898 (gx#datum->syntax '#f '_)) + (__tmp52897 (let () (declare (not safe)) (cons _L14768_ '())))) (declare (not safe)) - (cons __tmp50924 __tmp50923))))) + (cons __tmp52898 __tmp52897))))) (if (gx#stx-pair? ___stx4577645777_) (let ((_e1473814787_ (gx#syntax-e ___stx4577645777_))) @@ -11180,7 +11180,7 @@ (##car _e1467714701_)))) (if (gx#identifier? _hd1467614705_) (if (gx#free-identifier=? - |gerbil/core$<sugar>$<sugar:2>[1]#_g50925_| + |gerbil/core$<sugar>$<sugar:2>[1]#_g52899_| _hd1467614705_) (___kont4581145812_ _tl1467514708_) (___kont4581345814_)) @@ -11210,7 +11210,7 @@ (##car _e1461714641_)))) (if (gx#identifier? _hd1461614645_) (if (gx#free-identifier=? - |gerbil/core$<sugar>$<sugar:2>[1]#_g50926_| + |gerbil/core$<sugar>$<sugar:2>[1]#_g52900_| _hd1461614645_) (___kont4583145832_ _tl1461514648_) (___kont4583345834_)) @@ -11225,31 +11225,31 @@ ___stx4584845849_)))) (let ((___kont4585145852_ (lambda (_L14581_ _L14583_ _L14584_ _L14585_) - (let ((__tmp50927 - (let ((__tmp50928 - (let ((__tmp50929 - (let ((__tmp50930 + (let ((__tmp52901 + (let ((__tmp52902 + (let ((__tmp52903 + (let ((__tmp52904 (let () (declare (not safe)) (cons _L14583_ '())))) (declare (not safe)) - (cons _L14584_ __tmp50930)))) + (cons _L14584_ __tmp52904)))) (declare (not safe)) - (cons __tmp50929 '())))) + (cons __tmp52903 '())))) (declare (not safe)) - (cons __tmp50928 _L14581_)))) + (cons __tmp52902 _L14581_)))) (declare (not safe)) - (cons _L14585_ __tmp50927)))) + (cons _L14585_ __tmp52901)))) (___kont4585345854_ (lambda (_L14503_ _L14505_) - (let ((__tmp50937 (gx#datum->syntax '#f 'and)) - (__tmp50931 - (let ((__tmp50932 - (let ((__tmp50933 - (let ((__tmp50936 + (let ((__tmp52911 (gx#datum->syntax '#f 'and)) + (__tmp52905 + (let ((__tmp52906 + (let ((__tmp52907 + (let ((__tmp52910 (gx#datum->syntax '#f 'let)) - (__tmp50934 - (let ((__tmp50935 + (__tmp52908 + (let ((__tmp52909 (foldr (lambda (_g1452514528_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1452614531_) @@ -11260,15 +11260,15 @@ _L14503_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '() __tmp50935)))) + (cons '() __tmp52909)))) (declare (not safe)) - (cons __tmp50936 __tmp50934)))) + (cons __tmp52910 __tmp52908)))) (declare (not safe)) - (cons __tmp50933 '())))) + (cons __tmp52907 '())))) (declare (not safe)) - (cons _L14505_ __tmp50932)))) + (cons _L14505_ __tmp52906)))) (declare (not safe)) - (cons __tmp50937 __tmp50931)))) + (cons __tmp52911 __tmp52905)))) (___kont4585745858_ (lambda (_L14070_ _L14072_) (let* ((_g1410314129_ @@ -11280,30 +11280,30 @@ (_g1410214414_ (lambda (_g1410414133_) (if (gx#stx-pair/null? _g1410414133_) - (let ((_g50938_ + (let ((_g52912_ (gx#syntax-split-splice _g1410414133_ '0))) (begin - (let ((_g50939_ + (let ((_g52913_ (let () (declare (not safe)) - (if (##values? _g50938_) - (##vector-length _g50938_) + (if (##values? _g52912_) + (##vector-length _g52912_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g50939_ 2))) + (##fx= _g52913_ 2))) (error "Context expects 2 values" - _g50939_))) + _g52913_))) (let ((_target1410714136_ (let () (declare (not safe)) - (##vector-ref _g50938_ 0))) + (##vector-ref _g52912_ 0))) (_tl1410914139_ (let () (declare (not safe)) - (##vector-ref _g50938_ 1)))) + (##vector-ref _g52912_ 1)))) (if (gx#stx-null? _tl1410914139_) (letrec ((_loop1411014142_ (lambda (_hd1410814146_ @@ -11371,34 +11371,34 @@ (_g1420714402_ (lambda (_g1420914229_) (if (gx#stx-pair/null? _g1420914229_) - (let ((_g50940_ + (let ((_g52914_ (gx#syntax-split-splice _g1420914229_ '0))) (begin - (let ((_g50941_ + (let ((_g52915_ (let () (declare (not safe)) - (if (##values? _g50940_) + (if (##values? _g52914_) (##vector-length - _g50940_) + _g52914_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g50941_ 2))) + (##fx= _g52915_ 2))) (error "Context expects 2 values" - _g50941_))) + _g52915_))) (let ((_target1421114232_ (let () (declare (not safe)) (##vector-ref - _g50940_ + _g52914_ 0))) (_tl1421314235_ (let () (declare (not safe)) (##vector-ref - _g50940_ + _g52914_ 1)))) (if (gx#stx-null? _tl1421314235_) @@ -11434,36 +11434,36 @@ (lambda (_g1428014300_) (if (gx#stx-pair/null? _g1428014300_) - (let ((_g50942_ + (let ((_g52916_ (gx#syntax-split-splice _g1428014300_ '0))) (begin - (let ((_g50943_ + (let ((_g52917_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g50942_) - (##vector-length _g50942_) + _g52916_) + (##vector-length _g52916_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g50943_ 2))) - (error "Context expects 2 values" _g50943_))) + (if (not (let () (declare (not safe)) (##fx= _g52917_ 2))) + (error "Context expects 2 values" _g52917_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target1428214303_ (let () (declare (not safe)) (##vector-ref - _g50942_ + _g52916_ 0))) (_tl1428414306_ (let () (declare (not safe)) (##vector-ref - _g50942_ + _g52916_ 1)))) (if (gx#stx-null? _tl1428414306_) @@ -11492,12 +11492,12 @@ ((lambda (_L14333_) (let () (let () - (let ((__tmp50960 + (let ((__tmp52934 (gx#datum->syntax '#f 'let-values)) - (__tmp50944 - (let ((__tmp50956 + (__tmp52918 + (let ((__tmp52930 (begin (gx#syntax-check-splice-targets _L14190_ @@ -11506,37 +11506,37 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1435914365_ _g1436014367_) - (let ((__tmp50957 - (let ((__tmp50959 + (let ((__tmp52931 + (let ((__tmp52933 (let () (declare (not safe)) (cons _g1435914365_ '()))) - (__tmp50958 + (__tmp52932 (let () (declare (not safe)) (cons _g1435814362_ '())))) (declare (not safe)) - (cons __tmp50959 __tmp50958)))) + (cons __tmp52933 __tmp52932)))) (declare (not safe)) - (cons __tmp50957 _g1436014367_))) + (cons __tmp52931 _g1436014367_))) '() _L14190_ _L14262_))) - (__tmp50945 - (let ((__tmp50946 - (let ((__tmp50955 (gx#datum->syntax '#f 'and)) - (__tmp50947 + (__tmp52919 + (let ((__tmp52920 + (let ((__tmp52929 (gx#datum->syntax '#f 'and)) + (__tmp52921 (foldr (lambda (_g1435114370_ _g1435214373_) (let () (declare (not safe)) (cons _g1435114370_ _g1435214373_))) - (let ((__tmp50948 - (let ((__tmp50954 + (let ((__tmp52922 + (let ((__tmp52928 (gx#datum->syntax '#f 'let-values)) - (__tmp50949 - (let ((__tmp50951 + (__tmp52923 + (let ((__tmp52925 (begin (gx#syntax-check-splice-targets _L14262_ @@ -11545,19 +11545,19 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1435614379_ _g1435714381_) - (let ((__tmp50952 - (let ((__tmp50953 + (let ((__tmp52926 + (let ((__tmp52927 (let () (declare (not safe)) (cons _g1435514376_ '())))) (declare (not safe)) - (cons _g1435614379_ __tmp50953)))) + (cons _g1435614379_ __tmp52927)))) (declare (not safe)) - (cons __tmp50952 _g1435714381_))) + (cons __tmp52926 _g1435714381_))) '() _L14262_ _L14333_))) - (__tmp50950 + (__tmp52924 (foldr (lambda (_g1435314384_ _g1435414387_) (let () (declare (not safe)) @@ -11565,23 +11565,23 @@ '() _L14070_))) (declare (not safe)) - (cons __tmp50951 __tmp50950)))) + (cons __tmp52925 __tmp52924)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50954 __tmp50949)))) + (cons __tmp52928 __tmp52923)))) (declare (not safe)) - (cons __tmp50948 '())) + (cons __tmp52922 '())) _L14262_))) (declare (not safe)) - (cons __tmp50955 __tmp50947)))) + (cons __tmp52929 __tmp52921)))) (declare (not safe)) - (cons __tmp50946 '())))) + (cons __tmp52920 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50956 - __tmp50945)))) + (cons __tmp52930 + __tmp52919)))) (declare (not safe)) - (cons __tmp50960 __tmp50944))))) + (cons __tmp52934 __tmp52918))))) _hd-bind1429014329_)))))) (_loop1428514309_ _target1428214303_ '())) (_g1427914296_ _g1428014300_))))) @@ -12229,9 +12229,9 @@ (let ((___kont4595145952_ (lambda () '#t)) (___kont4595345954_ (lambda (_L15158_) - (let ((__tmp50963 (gx#datum->syntax '#f 'let)) - (__tmp50961 - (let ((__tmp50962 + (let ((__tmp52937 (gx#datum->syntax '#f 'let)) + (__tmp52935 + (let ((__tmp52936 (foldr (lambda (_g1517415177_ _g1517515180_) (let () (declare (not safe)) @@ -12240,21 +12240,21 @@ '() _L15158_))) (declare (not safe)) - (cons '() __tmp50962)))) + (cons '() __tmp52936)))) (declare (not safe)) - (cons __tmp50963 __tmp50961)))) + (cons __tmp52937 __tmp52935)))) (___kont4595745958_ (lambda (_L15067_ _L15069_ _L15070_ _L15071_) - (let ((__tmp50970 (gx#datum->syntax '#f 'alet)) - (__tmp50964 - (let ((__tmp50969 + (let ((__tmp52944 (gx#datum->syntax '#f 'alet)) + (__tmp52938 + (let ((__tmp52943 (let () (declare (not safe)) (cons _L15070_ '()))) - (__tmp50965 - (let ((__tmp50966 - (let ((__tmp50967 - (let ((__tmp50968 + (__tmp52939 + (let ((__tmp52940 + (let ((__tmp52941 + (let ((__tmp52942 (foldr (lambda (_g1509215095_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1509315098_) @@ -12265,15 +12265,15 @@ _L15067_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L15069_ __tmp50968)))) + (cons _L15069_ __tmp52942)))) (declare (not safe)) - (cons _L15071_ __tmp50967)))) + (cons _L15071_ __tmp52941)))) (declare (not safe)) - (cons __tmp50966 '())))) + (cons __tmp52940 '())))) (declare (not safe)) - (cons __tmp50969 __tmp50965)))) + (cons __tmp52943 __tmp52939)))) (declare (not safe)) - (cons __tmp50970 __tmp50964))))) + (cons __tmp52944 __tmp52938))))) (let* ((___match4602546026_ (lambda (_e1497915007_ _hd1497815011_ @@ -12469,62 +12469,62 @@ ___stx4602846029_)))) (let ((___kont4603146032_ (lambda () - (let ((__tmp50972 (gx#datum->syntax '#f 'quote)) - (__tmp50971 + (let ((__tmp52946 (gx#datum->syntax '#f 'quote)) + (__tmp52945 (let () (declare (not safe)) (cons '() '())))) (declare (not safe)) - (cons __tmp50972 __tmp50971)))) + (cons __tmp52946 __tmp52945)))) (___kont4603346034_ (lambda (_L15640_) - (let ((__tmp50974 (gx#datum->syntax '#f 'quote)) - (__tmp50973 + (let ((__tmp52948 (gx#datum->syntax '#f 'quote)) + (__tmp52947 (let () (declare (not safe)) (cons _L15640_ '())))) (declare (not safe)) - (cons __tmp50974 __tmp50973)))) + (cons __tmp52948 __tmp52947)))) (___kont4603546036_ (lambda (_L15588_) - (let ((__tmp50976 (gx#datum->syntax '#f 'quasiquote)) - (__tmp50975 + (let ((__tmp52950 (gx#datum->syntax '#f 'quasiquote)) + (__tmp52949 (let () (declare (not safe)) (cons _L15588_ '())))) (declare (not safe)) - (cons __tmp50976 __tmp50975)))) + (cons __tmp52950 __tmp52949)))) (___kont4603746038_ (lambda (_L15535_) _L15535_)) (___kont4603946040_ (lambda (_L15477_ _L15479_) _L15479_)) (___kont4604146042_ (lambda (_L15419_ _L15421_ _L15422_ _L15423_) - (let ((__tmp50982 (gx#datum->syntax '#f 'foldr)) - (__tmp50977 - (let ((__tmp50981 (gx#datum->syntax '#f 'cons)) - (__tmp50978 - (let ((__tmp50980 + (let ((__tmp52956 (gx#datum->syntax '#f 'foldr)) + (__tmp52951 + (let ((__tmp52955 (gx#datum->syntax '#f 'cons)) + (__tmp52952 + (let ((__tmp52954 (let () (declare (not safe)) (cons _L15423_ _L15419_))) - (__tmp50979 + (__tmp52953 (let () (declare (not safe)) (cons _L15422_ '())))) (declare (not safe)) - (cons __tmp50980 __tmp50979)))) + (cons __tmp52954 __tmp52953)))) (declare (not safe)) - (cons __tmp50981 __tmp50978)))) + (cons __tmp52955 __tmp52952)))) (declare (not safe)) - (cons __tmp50982 __tmp50977)))) + (cons __tmp52956 __tmp52951)))) (___kont4604346044_ (lambda (_L15365_ _L15367_ _L15368_) - (let ((__tmp50986 (gx#datum->syntax '#f 'cons)) - (__tmp50983 - (let ((__tmp50984 - (let ((__tmp50985 + (let ((__tmp52960 (gx#datum->syntax '#f 'cons)) + (__tmp52957 + (let ((__tmp52958 + (let ((__tmp52959 (let () (declare (not safe)) (cons _L15368_ _L15365_)))) (declare (not safe)) - (cons __tmp50985 '())))) + (cons __tmp52959 '())))) (declare (not safe)) - (cons _L15367_ __tmp50984)))) + (cons _L15367_ __tmp52958)))) (declare (not safe)) - (cons __tmp50986 __tmp50983)))) + (cons __tmp52960 __tmp52957)))) (___kont4604546046_ (lambda (_L15326_) _L15326_))) (let* ((___match4616746168_ (lambda (_e1528415389_ @@ -12597,7 +12597,7 @@ (##car _e1524215620_)))) (if (gx#identifier? _hd1524115624_) (if (gx#free-identifier=? - |gerbil/core$<sugar>$<sugar:2>[1]#_g50988_| + |gerbil/core$<sugar>$<sugar:2>[1]#_g52962_| _hd1524115624_) (if (gx#stx-pair? _tl1524015627_) (let ((_e1524515630_ @@ -12630,7 +12630,7 @@ _hd1524115624_ _hd1523415666_)) (if (gx#free-identifier=? - |gerbil/core$<sugar>$<sugar:2>[1]#_g50987_| + |gerbil/core$<sugar>$<sugar:2>[1]#_g52961_| _hd1524115624_) (if (gx#stx-pair? _tl1524015627_) (let ((_e1525515578_ @@ -12942,7 +12942,7 @@ (##car _e1638716585_)))) (if (gx#identifier? _hd1638616589_) (if (gx#free-identifier=? - |gerbil/core$<sugar>$<sugar:2>[1]#_g50990_| + |gerbil/core$<sugar>$<sugar:2>[1]#_g52964_| _hd1638616589_) (if (gx#stx-pair? _tl1638516592_) (let ((_e1639016595_ @@ -12966,7 +12966,7 @@ _tl1638516592_ _hd1638616589_)) (if (gx#free-identifier=? - |gerbil/core$<sugar>$<sugar:2>[1]#_g50989_| + |gerbil/core$<sugar>$<sugar:2>[1]#_g52963_| _hd1638616589_) (if (gx#stx-pair? _tl1638516592_) (let ((_e1639616564_ @@ -13021,29 +13021,29 @@ (lambda (_g1634116352_) ((lambda (_L16355_) (let () - (let ((__tmp50997 + (let ((__tmp52971 (gx#datum->syntax '#f 'list)) - (__tmp50991 - (let ((__tmp50993 - (let ((__tmp50996 + (__tmp52965 + (let ((__tmp52967 + (let ((__tmp52970 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'quote)) - (__tmp50994 - (let ((__tmp50995 + (__tmp52968 + (let ((__tmp52969 (gx#datum->syntax '#f 'quasiquote))) (declare (not safe)) - (cons __tmp50995 '())))) + (cons __tmp52969 '())))) (declare (not safe)) - (cons __tmp50996 __tmp50994))) - (__tmp50992 + (cons __tmp52970 __tmp52968))) + (__tmp52966 (let () (declare (not safe)) (cons _L16355_ '())))) (declare (not safe)) - (cons __tmp50993 __tmp50992)))) + (cons __tmp52967 __tmp52966)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50997 __tmp50991)))) + (cons __tmp52971 __tmp52965)))) _g1634116352_)))) (_g1633916367_ (_generate15685_ @@ -13067,30 +13067,30 @@ (lambda (_g1627016281_) ((lambda (_L16284_) (let () - (let ((__tmp51004 + (let ((__tmp52978 (gx#datum->syntax '#f 'list)) - (__tmp50998 - (let ((__tmp51000 - (let ((__tmp51003 + (__tmp52972 + (let ((__tmp52974 + (let ((__tmp52977 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'quote)) - (__tmp51001 - (let ((__tmp51002 + (__tmp52975 + (let ((__tmp52976 (gx#datum->syntax '#f 'unquote))) (declare (not safe)) - (cons __tmp51002 '())))) + (cons __tmp52976 '())))) (declare (not safe)) - (cons __tmp51003 __tmp51001))) - (__tmp50999 + (cons __tmp52977 __tmp52975))) + (__tmp52973 (let () (declare (not safe)) (cons _L16284_ '())))) (declare (not safe)) - (cons __tmp51000 __tmp50999)))) + (cons __tmp52974 __tmp52973)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51004 - __tmp50998)))) + (cons __tmp52978 + __tmp52972)))) _g1627016281_)))) (_g1626816296_ (_generate15685_ @@ -13103,33 +13103,33 @@ (if (let () (declare (not safe)) (fxzero? _d15749_)) - (let ((__tmp51019 + (let ((__tmp52993 (gx#datum->syntax '#f 'foldr)) - (__tmp51012 - (let ((__tmp51018 + (__tmp52986 + (let ((__tmp52992 (gx#datum->syntax '#f 'cons)) - (__tmp51013 - (let ((__tmp51015 - (let ((__tmp51017 + (__tmp52987 + (let ((__tmp52989 + (let ((__tmp52991 (gx#datum->syntax '#f 'quote)) - (__tmp51016 + (__tmp52990 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (cons '() '())))) (declare (not safe)) - (cons __tmp51017 __tmp51016))) - (__tmp51014 (let () (declare (not safe)) (cons _L16185_ '())))) + (cons __tmp52991 __tmp52990))) + (__tmp52988 (let () (declare (not safe)) (cons _L16185_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51015 - __tmp51014)))) + (cons __tmp52989 + __tmp52988)))) (declare (not safe)) - (cons __tmp51018 __tmp51013)))) + (cons __tmp52992 __tmp52987)))) (declare (not safe)) - (cons __tmp51019 __tmp51012)) + (cons __tmp52993 __tmp52986)) (let* ((_g1619816206_ (lambda (_g1619916202_) (gx#raise-syntax-error @@ -13140,32 +13140,32 @@ (lambda (_g1619916210_) ((lambda (_L16213_) (let () - (let ((__tmp51011 + (let ((__tmp52985 (gx#datum->syntax '#f 'list)) - (__tmp51005 - (let ((__tmp51007 - (let ((__tmp51010 + (__tmp52979 + (let ((__tmp52981 + (let ((__tmp52984 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'quote)) - (__tmp51008 - (let ((__tmp51009 + (__tmp52982 + (let ((__tmp52983 (gx#datum->syntax '#f 'unquote-splicing))) (declare (not safe)) - (cons __tmp51009 '())))) + (cons __tmp52983 '())))) (declare (not safe)) - (cons __tmp51010 __tmp51008))) - (__tmp51006 + (cons __tmp52984 __tmp52982))) + (__tmp52980 (let () (declare (not safe)) (cons _L16213_ '())))) (declare (not safe)) - (cons __tmp51007 __tmp51006)))) + (cons __tmp52981 __tmp52980)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51011 - __tmp51005)))) + (cons __tmp52985 + __tmp52979)))) _g1619916210_)))) (_g1619716225_ (_generate15685_ @@ -13185,26 +13185,26 @@ (lambda (_g1612816139_) ((lambda (_L16142_) (let () - (let ((__tmp51024 + (let ((__tmp52998 (gx#datum->syntax '#f 'foldr)) - (__tmp51020 - (let ((__tmp51023 + (__tmp52994 + (let ((__tmp52997 (gx#datum->syntax '#f 'cons)) - (__tmp51021 - (let ((__tmp51022 + (__tmp52995 + (let ((__tmp52996 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _L16112_ '())))) (declare (not safe)) - (cons _L16142_ __tmp51022)))) + (cons _L16142_ __tmp52996)))) (declare (not safe)) - (cons __tmp51023 __tmp51021)))) + (cons __tmp52997 __tmp52995)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51024 __tmp51020)))) + (cons __tmp52998 __tmp52994)))) _g1612816139_)))) (_g1612616154_ (_generate15685_ _L16110_ _d15749_))))) @@ -13246,16 +13246,16 @@ (if (gx#stx-null? _tl1601616048_) ((lambda (_L16051_ _L16053_) (let () - (let ((__tmp51027 (gx#datum->syntax '#f 'cons)) - (__tmp51025 - (let ((__tmp51026 + (let ((__tmp53001 (gx#datum->syntax '#f 'cons)) + (__tmp52999 + (let ((__tmp53000 (let () (declare (not safe)) (cons _L16051_ '())))) (declare (not safe)) - (cons _L16053_ __tmp51026)))) + (cons _L16053_ __tmp53000)))) (declare (not safe)) - (cons __tmp51027 __tmp51025)))) + (cons __tmp53001 __tmp52999)))) _hd1601716045_ _hd1601416035_) (_g1600916024_ _g1601016028_)))) @@ -13280,16 +13280,16 @@ (lambda (_g1594115952_) ((lambda (_L15955_) (let () - (let ((__tmp51029 + (let ((__tmp53003 (gx#datum->syntax '#f 'list->vector)) - (__tmp51028 + (__tmp53002 (let () (declare (not safe)) (cons _L15955_ '())))) (declare (not safe)) - (cons __tmp51029 __tmp51028)))) + (cons __tmp53003 __tmp53002)))) _g1594115952_)))) (_g1593915967_ (_generate15685_ @@ -13313,28 +13313,28 @@ (lambda (_g1585515866_) ((lambda (_L15869_) (let () - (let ((__tmp51031 + (let ((__tmp53005 (gx#datum->syntax '#f 'box)) - (__tmp51030 + (__tmp53004 (let () (declare (not safe)) (cons _L15869_ '())))) (declare (not safe)) - (cons __tmp51031 __tmp51030)))) + (cons __tmp53005 __tmp53004)))) _g1585515866_)))) (_g1585315881_ (_generate15685_ _L15844_ _d15749_))))) (___kont4628546286_ (lambda (_L15823_) - (let ((__tmp51033 (gx#datum->syntax '#f 'quote)) - (__tmp51032 + (let ((__tmp53007 (gx#datum->syntax '#f 'quote)) + (__tmp53006 (let () (declare (not safe)) (cons _L15823_ '())))) (declare (not safe)) - (cons __tmp51033 __tmp51032))))) + (cons __tmp53007 __tmp53006))))) (let* ((_g1575615885_ (lambda () (if (gx#stx-box? ___stx4626646267_) @@ -13429,7 +13429,7 @@ (##car _e1576316307_)))) (if (gx#identifier? _hd1576216311_) (if (gx#free-identifier=? - |gerbil/core$<sugar>$<sugar:2>[1]#_g51037_| + |gerbil/core$<sugar>$<sugar:2>[1]#_g53011_| _hd1576216311_) (if (gx#stx-pair? _tl1576116314_) (let ((_e1576616317_ @@ -13454,7 +13454,7 @@ _tl1576116314_ _hd1576216311_)) (if (gx#free-identifier=? - |gerbil/core$<sugar>$<sugar:2>[1]#_g51036_| + |gerbil/core$<sugar>$<sugar:2>[1]#_g53010_| _hd1576216311_) (if (gx#stx-pair? _tl1576116314_) (let ((_e1577316246_ @@ -13481,7 +13481,7 @@ _tl1576116314_ _hd1576216311_)) (if (gx#free-identifier=? - |gerbil/core$<sugar>$<sugar:2>[1]#_g51035_| + |gerbil/core$<sugar>$<sugar:2>[1]#_g53009_| _hd1576216311_) (if (gx#stx-pair? _tl1576116314_) @@ -13517,7 +13517,7 @@ (if (gx#identifier? _hd1578716094_) (if (gx#free-identifier=? - |gerbil/core$<sugar>$<sugar:2>[1]#_g51034_| + |gerbil/core$<sugar>$<sugar:2>[1]#_g53008_| _hd1578716094_) (if (gx#stx-pair? _tl1578616097_) @@ -13583,16 +13583,16 @@ (if (gx#stx-null? _tl1569315725_) ((lambda (_L15728_) (if (_simple-quote?15683_ _L15728_) - (let ((__tmp51039 + (let ((__tmp53013 (gx#datum->syntax '#f 'quote)) - (__tmp51038 + (__tmp53012 (let () (declare (not safe)) (cons _L15728_ '())))) (declare (not safe)) - (cons __tmp51039 __tmp51038)) + (cons __tmp53013 __tmp53012)) (_generate15685_ _L15728_ '0))) _hd1569415722_) (_g1568715701_ _g1568815705_)))) @@ -13610,31 +13610,31 @@ ___stx4639246393_)))) (let ((___kont4639546396_ (lambda (_L16709_) - (let ((__tmp51041 (gx#datum->syntax '#f 'quote)) - (__tmp51040 + (let ((__tmp53015 (gx#datum->syntax '#f 'quote)) + (__tmp53014 (let () (declare (not safe)) (cons _L16709_ '())))) (declare (not safe)) - (cons __tmp51041 __tmp51040)))) + (cons __tmp53015 __tmp53014)))) (___kont4639746398_ (lambda (_L16668_) - (let ((__tmp51047 (gx#datum->syntax '#f 'make-promise)) - (__tmp51042 - (let ((__tmp51043 - (let ((__tmp51046 + (let ((__tmp53021 (gx#datum->syntax '#f 'make-promise)) + (__tmp53016 + (let ((__tmp53017 + (let ((__tmp53020 (gx#datum->syntax '#f 'lambda%)) - (__tmp51044 - (let ((__tmp51045 + (__tmp53018 + (let ((__tmp53019 (let () (declare (not safe)) (cons _L16668_ '())))) (declare (not safe)) - (cons '() __tmp51045)))) + (cons '() __tmp53019)))) (declare (not safe)) - (cons __tmp51046 __tmp51044)))) + (cons __tmp53020 __tmp53018)))) (declare (not safe)) - (cons __tmp51043 '())))) + (cons __tmp53017 '())))) (declare (not safe)) - (cons __tmp51047 __tmp51042))))) + (cons __tmp53021 __tmp53016))))) (let ((___match4641346414_ (lambda (_e1662516689_ _hd1662416693_ @@ -13739,11 +13739,11 @@ (cons _L16902_ _body16857_)))))) (if (gx#identifier? ___stx4643046431_) (if (gx#free-identifier=? - |gerbil/core$<sugar>$<sugar:2>[1]#_g51049_| + |gerbil/core$<sugar>$<sugar:2>[1]#_g53023_| ___stx4643046431_) (___kont4643346434_) (if (gx#free-identifier=? - |gerbil/core$<sugar>$<sugar:2>[1]#_g51048_| + |gerbil/core$<sugar>$<sugar:2>[1]#_g53022_| ___stx4643046431_) (___kont4643546436_) (___kont4643746438_))) @@ -13788,35 +13788,35 @@ (##cdr _e1673716750_)))) ((lambda (_L16760_) (if (and (gx#stx-list? _L16760_) - (let ((__tmp51060 + (let ((__tmp53034 (gx#stx-null? _L16760_))) (declare (not safe)) - (not __tmp51060))) - (let ((_g51050_ (_generate16729_ _L16760_))) + (not __tmp53034))) + (let ((_g53024_ (_generate16729_ _L16760_))) (begin - (let ((_g51051_ + (let ((_g53025_ (let () (declare (not safe)) - (if (##values? _g51050_) - (##vector-length _g51050_) + (if (##values? _g53024_) + (##vector-length _g53024_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g51051_ 3))) + (##fx= _g53025_ 3))) (error "Context expects 3 values" - _g51051_))) + _g53025_))) (let ((_hd16773_ (let () (declare (not safe)) - (##vector-ref _g51050_ 0))) + (##vector-ref _g53024_ 0))) (_body16775_ (let () (declare (not safe)) - (##vector-ref _g51050_ 1))) + (##vector-ref _g53024_ 1))) (_tail?16776_ (let () (declare (not safe)) - (##vector-ref _g51050_ 2)))) + (##vector-ref _g53024_ 2)))) (let* ((_g1677816786_ (lambda (_g1677916782_) (gx#raise-syntax-error @@ -13840,34 +13840,34 @@ (let () (let () (if _tail?16776_ - (let ((__tmp51059 + (let ((__tmp53033 (gx#datum->syntax '#f 'lambda%)) - (__tmp51055 - (let ((__tmp51056 - (let ((__tmp51057 - (let ((__tmp51058 + (__tmp53029 + (let ((__tmp53030 + (let ((__tmp53031 + (let ((__tmp53032 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'apply))) (declare (not safe)) - (cons __tmp51058 _L16821_)))) + (cons __tmp53032 _L16821_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51057 '())))) + (cons __tmp53031 '())))) (declare (not safe)) - (cons _L16793_ __tmp51056)))) + (cons _L16793_ __tmp53030)))) (declare (not safe)) - (cons __tmp51059 __tmp51055)) - (let ((__tmp51054 + (cons __tmp53033 __tmp53029)) + (let ((__tmp53028 (gx#datum->syntax '#f 'lambda%)) - (__tmp51052 - (let ((__tmp51053 + (__tmp53026 + (let ((__tmp53027 (let () (declare (not safe)) (cons _L16821_ '())))) (declare (not safe)) - (cons _L16793_ __tmp51053)))) + (cons _L16793_ __tmp53027)))) (declare (not safe)) - (cons __tmp51054 __tmp51052)))))) + (cons __tmp53028 __tmp53026)))))) _g1680716818_)))) (_g1680516836_ _body16775_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> diff --git a/src/bootstrap/gerbil/core__5.scm b/src/bootstrap/gerbil/core__5.scm index 17553b9f..aa5318c7 100644 --- a/src/bootstrap/gerbil/core__5.scm +++ b/src/bootstrap/gerbil/core__5.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core$<sugar>$<sugar:3>[1]#_g51136_| + (define |gerbil/core$<sugar>$<sugar:3>[1]#_g50950_| (##structure gx#syntax-quote::t 'quote @@ -19,14 +19,14 @@ ___stx4646646467_)))) (let ((___kont4646946470_ (lambda (_L17170_ _L17172_ _L17173_) - (let ((__tmp51067 (gx#datum->syntax '#f 'define-syntax)) - (__tmp51061 - (let ((__tmp51062 - (let ((__tmp51063 - (let ((__tmp51066 + (let ((__tmp50881 (gx#datum->syntax '#f 'define-syntax)) + (__tmp50875 + (let ((__tmp50876 + (let ((__tmp50877 + (let ((__tmp50880 (gx#datum->syntax '#f 'lambda)) - (__tmp51064 - (let ((__tmp51065 + (__tmp50878 + (let ((__tmp50879 (foldr (lambda (_g1719217195_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1719317198_) @@ -37,27 +37,27 @@ _L17170_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L17172_ __tmp51065)))) + (cons _L17172_ __tmp50879)))) (declare (not safe)) - (cons __tmp51066 __tmp51064)))) + (cons __tmp50880 __tmp50878)))) (declare (not safe)) - (cons __tmp51063 '())))) + (cons __tmp50877 '())))) (declare (not safe)) - (cons _L17173_ __tmp51062)))) + (cons _L17173_ __tmp50876)))) (declare (not safe)) - (cons __tmp51067 __tmp51061)))) + (cons __tmp50881 __tmp50875)))) (___kont4647346474_ (lambda (_L17084_ _L17086_) - (let ((__tmp51070 (gx#datum->syntax '#f 'define-syntax)) - (__tmp51068 - (let ((__tmp51069 + (let ((__tmp50884 (gx#datum->syntax '#f 'define-syntax)) + (__tmp50882 + (let ((__tmp50883 (let () (declare (not safe)) (cons _L17084_ '())))) (declare (not safe)) - (cons _L17086_ __tmp51069)))) + (cons _L17086_ __tmp50883)))) (declare (not safe)) - (cons __tmp51070 __tmp51068))))) + (cons __tmp50884 __tmp50882))))) (let* ((___match4652146522_ (lambda (_e1703517054_ _hd1703417058_ @@ -345,37 +345,37 @@ (##cdr _e1722217273_)))) (if (gx#stx-pair/null? _tl1722017280_) - (let ((_g51071_ + (let ((_g50885_ (gx#syntax-split-splice _tl1722017280_ '0))) (begin - (let ((_g51072_ + (let ((_g50886_ (let () (declare (not safe)) (if (##values? - _g51071_) + _g50885_) (##vector-length - _g51071_) + _g50885_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g51072_ 2))) - (error "Context expects 2 values" _g51072_))) + (##fx= _g50886_ 2))) + (error "Context expects 2 values" _g50886_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target1722317283_ (let () (declare (not safe)) (##vector-ref - _g51071_ + _g50885_ 0))) (_tl1722517286_ (let () (declare (not safe)) (##vector-ref - _g51071_ + _g50885_ 1)))) (if (gx#stx-null? _tl1722517286_) @@ -402,31 +402,31 @@ (let ((_arg1723117309_ (reverse _arg1723017296_))) (if (gx#stx-pair/null? _tl1721717270_) - (let ((_g51073_ + (let ((_g50887_ (gx#syntax-split-splice _tl1721717270_ '0))) (begin - (let ((_g51074_ + (let ((_g50888_ (let () (declare (not safe)) - (if (##values? _g51073_) + (if (##values? _g50887_) (##vector-length - _g51073_) + _g50887_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g51074_ 2))) + (##fx= _g50888_ 2))) (error "Context expects 2 values" - _g51074_))) + _g50888_))) (let ((_target1723217313_ (let () (declare (not safe)) - (##vector-ref _g51073_ 0))) + (##vector-ref _g50887_ 0))) (_tl1723417316_ (let () (declare (not safe)) - (##vector-ref _g51073_ 1)))) + (##vector-ref _g50887_ 1)))) (if (gx#stx-null? _tl1723417316_) (letrec ((_loop1723517319_ (lambda (_hd1723317323_ @@ -479,28 +479,28 @@ (lambda (_g1740717427_) (if (gx#stx-pair/null? _g1740717427_) - (let ((_g51075_ + (let ((_g50889_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-split-splice _g1740717427_ '0))) (begin - (let ((_g51076_ + (let ((_g50890_ (let () (declare (not safe)) - (if (##values? _g51075_) - (##vector-length _g51075_) + (if (##values? _g50889_) + (##vector-length _g50889_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g51076_ 2))) - (error "Context expects 2 values" _g51076_))) + (##fx= _g50890_ 2))) + (error "Context expects 2 values" _g50890_))) (let ((_target1740917430_ (let () (declare (not safe)) - (##vector-ref _g51075_ 0))) + (##vector-ref _g50889_ 0))) (_tl1741117433_ (let () (declare (not safe)) - (##vector-ref _g51075_ 1)))) + (##vector-ref _g50889_ 1)))) (if (gx#stx-null? _tl1741117433_) (letrec ((_loop1741217436_ (lambda (_hd1741017440_ @@ -550,31 +550,31 @@ (let () (let () (gx#stx-wrap-source - (let ((__tmp51079 + (let ((__tmp50893 (gx#datum->syntax '#f 'begin)) - (__tmp51077 - (let ((__tmp51078 + (__tmp50891 + (let ((__tmp50892 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons _L17492_ '())))) (declare (not safe)) - (cons _L17520_ __tmp51078)))) + (cons _L17520_ __tmp50892)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51079 __tmp51077)) + (cons __tmp50893 __tmp50891)) (gx#stx-source _stx17206_))))) _g1750617517_)))) (_g1750417535_ (gx#stx-wrap-source - (let ((__tmp51084 + (let ((__tmp50898 (gx#datum->syntax '#f 'def)) - (__tmp51080 - (let ((__tmp51082 - (let ((__tmp51083 + (__tmp50894 + (let ((__tmp50896 + (let ((__tmp50897 (foldr (lambda (_g1754017543_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1754117546_) @@ -585,8 +585,8 @@ _L17345_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L17394_ __tmp51083))) - (__tmp51081 + (cons _L17394_ __tmp50897))) + (__tmp50895 (foldr (lambda (_g1753817549_ _g1753917552_) (let () @@ -598,24 +598,24 @@ _L17343_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51082 __tmp51081)))) + (cons __tmp50896 __tmp50895)))) (declare (not safe)) - (cons __tmp51084 __tmp51080)) + (cons __tmp50898 __tmp50894)) (gx#stx-source _stx17206_)))))) _g1747817489_)))) (_g1747617555_ (gx#stx-wrap-source - (let ((__tmp51112 (gx#datum->syntax '#f 'defrules)) - (__tmp51085 - (let ((__tmp51086 - (let ((__tmp51087 - (let ((__tmp51100 - (let ((__tmp51109 - (let ((__tmp51111 + (let ((__tmp50926 (gx#datum->syntax '#f 'defrules)) + (__tmp50899 + (let ((__tmp50900 + (let ((__tmp50901 + (let ((__tmp50914 + (let ((__tmp50923 + (let ((__tmp50925 (gx#datum->syntax '#f '_)) - (__tmp51110 + (__tmp50924 (foldr (lambda (_g1756417567_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1756517570_) @@ -625,15 +625,15 @@ '() _L17460_))) (declare (not safe)) - (cons __tmp51111 __tmp51110))) + (cons __tmp50925 __tmp50924))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp51101 - (let ((__tmp51102 - (let ((__tmp51104 + (__tmp50915 + (let ((__tmp50916 + (let ((__tmp50918 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp51108 (gx#datum->syntax '#f 'lambda)) - (__tmp51105 - (let ((__tmp51107 + (let ((__tmp50922 (gx#datum->syntax '#f 'lambda)) + (__tmp50919 + (let ((__tmp50921 (foldr (lambda (_g1756217573_ _g1756317576_) (let () @@ -642,7 +642,7 @@ _g1756317576_))) '() _L17345_)) - (__tmp51106 + (__tmp50920 (foldr (lambda (_g1756017579_ _g1756117582_) (let () @@ -652,10 +652,10 @@ '() _L17343_))) (declare (not safe)) - (cons __tmp51107 __tmp51106)))) + (cons __tmp50921 __tmp50920)))) (declare (not safe)) - (cons __tmp51108 __tmp51105))) - (__tmp51103 + (cons __tmp50922 __tmp50919))) + (__tmp50917 (foldr (lambda (_g1755817585_ _g1755917588_) (let () (declare (not safe)) @@ -663,59 +663,59 @@ '() _L17460_))) (declare (not safe)) - (cons __tmp51104 __tmp51103)))) + (cons __tmp50918 __tmp50917)))) (declare (not safe)) - (cons __tmp51102 '())))) + (cons __tmp50916 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51109 __tmp51101))) - (__tmp51088 - (let ((__tmp51089 - (let ((__tmp51099 + (cons __tmp50923 __tmp50915))) + (__tmp50902 + (let ((__tmp50903 + (let ((__tmp50913 (gx#datum->syntax '#f 'ref)) - (__tmp51090 - (let ((__tmp51092 + (__tmp50904 + (let ((__tmp50906 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp51098 + (let ((__tmp50912 (gx#datum->syntax '#f 'identifier?)) - (__tmp51093 - (let ((__tmp51094 - (let ((__tmp51097 + (__tmp50907 + (let ((__tmp50908 + (let ((__tmp50911 (gx#datum->syntax '#f 'syntax)) - (__tmp51095 - (let ((__tmp51096 + (__tmp50909 + (let ((__tmp50910 (gx#datum->syntax '#f 'ref))) (declare (not safe)) - (cons __tmp51096 '())))) + (cons __tmp50910 '())))) (declare (not safe)) - (cons __tmp51097 __tmp51095)))) + (cons __tmp50911 __tmp50909)))) (declare (not safe)) - (cons __tmp51094 '())))) + (cons __tmp50908 '())))) (declare (not safe)) - (cons __tmp51098 __tmp51093))) - (__tmp51091 + (cons __tmp50912 __tmp50907))) + (__tmp50905 (let () (declare (not safe)) (cons _L17394_ '())))) (declare (not safe)) - (cons __tmp51092 __tmp51091)))) + (cons __tmp50906 __tmp50905)))) (declare (not safe)) - (cons __tmp51099 __tmp51090)))) + (cons __tmp50913 __tmp50904)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51089 '())))) + (cons __tmp50903 '())))) (declare (not safe)) - (cons __tmp51100 __tmp51088)))) + (cons __tmp50914 __tmp50902)))) (declare (not safe)) - (cons '() __tmp51087)))) + (cons '() __tmp50901)))) (declare (not safe)) - (cons _L17346_ __tmp51086)))) + (cons _L17346_ __tmp50900)))) (declare (not safe)) - (cons __tmp51112 __tmp51085)) + (cons __tmp50926 __tmp50899)) (gx#stx-source _stx17206_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _xarg1741717456_)))))) @@ -770,79 +770,79 @@ ___stx4652446525_)))) (let ((___kont4652746528_ (lambda (_L17769_ _L17771_) - (let ((__tmp51130 (gx#datum->syntax '#f 'defrules)) - (__tmp51113 - (let ((__tmp51114 - (let ((__tmp51115 - (let ((__tmp51116 - (let ((__tmp51129 + (let ((__tmp50944 (gx#datum->syntax '#f 'defrules)) + (__tmp50927 + (let ((__tmp50928 + (let ((__tmp50929 + (let ((__tmp50930 + (let ((__tmp50943 (gx#datum->syntax '#f 'x)) - (__tmp51117 - (let ((__tmp51122 - (let ((__tmp51128 + (__tmp50931 + (let ((__tmp50936 + (let ((__tmp50942 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'identifier?)) - (__tmp51123 - (let ((__tmp51124 - (let ((__tmp51127 + (__tmp50937 + (let ((__tmp50938 + (let ((__tmp50941 (gx#datum->syntax '#f 'syntax)) - (__tmp51125 - (let ((__tmp51126 + (__tmp50939 + (let ((__tmp50940 (gx#datum->syntax '#f 'x))) (declare (not safe)) - (cons __tmp51126 '())))) + (cons __tmp50940 '())))) (declare (not safe)) - (cons __tmp51127 __tmp51125)))) + (cons __tmp50941 __tmp50939)))) (declare (not safe)) - (cons __tmp51124 '())))) + (cons __tmp50938 '())))) (declare (not safe)) - (cons __tmp51128 __tmp51123))) - (__tmp51118 - (let ((__tmp51119 - (let ((__tmp51121 (gx#datum->syntax '#f 'quote)) - (__tmp51120 + (cons __tmp50942 __tmp50937))) + (__tmp50932 + (let ((__tmp50933 + (let ((__tmp50935 (gx#datum->syntax '#f 'quote)) + (__tmp50934 (let () (declare (not safe)) (cons _L17769_ '())))) (declare (not safe)) - (cons __tmp51121 __tmp51120)))) + (cons __tmp50935 __tmp50934)))) (declare (not safe)) - (cons __tmp51119 '())))) + (cons __tmp50933 '())))) (declare (not safe)) - (cons __tmp51122 __tmp51118)))) + (cons __tmp50936 __tmp50932)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51129 - __tmp51117)))) + (cons __tmp50943 + __tmp50931)))) (declare (not safe)) - (cons __tmp51116 '())))) + (cons __tmp50930 '())))) (declare (not safe)) - (cons '() __tmp51115)))) + (cons '() __tmp50929)))) (declare (not safe)) - (cons _L17771_ __tmp51114)))) + (cons _L17771_ __tmp50928)))) (declare (not safe)) - (cons __tmp51130 __tmp51113)))) + (cons __tmp50944 __tmp50927)))) (___kont4652946530_ (lambda (_L17692_ _L17694_ _L17695_) - (let ((__tmp51131 - (let ((__tmp51132 - (let ((__tmp51133 - (let ((__tmp51135 + (let ((__tmp50945 + (let ((__tmp50946 + (let ((__tmp50947 + (let ((__tmp50949 (gx#datum->syntax '#f 'quote)) - (__tmp51134 + (__tmp50948 (let () (declare (not safe)) (cons _L17692_ '())))) (declare (not safe)) - (cons __tmp51135 __tmp51134)))) + (cons __tmp50949 __tmp50948)))) (declare (not safe)) - (cons __tmp51133 '())))) + (cons __tmp50947 '())))) (declare (not safe)) - (cons _L17694_ __tmp51132)))) + (cons _L17694_ __tmp50946)))) (declare (not safe)) - (cons _L17695_ __tmp51131))))) + (cons _L17695_ __tmp50945))))) (let* ((___match4658946590_ (lambda (_e1764317662_ _hd1764217666_ @@ -933,7 +933,7 @@ (if (gx#identifier? _hd1763317753_) (if (gx#free-identifier=? - |gerbil/core$<sugar>$<sugar:3>[1]#_g51136_| + |gerbil/core$<sugar>$<sugar:3>[1]#_g50950_| _hd1763317753_) (if (gx#stx-pair? _tl1763217756_) diff --git a/src/bootstrap/gerbil/core__6.scm b/src/bootstrap/gerbil/core__6.scm index d24e29df..5d00581c 100644 --- a/src/bootstrap/gerbil/core__6.scm +++ b/src/bootstrap/gerbil/core__6.scm @@ -216,32 +216,32 @@ (_g1795419119_ (lambda (_g1795617976_) (if (gx#stx-pair/null? _g1795617976_) - (let ((_g51137_ + (let ((_g50951_ (gx#syntax-split-splice _g1795617976_ '0))) (begin - (let ((_g51138_ + (let ((_g50952_ (let () (declare (not safe)) - (if (##values? _g51137_) + (if (##values? _g50951_) (##vector-length - _g51137_) + _g50951_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g51138_ 2))) + (##fx= _g50952_ 2))) (error "Context expects 2 values" - _g51138_))) + _g50952_))) (let ((_target1795817979_ (let () (declare (not safe)) - (##vector-ref _g51137_ 0))) + (##vector-ref _g50951_ 0))) (_tl1796017982_ (let () (declare (not safe)) (##vector-ref - _g51137_ + _g50951_ 1)))) (if (gx#stx-null? _tl1796017982_) (letrec ((_loop1796117985_ @@ -258,7 +258,7 @@ (let () (declare (not safe)) (##cdr _e1796217995_)))) - (let ((__tmp51359 + (let ((__tmp51173 (let () (declare (not safe)) (cons _lp-hd1796317999_ @@ -266,7 +266,7 @@ (declare (not safe)) (_loop1796117985_ _lp-tl1796418002_ - __tmp51359)))) + __tmp51173)))) (let ((_slot1796618005_ (reverse _slot1796517992_))) ((lambda (_L18009_) (let () @@ -456,28 +456,28 @@ (lambda (_g1850718536_) (if (gx#stx-pair/null? _g1850718536_) - (let ((_g51139_ + (let ((_g50953_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-split-splice _g1850718536_ '0))) (begin - (let ((_g51140_ + (let ((_g50954_ (let () (declare (not safe)) - (if (##values? _g51139_) - (##vector-length _g51139_) + (if (##values? _g50953_) + (##vector-length _g50953_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g51140_ 2))) - (error "Context expects 2 values" _g51140_))) + (##fx= _g50954_ 2))) + (error "Context expects 2 values" _g50954_))) (let ((_target1851018539_ (let () (declare (not safe)) - (##vector-ref _g51139_ 0))) + (##vector-ref _g50953_ 0))) (_tl1851218542_ (let () (declare (not safe)) - (##vector-ref _g51139_ 1)))) + (##vector-ref _g50953_ 1)))) (if (gx#stx-null? _tl1851218542_) (letrec ((_loop1851318545_ (lambda (_hd1851118549_ @@ -518,12 +518,12 @@ (declare (not safe)) (##cdr _e1852618577_)))) (if (gx#stx-null? _tl1852418584_) - (let ((__tmp51197 + (let ((__tmp51011 (let () (declare (not safe)) (cons _hd1852518581_ _def-setf1851718552_))) - (__tmp51196 + (__tmp51010 (let () (declare (not safe)) (cons _hd1852218571_ @@ -531,8 +531,8 @@ (declare (not safe)) (_loop1851318545_ _lp-tl1851618564_ - __tmp51197 - __tmp51196)) + __tmp51011 + __tmp51010)) (let () (declare (not safe)) (_g1850618532_ _g1850718536_))))) @@ -557,28 +557,28 @@ (_g1861118752_ (lambda (_g1861318642_) (if (gx#stx-pair/null? _g1861318642_) - (let ((_g51141_ + (let ((_g50955_ (gx#syntax-split-splice _g1861318642_ '0))) (begin - (let ((_g51142_ + (let ((_g50956_ (let () (declare (not safe)) - (if (##values? _g51141_) - (##vector-length _g51141_) + (if (##values? _g50955_) + (##vector-length _g50955_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g51142_ 2))) + (##fx= _g50956_ 2))) (error "Context expects 2 values" - _g51142_))) + _g50956_))) (let ((_target1861618645_ (let () (declare (not safe)) - (##vector-ref _g51141_ 0))) + (##vector-ref _g50955_ 0))) (_tl1861818648_ (let () (declare (not safe)) - (##vector-ref _g51141_ 1)))) + (##vector-ref _g50955_ 1)))) (if (gx#stx-null? _tl1861818648_) (letrec ((_loop1861918651_ (lambda (_hd1861718655_ @@ -618,12 +618,12 @@ (declare (not safe)) (##cdr _e1863218683_)))) (if (gx#stx-null? _tl1863018690_) - (let ((__tmp51150 + (let ((__tmp50964 (let () (declare (not safe)) (cons _hd1863118687_ _def-usetf1862318658_))) - (__tmp51149 + (__tmp50963 (let () (declare (not safe)) (cons _hd1862818677_ @@ -631,8 +631,8 @@ (declare (not safe)) (_loop1861918651_ _lp-tl1862218670_ - __tmp51150 - __tmp51149)) + __tmp50964 + __tmp50963)) (let () (declare (not safe)) (_g1861218638_ _g1861318642_))))) @@ -647,12 +647,12 @@ ((lambda (_L18699_ _L18701_) (let () (let () - (let ((__tmp51143 - (let ((__tmp51148 (gx#datum->syntax '#f 'begin)) - (__tmp51144 - (let ((__tmp51145 - (let ((__tmp51146 - (let ((__tmp51147 + (let ((__tmp50957 + (let ((__tmp50962 (gx#datum->syntax '#f 'begin)) + (__tmp50958 + (let ((__tmp50959 + (let ((__tmp50960 + (let ((__tmp50961 (foldr (lambda (_g1871918728_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1872018731_) @@ -681,15 +681,15 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons _L18465_ - __tmp51147)))) + __tmp50961)))) (declare (not safe)) - (cons _L18493_ __tmp51146)))) + (cons _L18493_ __tmp50960)))) (declare (not safe)) - (cons _L18437_ __tmp51145)))) + (cons _L18437_ __tmp50959)))) (declare (not safe)) - (cons __tmp51148 __tmp51144)))) + (cons __tmp50962 __tmp50958)))) (declare (not safe)) - (_wrap17800_ __tmp51143))))) + (_wrap17800_ __tmp50957))))) _def-usetf1862518693_ _def-ugetf1862618696_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -705,7 +705,7 @@ (let () (declare (not safe)) (_g1861218638_ _g1861318642_))))) - (__tmp51151 + (__tmp50965 (gx#stx-map (lambda (_ref18756_) (let* ((_g1875918778_ @@ -790,148 +790,148 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _L18880_) (let () - (let ((__tmp51174 - (let ((__tmp51175 - (let ((__tmp51194 + (let ((__tmp50988 + (let ((__tmp50989 + (let ((__tmp51008 (gx#datum->syntax '#f 'def)) - (__tmp51176 - (let ((__tmp51177 - (let ((__tmp51178 - (let ((__tmp51193 + (__tmp50990 + (let ((__tmp50991 + (let ((__tmp50992 + (let ((__tmp51007 (gx#datum->syntax '#f 'begin-annotation)) - (__tmp51179 - (let ((__tmp51188 + (__tmp50993 + (let ((__tmp51002 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp51192 + (let ((__tmp51006 (gx#datum->syntax '#f '@mop.accessor)) - (__tmp51189 - (let ((__tmp51190 - (let ((__tmp51191 + (__tmp51003 + (let ((__tmp51004 + (let ((__tmp51005 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons _L18818_ __tmp51191)))) + (cons _L18818_ __tmp51005)))) (declare (not safe)) - (cons _L18129_ __tmp51190)))) + (cons _L18129_ __tmp51004)))) (declare (not safe)) - (cons __tmp51192 __tmp51189))) - (__tmp51180 - (let ((__tmp51181 - (let ((__tmp51187 + (cons __tmp51006 __tmp51003))) + (__tmp50994 + (let ((__tmp50995 + (let ((__tmp51001 (gx#datum->syntax '#f 'make-class-slot-unchecked-accessor)) - (__tmp51182 - (let ((__tmp51183 - (let ((__tmp51184 - (let ((__tmp51186 + (__tmp50996 + (let ((__tmp50997 + (let ((__tmp50998 + (let ((__tmp51000 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'quote)) - (__tmp51185 + (__tmp50999 (let () (declare (not safe)) (cons _L18818_ '())))) (declare (not safe)) - (cons __tmp51186 __tmp51185)))) + (cons __tmp51000 __tmp50999)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51184 '())))) + (cons __tmp50998 '())))) (declare (not safe)) - (cons _L17894_ __tmp51183)))) + (cons _L17894_ __tmp50997)))) (declare (not safe)) - (cons __tmp51187 __tmp51182)))) + (cons __tmp51001 __tmp50996)))) (declare (not safe)) - (cons __tmp51181 '())))) + (cons __tmp50995 '())))) (declare (not safe)) - (cons __tmp51188 __tmp51180)))) + (cons __tmp51002 __tmp50994)))) (declare (not safe)) - (cons __tmp51193 __tmp51179)))) + (cons __tmp51007 __tmp50993)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51178 '())))) + (cons __tmp50992 '())))) (declare (not safe)) - (cons _L18880_ __tmp51177)))) + (cons _L18880_ __tmp50991)))) (declare (not safe)) - (cons __tmp51194 __tmp51176)))) + (cons __tmp51008 __tmp50990)))) (declare (not safe)) - (_wrap17800_ __tmp51175))) - (__tmp51152 - (let ((__tmp51153 - (let ((__tmp51154 - (let ((__tmp51173 + (_wrap17800_ __tmp50989))) + (__tmp50966 + (let ((__tmp50967 + (let ((__tmp50968 + (let ((__tmp50987 (gx#datum->syntax '#f 'def)) - (__tmp51155 - (let ((__tmp51156 - (let ((__tmp51157 - (let ((__tmp51172 + (__tmp50969 + (let ((__tmp50970 + (let ((__tmp50971 + (let ((__tmp50986 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'begin-annotation)) - (__tmp51158 - (let ((__tmp51167 - (let ((__tmp51171 + (__tmp50972 + (let ((__tmp50981 + (let ((__tmp50985 (gx#datum->syntax '#f '@mop.mutator)) - (__tmp51168 - (let ((__tmp51169 - (let ((__tmp51170 + (__tmp50982 + (let ((__tmp50983 + (let ((__tmp50984 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) (cons _L18818_ - __tmp51170)))) + __tmp50984)))) (declare (not safe)) - (cons _L18129_ __tmp51169)))) + (cons _L18129_ __tmp50983)))) (declare (not safe)) - (cons __tmp51171 __tmp51168))) - (__tmp51159 - (let ((__tmp51160 - (let ((__tmp51166 + (cons __tmp50985 __tmp50982))) + (__tmp50973 + (let ((__tmp50974 + (let ((__tmp50980 (gx#datum->syntax '#f 'make-class-slot-unchecked-mutator)) - (__tmp51161 - (let ((__tmp51162 - (let ((__tmp51163 + (__tmp50975 + (let ((__tmp50976 + (let ((__tmp50977 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp51165 (gx#datum->syntax '#f 'quote)) - (__tmp51164 + (let ((__tmp50979 (gx#datum->syntax '#f 'quote)) + (__tmp50978 (let () (declare (not safe)) (cons _L18818_ '())))) (declare (not safe)) - (cons __tmp51165 __tmp51164)))) + (cons __tmp50979 __tmp50978)))) (declare (not safe)) - (cons __tmp51163 '())))) + (cons __tmp50977 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons _L17894_ - __tmp51162)))) + __tmp50976)))) (declare (not safe)) - (cons __tmp51166 __tmp51161)))) + (cons __tmp50980 __tmp50975)))) (declare (not safe)) - (cons __tmp51160 '())))) + (cons __tmp50974 '())))) (declare (not safe)) - (cons __tmp51167 __tmp51159)))) + (cons __tmp50981 __tmp50973)))) (declare (not safe)) - (cons __tmp51172 __tmp51158)))) + (cons __tmp50986 __tmp50972)))) (declare (not safe)) - (cons __tmp51157 '())))) + (cons __tmp50971 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons _L18878_ - __tmp51156)))) + __tmp50970)))) (declare (not safe)) - (cons __tmp51173 __tmp51155)))) + (cons __tmp50987 __tmp50969)))) (declare (not safe)) - (_wrap17800_ __tmp51154)))) + (_wrap17800_ __tmp50968)))) (declare (not safe)) - (cons __tmp51153 '())))) + (cons __tmp50967 '())))) (declare (not safe)) - (cons __tmp51174 __tmp51152)))) + (cons __tmp50988 __tmp50966)))) _hd1884418872_ _hd1884118862_) (let () (declare (not safe)) (_g1883618851_ _g1883718855_))))) @@ -943,7 +943,7 @@ (let () (declare (not safe)) (_g1883618851_ _g1883718855_))))) - (__tmp51195 + (__tmp51009 (list (gx#stx-identifier _L18817_ '"&" @@ -953,7 +953,7 @@ '"&" _L18815_)))) (declare (not safe)) - (_g1883518896_ __tmp51195))) + (_g1883518896_ __tmp51009))) _hd1877118809_ _hd1876818799_ _hd1876518789_) @@ -973,7 +973,7 @@ (_g1875818900_ _ref18756_))) _accessible-slots17949_))) (declare (not safe)) - (_g1861118752_ __tmp51151)))) + (_g1861118752_ __tmp50965)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _def-setf1851918587_ _def-getf1852018590_)))))) @@ -989,7 +989,7 @@ (let () (declare (not safe)) (_g1850618532_ _g1850718536_))))) - (__tmp51198 + (__tmp51012 (gx#stx-map (lambda (_ref18908_) (let* ((_g1891118930_ @@ -1040,148 +1040,148 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _L18969_ _L18970_) - (let ((__tmp51221 - (let ((__tmp51222 - (let ((__tmp51241 (gx#datum->syntax '#f 'def)) - (__tmp51223 - (let ((__tmp51224 - (let ((__tmp51225 - (let ((__tmp51240 + (let ((__tmp51035 + (let ((__tmp51036 + (let ((__tmp51055 (gx#datum->syntax '#f 'def)) + (__tmp51037 + (let ((__tmp51038 + (let ((__tmp51039 + (let ((__tmp51054 (gx#datum->syntax '#f 'begin-annotation)) - (__tmp51226 - (let ((__tmp51235 + (__tmp51040 + (let ((__tmp51049 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp51239 + (let ((__tmp51053 (gx#datum->syntax '#f '@mop.accessor)) - (__tmp51236 - (let ((__tmp51237 - (let ((__tmp51238 + (__tmp51050 + (let ((__tmp51051 + (let ((__tmp51052 (let () (declare (not safe)) (cons '#t '())))) (declare (not safe)) - (cons _L18970_ __tmp51238)))) + (cons _L18970_ __tmp51052)))) (declare (not safe)) - (cons _L18129_ __tmp51237)))) + (cons _L18129_ __tmp51051)))) (declare (not safe)) - (cons __tmp51239 __tmp51236))) - (__tmp51227 - (let ((__tmp51228 - (let ((__tmp51234 + (cons __tmp51053 __tmp51050))) + (__tmp51041 + (let ((__tmp51042 + (let ((__tmp51048 (gx#datum->syntax '#f 'make-class-slot-accessor)) - (__tmp51229 - (let ((__tmp51230 - (let ((__tmp51231 - (let ((__tmp51233 + (__tmp51043 + (let ((__tmp51044 + (let ((__tmp51045 + (let ((__tmp51047 (gx#datum->syntax '#f 'quote)) - (__tmp51232 + (__tmp51046 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (cons _L18970_ '())))) (declare (not safe)) - (cons __tmp51233 __tmp51232)))) + (cons __tmp51047 __tmp51046)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51231 '())))) + (cons __tmp51045 '())))) (declare (not safe)) - (cons _L17894_ __tmp51230)))) + (cons _L17894_ __tmp51044)))) (declare (not safe)) - (cons __tmp51234 __tmp51229)))) + (cons __tmp51048 __tmp51043)))) (declare (not safe)) - (cons __tmp51228 '())))) + (cons __tmp51042 '())))) (declare (not safe)) - (cons __tmp51235 __tmp51227)))) + (cons __tmp51049 __tmp51041)))) (declare (not safe)) - (cons __tmp51240 __tmp51226)))) + (cons __tmp51054 __tmp51040)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51225 '())))) + (cons __tmp51039 '())))) (declare (not safe)) - (cons _L18969_ __tmp51224)))) + (cons _L18969_ __tmp51038)))) (declare (not safe)) - (cons __tmp51241 __tmp51223)))) + (cons __tmp51055 __tmp51037)))) (declare (not safe)) - (_wrap17800_ __tmp51222))) - (__tmp51199 - (let ((__tmp51200 - (let ((__tmp51201 - (let ((__tmp51220 + (_wrap17800_ __tmp51036))) + (__tmp51013 + (let ((__tmp51014 + (let ((__tmp51015 + (let ((__tmp51034 (gx#datum->syntax '#f 'def)) - (__tmp51202 - (let ((__tmp51203 - (let ((__tmp51204 - (let ((__tmp51219 + (__tmp51016 + (let ((__tmp51017 + (let ((__tmp51018 + (let ((__tmp51033 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'begin-annotation)) - (__tmp51205 - (let ((__tmp51214 - (let ((__tmp51218 + (__tmp51019 + (let ((__tmp51028 + (let ((__tmp51032 (gx#datum->syntax '#f '@mop.mutator)) - (__tmp51215 - (let ((__tmp51216 - (let ((__tmp51217 + (__tmp51029 + (let ((__tmp51030 + (let ((__tmp51031 (let () (declare (not safe)) (cons '#t '())))) (declare (not safe)) (cons _L18970_ - __tmp51217)))) + __tmp51031)))) (declare (not safe)) - (cons _L18129_ __tmp51216)))) + (cons _L18129_ __tmp51030)))) (declare (not safe)) - (cons __tmp51218 __tmp51215))) - (__tmp51206 - (let ((__tmp51207 - (let ((__tmp51213 + (cons __tmp51032 __tmp51029))) + (__tmp51020 + (let ((__tmp51021 + (let ((__tmp51027 (gx#datum->syntax '#f 'make-class-slot-mutator)) - (__tmp51208 - (let ((__tmp51209 - (let ((__tmp51210 - (let ((__tmp51212 + (__tmp51022 + (let ((__tmp51023 + (let ((__tmp51024 + (let ((__tmp51026 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'quote)) - (__tmp51211 + (__tmp51025 (let () (declare (not safe)) (cons _L18970_ '())))) (declare (not safe)) - (cons __tmp51212 __tmp51211)))) + (cons __tmp51026 __tmp51025)))) (declare (not safe)) - (cons __tmp51210 '())))) + (cons __tmp51024 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons _L17894_ - __tmp51209)))) + __tmp51023)))) (declare (not safe)) - (cons __tmp51213 __tmp51208)))) + (cons __tmp51027 __tmp51022)))) (declare (not safe)) - (cons __tmp51207 '())))) + (cons __tmp51021 '())))) (declare (not safe)) - (cons __tmp51214 __tmp51206)))) + (cons __tmp51028 __tmp51020)))) (declare (not safe)) - (cons __tmp51219 __tmp51205)))) + (cons __tmp51033 __tmp51019)))) (declare (not safe)) - (cons __tmp51204 '())))) + (cons __tmp51018 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L18967_ __tmp51203)))) + (cons _L18967_ __tmp51017)))) (declare (not safe)) - (cons __tmp51220 __tmp51202)))) + (cons __tmp51034 __tmp51016)))) (declare (not safe)) - (_wrap17800_ __tmp51201)))) + (_wrap17800_ __tmp51015)))) (declare (not safe)) - (cons __tmp51200 '())))) + (cons __tmp51014 '())))) (declare (not safe)) - (cons __tmp51221 __tmp51199))) + (cons __tmp51035 __tmp51013))) _hd1892318961_ _hd1892018951_ _hd1891718941_) @@ -1202,171 +1202,171 @@ _accessible-slots17949_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g1850518904_ __tmp51198)))) + (_g1850518904_ __tmp51012)))) _g1847918490_))) - (__tmp51242 - (let ((__tmp51243 - (let ((__tmp51256 + (__tmp51056 + (let ((__tmp51057 + (let ((__tmp51070 (gx#datum->syntax '#f 'def)) - (__tmp51244 - (let ((__tmp51245 - (let ((__tmp51246 + (__tmp51058 + (let ((__tmp51059 + (let ((__tmp51060 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp51255 + (let ((__tmp51069 (gx#datum->syntax '#f 'begin-annotation)) - (__tmp51247 - (let ((__tmp51252 - (let ((__tmp51254 + (__tmp51061 + (let ((__tmp51066 + (let ((__tmp51068 (gx#datum->syntax '#f '@mop.predicate)) - (__tmp51253 + (__tmp51067 (let () (declare (not safe)) (cons _L18129_ '())))) (declare (not safe)) - (cons __tmp51254 __tmp51253))) - (__tmp51248 - (let ((__tmp51249 - (let ((__tmp51251 + (cons __tmp51068 __tmp51067))) + (__tmp51062 + (let ((__tmp51063 + (let ((__tmp51065 (gx#datum->syntax '#f 'make-class-predicate)) - (__tmp51250 + (__tmp51064 (let () (declare (not safe)) (cons _L17894_ '())))) (declare (not safe)) - (cons __tmp51251 - __tmp51250)))) + (cons __tmp51065 + __tmp51064)))) (declare (not safe)) - (cons __tmp51249 '())))) + (cons __tmp51063 '())))) (declare (not safe)) - (cons __tmp51252 __tmp51248)))) + (cons __tmp51066 __tmp51062)))) (declare (not safe)) - (cons __tmp51255 __tmp51247)))) + (cons __tmp51069 __tmp51061)))) (declare (not safe)) - (cons __tmp51246 '())))) + (cons __tmp51060 '())))) (declare (not safe)) - (cons _L17891_ __tmp51245)))) + (cons _L17891_ __tmp51059)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51256 - __tmp51244)))) + (cons __tmp51070 + __tmp51058)))) (declare (not safe)) - (_wrap17800_ __tmp51243)))) + (_wrap17800_ __tmp51057)))) (declare (not safe)) - (_g1847718992_ __tmp51242)))) + (_g1847718992_ __tmp51056)))) _g1845118462_))) - (__tmp51257 + (__tmp51071 (if (gx#stx-false? _L17892_) - (let ((__tmp51281 (gx#datum->syntax '#f 'begin))) + (let ((__tmp51095 (gx#datum->syntax '#f 'begin))) (declare (not safe)) - (cons __tmp51281 '())) - (let ((__tmp51258 - (let ((__tmp51280 + (cons __tmp51095 '())) + (let ((__tmp51072 + (let ((__tmp51094 (gx#datum->syntax '#f 'def)) - (__tmp51259 - (let ((__tmp51260 - (let ((__tmp51261 - (let ((__tmp51279 + (__tmp51073 + (let ((__tmp51074 + (let ((__tmp51075 + (let ((__tmp51093 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'begin-annotation)) - (__tmp51262 - (let ((__tmp51276 - (let ((__tmp51278 + (__tmp51076 + (let ((__tmp51090 + (let ((__tmp51092 (gx#datum->syntax '#f '@mop.constructor)) - (__tmp51277 + (__tmp51091 (let () (declare (not safe)) (cons _L18129_ '())))) (declare (not safe)) - (cons __tmp51278 __tmp51277))) - (__tmp51263 - (let ((__tmp51264 - (let ((__tmp51275 + (cons __tmp51092 __tmp51091))) + (__tmp51077 + (let ((__tmp51078 + (let ((__tmp51089 (gx#datum->syntax '#f 'lambda)) - (__tmp51265 - (let ((__tmp51274 + (__tmp51079 + (let ((__tmp51088 (gx#datum->syntax '#f '$args)) - (__tmp51266 - (let ((__tmp51267 - (let ((__tmp51273 + (__tmp51080 + (let ((__tmp51081 + (let ((__tmp51087 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'apply)) - (__tmp51268 - (let ((__tmp51272 + (__tmp51082 + (let ((__tmp51086 (gx#datum->syntax '#f 'make-instance)) - (__tmp51269 - (let ((__tmp51270 - (let ((__tmp51271 + (__tmp51083 + (let ((__tmp51084 + (let ((__tmp51085 (gx#datum->syntax '#f '$args))) (declare (not safe)) - (cons __tmp51271 '())))) + (cons __tmp51085 '())))) (declare (not safe)) - (cons _L17894_ __tmp51270)))) + (cons _L17894_ __tmp51084)))) (declare (not safe)) - (cons __tmp51272 __tmp51269)))) + (cons __tmp51086 __tmp51083)))) (declare (not safe)) - (cons __tmp51273 __tmp51268)))) + (cons __tmp51087 __tmp51082)))) (declare (not safe)) - (cons __tmp51267 '())))) + (cons __tmp51081 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51274 __tmp51266)))) + (cons __tmp51088 __tmp51080)))) (declare (not safe)) - (cons __tmp51275 __tmp51265)))) + (cons __tmp51089 __tmp51079)))) (declare (not safe)) - (cons __tmp51264 '())))) + (cons __tmp51078 '())))) (declare (not safe)) - (cons __tmp51276 __tmp51263)))) + (cons __tmp51090 __tmp51077)))) (declare (not safe)) - (cons __tmp51279 __tmp51262)))) + (cons __tmp51093 __tmp51076)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51261 '())))) + (cons __tmp51075 '())))) (declare (not safe)) - (cons _L17892_ __tmp51260)))) + (cons _L17892_ __tmp51074)))) (declare (not safe)) - (cons __tmp51280 __tmp51259)))) + (cons __tmp51094 __tmp51073)))) (declare (not safe)) - (_wrap17800_ __tmp51258))))) + (_wrap17800_ __tmp51072))))) (declare (not safe)) - (_g1844918996_ __tmp51257)))) + (_g1844918996_ __tmp51071)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g1842318434_))) - (__tmp51282 - (let ((__tmp51283 - (let ((__tmp51300 + (__tmp51096 + (let ((__tmp51097 + (let ((__tmp51114 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'def)) - (__tmp51284 - (let ((__tmp51285 - (let ((__tmp51286 - (let ((__tmp51299 + (__tmp51098 + (let ((__tmp51099 + (let ((__tmp51100 + (let ((__tmp51113 (gx#datum->syntax '#f 'begin-annotation)) - (__tmp51287 - (let ((__tmp51289 - (let ((__tmp51298 + (__tmp51101 + (let ((__tmp51103 + (let ((__tmp51112 (gx#datum->syntax '#f '@mop.class)) - (__tmp51290 - (let ((__tmp51291 + (__tmp51104 + (let ((__tmp51105 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp51292 - (let ((__tmp51297 + (let ((__tmp51106 + (let ((__tmp51111 (foldr (lambda (_g1900319006_ _g1900419009_) (let () @@ -1375,89 +1375,89 @@ _g1900419009_))) '() _L18009_)) - (__tmp51293 - (let ((__tmp51294 - (let ((__tmp51295 - (let ((__tmp51296 + (__tmp51107 + (let ((__tmp51108 + (let ((__tmp51109 + (let ((__tmp51110 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons _L18241_ '())))) (declare (not safe)) - (cons _L18213_ __tmp51296)))) + (cons _L18213_ __tmp51110)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L18185_ __tmp51295)))) + (cons _L18185_ __tmp51109)))) (declare (not safe)) - (cons _L18101_ __tmp51294)))) + (cons _L18101_ __tmp51108)))) (declare (not safe)) - (cons __tmp51297 __tmp51293)))) + (cons __tmp51111 __tmp51107)))) (declare (not safe)) - (cons _L18157_ __tmp51292)))) + (cons _L18157_ __tmp51106)))) (declare (not safe)) - (cons _L18045_ __tmp51291)))) + (cons _L18045_ __tmp51105)))) (declare (not safe)) - (cons __tmp51298 __tmp51290))) + (cons __tmp51112 __tmp51104))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp51288 + (__tmp51102 (let () (declare (not safe)) (cons _L18409_ '())))) (declare (not safe)) - (cons __tmp51289 __tmp51288)))) + (cons __tmp51103 __tmp51102)))) (declare (not safe)) - (cons __tmp51299 __tmp51287)))) + (cons __tmp51113 __tmp51101)))) (declare (not safe)) - (cons __tmp51286 '())))) + (cons __tmp51100 '())))) (declare (not safe)) - (cons _L17894_ __tmp51285)))) + (cons _L17894_ __tmp51099)))) (declare (not safe)) - (cons __tmp51300 __tmp51284)))) + (cons __tmp51114 __tmp51098)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_wrap17800_ __tmp51283)))) + (_wrap17800_ __tmp51097)))) (declare (not safe)) - (_g1842119000_ __tmp51282)))) + (_g1842119000_ __tmp51096)))) _g1839518406_))) - (__tmp51301 - (let ((__tmp51321 + (__tmp51115 + (let ((__tmp51135 (gx#datum->syntax '#f 'make-class-type)) - (__tmp51302 - (let ((__tmp51318 - (let ((__tmp51320 + (__tmp51116 + (let ((__tmp51132 + (let ((__tmp51134 (gx#datum->syntax '#f 'quote)) - (__tmp51319 + (__tmp51133 (let () (declare (not safe)) (cons _L18045_ '())))) (declare (not safe)) - (cons __tmp51320 - __tmp51319))) - (__tmp51303 - (let ((__tmp51315 - (let ((__tmp51317 + (cons __tmp51134 + __tmp51133))) + (__tmp51117 + (let ((__tmp51129 + (let ((__tmp51131 (gx#datum->syntax '#f 'quote)) - (__tmp51316 + (__tmp51130 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (cons _L18073_ '())))) (declare (not safe)) - (cons __tmp51317 __tmp51316))) - (__tmp51304 - (let ((__tmp51305 - (let ((__tmp51311 - (let ((__tmp51314 (gx#datum->syntax '#f 'quote)) - (__tmp51312 - (let ((__tmp51313 + (cons __tmp51131 __tmp51130))) + (__tmp51118 + (let ((__tmp51119 + (let ((__tmp51125 + (let ((__tmp51128 (gx#datum->syntax '#f 'quote)) + (__tmp51126 + (let ((__tmp51127 (foldr (lambda (_g1901519018_ _g1901619021_) (let () @@ -1467,50 +1467,50 @@ '() _L18009_))) (declare (not safe)) - (cons __tmp51313 '())))) + (cons __tmp51127 '())))) (declare (not safe)) - (cons __tmp51314 __tmp51312))) - (__tmp51306 - (let ((__tmp51307 - (let ((__tmp51308 - (let ((__tmp51310 + (cons __tmp51128 __tmp51126))) + (__tmp51120 + (let ((__tmp51121 + (let ((__tmp51122 + (let ((__tmp51124 (gx#datum->syntax '#f 'quote)) - (__tmp51309 + (__tmp51123 (let () (declare (not safe)) (cons _L18101_ '())))) (declare (not safe)) - (cons __tmp51310 __tmp51309)))) + (cons __tmp51124 __tmp51123)))) (declare (not safe)) - (cons __tmp51308 '())))) + (cons __tmp51122 '())))) (declare (not safe)) - (cons _L18353_ __tmp51307)))) + (cons _L18353_ __tmp51121)))) (declare (not safe)) - (cons __tmp51311 __tmp51306)))) + (cons __tmp51125 __tmp51120)))) (declare (not safe)) - (cons _L18381_ __tmp51305)))) + (cons _L18381_ __tmp51119)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51315 - __tmp51304)))) + (cons __tmp51129 + __tmp51118)))) (declare (not safe)) - (cons __tmp51318 __tmp51303)))) + (cons __tmp51132 __tmp51117)))) (declare (not safe)) - (cons __tmp51321 __tmp51302)))) + (cons __tmp51135 __tmp51116)))) (declare (not safe)) - (_g1839319012_ __tmp51301)))) + (_g1839319012_ __tmp51115)))) _g1836718378_))) - (__tmp51322 - (let ((__tmp51323 (gx#datum->syntax '#f 'list))) + (__tmp51136 + (let ((__tmp51137 (gx#datum->syntax '#f 'list))) (declare (not safe)) - (cons __tmp51323 _L17893_)))) + (cons __tmp51137 _L17893_)))) (declare (not safe)) - (_g1836519024_ __tmp51322)))) + (_g1836519024_ __tmp51136)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g1833918350_))) - (__tmp51324 + (__tmp51138 (if (gx#stx-e _metaclass17952_) (let* ((_g1903219040_ (lambda (_g1903319036_) @@ -1522,16 +1522,16 @@ (lambda (_g1903319044_) ((lambda (_L19047_) (let () - (let ((__tmp51333 + (let ((__tmp51147 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '@list)) - (__tmp51325 - (let ((__tmp51328 - (let ((__tmp51332 + (__tmp51139 + (let ((__tmp51142 + (let ((__tmp51146 (gx#datum->syntax '#f '@list)) - (__tmp51329 - (let ((__tmp51330 - (let ((__tmp51331 + (__tmp51143 + (let ((__tmp51144 + (let ((__tmp51145 (let () (declare (not safe)) @@ -1539,23 +1539,23 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons ':: __tmp51331)))) + (cons ':: __tmp51145)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'metaclass: __tmp51330)))) + (cons 'metaclass: __tmp51144)))) (declare (not safe)) - (cons __tmp51332 __tmp51329))) - (__tmp51326 - (let ((__tmp51327 + (cons __tmp51146 __tmp51143))) + (__tmp51140 + (let ((__tmp51141 (let () (declare (not safe)) (cons _L18325_ '())))) (declare (not safe)) - (cons ':: __tmp51327)))) + (cons ':: __tmp51141)))) (declare (not safe)) - (cons __tmp51328 __tmp51326)))) + (cons __tmp51142 __tmp51140)))) (declare (not safe)) - (cons __tmp51333 __tmp51325)))) + (cons __tmp51147 __tmp51139)))) _g1903319044_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) @@ -1563,125 +1563,125 @@ _metaclass17952_)) _L18325_))) (declare (not safe)) - (_g1833719028_ __tmp51324)))) + (_g1833719028_ __tmp51138)))) _g1831118322_))) - (__tmp51334 + (__tmp51148 (if _struct?17932_ - (let ((__tmp51341 + (let ((__tmp51155 (gx#datum->syntax '#f '@list)) - (__tmp51335 - (let ((__tmp51338 - (let ((__tmp51340 + (__tmp51149 + (let ((__tmp51152 + (let ((__tmp51154 (gx#datum->syntax '#f '@list)) - (__tmp51339 + (__tmp51153 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp51340 - __tmp51339))) - (__tmp51336 - (let ((__tmp51337 + (cons __tmp51154 + __tmp51153))) + (__tmp51150 + (let ((__tmp51151 (let () (declare (not safe)) (cons _L18297_ '())))) (declare (not safe)) - (cons ':: __tmp51337)))) + (cons ':: __tmp51151)))) (declare (not safe)) - (cons __tmp51338 __tmp51336)))) + (cons __tmp51152 __tmp51150)))) (declare (not safe)) - (cons __tmp51341 __tmp51335)) + (cons __tmp51155 __tmp51149)) _L18297_))) (declare (not safe)) - (_g1830919063_ __tmp51334)))) + (_g1830919063_ __tmp51148)))) _g1828318294_))) - (__tmp51342 + (__tmp51156 (if (gx#stx-e _L18213_) - (let ((__tmp51349 (gx#datum->syntax '#f '@list)) - (__tmp51343 - (let ((__tmp51346 - (let ((__tmp51348 + (let ((__tmp51163 (gx#datum->syntax '#f '@list)) + (__tmp51157 + (let ((__tmp51160 + (let ((__tmp51162 (gx#datum->syntax '#f '@list)) - (__tmp51347 + (__tmp51161 (let () (declare (not safe)) (cons 'final: '#t)))) (declare (not safe)) - (cons __tmp51348 __tmp51347))) - (__tmp51344 - (let ((__tmp51345 + (cons __tmp51162 __tmp51161))) + (__tmp51158 + (let ((__tmp51159 (let () (declare (not safe)) (cons _L18269_ '())))) (declare (not safe)) - (cons ':: __tmp51345)))) + (cons ':: __tmp51159)))) (declare (not safe)) - (cons __tmp51346 __tmp51344)))) + (cons __tmp51160 __tmp51158)))) (declare (not safe)) - (cons __tmp51349 __tmp51343)) + (cons __tmp51163 __tmp51157)) _L18269_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g1828119067_ __tmp51342)))) + (_g1828119067_ __tmp51156)))) _g1825518266_))) - (__tmp51350 + (__tmp51164 (let ((_$e19075_ (gx#stx-getq 'properties: _L17889_))) (if _$e19075_ _$e19075_ - (let ((__tmp51351 + (let ((__tmp51165 (gx#datum->syntax '#f '@list))) (declare (not safe)) - (cons __tmp51351 '())))))) + (cons __tmp51165 '())))))) (declare (not safe)) - (_g1825319071_ __tmp51350)))) + (_g1825319071_ __tmp51164)))) _g1822718238_))) - (__tmp51352 + (__tmp51166 (if (gx#stx-e _metaclass17952_) (gx#core-quote-syntax _metaclass17952_) '#f))) (declare (not safe)) - (_g1822519079_ __tmp51352)))) + (_g1822519079_ __tmp51166)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g1819918210_))) - (__tmp51353 + (__tmp51167 (gx#stx-getq 'final: _L17889_))) (declare (not safe)) - (_g1819719083_ __tmp51353)))) + (_g1819719083_ __tmp51167)))) _g1817118182_)))) (declare (not safe)) (_g1816919087_ _struct?17932_)))) _g1814318154_))) - (__tmp51354 (gx#stx-map gx#core-quote-syntax _L17893_))) + (__tmp51168 (gx#stx-map gx#core-quote-syntax _L17893_))) (declare (not safe)) - (_g1814119091_ __tmp51354)))) + (_g1814119091_ __tmp51168)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g1811518126_))) - (__tmp51355 + (__tmp51169 (gx#core-quote-syntax _L17894_))) (declare (not safe)) - (_g1811319095_ __tmp51355)))) + (_g1811319095_ __tmp51169)))) _g1808718098_))) - (__tmp51356 (gx#stx-getq 'constructor: _L17889_))) + (__tmp51170 (gx#stx-getq 'constructor: _L17889_))) (declare (not safe)) - (_g1808519099_ __tmp51356)))) + (_g1808519099_ __tmp51170)))) _g1805918070_))) - (__tmp51357 + (__tmp51171 (let ((_$e19107_ (gx#stx-getq 'name: _L17889_))) (if _$e19107_ _$e19107_ _L17894_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g1805719103_ __tmp51357)))) + (_g1805719103_ __tmp51171)))) _g1803118042_))) - (__tmp51358 + (__tmp51172 (let ((_$e19115_ (gx#stx-getq 'id: _L17889_))) (if _$e19115_ @@ -1691,7 +1691,7 @@ (|gerbil/core$<MOP>$<MOP:1>[1]#make-class-type-id| _L17894_)))))) (declare (not safe)) - (_g1802919111_ __tmp51358)))) + (_g1802919111_ __tmp51172)))) _slot1796618005_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () @@ -1706,10 +1706,10 @@ (let () (declare (not safe)) (_g1795517972_ _g1795617976_))))) - (__tmp51360 + (__tmp51174 (gx#stx-map _slot-name17802_ _slots17939_))) (declare (not safe)) - (_g1795419119_ __tmp51360)) + (_g1795419119_ __tmp51174)) (let () (declare (not safe)) (_g1780517832_ _g1780617836_)))) diff --git a/src/bootstrap/gerbil/core__7.scm b/src/bootstrap/gerbil/core__7.scm index 9a2bee17..8844c041 100644 --- a/src/bootstrap/gerbil/core__7.scm +++ b/src/bootstrap/gerbil/core__7.scm @@ -1,433 +1,433 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51362_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51176_| (##structure gx#syntax-quote::t 'class-type-info::t #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51364_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51178_| (##structure gx#syntax-quote::t 'make-class-type-info #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51366_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51180_| (##structure gx#syntax-quote::t 'class-type-info? #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51384_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51198_| (##structure gx#syntax-quote::t '!class-type-unchecked-mutators #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51387_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51201_| (##structure gx#syntax-quote::t '!class-type-unchecked-accessors #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51390_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51204_| (##structure gx#syntax-quote::t '!class-type-mutators #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51393_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51207_| (##structure gx#syntax-quote::t '!class-type-accessors #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51396_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51210_| (##structure gx#syntax-quote::t '!class-type-predicate #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51399_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51213_| (##structure gx#syntax-quote::t '!class-type-constructor #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51402_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51216_| (##structure gx#syntax-quote::t '!class-type-descriptor #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51405_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51219_| (##structure gx#syntax-quote::t '!class-type-constructor-method #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51408_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51222_| (##structure gx#syntax-quote::t '!class-type-metaclass #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51411_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51225_| (##structure gx#syntax-quote::t '!class-type-final? #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51414_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51228_| (##structure gx#syntax-quote::t '!class-type-struct? #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51417_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51231_| (##structure gx#syntax-quote::t '!class-type-slots #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51420_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51234_| (##structure gx#syntax-quote::t '!class-type-super #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51423_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51237_| (##structure gx#syntax-quote::t '!class-type-name #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51426_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51240_| (##structure gx#syntax-quote::t '!class-type-id #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51444_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51258_| (##structure gx#syntax-quote::t '!class-type-unchecked-mutators-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51447_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51261_| (##structure gx#syntax-quote::t '!class-type-unchecked-accessors-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51450_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51264_| (##structure gx#syntax-quote::t '!class-type-mutators-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51453_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51267_| (##structure gx#syntax-quote::t '!class-type-accessors-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51456_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51270_| (##structure gx#syntax-quote::t '!class-type-predicate-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51459_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51273_| (##structure gx#syntax-quote::t '!class-type-constructor-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51462_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51276_| (##structure gx#syntax-quote::t '!class-type-descriptor-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51465_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51279_| (##structure gx#syntax-quote::t '!class-type-constructor-method-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51468_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51282_| (##structure gx#syntax-quote::t '!class-type-metaclass-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51471_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51285_| (##structure gx#syntax-quote::t '!class-type-final?-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51474_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51288_| (##structure gx#syntax-quote::t '!class-type-struct?-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51477_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51291_| (##structure gx#syntax-quote::t '!class-type-slots-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51480_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51294_| (##structure gx#syntax-quote::t '!class-type-super-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51483_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51297_| (##structure gx#syntax-quote::t '!class-type-name-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51486_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51300_| (##structure gx#syntax-quote::t '!class-type-id-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51504_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51318_| (##structure gx#syntax-quote::t '&!class-type-unchecked-mutators #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51507_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51321_| (##structure gx#syntax-quote::t '&!class-type-unchecked-accessors #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51510_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51324_| (##structure gx#syntax-quote::t '&!class-type-mutators #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51513_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51327_| (##structure gx#syntax-quote::t '&!class-type-accessors #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51516_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51330_| (##structure gx#syntax-quote::t '&!class-type-predicate #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51519_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51333_| (##structure gx#syntax-quote::t '&!class-type-constructor #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51522_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51336_| (##structure gx#syntax-quote::t '&!class-type-descriptor #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51525_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51339_| (##structure gx#syntax-quote::t '&!class-type-constructor-method #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51530_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51344_| (##structure gx#syntax-quote::t '&!class-type-final? #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51533_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51347_| (##structure gx#syntax-quote::t '&!class-type-struct? #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51536_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51350_| (##structure gx#syntax-quote::t '&!class-type-slots #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51539_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51353_| (##structure gx#syntax-quote::t '&!class-type-super #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51542_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51356_| (##structure gx#syntax-quote::t '&!class-type-name #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51545_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51359_| (##structure gx#syntax-quote::t '&!class-type-id #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51563_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51377_| (##structure gx#syntax-quote::t '&!class-type-unchecked-mutators-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51566_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51380_| (##structure gx#syntax-quote::t '&!class-type-unchecked-accessors-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51569_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51383_| (##structure gx#syntax-quote::t '&!class-type-mutators-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51572_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51386_| (##structure gx#syntax-quote::t '&!class-type-accessors-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51575_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51389_| (##structure gx#syntax-quote::t '&!class-type-predicate-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51578_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51392_| (##structure gx#syntax-quote::t '&!class-type-constructor-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51581_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51395_| (##structure gx#syntax-quote::t '&!class-type-descriptor-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51584_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51398_| (##structure gx#syntax-quote::t '&!class-type-constructor-method-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51587_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51401_| (##structure gx#syntax-quote::t '&!class-type-metaclass-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51590_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51404_| (##structure gx#syntax-quote::t '&!class-type-final?-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51593_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51407_| (##structure gx#syntax-quote::t '&!class-type-struct?-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51596_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51410_| (##structure gx#syntax-quote::t '&!class-type-slots-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51599_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51413_| (##structure gx#syntax-quote::t '&!class-type-super-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51602_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51416_| (##structure gx#syntax-quote::t '&!class-type-name-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51605_| + (define |gerbil/core$<MOP>$<MOP:3>[1]#_g51419_| (##structure gx#syntax-quote::t '&!class-type-id-set! @@ -524,571 +524,571 @@ '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp51361 |gerbil/core$<MOP>$<MOP:3>[1]#_g51362_|)) + (let ((__tmp51175 |gerbil/core$<MOP>$<MOP:3>[1]#_g51176_|)) (declare (not safe)) (##unchecked-structure-set! __obj49628 - __tmp51361 + __tmp51175 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp51363 |gerbil/core$<MOP>$<MOP:3>[1]#_g51364_|)) + (let ((__tmp51177 |gerbil/core$<MOP>$<MOP:3>[1]#_g51178_|)) (declare (not safe)) (##unchecked-structure-set! __obj49628 - __tmp51363 + __tmp51177 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp51365 |gerbil/core$<MOP>$<MOP:3>[1]#_g51366_|)) + (let ((__tmp51179 |gerbil/core$<MOP>$<MOP:3>[1]#_g51180_|)) (declare (not safe)) (##unchecked-structure-set! __obj49628 - __tmp51365 + __tmp51179 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp51367 - (let ((__tmp51424 - (let ((__tmp51425 |gerbil/core$<MOP>$<MOP:3>[1]#_g51426_|)) + (let ((__tmp51181 + (let ((__tmp51238 + (let ((__tmp51239 |gerbil/core$<MOP>$<MOP:3>[1]#_g51240_|)) (declare (not safe)) - (cons 'id __tmp51425))) - (__tmp51368 - (let ((__tmp51421 - (let ((__tmp51422 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51423_|)) + (cons 'id __tmp51239))) + (__tmp51182 + (let ((__tmp51235 + (let ((__tmp51236 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51237_|)) (declare (not safe)) - (cons 'name __tmp51422))) - (__tmp51369 - (let ((__tmp51418 - (let ((__tmp51419 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51420_|)) + (cons 'name __tmp51236))) + (__tmp51183 + (let ((__tmp51232 + (let ((__tmp51233 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51234_|)) (declare (not safe)) - (cons 'super __tmp51419))) - (__tmp51370 - (let ((__tmp51415 - (let ((__tmp51416 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51417_|)) + (cons 'super __tmp51233))) + (__tmp51184 + (let ((__tmp51229 + (let ((__tmp51230 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51231_|)) (declare (not safe)) - (cons 'slots __tmp51416))) - (__tmp51371 - (let ((__tmp51412 - (let ((__tmp51413 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51414_|)) + (cons 'slots __tmp51230))) + (__tmp51185 + (let ((__tmp51226 + (let ((__tmp51227 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51228_|)) (declare (not safe)) - (cons 'struct? __tmp51413))) - (__tmp51372 - (let ((__tmp51409 - (let ((__tmp51410 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51411_|)) + (cons 'struct? __tmp51227))) + (__tmp51186 + (let ((__tmp51223 + (let ((__tmp51224 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51225_|)) (declare (not safe)) (cons 'final? - __tmp51410))) - (__tmp51373 - (let ((__tmp51406 - (let ((__tmp51407 + __tmp51224))) + (__tmp51187 + (let ((__tmp51220 + (let ((__tmp51221 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core$<MOP>$<MOP:3>[1]#_g51408_|)) + |gerbil/core$<MOP>$<MOP:3>[1]#_g51222_|)) (declare (not safe)) - (cons 'metaclass __tmp51407))) - (__tmp51374 - (let ((__tmp51403 - (let ((__tmp51404 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51405_|)) + (cons 'metaclass __tmp51221))) + (__tmp51188 + (let ((__tmp51217 + (let ((__tmp51218 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51219_|)) (declare (not safe)) - (cons 'constructor-method __tmp51404))) - (__tmp51375 - (let ((__tmp51400 - (let ((__tmp51401 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51402_|)) + (cons 'constructor-method __tmp51218))) + (__tmp51189 + (let ((__tmp51214 + (let ((__tmp51215 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51216_|)) (declare (not safe)) - (cons 'type-descriptor __tmp51401))) - (__tmp51376 - (let ((__tmp51397 - (let ((__tmp51398 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51399_|)) + (cons 'type-descriptor __tmp51215))) + (__tmp51190 + (let ((__tmp51211 + (let ((__tmp51212 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51213_|)) (declare (not safe)) - (cons 'constructor __tmp51398))) - (__tmp51377 - (let ((__tmp51394 - (let ((__tmp51395 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51396_|)) + (cons 'constructor __tmp51212))) + (__tmp51191 + (let ((__tmp51208 + (let ((__tmp51209 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51210_|)) (declare (not safe)) (cons 'predicate - __tmp51395))) - (__tmp51378 - (let ((__tmp51391 - (let ((__tmp51392 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51393_|)) + __tmp51209))) + (__tmp51192 + (let ((__tmp51205 + (let ((__tmp51206 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51207_|)) (declare (not safe)) (cons 'accessors ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp51392))) - (__tmp51379 - (let ((__tmp51388 - (let ((__tmp51389 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51390_|)) + __tmp51206))) + (__tmp51193 + (let ((__tmp51202 + (let ((__tmp51203 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51204_|)) (declare (not safe)) - (cons 'mutators __tmp51389))) - (__tmp51380 - (let ((__tmp51385 - (let ((__tmp51386 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51387_|)) + (cons 'mutators __tmp51203))) + (__tmp51194 + (let ((__tmp51199 + (let ((__tmp51200 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51201_|)) (declare (not safe)) - (cons 'unchecked-accessors __tmp51386))) - (__tmp51381 - (let ((__tmp51382 - (let ((__tmp51383 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51384_|)) + (cons 'unchecked-accessors __tmp51200))) + (__tmp51195 + (let ((__tmp51196 + (let ((__tmp51197 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51198_|)) (declare (not safe)) (cons 'unchecked-mutators - __tmp51383)))) + __tmp51197)))) (declare (not safe)) - (cons __tmp51382 '())))) + (cons __tmp51196 '())))) (declare (not safe)) - (cons __tmp51385 __tmp51381)))) + (cons __tmp51199 __tmp51195)))) (declare (not safe)) - (cons __tmp51388 __tmp51380)))) + (cons __tmp51202 __tmp51194)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51391 - __tmp51379)))) + (cons __tmp51205 + __tmp51193)))) (declare (not safe)) - (cons __tmp51394 __tmp51378)))) + (cons __tmp51208 __tmp51192)))) (declare (not safe)) - (cons __tmp51397 __tmp51377)))) + (cons __tmp51211 __tmp51191)))) (declare (not safe)) - (cons __tmp51400 __tmp51376)))) + (cons __tmp51214 __tmp51190)))) (declare (not safe)) - (cons __tmp51403 __tmp51375)))) + (cons __tmp51217 __tmp51189)))) (declare (not safe)) - (cons __tmp51406 __tmp51374)))) + (cons __tmp51220 __tmp51188)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51409 - __tmp51373)))) + (cons __tmp51223 + __tmp51187)))) (declare (not safe)) - (cons __tmp51412 __tmp51372)))) + (cons __tmp51226 __tmp51186)))) (declare (not safe)) - (cons __tmp51415 __tmp51371)))) + (cons __tmp51229 __tmp51185)))) (declare (not safe)) - (cons __tmp51418 __tmp51370)))) + (cons __tmp51232 __tmp51184)))) (declare (not safe)) - (cons __tmp51421 __tmp51369)))) + (cons __tmp51235 __tmp51183)))) (declare (not safe)) - (cons __tmp51424 __tmp51368)))) + (cons __tmp51238 __tmp51182)))) (declare (not safe)) (##unchecked-structure-set! __obj49628 - __tmp51367 + __tmp51181 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp51427 - (let ((__tmp51484 - (let ((__tmp51485 |gerbil/core$<MOP>$<MOP:3>[1]#_g51486_|)) + (let ((__tmp51241 + (let ((__tmp51298 + (let ((__tmp51299 |gerbil/core$<MOP>$<MOP:3>[1]#_g51300_|)) (declare (not safe)) - (cons 'id __tmp51485))) - (__tmp51428 - (let ((__tmp51481 - (let ((__tmp51482 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51483_|)) + (cons 'id __tmp51299))) + (__tmp51242 + (let ((__tmp51295 + (let ((__tmp51296 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51297_|)) (declare (not safe)) - (cons 'name __tmp51482))) - (__tmp51429 - (let ((__tmp51478 - (let ((__tmp51479 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51480_|)) + (cons 'name __tmp51296))) + (__tmp51243 + (let ((__tmp51292 + (let ((__tmp51293 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51294_|)) (declare (not safe)) - (cons 'super __tmp51479))) - (__tmp51430 - (let ((__tmp51475 - (let ((__tmp51476 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51477_|)) + (cons 'super __tmp51293))) + (__tmp51244 + (let ((__tmp51289 + (let ((__tmp51290 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51291_|)) (declare (not safe)) - (cons 'slots __tmp51476))) - (__tmp51431 - (let ((__tmp51472 - (let ((__tmp51473 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51474_|)) + (cons 'slots __tmp51290))) + (__tmp51245 + (let ((__tmp51286 + (let ((__tmp51287 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51288_|)) (declare (not safe)) - (cons 'struct? __tmp51473))) - (__tmp51432 - (let ((__tmp51469 - (let ((__tmp51470 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51471_|)) + (cons 'struct? __tmp51287))) + (__tmp51246 + (let ((__tmp51283 + (let ((__tmp51284 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51285_|)) (declare (not safe)) (cons 'final? - __tmp51470))) - (__tmp51433 - (let ((__tmp51466 - (let ((__tmp51467 + __tmp51284))) + (__tmp51247 + (let ((__tmp51280 + (let ((__tmp51281 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core$<MOP>$<MOP:3>[1]#_g51468_|)) + |gerbil/core$<MOP>$<MOP:3>[1]#_g51282_|)) (declare (not safe)) - (cons 'metaclass __tmp51467))) - (__tmp51434 - (let ((__tmp51463 - (let ((__tmp51464 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51465_|)) + (cons 'metaclass __tmp51281))) + (__tmp51248 + (let ((__tmp51277 + (let ((__tmp51278 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51279_|)) (declare (not safe)) - (cons 'constructor-method __tmp51464))) - (__tmp51435 - (let ((__tmp51460 - (let ((__tmp51461 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51462_|)) + (cons 'constructor-method __tmp51278))) + (__tmp51249 + (let ((__tmp51274 + (let ((__tmp51275 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51276_|)) (declare (not safe)) - (cons 'type-descriptor __tmp51461))) - (__tmp51436 - (let ((__tmp51457 - (let ((__tmp51458 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51459_|)) + (cons 'type-descriptor __tmp51275))) + (__tmp51250 + (let ((__tmp51271 + (let ((__tmp51272 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51273_|)) (declare (not safe)) - (cons 'constructor __tmp51458))) - (__tmp51437 - (let ((__tmp51454 - (let ((__tmp51455 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51456_|)) + (cons 'constructor __tmp51272))) + (__tmp51251 + (let ((__tmp51268 + (let ((__tmp51269 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51270_|)) (declare (not safe)) (cons 'predicate - __tmp51455))) - (__tmp51438 - (let ((__tmp51451 - (let ((__tmp51452 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51453_|)) + __tmp51269))) + (__tmp51252 + (let ((__tmp51265 + (let ((__tmp51266 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51267_|)) (declare (not safe)) (cons 'accessors ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp51452))) - (__tmp51439 - (let ((__tmp51448 - (let ((__tmp51449 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51450_|)) + __tmp51266))) + (__tmp51253 + (let ((__tmp51262 + (let ((__tmp51263 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51264_|)) (declare (not safe)) - (cons 'mutators __tmp51449))) - (__tmp51440 - (let ((__tmp51445 - (let ((__tmp51446 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51447_|)) + (cons 'mutators __tmp51263))) + (__tmp51254 + (let ((__tmp51259 + (let ((__tmp51260 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51261_|)) (declare (not safe)) - (cons 'unchecked-accessors __tmp51446))) - (__tmp51441 - (let ((__tmp51442 - (let ((__tmp51443 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51444_|)) + (cons 'unchecked-accessors __tmp51260))) + (__tmp51255 + (let ((__tmp51256 + (let ((__tmp51257 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51258_|)) (declare (not safe)) (cons 'unchecked-mutators - __tmp51443)))) + __tmp51257)))) (declare (not safe)) - (cons __tmp51442 '())))) + (cons __tmp51256 '())))) (declare (not safe)) - (cons __tmp51445 __tmp51441)))) + (cons __tmp51259 __tmp51255)))) (declare (not safe)) - (cons __tmp51448 __tmp51440)))) + (cons __tmp51262 __tmp51254)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51451 - __tmp51439)))) + (cons __tmp51265 + __tmp51253)))) (declare (not safe)) - (cons __tmp51454 __tmp51438)))) + (cons __tmp51268 __tmp51252)))) (declare (not safe)) - (cons __tmp51457 __tmp51437)))) + (cons __tmp51271 __tmp51251)))) (declare (not safe)) - (cons __tmp51460 __tmp51436)))) + (cons __tmp51274 __tmp51250)))) (declare (not safe)) - (cons __tmp51463 __tmp51435)))) + (cons __tmp51277 __tmp51249)))) (declare (not safe)) - (cons __tmp51466 __tmp51434)))) + (cons __tmp51280 __tmp51248)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51469 - __tmp51433)))) + (cons __tmp51283 + __tmp51247)))) (declare (not safe)) - (cons __tmp51472 __tmp51432)))) + (cons __tmp51286 __tmp51246)))) (declare (not safe)) - (cons __tmp51475 __tmp51431)))) + (cons __tmp51289 __tmp51245)))) (declare (not safe)) - (cons __tmp51478 __tmp51430)))) + (cons __tmp51292 __tmp51244)))) (declare (not safe)) - (cons __tmp51481 __tmp51429)))) + (cons __tmp51295 __tmp51243)))) (declare (not safe)) - (cons __tmp51484 __tmp51428)))) + (cons __tmp51298 __tmp51242)))) (declare (not safe)) (##unchecked-structure-set! __obj49628 - __tmp51427 + __tmp51241 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp51487 - (let ((__tmp51543 - (let ((__tmp51544 |gerbil/core$<MOP>$<MOP:3>[1]#_g51545_|)) + (let ((__tmp51301 + (let ((__tmp51357 + (let ((__tmp51358 |gerbil/core$<MOP>$<MOP:3>[1]#_g51359_|)) (declare (not safe)) - (cons 'id __tmp51544))) - (__tmp51488 - (let ((__tmp51540 - (let ((__tmp51541 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51542_|)) + (cons 'id __tmp51358))) + (__tmp51302 + (let ((__tmp51354 + (let ((__tmp51355 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51356_|)) (declare (not safe)) - (cons 'name __tmp51541))) - (__tmp51489 - (let ((__tmp51537 - (let ((__tmp51538 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51539_|)) + (cons 'name __tmp51355))) + (__tmp51303 + (let ((__tmp51351 + (let ((__tmp51352 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51353_|)) (declare (not safe)) - (cons 'super __tmp51538))) - (__tmp51490 - (let ((__tmp51534 - (let ((__tmp51535 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51536_|)) + (cons 'super __tmp51352))) + (__tmp51304 + (let ((__tmp51348 + (let ((__tmp51349 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51350_|)) (declare (not safe)) - (cons 'slots __tmp51535))) - (__tmp51491 - (let ((__tmp51531 - (let ((__tmp51532 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51533_|)) + (cons 'slots __tmp51349))) + (__tmp51305 + (let ((__tmp51345 + (let ((__tmp51346 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51347_|)) (declare (not safe)) - (cons 'struct? __tmp51532))) - (__tmp51492 - (let ((__tmp51528 - (let ((__tmp51529 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51530_|)) + (cons 'struct? __tmp51346))) + (__tmp51306 + (let ((__tmp51342 + (let ((__tmp51343 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51344_|)) (declare (not safe)) (cons 'final? - __tmp51529))) - (__tmp51493 - (let ((__tmp51526 - (let ((__tmp51527 + __tmp51343))) + (__tmp51307 + (let ((__tmp51340 + (let ((__tmp51341 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core$<MOP>$<MOP:3>[1]#_g51408_|)) + |gerbil/core$<MOP>$<MOP:3>[1]#_g51222_|)) (declare (not safe)) - (cons 'metaclass __tmp51527))) - (__tmp51494 - (let ((__tmp51523 - (let ((__tmp51524 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51525_|)) + (cons 'metaclass __tmp51341))) + (__tmp51308 + (let ((__tmp51337 + (let ((__tmp51338 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51339_|)) (declare (not safe)) - (cons 'constructor-method __tmp51524))) - (__tmp51495 - (let ((__tmp51520 - (let ((__tmp51521 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51522_|)) + (cons 'constructor-method __tmp51338))) + (__tmp51309 + (let ((__tmp51334 + (let ((__tmp51335 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51336_|)) (declare (not safe)) - (cons 'type-descriptor __tmp51521))) - (__tmp51496 - (let ((__tmp51517 - (let ((__tmp51518 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51519_|)) + (cons 'type-descriptor __tmp51335))) + (__tmp51310 + (let ((__tmp51331 + (let ((__tmp51332 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51333_|)) (declare (not safe)) - (cons 'constructor __tmp51518))) - (__tmp51497 - (let ((__tmp51514 - (let ((__tmp51515 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51516_|)) + (cons 'constructor __tmp51332))) + (__tmp51311 + (let ((__tmp51328 + (let ((__tmp51329 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51330_|)) (declare (not safe)) (cons 'predicate - __tmp51515))) - (__tmp51498 - (let ((__tmp51511 - (let ((__tmp51512 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51513_|)) + __tmp51329))) + (__tmp51312 + (let ((__tmp51325 + (let ((__tmp51326 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51327_|)) (declare (not safe)) (cons 'accessors ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp51512))) - (__tmp51499 - (let ((__tmp51508 - (let ((__tmp51509 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51510_|)) + __tmp51326))) + (__tmp51313 + (let ((__tmp51322 + (let ((__tmp51323 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51324_|)) (declare (not safe)) - (cons 'mutators __tmp51509))) - (__tmp51500 - (let ((__tmp51505 - (let ((__tmp51506 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51507_|)) + (cons 'mutators __tmp51323))) + (__tmp51314 + (let ((__tmp51319 + (let ((__tmp51320 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51321_|)) (declare (not safe)) - (cons 'unchecked-accessors __tmp51506))) - (__tmp51501 - (let ((__tmp51502 - (let ((__tmp51503 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51504_|)) + (cons 'unchecked-accessors __tmp51320))) + (__tmp51315 + (let ((__tmp51316 + (let ((__tmp51317 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51318_|)) (declare (not safe)) (cons 'unchecked-mutators - __tmp51503)))) + __tmp51317)))) (declare (not safe)) - (cons __tmp51502 '())))) + (cons __tmp51316 '())))) (declare (not safe)) - (cons __tmp51505 __tmp51501)))) + (cons __tmp51319 __tmp51315)))) (declare (not safe)) - (cons __tmp51508 __tmp51500)))) + (cons __tmp51322 __tmp51314)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51511 - __tmp51499)))) + (cons __tmp51325 + __tmp51313)))) (declare (not safe)) - (cons __tmp51514 __tmp51498)))) + (cons __tmp51328 __tmp51312)))) (declare (not safe)) - (cons __tmp51517 __tmp51497)))) + (cons __tmp51331 __tmp51311)))) (declare (not safe)) - (cons __tmp51520 __tmp51496)))) + (cons __tmp51334 __tmp51310)))) (declare (not safe)) - (cons __tmp51523 __tmp51495)))) + (cons __tmp51337 __tmp51309)))) (declare (not safe)) - (cons __tmp51526 __tmp51494)))) + (cons __tmp51340 __tmp51308)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51528 - __tmp51493)))) + (cons __tmp51342 + __tmp51307)))) (declare (not safe)) - (cons __tmp51531 __tmp51492)))) + (cons __tmp51345 __tmp51306)))) (declare (not safe)) - (cons __tmp51534 __tmp51491)))) + (cons __tmp51348 __tmp51305)))) (declare (not safe)) - (cons __tmp51537 __tmp51490)))) + (cons __tmp51351 __tmp51304)))) (declare (not safe)) - (cons __tmp51540 __tmp51489)))) + (cons __tmp51354 __tmp51303)))) (declare (not safe)) - (cons __tmp51543 __tmp51488)))) + (cons __tmp51357 __tmp51302)))) (declare (not safe)) (##unchecked-structure-set! __obj49628 - __tmp51487 + __tmp51301 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp51546 - (let ((__tmp51603 - (let ((__tmp51604 |gerbil/core$<MOP>$<MOP:3>[1]#_g51605_|)) + (let ((__tmp51360 + (let ((__tmp51417 + (let ((__tmp51418 |gerbil/core$<MOP>$<MOP:3>[1]#_g51419_|)) (declare (not safe)) - (cons 'id __tmp51604))) - (__tmp51547 - (let ((__tmp51600 - (let ((__tmp51601 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51602_|)) + (cons 'id __tmp51418))) + (__tmp51361 + (let ((__tmp51414 + (let ((__tmp51415 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51416_|)) (declare (not safe)) - (cons 'name __tmp51601))) - (__tmp51548 - (let ((__tmp51597 - (let ((__tmp51598 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51599_|)) + (cons 'name __tmp51415))) + (__tmp51362 + (let ((__tmp51411 + (let ((__tmp51412 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51413_|)) (declare (not safe)) - (cons 'super __tmp51598))) - (__tmp51549 - (let ((__tmp51594 - (let ((__tmp51595 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51596_|)) + (cons 'super __tmp51412))) + (__tmp51363 + (let ((__tmp51408 + (let ((__tmp51409 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51410_|)) (declare (not safe)) - (cons 'slots __tmp51595))) - (__tmp51550 - (let ((__tmp51591 - (let ((__tmp51592 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51593_|)) + (cons 'slots __tmp51409))) + (__tmp51364 + (let ((__tmp51405 + (let ((__tmp51406 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51407_|)) (declare (not safe)) - (cons 'struct? __tmp51592))) - (__tmp51551 - (let ((__tmp51588 - (let ((__tmp51589 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51590_|)) + (cons 'struct? __tmp51406))) + (__tmp51365 + (let ((__tmp51402 + (let ((__tmp51403 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51404_|)) (declare (not safe)) (cons 'final? - __tmp51589))) - (__tmp51552 - (let ((__tmp51585 - (let ((__tmp51586 + __tmp51403))) + (__tmp51366 + (let ((__tmp51399 + (let ((__tmp51400 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core$<MOP>$<MOP:3>[1]#_g51587_|)) + |gerbil/core$<MOP>$<MOP:3>[1]#_g51401_|)) (declare (not safe)) - (cons 'metaclass __tmp51586))) - (__tmp51553 - (let ((__tmp51582 - (let ((__tmp51583 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51584_|)) + (cons 'metaclass __tmp51400))) + (__tmp51367 + (let ((__tmp51396 + (let ((__tmp51397 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51398_|)) (declare (not safe)) - (cons 'constructor-method __tmp51583))) - (__tmp51554 - (let ((__tmp51579 - (let ((__tmp51580 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51581_|)) + (cons 'constructor-method __tmp51397))) + (__tmp51368 + (let ((__tmp51393 + (let ((__tmp51394 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51395_|)) (declare (not safe)) - (cons 'type-descriptor __tmp51580))) - (__tmp51555 - (let ((__tmp51576 - (let ((__tmp51577 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51578_|)) + (cons 'type-descriptor __tmp51394))) + (__tmp51369 + (let ((__tmp51390 + (let ((__tmp51391 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51392_|)) (declare (not safe)) - (cons 'constructor __tmp51577))) - (__tmp51556 - (let ((__tmp51573 - (let ((__tmp51574 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51575_|)) + (cons 'constructor __tmp51391))) + (__tmp51370 + (let ((__tmp51387 + (let ((__tmp51388 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51389_|)) (declare (not safe)) (cons 'predicate - __tmp51574))) - (__tmp51557 - (let ((__tmp51570 - (let ((__tmp51571 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51572_|)) + __tmp51388))) + (__tmp51371 + (let ((__tmp51384 + (let ((__tmp51385 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51386_|)) (declare (not safe)) (cons 'accessors ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp51571))) - (__tmp51558 - (let ((__tmp51567 - (let ((__tmp51568 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51569_|)) + __tmp51385))) + (__tmp51372 + (let ((__tmp51381 + (let ((__tmp51382 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51383_|)) (declare (not safe)) - (cons 'mutators __tmp51568))) - (__tmp51559 - (let ((__tmp51564 - (let ((__tmp51565 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51566_|)) + (cons 'mutators __tmp51382))) + (__tmp51373 + (let ((__tmp51378 + (let ((__tmp51379 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51380_|)) (declare (not safe)) - (cons 'unchecked-accessors __tmp51565))) - (__tmp51560 - (let ((__tmp51561 - (let ((__tmp51562 - |gerbil/core$<MOP>$<MOP:3>[1]#_g51563_|)) + (cons 'unchecked-accessors __tmp51379))) + (__tmp51374 + (let ((__tmp51375 + (let ((__tmp51376 + |gerbil/core$<MOP>$<MOP:3>[1]#_g51377_|)) (declare (not safe)) (cons 'unchecked-mutators - __tmp51562)))) + __tmp51376)))) (declare (not safe)) - (cons __tmp51561 '())))) + (cons __tmp51375 '())))) (declare (not safe)) - (cons __tmp51564 __tmp51560)))) + (cons __tmp51378 __tmp51374)))) (declare (not safe)) - (cons __tmp51567 __tmp51559)))) + (cons __tmp51381 __tmp51373)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51570 - __tmp51558)))) + (cons __tmp51384 + __tmp51372)))) (declare (not safe)) - (cons __tmp51573 __tmp51557)))) + (cons __tmp51387 __tmp51371)))) (declare (not safe)) - (cons __tmp51576 __tmp51556)))) + (cons __tmp51390 __tmp51370)))) (declare (not safe)) - (cons __tmp51579 __tmp51555)))) + (cons __tmp51393 __tmp51369)))) (declare (not safe)) - (cons __tmp51582 __tmp51554)))) + (cons __tmp51396 __tmp51368)))) (declare (not safe)) - (cons __tmp51585 __tmp51553)))) + (cons __tmp51399 __tmp51367)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51588 - __tmp51552)))) + (cons __tmp51402 + __tmp51366)))) (declare (not safe)) - (cons __tmp51591 __tmp51551)))) + (cons __tmp51405 __tmp51365)))) (declare (not safe)) - (cons __tmp51594 __tmp51550)))) + (cons __tmp51408 __tmp51364)))) (declare (not safe)) - (cons __tmp51597 __tmp51549)))) + (cons __tmp51411 __tmp51363)))) (declare (not safe)) - (cons __tmp51600 __tmp51548)))) + (cons __tmp51414 __tmp51362)))) (declare (not safe)) - (cons __tmp51603 __tmp51547)))) + (cons __tmp51417 __tmp51361)))) (declare (not safe)) (##unchecked-structure-set! __obj49628 - __tmp51546 + __tmp51360 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) diff --git a/src/bootstrap/gerbil/core__8.scm b/src/bootstrap/gerbil/core__8.scm index 3e000b31..a5539449 100644 --- a/src/bootstrap/gerbil/core__8.scm +++ b/src/bootstrap/gerbil/core__8.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core$<MOP>$<MOP:4>[1]#_g51924_| + (define |gerbil/core$<MOP>$<MOP:4>[1]#_g51738_| (##structure gx#syntax-quote::t '@method @@ -32,7 +32,7 @@ (gx#stx-source _stx19359_)))) (_make-id19368_ (if (uninterned-symbol? (gx#stx-e _id19361_)) - (lambda _g51606_ (gx#genident _id19361_)) + (lambda _g51420_ (gx#genident _id19361_)) (lambda _args21569_ (apply gx#stx-identifier _id19361_ _args21569_)))) (_get-mixin-slots19369_ @@ -54,11 +54,11 @@ (hash-get _tab21547_ _slot21564_)) - (let ((__tmp51609 + (let ((__tmp51423 (cdr _rest21560_))) (declare (not safe)) (_lp21557_ - __tmp51609 + __tmp51423 _r21562_)) (begin (let () @@ -67,40 +67,40 @@ _tab21547_ _slot21564_ '#t)) - (let ((__tmp51608 + (let ((__tmp51422 (cdr _rest21560_)) - (__tmp51607 + (__tmp51421 (let () (declare (not safe)) (cons _slot21564_ _r21562_)))) (declare (not safe)) (_lp21557_ - __tmp51608 - __tmp51607))))) + __tmp51422 + __tmp51421))))) (reverse _r21562_)))))) (gx#stx-for-each (lambda (_slot21551_) - (let ((__tmp51610 (gx#stx-e _slot21551_))) + (let ((__tmp51424 (gx#stx-e _slot21551_))) (declare (not safe)) - (hash-put! _tab21547_ __tmp51610 '#t))) + (hash-put! _tab21547_ __tmp51424 '#t))) _slots21545_) (if (let () (declare (not safe)) (not _super21543_)) '() (if (gx#identifier? _super21543_) - (let ((__tmp51612 + (let ((__tmp51426 (let () (declare (not safe)) (_get-mixin-slots-r19370_ _super21543_)))) (declare (not safe)) - (_dedup21549_ __tmp51612)) - (let ((__tmp51611 + (_dedup21549_ __tmp51426)) + (let ((__tmp51425 (concatenate (map _get-mixin-slots-r19370_ _super21543_)))) (declare (not safe)) - (_dedup21549_ __tmp51611))))))) + (_dedup21549_ __tmp51425))))))) (_get-mixin-slots-r19370_ (lambda (_type-id21537_) (let ((_info21540_ @@ -206,28 +206,28 @@ (lambda (_g1952519545_) (if (gx#stx-pair/null? _g1952519545_) - (let ((_g51613_ + (let ((_g51427_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-split-splice _g1952519545_ '0))) (begin - (let ((_g51614_ + (let ((_g51428_ (let () (declare (not safe)) - (if (##values? _g51613_) - (##vector-length _g51613_) + (if (##values? _g51427_) + (##vector-length _g51427_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g51614_ 2))) - (error "Context expects 2 values" _g51614_))) + (##fx= _g51428_ 2))) + (error "Context expects 2 values" _g51428_))) (let ((_target1952719548_ (let () (declare (not safe)) - (##vector-ref _g51613_ 0))) + (##vector-ref _g51427_ 0))) (_tl1952919551_ (let () (declare (not safe)) - (##vector-ref _g51613_ 1)))) + (##vector-ref _g51427_ 1)))) (if (gx#stx-null? _tl1952919551_) (letrec ((_loop1953019554_ (lambda (_hd1952819558_ @@ -244,7 +244,7 @@ (let () (declare (not safe)) (##cdr _e1953119564_)))) - (let ((__tmp51863 + (let ((__tmp51677 (let () (declare (not safe)) (cons _lp-hd1953219568_ @@ -252,7 +252,7 @@ (declare (not safe)) (_loop1953019554_ _lp-tl1953319571_ - __tmp51863)))) + __tmp51677)))) (let ((_slot1953519574_ (reverse _slot1953419561_))) ((lambda (_L19578_) @@ -268,28 +268,28 @@ (if (gx#stx-pair/null? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1959619616_) - (let ((_g51615_ + (let ((_g51429_ (gx#syntax-split-splice _g1959619616_ '0))) (begin - (let ((_g51616_ + (let ((_g51430_ (let () (declare (not safe)) - (if (##values? _g51615_) - (##vector-length _g51615_) + (if (##values? _g51429_) + (##vector-length _g51429_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g51616_ 2))) + (##fx= _g51430_ 2))) (error "Context expects 2 values" - _g51616_))) + _g51430_))) (let ((_target1959819619_ (let () (declare (not safe)) - (##vector-ref _g51615_ 0))) + (##vector-ref _g51429_ 0))) (_tl1960019622_ (let () (declare (not safe)) - (##vector-ref _g51615_ 1)))) + (##vector-ref _g51429_ 1)))) (if (gx#stx-null? _tl1960019622_) (letrec ((_loop1960119625_ (lambda (_hd1959919629_ @@ -307,12 +307,12 @@ (##car _e1960219635_))) (_lp-tl1960419642_ (let () (declare (not safe)) (##cdr _e1960219635_)))) - (let ((__tmp51861 + (let ((__tmp51675 (let () (declare (not safe)) (cons _lp-hd1960319639_ _getf1960519632_)))) (declare (not safe)) - (_loop1960119625_ _lp-tl1960419642_ __tmp51861)))) + (_loop1960119625_ _lp-tl1960419642_ __tmp51675)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_getf1960619645_ (reverse _getf1960519632_))) @@ -328,30 +328,30 @@ (_g1966521495_ (lambda (_g1966719687_) (if (gx#stx-pair/null? _g1966719687_) - (let ((_g51617_ + (let ((_g51431_ (gx#syntax-split-splice _g1966719687_ '0))) (begin - (let ((_g51618_ + (let ((_g51432_ (let () (declare (not safe)) - (if (##values? _g51617_) - (##vector-length _g51617_) + (if (##values? _g51431_) + (##vector-length _g51431_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g51618_ 2))) + (##fx= _g51432_ 2))) (error "Context expects 2 values" - _g51618_))) + _g51432_))) (let ((_target1966919690_ (let () (declare (not safe)) - (##vector-ref _g51617_ 0))) + (##vector-ref _g51431_ 0))) (_tl1967119693_ (let () (declare (not safe)) - (##vector-ref _g51617_ 1)))) + (##vector-ref _g51431_ 1)))) (if (gx#stx-null? _tl1967119693_) (letrec ((_loop1967219696_ (lambda (_hd1967019700_ @@ -369,12 +369,12 @@ (let () (declare (not safe)) (##cdr _e1967319706_)))) - (let ((__tmp51859 + (let ((__tmp51673 (let () (declare (not safe)) (cons _lp-hd1967419710_ _setf1967619703_)))) (declare (not safe)) - (_loop1967219696_ _lp-tl1967519713_ __tmp51859)))) + (_loop1967219696_ _lp-tl1967519713_ __tmp51673)))) (let ((_setf1967719716_ (reverse _setf1967619703_))) ((lambda (_L19720_) (let () @@ -393,34 +393,34 @@ (_g1973921491_ (lambda (_g1974119761_) (if (gx#stx-pair/null? _g1974119761_) - (let ((_g51619_ + (let ((_g51433_ (gx#syntax-split-splice _g1974119761_ '0))) (begin - (let ((_g51620_ + (let ((_g51434_ (let () (declare (not safe)) - (if (##values? _g51619_) + (if (##values? _g51433_) (##vector-length - _g51619_) + _g51433_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g51620_ 2))) + (##fx= _g51434_ 2))) (error "Context expects 2 values" - _g51620_))) + _g51434_))) (let ((_target1974319764_ (let () (declare (not safe)) (##vector-ref - _g51619_ + _g51433_ 0))) (_tl1974519767_ (let () (declare (not safe)) (##vector-ref - _g51619_ + _g51433_ 1)))) (if (gx#stx-null? _tl1974519767_) (letrec ((_loop1974619770_ @@ -437,7 +437,7 @@ (let () (declare (not safe)) (##cdr _e1974719780_)))) - (let ((__tmp51858 + (let ((__tmp51672 (let () (declare (not safe)) (cons _lp-hd1974819784_ @@ -445,7 +445,7 @@ (declare (not safe)) (_loop1974619770_ _lp-tl1974919787_ - __tmp51858)))) + __tmp51672)))) (let ((_mixin-slot1975119790_ (reverse _mixin-slot1975019777_))) ((lambda (_L19794_) @@ -460,41 +460,41 @@ (lambda (_g1981319833_) (if (gx#stx-pair/null? _g1981319833_) - (let ((_g51621_ + (let ((_g51435_ (gx#syntax-split-splice _g1981319833_ '0))) (begin - (let ((_g51622_ + (let ((_g51436_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g51621_) - (##vector-length _g51621_) + _g51435_) + (##vector-length _g51435_) 1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g51622_ 2))) - (error "Context expects 2 values" _g51622_))) + (##fx= _g51436_ 2))) + (error "Context expects 2 values" _g51436_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target1981519836_ (let () (declare (not safe)) (##vector-ref - _g51621_ + _g51435_ 0))) (_tl1981719839_ (let () (declare (not safe)) (##vector-ref - _g51621_ + _g51435_ 1)))) (if (gx#stx-null? _tl1981719839_) @@ -512,7 +512,7 @@ (let () (declare (not safe)) (##cdr _e1981919852_)))) - (let ((__tmp51856 + (let ((__tmp51670 (let () (declare (not safe)) (cons _lp-hd1982019856_ @@ -520,7 +520,7 @@ (declare (not safe)) (_loop1981819842_ _lp-tl1982119859_ - __tmp51856)))) + __tmp51670)))) (let ((_mixin-getf1982319862_ (reverse _mixin-getf1982219849_))) ((lambda (_L19866_) @@ -535,28 +535,28 @@ (lambda (_g1988419904_) (if (gx#stx-pair/null? _g1988419904_) - (let ((_g51623_ + (let ((_g51437_ (gx#syntax-split-splice _g1988419904_ '0))) (begin - (let ((_g51624_ + (let ((_g51438_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g51623_) - (##vector-length _g51623_) + (if (##values? _g51437_) + (##vector-length _g51437_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g51624_ 2))) - (error "Context expects 2 values" _g51624_))) + (if (not (let () (declare (not safe)) (##fx= _g51438_ 2))) + (error "Context expects 2 values" _g51438_))) (let ((_target1988619907_ (let () (declare (not safe)) - (##vector-ref _g51623_ 0))) + (##vector-ref _g51437_ 0))) (_tl1988819910_ (let () (declare (not safe)) - (##vector-ref _g51623_ 1)))) + (##vector-ref _g51437_ 1)))) (if (gx#stx-null? _tl1988819910_) (letrec ((_loop1988919913_ (lambda (_hd1988719917_ @@ -572,7 +572,7 @@ (let () (declare (not safe)) (##cdr _e1989019923_)))) - (let ((__tmp51854 + (let ((__tmp51668 (let () (declare (not safe)) (cons _lp-hd1989119927_ @@ -580,7 +580,7 @@ (declare (not safe)) (_loop1988919913_ _lp-tl1989219930_ - __tmp51854)))) + __tmp51668)))) (let ((_mixin-setf1989419933_ (reverse _mixin-setf1989319920_))) ((lambda (_L19937_) @@ -595,28 +595,28 @@ (lambda (_g1995519975_) (if (gx#stx-pair/null? _g1995519975_) - (let ((_g51625_ + (let ((_g51439_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-split-splice _g1995519975_ '0))) (begin - (let ((_g51626_ + (let ((_g51440_ (let () (declare (not safe)) - (if (##values? _g51625_) - (##vector-length _g51625_) + (if (##values? _g51439_) + (##vector-length _g51439_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g51626_ 2))) - (error "Context expects 2 values" _g51626_))) + (##fx= _g51440_ 2))) + (error "Context expects 2 values" _g51440_))) (let ((_target1995719978_ (let () (declare (not safe)) - (##vector-ref _g51625_ 0))) + (##vector-ref _g51439_ 0))) (_tl1995919981_ (let () (declare (not safe)) - (##vector-ref _g51625_ 1)))) + (##vector-ref _g51439_ 1)))) (if (gx#stx-null? _tl1995919981_) (letrec ((_loop1996019984_ (lambda (_hd1995819988_ @@ -633,7 +633,7 @@ (let () (declare (not safe)) (##cdr _e1996119994_)))) - (let ((__tmp51852 + (let ((__tmp51666 (let () (declare (not safe)) @@ -644,7 +644,7 @@ (declare (not safe)) (_loop1996019984_ _lp-tl1996320001_ - __tmp51852)))) + __tmp51666)))) (let ((_ugetf1996520004_ (reverse _ugetf1996419991_))) ((lambda (_L20008_) @@ -659,28 +659,28 @@ (_g2002421439_ (lambda (_g2002620046_) (if (gx#stx-pair/null? _g2002620046_) - (let ((_g51627_ + (let ((_g51441_ (gx#syntax-split-splice _g2002620046_ '0))) (begin - (let ((_g51628_ + (let ((_g51442_ (let () (declare (not safe)) - (if (##values? _g51627_) - (##vector-length _g51627_) + (if (##values? _g51441_) + (##vector-length _g51441_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g51628_ 2))) + (##fx= _g51442_ 2))) (error "Context expects 2 values" - _g51628_))) + _g51442_))) (let ((_target2002820049_ (let () (declare (not safe)) - (##vector-ref _g51627_ 0))) + (##vector-ref _g51441_ 0))) (_tl2003020052_ (let () (declare (not safe)) - (##vector-ref _g51627_ 1)))) + (##vector-ref _g51441_ 1)))) (if (gx#stx-null? _tl2003020052_) (letrec ((_loop2003120055_ (lambda (_hd2002920059_ @@ -697,12 +697,12 @@ (##car _e2003220065_))) (_lp-tl2003420072_ (let () (declare (not safe)) (##cdr _e2003220065_)))) - (let ((__tmp51850 + (let ((__tmp51664 (let () (declare (not safe)) (cons _lp-hd2003320069_ _usetf2003520062_)))) (declare (not safe)) - (_loop2003120055_ _lp-tl2003420072_ __tmp51850)))) + (_loop2003120055_ _lp-tl2003420072_ __tmp51664)))) (let ((_usetf2003620075_ (reverse _usetf2003520062_))) ((lambda (_L20079_) (let () @@ -715,30 +715,30 @@ (_g2009521422_ (lambda (_g2009720117_) (if (gx#stx-pair/null? _g2009720117_) - (let ((_g51629_ + (let ((_g51443_ (gx#syntax-split-splice _g2009720117_ '0))) (begin - (let ((_g51630_ + (let ((_g51444_ (let () (declare (not safe)) - (if (##values? _g51629_) - (##vector-length _g51629_) + (if (##values? _g51443_) + (##vector-length _g51443_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g51630_ 2))) + (##fx= _g51444_ 2))) (error "Context expects 2 values" - _g51630_))) + _g51444_))) (let ((_target2009920120_ (let () (declare (not safe)) - (##vector-ref _g51629_ 0))) + (##vector-ref _g51443_ 0))) (_tl2010120123_ (let () (declare (not safe)) - (##vector-ref _g51629_ 1)))) + (##vector-ref _g51443_ 1)))) (if (gx#stx-null? _tl2010120123_) (letrec ((_loop2010220126_ (lambda (_hd2010020130_ @@ -756,13 +756,13 @@ (let () (declare (not safe)) (##cdr _e2010320136_)))) - (let ((__tmp51848 + (let ((__tmp51662 (let () (declare (not safe)) (cons _lp-hd2010420140_ _mixin-ugetf2010620133_)))) (declare (not safe)) - (_loop2010220126_ _lp-tl2010520143_ __tmp51848)))) + (_loop2010220126_ _lp-tl2010520143_ __tmp51662)))) (let ((_mixin-ugetf2010720146_ (reverse _mixin-ugetf2010620133_))) ((lambda (_L20150_) @@ -776,34 +776,34 @@ (_g2016621405_ (lambda (_g2016820188_) (if (gx#stx-pair/null? _g2016820188_) - (let ((_g51631_ + (let ((_g51445_ (gx#syntax-split-splice _g2016820188_ '0))) (begin - (let ((_g51632_ + (let ((_g51446_ (let () (declare (not safe)) - (if (##values? _g51631_) + (if (##values? _g51445_) (##vector-length - _g51631_) + _g51445_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g51632_ 2))) + (##fx= _g51446_ 2))) (error "Context expects 2 values" - _g51632_))) + _g51446_))) (let ((_target2017020191_ (let () (declare (not safe)) (##vector-ref - _g51631_ + _g51445_ 0))) (_tl2017220194_ (let () (declare (not safe)) (##vector-ref - _g51631_ + _g51445_ 1)))) (if (gx#stx-null? _tl2017220194_) @@ -821,7 +821,7 @@ (let () (declare (not safe)) (##cdr _e2017420207_)))) - (let ((__tmp51846 + (let ((__tmp51660 (let () (declare (not safe)) (cons _lp-hd2017520211_ @@ -829,7 +829,7 @@ (declare (not safe)) (_loop2017320197_ _lp-tl2017620214_ - __tmp51846)))) + __tmp51660)))) (let ((_mixin-usetf2017820217_ (reverse _mixin-usetf2017720204_))) ((lambda (_L20221_) @@ -837,8 +837,8 @@ (let* ((_type-slots20252_ (if (gx#stx-null? _slots19363_) '() - (let ((__tmp51633 - (let ((__tmp51634 + (let ((__tmp51447 + (let ((__tmp51448 (begin (gx#syntax-check-splice-targets _L19720_ @@ -849,35 +849,35 @@ _g2023820245_ _g2023920247_ _g2024020249_) - (let ((__tmp51635 - (let ((__tmp51636 - (let ((__tmp51637 + (let ((__tmp51449 + (let ((__tmp51450 + (let ((__tmp51451 (let () (declare (not safe)) (cons _g2023720242_ '())))) (declare (not safe)) (cons _g2023820245_ - __tmp51637)))) + __tmp51451)))) (declare (not safe)) - (cons _g2023920247_ __tmp51636)))) + (cons _g2023920247_ __tmp51450)))) (declare (not safe)) - (cons __tmp51635 _g2024020249_))) + (cons __tmp51449 _g2024020249_))) '() _L19720_ _L19649_ _L19578_)))) (declare (not safe)) - (cons __tmp51634 '())))) + (cons __tmp51448 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'slots: __tmp51633)))) + (cons 'slots: __tmp51447)))) (_type-mixin-slots20269_ (if (gx#stx-null? _mixin-slots19737_) '() - (let ((__tmp51638 - (let ((__tmp51639 + (let ((__tmp51452 + (let ((__tmp51453 (begin (gx#syntax-check-splice-targets _L19937_ @@ -888,32 +888,32 @@ _g2025520262_ _g2025620264_ _g2025720266_) - (let ((__tmp51640 - (let ((__tmp51641 - (let ((__tmp51642 + (let ((__tmp51454 + (let ((__tmp51455 + (let ((__tmp51456 (let () (declare (not safe)) (cons _g2025420259_ '())))) (declare (not safe)) (cons _g2025520262_ - __tmp51642)))) + __tmp51456)))) (declare (not safe)) - (cons _g2025620264_ __tmp51641)))) + (cons _g2025620264_ __tmp51455)))) (declare (not safe)) - (cons __tmp51640 _g2025720266_))) + (cons __tmp51454 _g2025720266_))) '() _L19937_ _L19866_ _L19794_)))) (declare (not safe)) - (cons __tmp51639 '())))) + (cons __tmp51453 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'mixin: __tmp51638)))) + (cons 'mixin: __tmp51452)))) (_type-name20276_ - (let ((__tmp51643 - (let ((__tmp51644 + (let ((__tmp51457 + (let ((__tmp51458 (let ((_$e20272_ (gx#stx-getq ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -922,12 +922,12 @@ (if _$e20272_ _$e20272_ _id19361_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51644 '())))) + (cons __tmp51458 '())))) (declare (not safe)) - (cons 'name: __tmp51643))) + (cons 'name: __tmp51457))) (_type-id20283_ - (let ((__tmp51645 - (let ((__tmp51646 + (let ((__tmp51459 + (let ((__tmp51460 (let ((_$e20279_ (gx#stx-getq ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -941,9 +941,9 @@ _L19396_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51646 '())))) + (cons __tmp51460 '())))) (declare (not safe)) - (cons 'id: __tmp51645))) + (cons 'id: __tmp51459))) (_type-constructor20298_ (let ((_$e20294_ (let ((_e2028520287_ @@ -953,13 +953,13 @@ (if _e2028520287_ (let* ((_e20291_ _e2028520287_) - (__tmp51647 + (__tmp51461 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (cons _e20291_ '())))) (declare (not safe)) - (cons 'constructor: __tmp51647)) + (cons 'constructor: __tmp51461)) '#f)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if _$e20294_ _$e20294_ '()))) @@ -969,14 +969,14 @@ (gx#stx-getq 'transparent: _body19364_)) - (let ((__tmp51648 + (let ((__tmp51462 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons 'transparent: '#t)))) (declare (not safe)) - (cons __tmp51648 '())) + (cons __tmp51462 '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_properties20314_ @@ -994,12 +994,12 @@ (eq? _print20308_ '#t)) _slots19363_ _print20308_)) - (__tmp51649 + (__tmp51463 (let () (declare (not safe)) (cons 'print: _print20311_)))) (declare (not safe)) - (cons __tmp51649 _properties20301_))) + (cons __tmp51463 _properties20301_))) _$e20304_) _properties20301_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -1018,12 +1018,12 @@ (eq? _equal20321_ '#t)) _slots19363_ _equal20321_)) - (__tmp51650 + (__tmp51464 (let () (declare (not safe)) (cons 'equal: _equal20324_)))) (declare (not safe)) - (cons __tmp51650 _properties20314_))) + (cons __tmp51464 _properties20314_))) _$e20317_) _properties20314_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -1043,21 +1043,21 @@ (lambda (_g2033620347_) ((lambda (_L20350_) (let () - (let ((__tmp51651 + (let ((__tmp51465 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp51652 - (let ((__tmp51654 + (let ((__tmp51466 + (let ((__tmp51468 (gx#datum->syntax '#f 'quote)) - (__tmp51653 + (__tmp51467 (let () (declare (not safe)) (cons _L20350_ '())))) (declare (not safe)) - (cons __tmp51654 __tmp51653)))) + (cons __tmp51468 __tmp51467)))) (declare (not safe)) - (cons __tmp51652 '())))) + (cons __tmp51466 '())))) (declare (not safe)) - (cons 'properties: __tmp51651)))) + (cons 'properties: __tmp51465)))) _g2033620347_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) @@ -1078,32 +1078,32 @@ '#f))) (_type-metaclass20386_ (if _metaclass20383_ - (let ((__tmp51655 + (let ((__tmp51469 (let () (declare (not safe)) (cons _metaclass20383_ '())))) (declare (not safe)) - (cons 'metaclass: __tmp51655)) + (cons 'metaclass: __tmp51469)) '())) (_final?20389_ (gx#stx-e (gx#stx-getq 'final: _body19364_))) (_type-struct20392_ - (let ((__tmp51656 + (let ((__tmp51470 (let () (declare (not safe)) (cons _struct?19378_ '())))) (declare (not safe)) - (cons 'struct: __tmp51656))) + (cons 'struct: __tmp51470))) (_type-final20395_ - (let ((__tmp51657 + (let ((__tmp51471 (let () (declare (not safe)) (cons _final?20389_ '())))) (declare (not safe)) - (cons 'final: __tmp51657))) + (cons 'final: __tmp51471))) (_g2039820415_ (lambda (_g2039920411_) (gx#raise-syntax-error @@ -1114,36 +1114,36 @@ (lambda (_g2039920419_) (if (gx#stx-pair/null? _g2039920419_) - (let ((_g51658_ + (let ((_g51472_ (gx#syntax-split-splice _g2039920419_ '0))) (begin - (let ((_g51659_ + (let ((_g51473_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g51658_) - (##vector-length _g51658_) + _g51472_) + (##vector-length _g51472_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g51659_ 2))) - (error "Context expects 2 values" _g51659_))) + (if (not (let () (declare (not safe)) (##fx= _g51473_ 2))) + (error "Context expects 2 values" _g51473_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target2040120422_ (let () (declare (not safe)) (##vector-ref - _g51658_ + _g51472_ 0))) (_tl2040320425_ (let () (declare (not safe)) (##vector-ref - _g51658_ + _g51472_ 1)))) (if (gx#stx-null? _tl2040320425_) @@ -1161,7 +1161,7 @@ (let () (declare (not safe)) (##cdr _e2040520438_)))) - (let ((__tmp51844 + (let ((__tmp51658 (let () (declare (not safe)) (cons _lp-hd2040620442_ @@ -1169,7 +1169,7 @@ (declare (not safe)) (_loop2040420428_ _lp-tl2040720445_ - __tmp51844)))) + __tmp51658)))) (let ((_type-body2040920448_ (reverse _type-body2040820435_))) ((lambda (_L20452_) @@ -1351,158 +1351,158 @@ ((lambda (_L20936_) (let () (let () - (let ((__tmp51660 + (let ((__tmp51474 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp51663 (gx#datum->syntax '#f 'begin)) - (__tmp51661 - (let ((__tmp51662 + (let ((__tmp51477 (gx#datum->syntax '#f 'begin)) + (__tmp51475 + (let ((__tmp51476 (let () (declare (not safe)) (cons _L20936_ '())))) (declare (not safe)) - (cons _L20488_ __tmp51662)))) + (cons _L20488_ __tmp51476)))) (declare (not safe)) - (cons __tmp51663 __tmp51661)))) + (cons __tmp51477 __tmp51475)))) (declare (not safe)) - (_wrap19366_ __tmp51660))))) + (_wrap19366_ __tmp51474))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g2092220933_))) - (__tmp51664 - (let ((__tmp51665 - (let ((__tmp51700 + (__tmp51478 + (let ((__tmp51479 + (let ((__tmp51514 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'defsyntax)) - (__tmp51666 - (let ((__tmp51667 - (let ((__tmp51668 - (let ((__tmp51699 + (__tmp51480 + (let ((__tmp51481 + (let ((__tmp51482 + (let ((__tmp51513 (gx#datum->syntax '#f 'make-class-type-info)) - (__tmp51669 - (let ((__tmp51670 - (let ((__tmp51671 - (let ((__tmp51672 + (__tmp51483 + (let ((__tmp51484 + (let ((__tmp51485 + (let ((__tmp51486 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp51673 - (let ((__tmp51674 - (let ((__tmp51675 - (let ((__tmp51676 - (let ((__tmp51677 - (let ((__tmp51678 + (let ((__tmp51487 + (let ((__tmp51488 + (let ((__tmp51489 + (let ((__tmp51490 + (let ((__tmp51491 + (let ((__tmp51492 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp51679 - (let ((__tmp51680 - (let ((__tmp51681 - (let ((__tmp51682 - (let ((__tmp51683 - (let ((__tmp51684 + (let ((__tmp51493 + (let ((__tmp51494 + (let ((__tmp51495 + (let ((__tmp51496 + (let ((__tmp51497 + (let ((__tmp51498 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp51685 - (let ((__tmp51686 - (let ((__tmp51687 - (let ((__tmp51688 - (let ((__tmp51689 + (let ((__tmp51499 + (let ((__tmp51500 + (let ((__tmp51501 + (let ((__tmp51502 + (let ((__tmp51503 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp51690 - (let ((__tmp51691 - (let ((__tmp51692 - (let ((__tmp51693 - (let ((__tmp51694 - (let ((__tmp51695 + (let ((__tmp51504 + (let ((__tmp51505 + (let ((__tmp51506 + (let ((__tmp51507 + (let ((__tmp51508 + (let ((__tmp51509 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp51696 - (let ((__tmp51697 - (let ((__tmp51698 + (let ((__tmp51510 + (let ((__tmp51511 + (let ((__tmp51512 (let () (declare (not safe)) (cons _L20908_ '())))) (declare (not safe)) (cons 'unchecked-mutators: - __tmp51698)))) + __tmp51512)))) (declare (not safe)) - (cons _L20880_ __tmp51697)))) + (cons _L20880_ __tmp51511)))) (declare (not safe)) - (cons 'unchecked-accessors: __tmp51696)))) + (cons 'unchecked-accessors: __tmp51510)))) (declare (not safe)) - (cons _L20852_ __tmp51695)))) + (cons _L20852_ __tmp51509)))) (declare (not safe)) - (cons 'mutators: __tmp51694)))) + (cons 'mutators: __tmp51508)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L20824_ __tmp51693)))) + (cons _L20824_ __tmp51507)))) (declare (not safe)) - (cons 'accessors: __tmp51692)))) + (cons 'accessors: __tmp51506)))) (declare (not safe)) - (cons _L20796_ __tmp51691)))) + (cons _L20796_ __tmp51505)))) (declare (not safe)) - (cons 'predicate: __tmp51690)))) + (cons 'predicate: __tmp51504)))) (declare (not safe)) - (cons _L20768_ __tmp51689)))) + (cons _L20768_ __tmp51503)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons 'constructor: - __tmp51688)))) + __tmp51502)))) (declare (not safe)) - (cons _L20740_ __tmp51687)))) + (cons _L20740_ __tmp51501)))) (declare (not safe)) - (cons 'type-descriptor: __tmp51686)))) + (cons 'type-descriptor: __tmp51500)))) (declare (not safe)) - (cons _L20712_ __tmp51685)))) + (cons _L20712_ __tmp51499)))) (declare (not safe)) - (cons 'constructor-method: __tmp51684)))) + (cons 'constructor-method: __tmp51498)))) (declare (not safe)) - (cons _L20684_ __tmp51683)))) + (cons _L20684_ __tmp51497)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons 'metaclass: - __tmp51682)))) + __tmp51496)))) (declare (not safe)) - (cons _L20656_ __tmp51681)))) + (cons _L20656_ __tmp51495)))) (declare (not safe)) - (cons 'final?: __tmp51680)))) + (cons 'final?: __tmp51494)))) (declare (not safe)) - (cons _L20628_ __tmp51679)))) + (cons _L20628_ __tmp51493)))) (declare (not safe)) - (cons 'struct?: __tmp51678)))) + (cons 'struct?: __tmp51492)))) (declare (not safe)) - (cons _L20572_ __tmp51677)))) + (cons _L20572_ __tmp51491)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'super: __tmp51676)))) + (cons 'super: __tmp51490)))) (declare (not safe)) - (cons _L20600_ __tmp51675)))) + (cons _L20600_ __tmp51489)))) (declare (not safe)) - (cons 'slots: __tmp51674)))) + (cons 'slots: __tmp51488)))) (declare (not safe)) - (cons _L20544_ __tmp51673)))) + (cons _L20544_ __tmp51487)))) (declare (not safe)) - (cons 'name: __tmp51672)))) + (cons 'name: __tmp51486)))) (declare (not safe)) - (cons _L20516_ __tmp51671)))) + (cons _L20516_ __tmp51485)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'id: __tmp51670)))) + (cons 'id: __tmp51484)))) (declare (not safe)) - (cons __tmp51699 __tmp51669)))) + (cons __tmp51513 __tmp51483)))) (declare (not safe)) - (cons __tmp51668 '())))) + (cons __tmp51482 '())))) (declare (not safe)) - (cons _L19396_ __tmp51667)))) + (cons _L19396_ __tmp51481)))) (declare (not safe)) - (cons __tmp51700 __tmp51666)))) + (cons __tmp51514 __tmp51480)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_wrap19366_ __tmp51665)))) + (_wrap19366_ __tmp51479)))) (declare (not safe)) - (_g2092020951_ __tmp51664)))) + (_g2092020951_ __tmp51478)))) _g2089420905_))) - (__tmp51701 - (let ((__tmp51725 + (__tmp51515 + (let ((__tmp51539 (gx#datum->syntax '#f '@list)) - (__tmp51702 + (__tmp51516 (begin (gx#syntax-check-splice-targets _L20079_ @@ -1510,45 +1510,45 @@ (foldr (lambda (_g2095820965_ _g2095920968_ _g2096020970_) - (let ((__tmp51703 - (let ((__tmp51713 + (let ((__tmp51517 + (let ((__tmp51527 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '@list)) - (__tmp51704 - (let ((__tmp51710 - (let ((__tmp51712 + (__tmp51518 + (let ((__tmp51524 + (let ((__tmp51526 (gx#datum->syntax '#f 'quote)) - (__tmp51711 + (__tmp51525 (let () (declare (not safe)) (cons _g2095920968_ '())))) (declare (not safe)) - (cons __tmp51712 __tmp51711))) - (__tmp51705 - (let ((__tmp51706 - (let ((__tmp51707 - (let ((__tmp51709 + (cons __tmp51526 __tmp51525))) + (__tmp51519 + (let ((__tmp51520 + (let ((__tmp51521 + (let ((__tmp51523 (gx#datum->syntax '#f 'quote-syntax)) - (__tmp51708 + (__tmp51522 (let () (declare (not safe)) (cons _g2095820965_ '())))) (declare (not safe)) - (cons __tmp51709 - __tmp51708)))) + (cons __tmp51523 + __tmp51522)))) (declare (not safe)) - (cons __tmp51707 '())))) + (cons __tmp51521 '())))) (declare (not safe)) - (cons ':: __tmp51706)))) + (cons ':: __tmp51520)))) (declare (not safe)) - (cons __tmp51710 __tmp51705)))) + (cons __tmp51524 __tmp51519)))) (declare (not safe)) - (cons __tmp51713 __tmp51704)))) + (cons __tmp51527 __tmp51518)))) (declare (not safe)) - (cons __tmp51703 _g2096020970_))) + (cons __tmp51517 _g2096020970_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (begin (gx#syntax-check-splice-targets @@ -1558,45 +1558,45 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g2096220976_ _g2096320978_) - (let ((__tmp51714 - (let ((__tmp51724 (gx#datum->syntax '#f '@list)) - (__tmp51715 - (let ((__tmp51721 - (let ((__tmp51723 + (let ((__tmp51528 + (let ((__tmp51538 (gx#datum->syntax '#f '@list)) + (__tmp51529 + (let ((__tmp51535 + (let ((__tmp51537 (gx#datum->syntax '#f 'quote)) - (__tmp51722 + (__tmp51536 (let () (declare (not safe)) (cons _g2096220976_ '())))) (declare (not safe)) - (cons __tmp51723 __tmp51722))) - (__tmp51716 - (let ((__tmp51717 - (let ((__tmp51718 - (let ((__tmp51720 + (cons __tmp51537 __tmp51536))) + (__tmp51530 + (let ((__tmp51531 + (let ((__tmp51532 + (let ((__tmp51534 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote-syntax)) - (__tmp51719 + (__tmp51533 (let () (declare (not safe)) (cons _g2096120973_ '())))) (declare (not safe)) - (cons __tmp51720 __tmp51719)))) + (cons __tmp51534 __tmp51533)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51718 '())))) + (cons __tmp51532 '())))) (declare (not safe)) - (cons ':: __tmp51717)))) + (cons ':: __tmp51531)))) (declare (not safe)) - (cons __tmp51721 __tmp51716)))) + (cons __tmp51535 __tmp51530)))) (declare (not safe)) - (cons __tmp51724 __tmp51715)))) + (cons __tmp51538 __tmp51529)))) (declare (not safe)) - (cons __tmp51714 _g2096320978_))) + (cons __tmp51528 _g2096320978_))) '() _L20221_ _L19794_)) @@ -1604,56 +1604,56 @@ _L20079_ _L19578_)))) (declare (not safe)) - (cons __tmp51725 __tmp51702)))) + (cons __tmp51539 __tmp51516)))) (declare (not safe)) - (_g2089220955_ __tmp51701)))) + (_g2089220955_ __tmp51515)))) _g2086620877_))) - (__tmp51726 - (let ((__tmp51750 (gx#datum->syntax '#f '@list)) - (__tmp51727 + (__tmp51540 + (let ((__tmp51564 (gx#datum->syntax '#f '@list)) + (__tmp51541 (begin (gx#syntax-check-splice-targets _L20008_ _L19578_) (foldr (lambda (_g2098420991_ _g2098520994_ _g2098620996_) - (let ((__tmp51728 - (let ((__tmp51738 + (let ((__tmp51542 + (let ((__tmp51552 (gx#datum->syntax '#f '@list)) - (__tmp51729 - (let ((__tmp51735 - (let ((__tmp51737 + (__tmp51543 + (let ((__tmp51549 + (let ((__tmp51551 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'quote)) - (__tmp51736 + (__tmp51550 (let () (declare (not safe)) (cons _g2098520994_ '())))) (declare (not safe)) - (cons __tmp51737 __tmp51736))) - (__tmp51730 - (let ((__tmp51731 - (let ((__tmp51732 - (let ((__tmp51734 + (cons __tmp51551 __tmp51550))) + (__tmp51544 + (let ((__tmp51545 + (let ((__tmp51546 + (let ((__tmp51548 (gx#datum->syntax '#f 'quote-syntax)) - (__tmp51733 + (__tmp51547 (let () (declare (not safe)) (cons _g2098420991_ '())))) (declare (not safe)) - (cons __tmp51734 __tmp51733)))) + (cons __tmp51548 __tmp51547)))) (declare (not safe)) - (cons __tmp51732 '())))) + (cons __tmp51546 '())))) (declare (not safe)) - (cons ':: __tmp51731)))) + (cons ':: __tmp51545)))) (declare (not safe)) - (cons __tmp51735 __tmp51730)))) + (cons __tmp51549 __tmp51544)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51738 __tmp51729)))) + (cons __tmp51552 __tmp51543)))) (declare (not safe)) - (cons __tmp51728 _g2098620996_))) + (cons __tmp51542 _g2098620996_))) (begin (gx#syntax-check-splice-targets _L20150_ @@ -1661,45 +1661,45 @@ (foldr (lambda (_g2098720999_ _g2098821002_ _g2098921004_) - (let ((__tmp51739 - (let ((__tmp51749 + (let ((__tmp51553 + (let ((__tmp51563 (gx#datum->syntax '#f '@list)) - (__tmp51740 - (let ((__tmp51746 + (__tmp51554 + (let ((__tmp51560 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp51748 (gx#datum->syntax '#f 'quote)) - (__tmp51747 + (let ((__tmp51562 (gx#datum->syntax '#f 'quote)) + (__tmp51561 (let () (declare (not safe)) (cons _g2098821002_ '())))) (declare (not safe)) - (cons __tmp51748 __tmp51747))) - (__tmp51741 - (let ((__tmp51742 - (let ((__tmp51743 - (let ((__tmp51745 + (cons __tmp51562 __tmp51561))) + (__tmp51555 + (let ((__tmp51556 + (let ((__tmp51557 + (let ((__tmp51559 (gx#datum->syntax '#f 'quote-syntax)) - (__tmp51744 + (__tmp51558 (let () (declare (not safe)) (cons _g2098720999_ '())))) (declare (not safe)) - (cons __tmp51745 __tmp51744)))) + (cons __tmp51559 __tmp51558)))) (declare (not safe)) - (cons __tmp51743 '())))) + (cons __tmp51557 '())))) (declare (not safe)) - (cons ':: __tmp51742)))) + (cons ':: __tmp51556)))) (declare (not safe)) - (cons __tmp51746 __tmp51741)))) + (cons __tmp51560 __tmp51555)))) (declare (not safe)) - (cons __tmp51749 __tmp51740)))) + (cons __tmp51563 __tmp51554)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51739 + (cons __tmp51553 _g2098921004_))) '() _L20150_ @@ -1707,17 +1707,17 @@ _L20008_ _L19578_)))) (declare (not safe)) - (cons __tmp51750 __tmp51727)))) + (cons __tmp51564 __tmp51541)))) (declare (not safe)) - (_g2086420981_ __tmp51726)))) + (_g2086420981_ __tmp51540)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g2083820849_))) - (__tmp51751 - (let ((__tmp51775 + (__tmp51565 + (let ((__tmp51589 (gx#datum->syntax '#f '@list)) - (__tmp51752 + (__tmp51566 (begin (gx#syntax-check-splice-targets _L19720_ @@ -1726,59 +1726,59 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g2101121020_ _g2101221022_) - (let ((__tmp51753 - (let ((__tmp51763 (gx#datum->syntax '#f '@list)) - (__tmp51754 - (let ((__tmp51760 - (let ((__tmp51762 + (let ((__tmp51567 + (let ((__tmp51577 (gx#datum->syntax '#f '@list)) + (__tmp51568 + (let ((__tmp51574 + (let ((__tmp51576 (gx#datum->syntax '#f 'quote)) - (__tmp51761 + (__tmp51575 (let () (declare (not safe)) (cons _g2101121020_ '())))) (declare (not safe)) - (cons __tmp51762 __tmp51761))) - (__tmp51755 - (let ((__tmp51756 - (let ((__tmp51757 - (let ((__tmp51759 + (cons __tmp51576 __tmp51575))) + (__tmp51569 + (let ((__tmp51570 + (let ((__tmp51571 + (let ((__tmp51573 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'quote-syntax)) - (__tmp51758 + (__tmp51572 (let () (declare (not safe)) (cons _g2101021017_ '())))) (declare (not safe)) - (cons __tmp51759 __tmp51758)))) + (cons __tmp51573 __tmp51572)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51757 '())))) + (cons __tmp51571 '())))) (declare (not safe)) - (cons ':: __tmp51756)))) + (cons ':: __tmp51570)))) (declare (not safe)) - (cons __tmp51760 __tmp51755)))) + (cons __tmp51574 __tmp51569)))) (declare (not safe)) - (cons __tmp51763 __tmp51754)))) + (cons __tmp51577 __tmp51568)))) (declare (not safe)) - (cons __tmp51753 _g2101221022_))) + (cons __tmp51567 _g2101221022_))) (begin (gx#syntax-check-splice-targets _L19937_ _L19794_) (foldr (lambda (_g2101321025_ _g2101421028_ _g2101521030_) - (let ((__tmp51764 - (let ((__tmp51774 + (let ((__tmp51578 + (let ((__tmp51588 (gx#datum->syntax '#f '@list)) - (__tmp51765 - (let ((__tmp51771 - (let ((__tmp51773 + (__tmp51579 + (let ((__tmp51585 + (let ((__tmp51587 (gx#datum->syntax '#f 'quote)) - (__tmp51772 + (__tmp51586 (let () (declare (not safe)) @@ -1786,31 +1786,31 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp51773 __tmp51772))) + (cons __tmp51587 __tmp51586))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp51766 - (let ((__tmp51767 - (let ((__tmp51768 + (__tmp51580 + (let ((__tmp51581 + (let ((__tmp51582 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp51770 + (let ((__tmp51584 (gx#datum->syntax '#f 'quote-syntax)) - (__tmp51769 + (__tmp51583 (let () (declare (not safe)) (cons _g2101321025_ '())))) (declare (not safe)) - (cons __tmp51770 __tmp51769)))) + (cons __tmp51584 __tmp51583)))) (declare (not safe)) - (cons __tmp51768 '())))) + (cons __tmp51582 '())))) (declare (not safe)) - (cons ':: __tmp51767)))) + (cons ':: __tmp51581)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51771 __tmp51766)))) + (cons __tmp51585 __tmp51580)))) (declare (not safe)) - (cons __tmp51774 __tmp51765)))) + (cons __tmp51588 __tmp51579)))) (declare (not safe)) - (cons __tmp51764 _g2101521030_))) + (cons __tmp51578 _g2101521030_))) '() _L19937_ _L19794_)) @@ -1818,13 +1818,13 @@ _L19578_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51775 __tmp51752)))) + (cons __tmp51589 __tmp51566)))) (declare (not safe)) - (_g2083621007_ __tmp51751)))) + (_g2083621007_ __tmp51565)))) _g2081020821_))) - (__tmp51776 - (let ((__tmp51800 (gx#datum->syntax '#f '@list)) - (__tmp51777 + (__tmp51590 + (let ((__tmp51614 (gx#datum->syntax '#f '@list)) + (__tmp51591 (begin (gx#syntax-check-splice-targets _L19649_ @@ -1832,45 +1832,45 @@ (foldr (lambda (_g2103621043_ _g2103721046_ _g2103821048_) - (let ((__tmp51778 - (let ((__tmp51788 + (let ((__tmp51592 + (let ((__tmp51602 (gx#datum->syntax '#f '@list)) - (__tmp51779 - (let ((__tmp51785 + (__tmp51593 + (let ((__tmp51599 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp51787 (gx#datum->syntax '#f 'quote)) - (__tmp51786 + (let ((__tmp51601 (gx#datum->syntax '#f 'quote)) + (__tmp51600 (let () (declare (not safe)) (cons _g2103721046_ '())))) (declare (not safe)) - (cons __tmp51787 __tmp51786))) - (__tmp51780 - (let ((__tmp51781 - (let ((__tmp51782 - (let ((__tmp51784 + (cons __tmp51601 __tmp51600))) + (__tmp51594 + (let ((__tmp51595 + (let ((__tmp51596 + (let ((__tmp51598 (gx#datum->syntax '#f 'quote-syntax)) - (__tmp51783 + (__tmp51597 (let () (declare (not safe)) (cons _g2103621043_ '())))) (declare (not safe)) - (cons __tmp51784 __tmp51783)))) + (cons __tmp51598 __tmp51597)))) (declare (not safe)) - (cons __tmp51782 '())))) + (cons __tmp51596 '())))) (declare (not safe)) - (cons ':: __tmp51781)))) + (cons ':: __tmp51595)))) (declare (not safe)) - (cons __tmp51785 __tmp51780)))) + (cons __tmp51599 __tmp51594)))) (declare (not safe)) - (cons __tmp51788 __tmp51779)))) + (cons __tmp51602 __tmp51593)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51778 + (cons __tmp51592 _g2103821048_))) (begin (gx#syntax-check-splice-targets @@ -1879,28 +1879,28 @@ (foldr (lambda (_g2103921051_ _g2104021054_ _g2104121056_) - (let ((__tmp51789 - (let ((__tmp51799 + (let ((__tmp51603 + (let ((__tmp51613 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '@list)) - (__tmp51790 - (let ((__tmp51796 - (let ((__tmp51798 + (__tmp51604 + (let ((__tmp51610 + (let ((__tmp51612 (gx#datum->syntax '#f 'quote)) - (__tmp51797 + (__tmp51611 (let () (declare (not safe)) (cons _g2104021054_ '())))) (declare (not safe)) - (cons __tmp51798 __tmp51797))) - (__tmp51791 - (let ((__tmp51792 - (let ((__tmp51793 - (let ((__tmp51795 + (cons __tmp51612 __tmp51611))) + (__tmp51605 + (let ((__tmp51606 + (let ((__tmp51607 + (let ((__tmp51609 (gx#datum->syntax '#f 'quote-syntax)) - (__tmp51794 + (__tmp51608 (let () (declare (not safe)) @@ -1908,18 +1908,18 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp51795 __tmp51794)))) + (cons __tmp51609 __tmp51608)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51793 '())))) + (cons __tmp51607 '())))) (declare (not safe)) - (cons ':: __tmp51792)))) + (cons ':: __tmp51606)))) (declare (not safe)) - (cons __tmp51796 __tmp51791)))) + (cons __tmp51610 __tmp51605)))) (declare (not safe)) - (cons __tmp51799 __tmp51790)))) + (cons __tmp51613 __tmp51604)))) (declare (not safe)) - (cons __tmp51789 _g2104121056_))) + (cons __tmp51603 _g2104121056_))) '() _L19866_ _L19794_)) @@ -1927,48 +1927,48 @@ _L19649_ _L19578_)))) (declare (not safe)) - (cons __tmp51800 __tmp51777)))) + (cons __tmp51614 __tmp51591)))) (declare (not safe)) - (_g2080821033_ __tmp51776)))) + (_g2080821033_ __tmp51590)))) _g2078220793_))) - (__tmp51801 - (let ((__tmp51803 (gx#datum->syntax '#f 'quote-syntax)) - (__tmp51802 + (__tmp51615 + (let ((__tmp51617 (gx#datum->syntax '#f 'quote-syntax)) + (__tmp51616 (let () (declare (not safe)) (cons _L19483_ '())))) (declare (not safe)) - (cons __tmp51803 __tmp51802)))) + (cons __tmp51617 __tmp51616)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g2078021059_ __tmp51801)))) + (_g2078021059_ __tmp51615)))) _g2075420765_))) - (__tmp51804 - (let ((__tmp51806 + (__tmp51618 + (let ((__tmp51620 (gx#datum->syntax '#f 'quote-syntax)) - (__tmp51805 + (__tmp51619 (let () (declare (not safe)) (cons _L19455_ '())))) (declare (not safe)) - (cons __tmp51806 __tmp51805)))) + (cons __tmp51620 __tmp51619)))) (declare (not safe)) - (_g2075221063_ __tmp51804)))) + (_g2075221063_ __tmp51618)))) _g2072620737_))) - (__tmp51807 - (let ((__tmp51809 + (__tmp51621 + (let ((__tmp51623 (gx#datum->syntax '#f 'quote-syntax)) - (__tmp51808 + (__tmp51622 (let () (declare (not safe)) (cons _L19427_ '())))) (declare (not safe)) - (cons __tmp51809 __tmp51808)))) + (cons __tmp51623 __tmp51622)))) (declare (not safe)) - (_g2072421067_ __tmp51807)))) + (_g2072421067_ __tmp51621)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g2069820709_))) - (__tmp51810 + (__tmp51624 (if (let () (declare (not safe)) (null? _type-constructor20298_)) @@ -2015,13 +2015,13 @@ _tl2108221118_) ((lambda (_L21121_) (let () - (let ((__tmp51812 + (let ((__tmp51626 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'quote)) - (__tmp51811 + (__tmp51625 (let () (declare (not safe)) (cons _L21121_ '())))) (declare (not safe)) - (cons __tmp51812 __tmp51811)))) + (cons __tmp51626 __tmp51625)))) _hd2108321115_) (let () (declare (not safe)) (_g2107521090_ _g2107621094_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -2041,9 +2041,9 @@ (_g2107421138_ _type-constructor20298_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g2069621071_ __tmp51810)))) + (_g2069621071_ __tmp51624)))) _g2067020681_))) - (__tmp51813 + (__tmp51627 (if _metaclass20383_ (let* ((_g2114621154_ (lambda (_g2114721150_) @@ -2055,25 +2055,25 @@ (lambda (_g2114721158_) ((lambda (_L21161_) (let () - (let ((__tmp51815 + (let ((__tmp51629 (gx#datum->syntax '#f 'quote-syntax)) - (__tmp51814 + (__tmp51628 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons _L21161_ '())))) (declare (not safe)) - (cons __tmp51815 __tmp51814)))) + (cons __tmp51629 __tmp51628)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g2114721158_)))) (declare (not safe)) (_g2114521173_ _metaclass20383_)) '#f))) (declare (not safe)) - (_g2066821142_ __tmp51813)))) + (_g2066821142_ __tmp51627)))) _g2064220653_)))) (declare (not safe)) (_g2064021177_ _final?20389_)))) @@ -2082,10 +2082,10 @@ (declare (not safe)) (_g2061221181_ _struct?19378_)))) _g2058620597_))) - (__tmp51816 - (let ((__tmp51819 (gx#datum->syntax '#f 'quote)) - (__tmp51817 - (let ((__tmp51818 + (__tmp51630 + (let ((__tmp51633 (gx#datum->syntax '#f 'quote)) + (__tmp51631 + (let ((__tmp51632 (foldr (lambda (_g2118821191_ _g2118921194_) (let () @@ -2095,13 +2095,13 @@ '() _L19578_))) (declare (not safe)) - (cons __tmp51818 '())))) + (cons __tmp51632 '())))) (declare (not safe)) - (cons __tmp51819 __tmp51817)))) + (cons __tmp51633 __tmp51631)))) (declare (not safe)) - (_g2058421185_ __tmp51816)))) + (_g2058421185_ __tmp51630)))) _g2055820569_))) - (__tmp51820 + (__tmp51634 (let* ((_g2120121218_ (lambda (_g2120221214_) (gx#raise-syntax-error @@ -2111,28 +2111,28 @@ (_g2120021279_ (lambda (_g2120221222_) (if (gx#stx-pair/null? _g2120221222_) - (let ((_g51821_ + (let ((_g51635_ (gx#syntax-split-splice _g2120221222_ '0))) (begin - (let ((_g51822_ + (let ((_g51636_ (let () (declare (not safe)) - (if (##values? _g51821_) - (##vector-length _g51821_) + (if (##values? _g51635_) + (##vector-length _g51635_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g51822_ 2))) + (##fx= _g51636_ 2))) (error "Context expects 2 values" - _g51822_))) + _g51636_))) (let ((_target2120421225_ (let () (declare (not safe)) - (##vector-ref _g51821_ 0))) + (##vector-ref _g51635_ 0))) (_tl2120621228_ (let () (declare (not safe)) - (##vector-ref _g51821_ 1)))) + (##vector-ref _g51635_ 1)))) (if (gx#stx-null? _tl2120621228_) (letrec ((_loop2120721231_ (lambda (_hd2120521235_ @@ -2149,36 +2149,36 @@ (##car _e2120821241_))) (_lp-tl2121021248_ (let () (declare (not safe)) (##cdr _e2120821241_)))) - (let ((__tmp51828 + (let ((__tmp51642 (let () (declare (not safe)) (cons _lp-hd2120921245_ _super-id2121121238_)))) (declare (not safe)) - (_loop2120721231_ _lp-tl2121021248_ __tmp51828)))) + (_loop2120721231_ _lp-tl2121021248_ __tmp51642)))) (let ((_super-id2121221251_ (reverse _super-id2121121238_))) ((lambda (_L21255_) (let () - (let ((__tmp51827 (gx#datum->syntax '#f '@list)) - (__tmp51823 + (let ((__tmp51641 (gx#datum->syntax '#f '@list)) + (__tmp51637 (foldr (lambda (_g2127021273_ _g2127121276_) - (let ((__tmp51824 - (let ((__tmp51826 + (let ((__tmp51638 + (let ((__tmp51640 (gx#datum->syntax '#f 'quote-syntax)) - (__tmp51825 + (__tmp51639 (let () (declare (not safe)) (cons _g2127021273_ '())))) (declare (not safe)) - (cons __tmp51826 __tmp51825)))) + (cons __tmp51640 __tmp51639)))) (declare (not safe)) - (cons __tmp51824 _g2127121276_))) + (cons __tmp51638 _g2127121276_))) '() _L21255_))) (declare (not safe)) - (cons __tmp51827 __tmp51823)))) + (cons __tmp51641 __tmp51637)))) _super-id2121221251_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () @@ -2196,9 +2196,9 @@ (_g2120021279_ _super-ref19362_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g2055621197_ __tmp51820)))) + (_g2055621197_ __tmp51634)))) _g2053020541_))) - (__tmp51829 + (__tmp51643 (let* ((_g2128721295_ (lambda (_g2128821291_) (gx#raise-syntax-error @@ -2209,28 +2209,28 @@ (lambda (_g2128821299_) ((lambda (_L21302_) (let () - (let ((__tmp51831 + (let ((__tmp51645 (gx#datum->syntax '#f 'quote)) - (__tmp51830 + (__tmp51644 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons _L21302_ '())))) (declare (not safe)) - (cons __tmp51831 __tmp51830)))) + (cons __tmp51645 __tmp51644)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g2128821299_))) - (__tmp51832 + (__tmp51646 (cadr _type-name20276_))) (declare (not safe)) - (_g2128621314_ __tmp51832)))) + (_g2128621314_ __tmp51646)))) (declare (not safe)) - (_g2052821283_ __tmp51829)))) + (_g2052821283_ __tmp51643)))) _g2050220513_))) - (__tmp51833 + (__tmp51647 (let* ((_g2132221337_ (lambda (_g2132321333_) (gx#raise-syntax-error @@ -2271,13 +2271,13 @@ (if (gx#stx-null? _tl2132921365_) ((lambda (_L21368_) (let () - (let ((__tmp51835 (gx#datum->syntax '#f 'quote)) - (__tmp51834 + (let ((__tmp51649 (gx#datum->syntax '#f 'quote)) + (__tmp51648 (let () (declare (not safe)) (cons _L21368_ '())))) (declare (not safe)) - (cons __tmp51835 __tmp51834)))) + (cons __tmp51649 __tmp51648)))) _hd2133021362_) (let () (declare (not safe)) @@ -2298,21 +2298,21 @@ (declare (not safe)) (_g2132121385_ _type-id20283_)))) (declare (not safe)) - (_g2050021318_ __tmp51833)))) + (_g2050021318_ __tmp51647)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g2047420485_))) - (__tmp51836 - (let ((__tmp51837 - (let ((__tmp51843 + (__tmp51650 + (let ((__tmp51651 + (let ((__tmp51657 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'defclass-type)) - (__tmp51838 - (let ((__tmp51839 - (let ((__tmp51840 - (let ((__tmp51841 - (let ((__tmp51842 + (__tmp51652 + (let ((__tmp51653 + (let ((__tmp51654 + (let ((__tmp51655 + (let ((__tmp51656 (foldr (lambda (_g2139221395_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g2139321398_) @@ -2323,20 +2323,20 @@ _L20452_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L19483_ __tmp51842)))) + (cons _L19483_ __tmp51656)))) (declare (not safe)) - (cons _L19455_ __tmp51841)))) + (cons _L19455_ __tmp51655)))) (declare (not safe)) - (cons _L19511_ __tmp51840)))) + (cons _L19511_ __tmp51654)))) (declare (not safe)) - (cons _L19427_ __tmp51839)))) + (cons _L19427_ __tmp51653)))) (declare (not safe)) - (cons __tmp51843 __tmp51838)))) + (cons __tmp51657 __tmp51652)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_wrap19366_ __tmp51837)))) + (_wrap19366_ __tmp51651)))) (declare (not safe)) - (_g2047221389_ __tmp51836)))) + (_g2047221389_ __tmp51650)))) _type-body2040920448_)))))) (let () (declare (not safe)) @@ -2349,7 +2349,7 @@ (declare (not safe)) (_g2039820415_ _g2039920419_))))) - (__tmp51845 + (__tmp51659 (foldr cons (foldr cons (foldr cons @@ -2370,7 +2370,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _type-id20283_))) (declare (not safe)) - (_g2039721401_ __tmp51845)))) + (_g2039721401_ __tmp51659)))) _mixin-usetf2017820217_)))))) (let () (declare (not safe)) @@ -2383,7 +2383,7 @@ (let () (declare (not safe)) (_g2016720184_ _g2016820188_))))) - (__tmp51847 + (__tmp51661 (gx#stx-map (lambda (_g2140821410_) (_make-id19368_ '"&" _g2140821410_)) @@ -2396,7 +2396,7 @@ '() _L19937_)))) (declare (not safe)) - (_g2016621405_ __tmp51847)))) + (_g2016621405_ __tmp51661)))) _mixin-ugetf2010720146_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () @@ -2411,7 +2411,7 @@ (let () (declare (not safe)) (_g2009620113_ _g2009720117_))))) - (__tmp51849 + (__tmp51663 (gx#stx-map (lambda (_g2142521427_) (_make-id19368_ '"&" _g2142521427_)) @@ -2422,7 +2422,7 @@ '() _L19866_)))) (declare (not safe)) - (_g2009521422_ __tmp51849)))) + (_g2009521422_ __tmp51663)))) _usetf2003620075_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () @@ -2436,7 +2436,7 @@ (let () (declare (not safe)) (_g2002520042_ _g2002620046_))))) - (__tmp51851 + (__tmp51665 (gx#stx-map (lambda (_g2144221444_) (_make-id19368_ '"&" _g2144221444_)) @@ -2447,7 +2447,7 @@ '() _L19720_)))) (declare (not safe)) - (_g2002421439_ __tmp51851)))) + (_g2002421439_ __tmp51665)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _ugetf1996520004_)))))) (let () @@ -2459,7 +2459,7 @@ (let () (declare (not safe)) (_g1995419971_ _g1995519975_))))) - (__tmp51853 + (__tmp51667 (gx#stx-map (lambda (_g2145921461_) (_make-id19368_ '"&" _g2145921461_)) (foldr (lambda (_g2146421467_ _g2146521470_) @@ -2470,7 +2470,7 @@ _L19649_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g1995321456_ __tmp51853)))) + (_g1995321456_ __tmp51667)))) _mixin-setf1989419933_)))))) (let () (declare (not safe)) @@ -2480,7 +2480,7 @@ (_g1988319900_ _g1988419904_)))))) (let () (declare (not safe)) (_g1988319900_ _g1988419904_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp51855 + (__tmp51669 (gx#stx-map (lambda (_g2147621478_) (_make-id19368_ @@ -2490,7 +2490,7 @@ '"-set!")) _mixin-slots19737_))) (declare (not safe)) - (_g1988221473_ __tmp51855)))) + (_g1988221473_ __tmp51669)))) _mixin-getf1982319862_)))))) (let () (declare (not safe)) @@ -2503,7 +2503,7 @@ (declare (not safe)) (_g1981219829_ _g1981319833_))))) - (__tmp51857 + (__tmp51671 (gx#stx-map (lambda (_g2148521487_) (_make-id19368_ @@ -2512,7 +2512,7 @@ _g2148521487_)) _mixin-slots19737_))) (declare (not safe)) - (_g1981121482_ __tmp51857)))) + (_g1981121482_ __tmp51671)))) _mixin-slot1975119790_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () @@ -2542,7 +2542,7 @@ (let () (declare (not safe)) (_g1966619683_ _g1966719687_))))) - (__tmp51860 + (__tmp51674 (gx#stx-map (lambda (_g2149821500_) (_make-id19368_ @@ -2552,7 +2552,7 @@ '"-set!")) _slots19363_))) (declare (not safe)) - (_g1966521495_ __tmp51860)))) + (_g1966521495_ __tmp51674)))) _getf1960619645_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () @@ -2566,13 +2566,13 @@ (let () (declare (not safe)) (_g1959519612_ _g1959619616_))))) - (__tmp51862 + (__tmp51676 (gx#stx-map (lambda (_g2150721509_) (_make-id19368_ _name19372_ '"-" _g2150721509_)) _slots19363_))) (declare (not safe)) - (_g1959421504_ __tmp51862)))) + (_g1959421504_ __tmp51676)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _slot1953519574_)))))) (let () @@ -2588,28 +2588,28 @@ (declare (not safe)) (_g1952321513_ _slots19363_)))) _g1949719508_))) - (__tmp51864 + (__tmp51678 (map gerbil/core$<MOP>$<MOP:2>#!class-type-descriptor _super19375_))) (declare (not safe)) - (_g1949521517_ __tmp51864)))) + (_g1949521517_ __tmp51678)))) _g1946919480_))) - (__tmp51865 (_make-id19368_ _name19372_ '"?"))) + (__tmp51679 (_make-id19368_ _name19372_ '"?"))) (declare (not safe)) - (_g1946721521_ __tmp51865)))) + (_g1946721521_ __tmp51679)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g1944119452_))) - (__tmp51866 + (__tmp51680 (_make-id19368_ '"make-" _name19372_))) (declare (not safe)) - (_g1943921525_ __tmp51866)))) + (_g1943921525_ __tmp51680)))) _g1941319424_))) - (__tmp51867 + (__tmp51681 (_make-id19368_ _name19372_ '"::t"))) (declare (not safe)) - (_g1941121529_ __tmp51867)))) + (_g1941121529_ __tmp51681)))) _g1938219393_)))) (declare (not safe)) (_g1938021533_ _id19361_))))) @@ -2656,27 +2656,27 @@ (declare (not safe)) (##cdr _e2161421647_)))) ((lambda (_L21657_ _L21659_ _L21660_) - (let ((__tmp51872 + (let ((__tmp51686 (gx#datum->syntax '#f 'defclass)) - (__tmp51868 - (let ((__tmp51869 - (let ((__tmp51870 + (__tmp51682 + (let ((__tmp51683 + (let ((__tmp51684 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp51871 + (let ((__tmp51685 (let () (declare (not safe)) (cons '#t _L21657_)))) (declare (not safe)) - (cons 'struct: __tmp51871)))) + (cons 'struct: __tmp51685)))) (declare (not safe)) - (cons _L21659_ __tmp51870)))) + (cons _L21659_ __tmp51684)))) (declare (not safe)) - (cons _L21660_ __tmp51869)))) + (cons _L21660_ __tmp51683)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51872 __tmp51868))) + (cons __tmp51686 __tmp51682))) _tl2161221654_ _hd2161321651_ _hd2161021641_))) @@ -2697,12 +2697,12 @@ ___stx4659246593_)))) (let ((___kont4659546596_ (lambda (_L21814_ _L21816_) - (let ((__tmp51873 (gx#syntax->list _L21814_))) + (let ((__tmp51687 (gx#syntax->list _L21814_))) (declare (not safe)) (|gerbil/core$<MOP>$<MOP:4>[1]#generate-defclass| _stx21681_ _L21816_ - __tmp51873 + __tmp51687 _slots21770_ _body21771_)))) (___kont4659746598_ @@ -2862,7 +2862,7 @@ (##cdr _e2185421896_)))) (if (gx#identifier? _hd2185321900_) (if (gx#free-identifier=? - |gerbil/core$<MOP>$<MOP:4>[1]#_g51924_| + |gerbil/core$<MOP>$<MOP:4>[1]#_g51738_| _hd2185321900_) (if (gx#stx-pair? _tl2185221903_) @@ -2980,166 +2980,166 @@ (let () (let () (_wrap21836_ - (let ((__tmp51878 + (let ((__tmp51692 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'begin)) - (__tmp51876 - (let ((__tmp51877 + (__tmp51690 + (let ((__tmp51691 (let () (declare (not safe)) (cons _L22127_ '())))) (declare (not safe)) - (cons _L22071_ __tmp51877)))) + (cons _L22071_ __tmp51691)))) (declare (not safe)) - (cons __tmp51878 __tmp51876)))))) + (cons __tmp51692 __tmp51690)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g2211322124_)))) (_g2211122142_ (_wrap21836_ - (let ((__tmp51886 + (let ((__tmp51700 (gx#datum->syntax '#f 'bind-method!)) - (__tmp51879 - (let ((__tmp51880 - (let ((__tmp51883 + (__tmp51693 + (let ((__tmp51694 + (let ((__tmp51697 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp51885 (gx#datum->syntax '#f 'quote)) - (__tmp51884 + (let ((__tmp51699 (gx#datum->syntax '#f 'quote)) + (__tmp51698 (let () (declare (not safe)) (cons _L21940_ '())))) (declare (not safe)) - (cons __tmp51885 __tmp51884))) - (__tmp51881 - (let ((__tmp51882 + (cons __tmp51699 __tmp51698))) + (__tmp51695 + (let ((__tmp51696 (let () (declare (not safe)) (cons _L22099_ '())))) (declare (not safe)) - (cons _L22015_ __tmp51882)))) + (cons _L22015_ __tmp51696)))) (declare (not safe)) - (cons __tmp51883 __tmp51881)))) + (cons __tmp51697 __tmp51695)))) (declare (not safe)) - (cons _L21986_ __tmp51880)))) + (cons _L21986_ __tmp51694)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51886 - __tmp51879))))))) + (cons __tmp51700 + __tmp51693))))))) _g2208522096_)))) (_g2208322146_ _rebind?21968_)))) _g2205722068_)))) (_g2205522150_ (_wrap21836_ - (let ((__tmp51923 (gx#datum->syntax '#f 'def)) - (__tmp51887 - (let ((__tmp51888 - (let ((__tmp51889 - (let ((__tmp51922 + (let ((__tmp51737 (gx#datum->syntax '#f 'def)) + (__tmp51701 + (let ((__tmp51702 + (let ((__tmp51703 + (let ((__tmp51736 (gx#datum->syntax '#f 'let-syntax)) - (__tmp51890 - (let ((__tmp51892 - (let ((__tmp51893 - (let ((__tmp51894 + (__tmp51704 + (let ((__tmp51706 + (let ((__tmp51707 + (let ((__tmp51708 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp51895 - (let ((__tmp51921 + (let ((__tmp51709 + (let ((__tmp51735 (gx#datum->syntax '#f 'syntax-rules)) - (__tmp51896 - (let ((__tmp51897 - (let ((__tmp51898 - (let ((__tmp51913 - (let ((__tmp51920 + (__tmp51710 + (let ((__tmp51711 + (let ((__tmp51712 + (let ((__tmp51727 + (let ((__tmp51734 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '_)) - (__tmp51914 - (let ((__tmp51919 (gx#datum->syntax '#f 'obj)) - (__tmp51915 - (let ((__tmp51918 + (__tmp51728 + (let ((__tmp51733 (gx#datum->syntax '#f 'obj)) + (__tmp51729 + (let ((__tmp51732 (gx#datum->syntax '#f 'arg)) - (__tmp51916 - (let ((__tmp51917 + (__tmp51730 + (let ((__tmp51731 (gx#datum->syntax '#f '...))) (declare (not safe)) - (cons __tmp51917 '())))) + (cons __tmp51731 '())))) (declare (not safe)) - (cons __tmp51918 __tmp51916)))) + (cons __tmp51732 __tmp51730)))) (declare (not safe)) - (cons __tmp51919 __tmp51915)))) + (cons __tmp51733 __tmp51729)))) (declare (not safe)) - (cons __tmp51920 __tmp51914))) - (__tmp51899 - (let ((__tmp51900 - (let ((__tmp51912 + (cons __tmp51734 __tmp51728))) + (__tmp51713 + (let ((__tmp51714 + (let ((__tmp51726 (gx#datum->syntax '#f 'call-next-method)) - (__tmp51901 - (let ((__tmp51902 - (let ((__tmp51911 + (__tmp51715 + (let ((__tmp51716 + (let ((__tmp51725 (gx#datum->syntax '#f 'obj)) - (__tmp51903 - (let ((__tmp51908 - (let ((__tmp51910 + (__tmp51717 + (let ((__tmp51722 + (let ((__tmp51724 (gx#datum->syntax '#f 'quote)) - (__tmp51909 + (__tmp51723 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons _L21940_ '())))) (declare (not safe)) - (cons __tmp51910 __tmp51909))) - (__tmp51904 - (let ((__tmp51907 (gx#datum->syntax '#f 'arg)) - (__tmp51905 - (let ((__tmp51906 (gx#datum->syntax '#f '...))) + (cons __tmp51724 __tmp51723))) + (__tmp51718 + (let ((__tmp51721 (gx#datum->syntax '#f 'arg)) + (__tmp51719 + (let ((__tmp51720 (gx#datum->syntax '#f '...))) (declare (not safe)) - (cons __tmp51906 '())))) + (cons __tmp51720 '())))) (declare (not safe)) - (cons __tmp51907 __tmp51905)))) + (cons __tmp51721 __tmp51719)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51908 - __tmp51904)))) + (cons __tmp51722 + __tmp51718)))) (declare (not safe)) - (cons __tmp51911 __tmp51903)))) + (cons __tmp51725 __tmp51717)))) (declare (not safe)) - (cons _L21986_ __tmp51902)))) + (cons _L21986_ __tmp51716)))) (declare (not safe)) - (cons __tmp51912 __tmp51901)))) + (cons __tmp51726 __tmp51715)))) (declare (not safe)) - (cons __tmp51900 '())))) + (cons __tmp51714 '())))) (declare (not safe)) - (cons __tmp51913 __tmp51899)))) + (cons __tmp51727 __tmp51713)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51898 '())))) + (cons __tmp51712 '())))) (declare (not safe)) - (cons '() __tmp51897)))) + (cons '() __tmp51711)))) (declare (not safe)) - (cons __tmp51921 __tmp51896)))) + (cons __tmp51735 __tmp51710)))) (declare (not safe)) - (cons __tmp51895 '())))) + (cons __tmp51709 '())))) (declare (not safe)) - (cons _L22043_ __tmp51894)))) + (cons _L22043_ __tmp51708)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51893 '()))) - (__tmp51891 + (cons __tmp51707 '()))) + (__tmp51705 (let () (declare (not safe)) (cons _L21938_ '())))) (declare (not safe)) - (cons __tmp51892 __tmp51891)))) + (cons __tmp51706 __tmp51705)))) (declare (not safe)) - (cons __tmp51922 __tmp51890)))) + (cons __tmp51736 __tmp51704)))) (declare (not safe)) - (cons __tmp51889 '())))) + (cons __tmp51703 '())))) (declare (not safe)) - (cons _L22015_ __tmp51888)))) + (cons _L22015_ __tmp51702)))) (declare (not safe)) - (cons __tmp51923 __tmp51887))))))) + (cons __tmp51737 __tmp51701))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g2202922040_)))) (_g2202722154_ @@ -3174,17 +3174,17 @@ gerbil/core$<MOP>$<MOP:2>#class-type-info::t __obj49631 'type-descriptor))))) - (if (let ((__tmp51875 + (if (let ((__tmp51689 (gx#identifier? _L21940_))) (declare (not safe)) - (not __tmp51875)) + (not __tmp51689)) (gx#raise-syntax-error '#f '"bad syntax; expected method identifier" _stx21833_ _L21940_) - (if (let ((__tmp51874 + (if (let ((__tmp51688 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -3192,7 +3192,7 @@ (gerbil/core$<MOP>$<MOP:2>#syntax-local-class-type-info?__0 _L21939_)))) (declare (not safe)) - (not __tmp51874)) + (not __tmp51688)) (gx#raise-syntax-error '#f '"bad syntax; expected type identifier" @@ -3238,17 +3238,17 @@ (let* ((_id-str22804_ (symbol->string (gx#stx-e _id22801_))) (_split22807_ (string-split _id-str22804_ '#\.))) - (let ((__tmp51927 + (let ((__tmp51741 (gx#stx-identifier _id22801_ (car _split22807_))) - (__tmp51925 - (let ((__tmp51926 + (__tmp51739 + (let ((__tmp51740 (gx#stx-identifier _id22801_ (cadr _split22807_)))) (declare (not safe)) - (cons __tmp51926 '())))) + (cons __tmp51740 '())))) (declare (not safe)) - (cons __tmp51927 __tmp51925)))))) + (cons __tmp51741 __tmp51739)))))) (let* ((___stx4660846609_ _stx22176_) (_g2218622273_ (lambda () @@ -3293,34 +3293,34 @@ _tl2273222764_) ((lambda (_L22767_ _L22769_) (let () - (let ((__tmp51939 + (let ((__tmp51753 (gx#datum->syntax '#f 'apply)) - (__tmp51928 - (let ((__tmp51938 + (__tmp51742 + (let ((__tmp51752 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'call-method)) - (__tmp51929 - (let ((__tmp51930 - (let ((__tmp51935 - (let ((__tmp51937 + (__tmp51743 + (let ((__tmp51744 + (let ((__tmp51749 + (let ((__tmp51751 (gx#datum->syntax '#f 'quote)) - (__tmp51936 + (__tmp51750 (let () (declare (not safe)) (cons _L22767_ '())))) (declare (not safe)) - (cons __tmp51937 __tmp51936))) - (__tmp51931 - (let ((__tmp51932 - (let ((__tmp51934 + (cons __tmp51751 __tmp51750))) + (__tmp51745 + (let ((__tmp51746 + (let ((__tmp51748 (gx#datum->syntax '#f '@list)) - (__tmp51933 + (__tmp51747 (foldr (lambda (_g2278422787_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g2278522790_) @@ -3331,18 +3331,18 @@ _L22696_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51934 - __tmp51933)))) + (cons __tmp51748 + __tmp51747)))) (declare (not safe)) - (cons __tmp51932 '())))) + (cons __tmp51746 '())))) (declare (not safe)) - (cons __tmp51935 __tmp51931)))) + (cons __tmp51749 __tmp51745)))) (declare (not safe)) - (cons _L22769_ __tmp51930)))) + (cons _L22769_ __tmp51744)))) (declare (not safe)) - (cons __tmp51938 __tmp51929)))) + (cons __tmp51752 __tmp51743)))) (declare (not safe)) - (cons __tmp51939 __tmp51928)))) + (cons __tmp51753 __tmp51742)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _hd2273322761_ _hd2273022751_) @@ -3388,23 +3388,23 @@ _tl2256222594_) ((lambda (_L22597_ _L22599_) (let () - (let ((__tmp51946 + (let ((__tmp51760 (gx#datum->syntax '#f 'call-method)) - (__tmp51940 - (let ((__tmp51941 + (__tmp51754 + (let ((__tmp51755 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp51943 - (let ((__tmp51945 + (let ((__tmp51757 + (let ((__tmp51759 (gx#datum->syntax '#f 'quote)) - (__tmp51944 + (__tmp51758 (let () (declare (not safe)) (cons _L22597_ '())))) (declare (not safe)) - (cons __tmp51945 __tmp51944))) - (__tmp51942 + (cons __tmp51759 __tmp51758))) + (__tmp51756 (foldr (lambda (_g2261422617_ _g2261522620_) (let () @@ -3414,11 +3414,11 @@ '() _L22536_))) (declare (not safe)) - (cons __tmp51943 __tmp51942)))) + (cons __tmp51757 __tmp51756)))) (declare (not safe)) - (cons _L22599_ __tmp51941)))) + (cons _L22599_ __tmp51755)))) (declare (not safe)) - (cons __tmp51946 __tmp51940)))) + (cons __tmp51760 __tmp51754)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _hd2256322591_ _hd2256022581_) @@ -3429,32 +3429,32 @@ (_g2255422623_ (_split-dotted22181_ _L22538_))))) (___kont4661946620_ (lambda (_L22440_ _L22442_ _L22443_) - (let ((__tmp51958 (gx#datum->syntax '#f 'apply)) - (__tmp51947 - (let ((__tmp51957 + (let ((__tmp51772 (gx#datum->syntax '#f 'apply)) + (__tmp51761 + (let ((__tmp51771 (gx#datum->syntax '#f 'call-method)) - (__tmp51948 - (let ((__tmp51949 - (let ((__tmp51954 - (let ((__tmp51956 + (__tmp51762 + (let ((__tmp51763 + (let ((__tmp51768 + (let ((__tmp51770 (gx#datum->syntax '#f 'quote)) - (__tmp51955 + (__tmp51769 (let () (declare (not safe)) (cons _L22443_ '())))) (declare (not safe)) - (cons __tmp51956 - __tmp51955))) - (__tmp51950 - (let ((__tmp51951 - (let ((__tmp51953 + (cons __tmp51770 + __tmp51769))) + (__tmp51764 + (let ((__tmp51765 + (let ((__tmp51767 (gx#datum->syntax '#f '@list)) - (__tmp51952 + (__tmp51766 (foldr (lambda (_g2247022473_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g2247122476_) @@ -3464,33 +3464,33 @@ '() _L22440_))) (declare (not safe)) - (cons __tmp51953 __tmp51952)))) + (cons __tmp51767 __tmp51766)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51951 '())))) + (cons __tmp51765 '())))) (declare (not safe)) - (cons __tmp51954 __tmp51950)))) + (cons __tmp51768 __tmp51764)))) (declare (not safe)) - (cons _L22442_ __tmp51949)))) + (cons _L22442_ __tmp51763)))) (declare (not safe)) - (cons __tmp51957 __tmp51948)))) + (cons __tmp51771 __tmp51762)))) (declare (not safe)) - (cons __tmp51958 __tmp51947)))) + (cons __tmp51772 __tmp51761)))) (___kont4662346624_ (lambda (_L22340_ _L22342_ _L22343_) - (let ((__tmp51965 (gx#datum->syntax '#f 'call-method)) - (__tmp51959 - (let ((__tmp51960 - (let ((__tmp51962 - (let ((__tmp51964 + (let ((__tmp51779 (gx#datum->syntax '#f 'call-method)) + (__tmp51773 + (let ((__tmp51774 + (let ((__tmp51776 + (let ((__tmp51778 (gx#datum->syntax '#f 'quote)) - (__tmp51963 + (__tmp51777 (let () (declare (not safe)) (cons _L22343_ '())))) (declare (not safe)) - (cons __tmp51964 __tmp51963))) - (__tmp51961 + (cons __tmp51778 __tmp51777))) + (__tmp51775 (foldr (lambda (_g2236422367_ _g2236522370_) (let () @@ -3500,11 +3500,11 @@ '() _L22340_))) (declare (not safe)) - (cons __tmp51962 __tmp51961)))) + (cons __tmp51776 __tmp51775)))) (declare (not safe)) - (cons _L22342_ __tmp51960)))) + (cons _L22342_ __tmp51774)))) (declare (not safe)) - (cons __tmp51965 __tmp51959))))) + (cons __tmp51779 __tmp51773))))) (let* ((___match4672746728_ (lambda (_e2225222280_ _hd2225122284_ @@ -4224,38 +4224,38 @@ ___stx4673046731_)))) (let ((___kont4673346734_ (lambda (_L23008_ _L23010_) - (let ((__tmp51971 (gx#datum->syntax '#f 'slot-ref)) - (__tmp51966 - (let ((__tmp51967 - (let ((__tmp51968 - (let ((__tmp51970 + (let ((__tmp51785 (gx#datum->syntax '#f 'slot-ref)) + (__tmp51780 + (let ((__tmp51781 + (let ((__tmp51782 + (let ((__tmp51784 (gx#datum->syntax '#f 'quote)) - (__tmp51969 + (__tmp51783 (let () (declare (not safe)) (cons _L23008_ '())))) (declare (not safe)) - (cons __tmp51970 __tmp51969)))) + (cons __tmp51784 __tmp51783)))) (declare (not safe)) - (cons __tmp51968 '())))) + (cons __tmp51782 '())))) (declare (not safe)) - (cons _L23010_ __tmp51967)))) + (cons _L23010_ __tmp51781)))) (declare (not safe)) - (cons __tmp51971 __tmp51966)))) + (cons __tmp51785 __tmp51780)))) (___kont4673546736_ (lambda (_L22937_ _L22939_ _L22940_ _L22941_) - (let ((__tmp51972 - (let ((__tmp51974 - (let ((__tmp51975 - (let ((__tmp51976 + (let ((__tmp51786 + (let ((__tmp51788 + (let ((__tmp51789 + (let ((__tmp51790 (let () (declare (not safe)) (cons _L22939_ '())))) (declare (not safe)) - (cons _L22940_ __tmp51976)))) + (cons _L22940_ __tmp51790)))) (declare (not safe)) - (cons _L22941_ __tmp51975))) - (__tmp51973 + (cons _L22941_ __tmp51789))) + (__tmp51787 (foldr (lambda (_g2296222965_ _g2296322968_) (let () (declare (not safe)) @@ -4264,9 +4264,9 @@ '() _L22937_))) (declare (not safe)) - (cons __tmp51974 __tmp51973)))) + (cons __tmp51788 __tmp51787)))) (declare (not safe)) - (cons _L22941_ __tmp51972))))) + (cons _L22941_ __tmp51786))))) (let* ((___match4678546786_ (lambda (_e2284922877_ _hd2284822881_ @@ -4453,28 +4453,28 @@ ___stx4678846789_)))) (let ((___kont4679146792_ (lambda (_L23263_ _L23265_ _L23266_) - (let ((__tmp51983 (gx#datum->syntax '#f 'slot-set!)) - (__tmp51977 - (let ((__tmp51978 - (let ((__tmp51980 - (let ((__tmp51982 + (let ((__tmp51797 (gx#datum->syntax '#f 'slot-set!)) + (__tmp51791 + (let ((__tmp51792 + (let ((__tmp51794 + (let ((__tmp51796 (gx#datum->syntax '#f 'quote)) - (__tmp51981 + (__tmp51795 (let () (declare (not safe)) (cons _L23265_ '())))) (declare (not safe)) - (cons __tmp51982 __tmp51981))) - (__tmp51979 + (cons __tmp51796 __tmp51795))) + (__tmp51793 (let () (declare (not safe)) (cons _L23263_ '())))) (declare (not safe)) - (cons __tmp51980 __tmp51979)))) + (cons __tmp51794 __tmp51793)))) (declare (not safe)) - (cons _L23266_ __tmp51978)))) + (cons _L23266_ __tmp51792)))) (declare (not safe)) - (cons __tmp51983 __tmp51977)))) + (cons __tmp51797 __tmp51791)))) (___kont4679346794_ (lambda (_L23174_ _L23176_ @@ -4482,12 +4482,12 @@ _L23178_ _L23179_ _L23180_) - (let ((__tmp51984 - (let ((__tmp51987 - (let ((__tmp51991 (gx#datum->syntax '#f '@)) - (__tmp51988 - (let ((__tmp51989 - (let ((__tmp51990 + (let ((__tmp51798 + (let ((__tmp51801 + (let ((__tmp51805 (gx#datum->syntax '#f '@)) + (__tmp51802 + (let ((__tmp51803 + (let ((__tmp51804 (foldr (lambda (_g2320723210_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g2320823213_) @@ -4498,22 +4498,22 @@ _L23177_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L23178_ __tmp51990)))) + (cons _L23178_ __tmp51804)))) (declare (not safe)) - (cons _L23179_ __tmp51989)))) + (cons _L23179_ __tmp51803)))) (declare (not safe)) - (cons __tmp51991 __tmp51988))) - (__tmp51985 - (let ((__tmp51986 + (cons __tmp51805 __tmp51802))) + (__tmp51799 + (let ((__tmp51800 (let () (declare (not safe)) (cons _L23174_ '())))) (declare (not safe)) - (cons _L23176_ __tmp51986)))) + (cons _L23176_ __tmp51800)))) (declare (not safe)) - (cons __tmp51987 __tmp51985)))) + (cons __tmp51801 __tmp51799)))) (declare (not safe)) - (cons _L23180_ __tmp51984))))) + (cons _L23180_ __tmp51798))))) (let* ((___match4686346864_ (lambda (_e2306023094_ _hd2305923098_ diff --git a/src/bootstrap/gerbil/core__9.scm b/src/bootstrap/gerbil/core__9.scm index 32c34b68..bab80237 100644 --- a/src/bootstrap/gerbil/core__9.scm +++ b/src/bootstrap/gerbil/core__9.scm @@ -1,48 +1,48 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core$<macro-object>[1]#_g51993_| + (define |gerbil/core$<macro-object>[1]#_g51807_| (##structure gx#syntax-quote::t 'macro-object::t #f (gx#current-expander-context) '())) - (define |gerbil/core$<macro-object>[1]#_g51995_| + (define |gerbil/core$<macro-object>[1]#_g51809_| (##structure gx#syntax-quote::t 'make-macro-object #f (gx#current-expander-context) '())) - (define |gerbil/core$<macro-object>[1]#_g51997_| + (define |gerbil/core$<macro-object>[1]#_g51811_| (##structure gx#syntax-quote::t 'macro-object? #f (gx#current-expander-context) '())) - (define |gerbil/core$<macro-object>[1]#_g52001_| + (define |gerbil/core$<macro-object>[1]#_g51815_| (##structure gx#syntax-quote::t 'macro-object-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$<macro-object>[1]#_g52005_| + (define |gerbil/core$<macro-object>[1]#_g51819_| (##structure gx#syntax-quote::t 'macro-object-macro-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$<macro-object>[1]#_g52009_| + (define |gerbil/core$<macro-object>[1]#_g51823_| (##structure gx#syntax-quote::t '¯o-object-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$<macro-object>[1]#_g52013_| + (define |gerbil/core$<macro-object>[1]#_g51827_| (##structure gx#syntax-quote::t '¯o-object-macro-set! @@ -134,87 +134,87 @@ '8 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp51992 |gerbil/core$<macro-object>[1]#_g51993_|)) + (let ((__tmp51806 |gerbil/core$<macro-object>[1]#_g51807_|)) (declare (not safe)) (##unchecked-structure-set! __obj49632 - __tmp51992 + __tmp51806 '9 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp51994 |gerbil/core$<macro-object>[1]#_g51995_|)) + (let ((__tmp51808 |gerbil/core$<macro-object>[1]#_g51809_|)) (declare (not safe)) (##unchecked-structure-set! __obj49632 - __tmp51994 + __tmp51808 '10 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp51996 |gerbil/core$<macro-object>[1]#_g51997_|)) + (let ((__tmp51810 |gerbil/core$<macro-object>[1]#_g51811_|)) (declare (not safe)) (##unchecked-structure-set! __obj49632 - __tmp51996 + __tmp51810 '11 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp51998 - (let ((__tmp51999 - (let ((__tmp52000 - |gerbil/core$<macro-object>[1]#_g52001_|)) + (let ((__tmp51812 + (let ((__tmp51813 + (let ((__tmp51814 + |gerbil/core$<macro-object>[1]#_g51815_|)) (declare (not safe)) - (cons 'macro __tmp52000)))) + (cons 'macro __tmp51814)))) (declare (not safe)) - (cons __tmp51999 '())))) + (cons __tmp51813 '())))) (declare (not safe)) (##unchecked-structure-set! __obj49632 - __tmp51998 + __tmp51812 '12 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp52002 - (let ((__tmp52003 - (let ((__tmp52004 - |gerbil/core$<macro-object>[1]#_g52005_|)) + (let ((__tmp51816 + (let ((__tmp51817 + (let ((__tmp51818 + |gerbil/core$<macro-object>[1]#_g51819_|)) (declare (not safe)) - (cons 'macro __tmp52004)))) + (cons 'macro __tmp51818)))) (declare (not safe)) - (cons __tmp52003 '())))) + (cons __tmp51817 '())))) (declare (not safe)) (##unchecked-structure-set! __obj49632 - __tmp52002 + __tmp51816 '13 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp52006 - (let ((__tmp52007 - (let ((__tmp52008 - |gerbil/core$<macro-object>[1]#_g52009_|)) + (let ((__tmp51820 + (let ((__tmp51821 + (let ((__tmp51822 + |gerbil/core$<macro-object>[1]#_g51823_|)) (declare (not safe)) - (cons 'macro __tmp52008)))) + (cons 'macro __tmp51822)))) (declare (not safe)) - (cons __tmp52007 '())))) + (cons __tmp51821 '())))) (declare (not safe)) (##unchecked-structure-set! __obj49632 - __tmp52006 + __tmp51820 '14 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) - (let ((__tmp52010 - (let ((__tmp52011 - (let ((__tmp52012 - |gerbil/core$<macro-object>[1]#_g52013_|)) + (let ((__tmp51824 + (let ((__tmp51825 + (let ((__tmp51826 + |gerbil/core$<macro-object>[1]#_g51827_|)) (declare (not safe)) - (cons 'macro __tmp52012)))) + (cons 'macro __tmp51826)))) (declare (not safe)) - (cons __tmp52011 '())))) + (cons __tmp51825 '())))) (declare (not safe)) (##unchecked-structure-set! __obj49632 - __tmp52010 + __tmp51824 '15 gerbil/core$<MOP>$<MOP:2>#class-type-info::t '#f)) diff --git a/src/bootstrap/gerbil/expander/common__0.scm b/src/bootstrap/gerbil/expander/common__0.scm index ea913bc2..41b62472 100644 --- a/src/bootstrap/gerbil/expander/common__0.scm +++ b/src/bootstrap/gerbil/expander/common__0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/expander/common::timestamp 1709229970) + (define gerbil/expander/common::timestamp 1709375797) (begin (define gx#AST::t (let ((__tmp80109 (list)) diff --git a/src/bootstrap/gerbil/expander/compile__0.scm b/src/bootstrap/gerbil/expander/compile__0.scm index a390dc68..e56b1bc0 100644 --- a/src/bootstrap/gerbil/expander/compile__0.scm +++ b/src/bootstrap/gerbil/expander/compile__0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/expander/compile::timestamp 1709229970) + (define gerbil/expander/compile::timestamp 1709375798) (begin (declare (not safe)) (define gx#core-compile-top-syntax diff --git a/src/bootstrap/gerbil/expander/core__0.scm b/src/bootstrap/gerbil/expander/core__0.scm index 392a9df6..abcf057c 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 1709229970) + (define gerbil/expander/core::timestamp 1709375798) (begin (declare (not safe)) (define gx#current-expander-context (make-parameter '#f)) diff --git a/src/bootstrap/gerbil/expander/module.ssxi.ss b/src/bootstrap/gerbil/expander/module.ssxi.ss index 170ad084..d5403236 100644 --- a/src/bootstrap/gerbil/expander/module.ssxi.ss +++ b/src/bootstrap/gerbil/expander/module.ssxi.ss @@ -246,10 +246,8 @@ package: gerbil/expander #f #f #f - ((:init! . gx#export-expander:::init!) - (apply-export-expander - . - gx#export-expander::apply-export-expander)))) + ((apply-export-expander . gx#export-expander::apply-export-expander) + (:init! . gx#export-expander:::init!)))) (declare-type gx#export-expander? (@predicate gx#export-expander::t)) (declare-type gx#make-export-expander (@constructor gx#export-expander::t)) (declare-type diff --git a/src/bootstrap/gerbil/expander/module__0.scm b/src/bootstrap/gerbil/expander/module__0.scm index 19f86c30..c4b8c017 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 1709229970) + (define gerbil/expander/module::timestamp 1709375798) (begin (declare (not safe)) (define gx#module-import::t diff --git a/src/bootstrap/gerbil/expander/root__0.scm b/src/bootstrap/gerbil/expander/root__0.scm index d90d9086..7d87784e 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 1709229970) + (define gerbil/expander/root::timestamp 1709375798) (begin (declare (not safe)) (define gx#*core-syntax-expanders* @@ -328,41 +328,41 @@ _g95966_)))))) (define gx#root-context:::init!::specialize (lambda (__klass95921 __method-table95922) - (let ((__bind-core-features!95923 + (let ((__bind-core-syntax-expanders!95923 (make-promise (lambda () (let ((__method95926 (symbolic-table-ref __method-table95922 - 'bind-core-features! + 'bind-core-syntax-expanders! '#f))) (if __method95926 __method95926 - (error '"Missing method" 'bind-core-features!)))))) - (__bind-core-macro-expanders!95924 + (error '"Missing method" + 'bind-core-syntax-expanders!)))))) + (__bind-core-features!95924 (make-promise (lambda () (let ((__method95927 (symbolic-table-ref __method-table95922 - 'bind-core-macro-expanders! + 'bind-core-features! '#f))) (if __method95927 __method95927 - (error '"Missing method" - 'bind-core-macro-expanders!)))))) - (__bind-core-syntax-expanders!95925 + (error '"Missing method" 'bind-core-features!)))))) + (__bind-core-macro-expanders!95925 (make-promise (lambda () (let ((__method95928 (symbolic-table-ref __method-table95922 - 'bind-core-syntax-expanders! + 'bind-core-macro-expanders! '#f))) (if __method95928 __method95928 (error '"Missing method" - 'bind-core-syntax-expanders!))))))) + 'bind-core-macro-expanders!))))))) (let ((_opt-lambda9590795912_ (lambda (_self95909_ _bind?95910_) (if (##fx< '2 (##structure-length _self95909_)) @@ -385,11 +385,11 @@ (##vector-length _self95909_))) (if _bind?95910_ (begin - ((force __bind-core-syntax-expanders!95925) + ((force __bind-core-syntax-expanders!95923) _self95909_) - ((force __bind-core-macro-expanders!95924) + ((force __bind-core-macro-expanders!95925) _self95909_) - ((force __bind-core-features!95923) _self95909_)) + ((force __bind-core-features!95924) _self95909_)) '#!void)))) (lambda _g95968_ (let ((_g95967_ (##length _g95968_))) diff --git a/src/bootstrap/gerbil/expander/stx__0.scm b/src/bootstrap/gerbil/expander/stx__0.scm index 635548b1..fdce5db2 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 1709229970) + (define gerbil/expander/stx::timestamp 1709375797) (begin (declare (not safe)) (define gx#identifier-wrap::t diff --git a/src/bootstrap/gerbil/expander/stxcase__0.scm b/src/bootstrap/gerbil/expander/stxcase__0.scm index d10a470a..e2000e11 100644 --- a/src/bootstrap/gerbil/expander/stxcase__0.scm +++ b/src/bootstrap/gerbil/expander/stxcase__0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/expander/stxcase::timestamp 1709229970) + (define gerbil/expander/stxcase::timestamp 1709375798) (begin (define gx#syntax-pattern::t (let ((__tmp97326 (list gx#expander::t)) diff --git a/src/bootstrap/gerbil/expander/top__0.scm b/src/bootstrap/gerbil/expander/top__0.scm index 3bf05c81..c6a90d08 100644 --- a/src/bootstrap/gerbil/expander/top__0.scm +++ b/src/bootstrap/gerbil/expander/top__0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/expander/top::timestamp 1709229970) + (define gerbil/expander/top::timestamp 1709375798) (begin (declare (not safe)) (define gx#core-expand-begin% diff --git a/src/bootstrap/gerbil/runtime/c3__0.scm b/src/bootstrap/gerbil/runtime/c3__0.scm index d75478cb..7eec73cf 100644 --- a/src/bootstrap/gerbil/runtime/c3__0.scm +++ b/src/bootstrap/gerbil/runtime/c3__0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/c3::timestamp 1709229969) + (define gerbil/runtime/c3::timestamp 1709375797) (begin (define c4-linearize__% (lambda (_g61891_ diff --git a/src/bootstrap/gerbil/runtime/control__0.scm b/src/bootstrap/gerbil/runtime/control__0.scm index 41b26151..8d1f79ae 100644 --- a/src/bootstrap/gerbil/runtime/control__0.scm +++ b/src/bootstrap/gerbil/runtime/control__0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/control::timestamp 1709229969) + (define gerbil/runtime/control::timestamp 1709375797) (begin (define make-promise (lambda (_thunk61435_) diff --git a/src/bootstrap/gerbil/runtime/error__0.scm b/src/bootstrap/gerbil/runtime/error__0.scm index 02b738f3..478fbc21 100644 --- a/src/bootstrap/gerbil/runtime/error__0.scm +++ b/src/bootstrap/gerbil/runtime/error__0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/error::timestamp 1709229969) + (define gerbil/runtime/error::timestamp 1709375797) (begin (define Exception::t (let ((__tmp66685 (list))) diff --git a/src/bootstrap/gerbil/runtime/eval__0.scm b/src/bootstrap/gerbil/runtime/eval__0.scm index 64f13b5e..f5e7e55a 100644 --- a/src/bootstrap/gerbil/runtime/eval__0.scm +++ b/src/bootstrap/gerbil/runtime/eval__0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/eval::timestamp 1709229970) + (define gerbil/runtime/eval::timestamp 1709375797) (begin (define __syntax::t (let ((__tmp77842 (list)) diff --git a/src/bootstrap/gerbil/runtime/gambit__0.scm b/src/bootstrap/gerbil/runtime/gambit__0.scm index 419147e1..76381af5 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 1709229969) '#!void) +(begin (define gerbil/runtime/gambit::timestamp 1709375797) '#!void) diff --git a/src/bootstrap/gerbil/runtime/hash.ssxi.ss b/src/bootstrap/gerbil/runtime/hash.ssxi.ss index e6e81010..c0111e35 100644 --- a/src/bootstrap/gerbil/runtime/hash.ssxi.ss +++ b/src/bootstrap/gerbil/runtime/hash.ssxi.ss @@ -207,13 +207,13 @@ package: gerbil/runtime #t #t #f - ((set! . _locked-hash-table::set!69555_) + ((for-each . _locked-hash-table::for-each69561_) (copy . _locked-hash-table::copy69565_) - (clear! . _locked-hash-table::clear!69567_) (length . _locked-hash-table::length69563_) + (clear! . _locked-hash-table::clear!69567_) (delete! . _locked-hash-table::delete!69559_) + (set! . _locked-hash-table::set!69555_) (ref . _locked-hash-table::ref69553_) - (for-each . _locked-hash-table::for-each69561_) (update! . _locked-hash-table::update!69557_)))) (declare-type locked-hash-table? (@predicate locked-hash-table::t)) (declare-type make-locked-hash-table (@constructor locked-hash-table::t)) @@ -252,13 +252,13 @@ package: gerbil/runtime #t #t #f - ((set! . _checked-hash-table::set!69847_) + ((for-each . _checked-hash-table::for-each69853_) (copy . _checked-hash-table::copy69857_) - (clear! . _checked-hash-table::clear!69859_) (length . _checked-hash-table::length69855_) + (clear! . _checked-hash-table::clear!69859_) (delete! . _checked-hash-table::delete!69851_) + (set! . _checked-hash-table::set!69847_) (ref . _checked-hash-table::ref69845_) - (for-each . _checked-hash-table::for-each69853_) (update! . _checked-hash-table::update!69849_)))) (declare-type checked-hash-table? (@predicate checked-hash-table::t)) (declare-type make-checked-hash-table (@constructor checked-hash-table::t)) diff --git a/src/bootstrap/gerbil/runtime/hash__0.scm b/src/bootstrap/gerbil/runtime/hash__0.scm index 2897795d..dfd3a370 100644 --- a/src/bootstrap/gerbil/runtime/hash__0.scm +++ b/src/bootstrap/gerbil/runtime/hash__0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/hash::timestamp 1709229969) + (define gerbil/runtime/hash::timestamp 1709375797) (begin (define UnboundKeyError::t (let ((__tmp72839 (list Error::t))) diff --git a/src/bootstrap/gerbil/runtime/init__0.scm b/src/bootstrap/gerbil/runtime/init__0.scm index 35f33f36..cf389061 100644 --- a/src/bootstrap/gerbil/runtime/init__0.scm +++ b/src/bootstrap/gerbil/runtime/init__0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/init::timestamp 1709229970) + (define gerbil/runtime/init::timestamp 1709375797) (begin (define __loading-scheme-source (make-parameter '#f)) (define __init-gx! diff --git a/src/bootstrap/gerbil/runtime/interface__0.scm b/src/bootstrap/gerbil/runtime/interface__0.scm index 7a9560ac..1ac97194 100644 --- a/src/bootstrap/gerbil/runtime/interface__0.scm +++ b/src/bootstrap/gerbil/runtime/interface__0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/interface::timestamp 1709229969) + (define gerbil/runtime/interface::timestamp 1709375797) (begin (define CastError::t (let ((__tmp68442 (list Error::t))) diff --git a/src/bootstrap/gerbil/runtime/loader__0.scm b/src/bootstrap/gerbil/runtime/loader__0.scm index 224f368e..4b507bd7 100644 --- a/src/bootstrap/gerbil/runtime/loader__0.scm +++ b/src/bootstrap/gerbil/runtime/loader__0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/loader::timestamp 1709229970) + (define gerbil/runtime/loader::timestamp 1709375797) (begin (define current-module-library-path (make-parameter '#f)) (define current-module-registry (make-parameter '#f)) diff --git a/src/bootstrap/gerbil/runtime/mop__0.scm b/src/bootstrap/gerbil/runtime/mop__0.scm index 1b09001f..27c547ff 100644 --- a/src/bootstrap/gerbil/runtime/mop__0.scm +++ b/src/bootstrap/gerbil/runtime/mop__0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/mop::timestamp 1709229969) + (define gerbil/runtime/mop::timestamp 1709375797) (begin (define type-flag-opaque '1) (define type-flag-extensible '2) diff --git a/src/bootstrap/gerbil/runtime/repl__0.scm b/src/bootstrap/gerbil/runtime/repl__0.scm index bc3f11ea..8c2037b6 100644 --- a/src/bootstrap/gerbil/runtime/repl__0.scm +++ b/src/bootstrap/gerbil/runtime/repl__0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/repl::timestamp 1709229970) + (define gerbil/runtime/repl::timestamp 1709375797) (define replx (lambda () (letrec ((_write-reason78373_ diff --git a/src/bootstrap/gerbil/runtime/syntax__0.scm b/src/bootstrap/gerbil/runtime/syntax__0.scm index 3541e9f6..d64ed4b0 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 1709229970) + (define gerbil/runtime/syntax::timestamp 1709375797) (begin (declare (not safe)) (define SyntaxError::t diff --git a/src/bootstrap/gerbil/runtime/system__0.scm b/src/bootstrap/gerbil/runtime/system__0.scm index a369457e..4112e5ea 100644 --- a/src/bootstrap/gerbil/runtime/system__0.scm +++ b/src/bootstrap/gerbil/runtime/system__0.scm @@ -1,8 +1,8 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/system::timestamp 1709229969) + (define gerbil/runtime/system::timestamp 1709375797) (begin - (define gerbil-version-string (lambda () '"v0.18.1-50-ge94d1a06")) + (define gerbil-version-string (lambda () '"v0.18.1-47-gb409070e")) (define gerbil-system-manifest (let ((__tmp61547 (let ((__tmp61548 diff --git a/src/bootstrap/gerbil/runtime/table__0.scm b/src/bootstrap/gerbil/runtime/table__0.scm index 870e36b3..e46a7a34 100644 --- a/src/bootstrap/gerbil/runtime/table__0.scm +++ b/src/bootstrap/gerbil/runtime/table__0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/table::timestamp 1709229969) + (define gerbil/runtime/table::timestamp 1709375797) (begin (declare (not safe)) (define __table::t.id 'gerbil#__table::t) diff --git a/src/bootstrap/gerbil/runtime/thread__0.scm b/src/bootstrap/gerbil/runtime/thread__0.scm index b91f2a43..35c5b95f 100644 --- a/src/bootstrap/gerbil/runtime/thread__0.scm +++ b/src/bootstrap/gerbil/runtime/thread__0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/thread::timestamp 1709229969) + (define gerbil/runtime/thread::timestamp 1709375797) (begin (define spawn (lambda (_f73444_ . _args73445_) diff --git a/src/bootstrap/gerbil/runtime/util__0.scm b/src/bootstrap/gerbil/runtime/util__0.scm index 4c9c13ec..97ab714b 100644 --- a/src/bootstrap/gerbil/runtime/util__0.scm +++ b/src/bootstrap/gerbil/runtime/util__0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/util::timestamp 1709229969) + (define gerbil/runtime/util::timestamp 1709375797) (begin (define displayln (lambda _args56588_ diff --git a/src/bootstrap/gerbil/runtime__0.scm b/src/bootstrap/gerbil/runtime__0.scm index 7d2c66af..145b73c4 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 1709229970) '#!void) +(begin (define gerbil/runtime::timestamp 1709375797) '#!void) diff --git a/src/gerbil/compiler/optimize-base.ss b/src/gerbil/compiler/optimize-base.ss index be9b2f04..c20b30b8 100644 --- a/src/gerbil/compiler/optimize-base.ss +++ b/src/gerbil/compiler/optimize-base.ss @@ -266,14 +266,18 @@ namespace: gxc ((!type-vtab type) => (lambda (vtab) (cond - ((hash-key? vtab method) - (if rebind? - (begin + ((hash-get vtab method) => + (lambda (existing) + (cond + (rebind? (verbose "declare-method: rebind existing method" type-t " " method) (hash-put! vtab method sym)) - (raise-compile-error - "declare-method: duplicate method declaration" - `(bind-method! ,type-t ,method ,sym) method))) + ((eq? existing sym) + (void)) + (else + (raise-compile-error + "declare-method: duplicate method declaration" + `(bind-method! ,type-t ,method ,sym) method))))) (else (verbose "declare-method " type-t " " method " => " sym) (hash-put! vtab method sym))))) diff --git a/src/gerbil/compiler/ssxi.ss b/src/gerbil/compiler/ssxi.ss index 140da857..4f0c8424 100644 --- a/src/gerbil/compiler/ssxi.ss +++ b/src/gerbil/compiler/ssxi.ss @@ -67,7 +67,7 @@ namespace: gxc ;; lambdas (defrules @lambda () ((_ arity inline: inline-rules) - (make-!lambda 'lambda 'arity #f inline-rules 'inline-rules)) + (make-!lambda 'lambda 'arity #f inline-rules '(@lambda arity inline: inline-rules))) ((recur primitive: arity) (recur primitive: arity #f)) ((_ primitive: arity dispatch) |