diff --git a/src/bootstrap/gerbil/compiler/base__0.scm b/src/bootstrap/gerbil/compiler/base__0.scm index 8ae339f6c..ed36ae595 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 1696399077) + (define gerbil/compiler/base::timestamp 1696439806) (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 09dc6fa85..0744e6d90 100644 --- a/src/bootstrap/gerbil/compiler/compile.ssi +++ b/src/bootstrap/gerbil/compiler/compile.ssi @@ -9,16 +9,16 @@ namespace: gxc (in: :gerbil/core ) (spec: (:gerbil/gambit) - (0 u8vector? 0 u8vector?) - (0 s16vector? 0 s16vector?) + (0 u32vector? 0 u32vector?) + (0 u64vector? 0 u64vector?) + (0 u16vector? 0 u16vector?) (0 f32vector? 0 f32vector?) (0 f64vector? 0 f64vector?) - (0 s32vector? 0 s32vector?) (0 s64vector? 0 s64vector?) (0 s8vector? 0 s8vector?) - (0 u32vector? 0 u32vector?) - (0 u64vector? 0 u64vector?) - (0 u16vector? 0 u16vector?))) + (0 s32vector? 0 s32vector?) + (0 s16vector? 0 s16vector?) + (0 u8vector? 0 u8vector?))) (%#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 e37dd335d..887b1da39 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 1696399078) + (define gerbil/compiler/compile::timestamp 1696439806) (begin (define gxc#_g18463_ (gx#core-deserialize-mark - '(0 (hd . _hd16778_) (else . _else16755_)) + '(0 (else . _else16755_) (hd . _hd16778_)) (gx#current-expander-context))) (define gxc#_g18464_ (##structure @@ -15,7 +15,7 @@ (list gxc#_g18463_))) (define gxc#_g18469_ (gx#core-deserialize-mark - '(0 (hd . _hd16839_) (else . _else16816_)) + '(0 (else . _else16816_) (hd . _hd16839_)) (gx#current-expander-context))) (define gxc#_g18470_ (##structure @@ -26,7 +26,7 @@ (list gxc#_g18469_))) (define gxc#_g18475_ (gx#core-deserialize-mark - '(0 (hd . _hd16901_) (else . _else16878_)) + '(0 (else . _else16878_) (hd . _hd16901_)) (gx#current-expander-context))) (define gxc#_g18476_ (##structure @@ -37,7 +37,7 @@ (list gxc#_g18475_))) (define gxc#_g18481_ (gx#core-deserialize-mark - '(0 (hd . _hd16964_) (else . _else16941_)) + '(0 (else . _else16941_) (hd . _hd16964_)) (gx#current-expander-context))) (define gxc#_g18482_ (##structure diff --git a/src/bootstrap/gerbil/compiler/driver__0.scm b/src/bootstrap/gerbil/compiler/driver__0.scm index 47a37c8c9..60aec25cb 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 1696399083) + (define gerbil/compiler/driver::timestamp 1696439812) (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 (_path71222_ _fun71223_) + (lambda (_path71227_ _fun71228_) (with-output-to-file - (let ((__tmp74229 + (let ((__tmp74234 (let () (declare (not safe)) - (cons _path71222_ gxc#scheme-file-settings)))) + (cons _path71227_ gxc#scheme-file-settings)))) (declare (not safe)) - (cons 'path: __tmp74229)) - _fun71223_))) + (cons 'path: __tmp74234)) + _fun71228_))) (define gxc#+gerbil-gsc+ '#f) (define gxc#gerbil-gsc (lambda () @@ -61,256 +61,256 @@ "gerbil/runtime/init" "gerbil/runtime")) (define gxc#delete-directory* - (lambda (_dir71217_) (delete-file-or-directory _dir71217_ '#t))) + (lambda (_dir71222_) (delete-file-or-directory _dir71222_ '#t))) (define gxc#compile-module__% - (lambda (_srcpath71191_ _opts71192_) - (if (let () (declare (not safe)) (string? _srcpath71191_)) + (lambda (_srcpath71196_ _opts71197_) + (if (let () (declare (not safe)) (string? _srcpath71196_)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Invalid module source path" - _srcpath71191_))) - (let ((_outdir71194_ - (let () (declare (not safe)) (pgetq 'output-dir: _opts71192_))) - (_invoke-gsc?71195_ - (let () (declare (not safe)) (pgetq 'invoke-gsc: _opts71192_))) - (_gsc-options71196_ - (let () (declare (not safe)) (pgetq 'gsc-options: _opts71192_))) - (_keep-scm?71197_ - (let () (declare (not safe)) (pgetq 'keep-scm: _opts71192_))) - (_verbosity71198_ - (let () (declare (not safe)) (pgetq 'verbose: _opts71192_))) - (_optimize71199_ - (let () (declare (not safe)) (pgetq 'optimize: _opts71192_))) - (_debug71200_ - (let () (declare (not safe)) (pgetq 'debug: _opts71192_))) - (_gen-ssxi71201_ + _srcpath71196_))) + (let ((_outdir71199_ + (let () (declare (not safe)) (pgetq 'output-dir: _opts71197_))) + (_invoke-gsc?71200_ + (let () (declare (not safe)) (pgetq 'invoke-gsc: _opts71197_))) + (_gsc-options71201_ + (let () (declare (not safe)) (pgetq 'gsc-options: _opts71197_))) + (_keep-scm?71202_ + (let () (declare (not safe)) (pgetq 'keep-scm: _opts71197_))) + (_verbosity71203_ + (let () (declare (not safe)) (pgetq 'verbose: _opts71197_))) + (_optimize71204_ + (let () (declare (not safe)) (pgetq 'optimize: _opts71197_))) + (_debug71205_ + (let () (declare (not safe)) (pgetq 'debug: _opts71197_))) + (_gen-ssxi71206_ (let () (declare (not safe)) - (pgetq 'generate-ssxi: _opts71192_)))) - (if _outdir71194_ + (pgetq 'generate-ssxi: _opts71197_)))) + (if _outdir71199_ (with-lock gxc#+driver-mutex+ (lambda () (let () (declare (not safe)) - (create-directory* _outdir71194_)))) + (create-directory* _outdir71199_)))) '#!void) - (if _optimize71199_ + (if _optimize71204_ (with-lock gxc#+driver-mutex+ (lambda () (let () (declare (not safe)) (gxc#optimizer-info-init!)))) '#!void) - (let ((__tmp74231 + (let ((__tmp74236 (lambda () (let () (declare (not safe)) - (gxc#verbose '"compile " _srcpath71191_)) - (let ((__tmp74232 + (gxc#verbose '"compile " _srcpath71196_)) + (let ((__tmp74237 (with-lock gxc#+driver-mutex+ (lambda () (let () (declare (not safe)) - (gx#import-module__0 _srcpath71191_)))))) + (gx#import-module__0 _srcpath71196_)))))) (declare (not safe)) - (gxc#compile-top-module __tmp74232)))) - (__tmp74230 + (gxc#compile-top-module __tmp74237)))) + (__tmp74235 (let () (declare (not safe)) (gxc#compile-timestamp)))) (declare (not safe)) (call-with-parameters - __tmp74231 + __tmp74236 gxc#current-compile-output-dir - _outdir71194_ + _outdir71199_ gxc#current-compile-invoke-gsc - _invoke-gsc?71195_ + _invoke-gsc?71200_ gxc#current-compile-gsc-options - _gsc-options71196_ + _gsc-options71201_ gxc#current-compile-keep-scm - _keep-scm?71197_ + _keep-scm?71202_ gxc#current-compile-verbose - _verbosity71198_ + _verbosity71203_ gxc#current-compile-optimize - _optimize71199_ + _optimize71204_ gxc#current-compile-debug - _debug71200_ + _debug71205_ gxc#current-compile-generate-ssxi - _gen-ssxi71201_ + _gen-ssxi71206_ gxc#current-compile-timestamp - __tmp74230 + __tmp74235 gx#current-expander-compiling? '#t))))) (define gxc#compile-module__0 - (lambda (_srcpath71210_) - (let ((_opts71212_ '())) + (lambda (_srcpath71215_) + (let ((_opts71217_ '())) (declare (not safe)) - (gxc#compile-module__% _srcpath71210_ _opts71212_)))) + (gxc#compile-module__% _srcpath71215_ _opts71217_)))) (define gxc#compile-module - (lambda _g74234_ - (let ((_g74233_ (let () (declare (not safe)) (##length _g74234_)))) - (cond ((let () (declare (not safe)) (##fx= _g74233_ 1)) - (apply (lambda (_srcpath71210_) + (lambda _g74239_ + (let ((_g74238_ (let () (declare (not safe)) (##length _g74239_)))) + (cond ((let () (declare (not safe)) (##fx= _g74238_ 1)) + (apply (lambda (_srcpath71215_) (let () (declare (not safe)) - (gxc#compile-module__0 _srcpath71210_))) - _g74234_)) - ((let () (declare (not safe)) (##fx= _g74233_ 2)) - (apply (lambda (_srcpath71214_ _opts71215_) + (gxc#compile-module__0 _srcpath71215_))) + _g74239_)) + ((let () (declare (not safe)) (##fx= _g74238_ 2)) + (apply (lambda (_srcpath71219_ _opts71220_) (let () (declare (not safe)) (gxc#compile-module__% - _srcpath71214_ - _opts71215_))) - _g74234_)) + _srcpath71219_ + _opts71220_))) + _g74239_)) (else (##raise-wrong-number-of-arguments-exception gxc#compile-module - _g74234_)))))) + _g74239_)))))) (define gxc#compile-exe__% - (lambda (_srcpath71168_ _opts71169_) - (if (let () (declare (not safe)) (string? _srcpath71168_)) + (lambda (_srcpath71173_ _opts71174_) + (if (let () (declare (not safe)) (string? _srcpath71173_)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Invalid module source path" - _srcpath71168_))) - (let ((_outdir71171_ - (let () (declare (not safe)) (pgetq 'output-dir: _opts71169_))) - (_invoke-gsc?71172_ - (let () (declare (not safe)) (pgetq 'invoke-gsc: _opts71169_))) - (_gsc-options71173_ - (let () (declare (not safe)) (pgetq 'gsc-options: _opts71169_))) - (_keep-scm?71174_ - (let () (declare (not safe)) (pgetq 'keep-scm: _opts71169_))) - (_verbosity71175_ - (let () (declare (not safe)) (pgetq 'verbose: _opts71169_)))) - (if _outdir71171_ + _srcpath71173_))) + (let ((_outdir71176_ + (let () (declare (not safe)) (pgetq 'output-dir: _opts71174_))) + (_invoke-gsc?71177_ + (let () (declare (not safe)) (pgetq 'invoke-gsc: _opts71174_))) + (_gsc-options71178_ + (let () (declare (not safe)) (pgetq 'gsc-options: _opts71174_))) + (_keep-scm?71179_ + (let () (declare (not safe)) (pgetq 'keep-scm: _opts71174_))) + (_verbosity71180_ + (let () (declare (not safe)) (pgetq 'verbose: _opts71174_)))) + (if _outdir71176_ (with-lock gxc#+driver-mutex+ (lambda () (let () (declare (not safe)) - (create-directory* _outdir71171_)))) + (create-directory* _outdir71176_)))) '#!void) - (let ((__tmp74236 + (let ((__tmp74241 (lambda () (let () (declare (not safe)) - (gxc#verbose '"compile exe " _srcpath71168_)) - (let ((__tmp74237 + (gxc#verbose '"compile exe " _srcpath71173_)) + (let ((__tmp74242 (with-lock gxc#+driver-mutex+ (lambda () (let () (declare (not safe)) - (gx#import-module__0 _srcpath71168_)))))) + (gx#import-module__0 _srcpath71173_)))))) (declare (not safe)) - (gxc#compile-executable-module __tmp74237 _opts71169_)))) - (__tmp74235 + (gxc#compile-executable-module __tmp74242 _opts71174_)))) + (__tmp74240 (let () (declare (not safe)) (gxc#compile-timestamp)))) (declare (not safe)) (call-with-parameters - __tmp74236 + __tmp74241 gxc#current-compile-output-dir - _outdir71171_ + _outdir71176_ gxc#current-compile-invoke-gsc - _invoke-gsc?71172_ + _invoke-gsc?71177_ gxc#current-compile-gsc-options - _gsc-options71173_ + _gsc-options71178_ gxc#current-compile-keep-scm - _keep-scm?71174_ + _keep-scm?71179_ gxc#current-compile-verbose - _verbosity71175_ + _verbosity71180_ gxc#current-compile-timestamp - __tmp74235 + __tmp74240 gx#current-expander-compiling? '#t))))) (define gxc#compile-exe__0 - (lambda (_srcpath71183_) - (let ((_opts71185_ '())) + (lambda (_srcpath71188_) + (let ((_opts71190_ '())) (declare (not safe)) - (gxc#compile-exe__% _srcpath71183_ _opts71185_)))) + (gxc#compile-exe__% _srcpath71188_ _opts71190_)))) (define gxc#compile-exe - (lambda _g74239_ - (let ((_g74238_ (let () (declare (not safe)) (##length _g74239_)))) - (cond ((let () (declare (not safe)) (##fx= _g74238_ 1)) - (apply (lambda (_srcpath71183_) + (lambda _g74244_ + (let ((_g74243_ (let () (declare (not safe)) (##length _g74244_)))) + (cond ((let () (declare (not safe)) (##fx= _g74243_ 1)) + (apply (lambda (_srcpath71188_) (let () (declare (not safe)) - (gxc#compile-exe__0 _srcpath71183_))) - _g74239_)) - ((let () (declare (not safe)) (##fx= _g74238_ 2)) - (apply (lambda (_srcpath71187_ _opts71188_) + (gxc#compile-exe__0 _srcpath71188_))) + _g74244_)) + ((let () (declare (not safe)) (##fx= _g74243_ 2)) + (apply (lambda (_srcpath71192_ _opts71193_) (let () (declare (not safe)) - (gxc#compile-exe__% _srcpath71187_ _opts71188_))) - _g74239_)) + (gxc#compile-exe__% _srcpath71192_ _opts71193_))) + _g74244_)) (else (##raise-wrong-number-of-arguments-exception gxc#compile-exe - _g74239_)))))) + _g74244_)))))) (define gxc#compile-executable-module - (lambda (_ctx71164_ _opts71165_) + (lambda (_ctx71169_ _opts71170_) (if (let () (declare (not safe)) - (pgetq 'full-program-optimization: _opts71165_)) + (pgetq 'full-program-optimization: _opts71170_)) (let () (declare (not safe)) (gxc#compile-executable-module/full-program-optimization - _ctx71164_ - _opts71165_)) + _ctx71169_ + _opts71170_)) (let () (declare (not safe)) (gxc#compile-executable-module/separate - _ctx71164_ - _opts71165_))))) + _ctx71169_ + _opts71170_))))) (define gxc#compile-executable-module/separate - (lambda (_ctx71037_ _opts71038_) - (letrec ((_generate-stub71040_ - (lambda (_builtin-modules71160_) - (let ((_mod-main71162_ + (lambda (_ctx71040_ _opts71041_) + (letrec ((_generate-stub71043_ + (lambda (_builtin-modules71165_) + (let ((_mod-main71167_ (let () (declare (not safe)) - (gxc#find-runtime-symbol _ctx71037_ 'main)))) - (write (let ((__tmp74240 - (let ((__tmp74241 - (let ((__tmp74242 - (let ((__tmp74243 - (let ((__tmp74245 - (let ((__tmp74246 + (gxc#find-runtime-symbol _ctx71040_ 'main)))) + (write (let ((__tmp74245 + (let ((__tmp74246 + (let ((__tmp74247 + (let ((__tmp74248 + (let ((__tmp74250 + (let ((__tmp74251 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _builtin-modules71160_ '())))) + (cons _builtin-modules71165_ '())))) (declare (not safe)) - (cons 'quote __tmp74246))) - (__tmp74244 + (cons 'quote __tmp74251))) + (__tmp74249 (let () (declare (not safe)) (cons 'libgerbil-builtin-modules '())))) (declare (not safe)) - (cons __tmp74245 __tmp74244)))) + (cons __tmp74250 __tmp74249)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons 'append - __tmp74243)))) + __tmp74248)))) (declare (not safe)) - (cons __tmp74242 '())))) + (cons __tmp74247 '())))) (declare (not safe)) - (cons 'builtin-modules __tmp74241)))) + (cons 'builtin-modules __tmp74246)))) (declare (not safe)) - (cons 'define __tmp74240))) - (write (let ((__tmp74247 - (let ((__tmp74258 + (cons 'define __tmp74245))) + (write (let ((__tmp74252 + (let ((__tmp74263 (let () (declare (not safe)) (cons 'gerbil-main '()))) - (__tmp74248 - (let ((__tmp74256 - (let ((__tmp74257 + (__tmp74253 + (let ((__tmp74261 + (let ((__tmp74262 (let () (declare (not safe)) (cons 'builtin-modules @@ -319,115 +319,115 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons 'gerbil-runtime-init! - __tmp74257))) - (__tmp74249 - (let ((__tmp74250 - (let ((__tmp74251 - (let ((__tmp74252 + __tmp74262))) + (__tmp74254 + (let ((__tmp74255 + (let ((__tmp74256 + (let ((__tmp74257 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp74253 - (let ((__tmp74254 - (let ((__tmp74255 + (let ((__tmp74258 + (let ((__tmp74259 + (let ((__tmp74260 (let () (declare (not safe)) (cons 'command-line '())))) (declare (not safe)) - (cons __tmp74255 '())))) + (cons __tmp74260 '())))) (declare (not safe)) - (cons 'cdr __tmp74254)))) + (cons 'cdr __tmp74259)))) (declare (not safe)) - (cons __tmp74253 '())))) + (cons __tmp74258 '())))) (declare (not safe)) - (cons _mod-main71162_ __tmp74252)))) + (cons _mod-main71167_ __tmp74257)))) (declare (not safe)) - (cons 'apply __tmp74251)))) + (cons 'apply __tmp74256)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp74250 '())))) + (cons __tmp74255 '())))) (declare (not safe)) - (cons __tmp74256 __tmp74249)))) + (cons __tmp74261 __tmp74254)))) (declare (not safe)) - (cons __tmp74258 __tmp74248)))) + (cons __tmp74263 __tmp74253)))) (declare (not safe)) - (cons 'define __tmp74247))) + (cons 'define __tmp74252))) (write '(gerbil-main)) (newline)))) - (_get-gsc-cc-opts71041_ - (lambda (_gerbil-staticdir71149_) - (let* ((_opts71151_ + (_get-gsc-cc-opts71044_ + (lambda (_gerbil-staticdir71154_) + (let* ((_opts71156_ (let () (declare (not safe)) - (pgetq 'gsc-options: _opts71038_))) - (_base71153_ - (string-append '"-I " _gerbil-staticdir71149_)) - (_user-static-dir71155_ + (pgetq 'gsc-options: _opts71041_))) + (_base71158_ + (string-append '"-I " _gerbil-staticdir71154_)) + (_user-static-dir71160_ (path-expand (path-expand '"lib/static" (gerbil-path)))) - (_base71157_ + (_base71162_ (string-append - _base71153_ + _base71158_ '" -I " - _user-static-dir71155_))) - (let ((__tmp74259 + _user-static-dir71160_))) + (let ((__tmp74264 (let () (declare (not safe)) (gxc#gsc-cc-options)))) (declare (not safe)) - (foldr1 cons __tmp74259 _base71157_))))) - (_get-libgerbil-ld-opts71042_ - (lambda (_libgerbil71147_) + (foldr1 cons __tmp74264 _base71162_))))) + (_get-libgerbil-ld-opts71045_ + (lambda (_libgerbil71152_) (call-with-input-file - (string-append _libgerbil71147_ '".ldd") + (string-append _libgerbil71152_ '".ldd") read))) - (_replace-extension71043_ - (lambda (_path71144_ _ext71145_) + (_replace-extension71046_ + (lambda (_path71149_ _ext71150_) (string-append - (path-strip-extension _path71144_) - _ext71145_))) - (_not-exclude-module?71044_ - (lambda (_ctx71140_) - (let ((_id-str71142_ + (path-strip-extension _path71149_) + _ext71150_))) + (_not-exclude-module?71047_ + (lambda (_ctx71145_) + (let ((_id-str71147_ (symbol->string (##structure-ref - _ctx71140_ + _ctx71145_ '1 gx#expander-context::t '#f)))) - (if (let ((__tmp74261 + (if (let ((__tmp74266 (let () (declare (not safe)) - (string-prefix? '"gerbil/" _id-str71142_)))) + (string-prefix? '"gerbil/" _id-str71147_)))) (declare (not safe)) - (not __tmp74261)) - (let ((__tmp74260 + (not __tmp74266)) + (let ((__tmp74265 (let () (declare (not safe)) - (string-prefix? '"std/" _id-str71142_)))) + (string-prefix? '"std/" _id-str71147_)))) (declare (not safe)) - (not __tmp74260)) + (not __tmp74265)) '#f)))) - (_not-file-empty?71045_ - (lambda (_path71138_) - (let ((__tmp74262 + (_not-file-empty?71048_ + (lambda (_path71143_) + (let ((__tmp74267 (let () (declare (not safe)) - (gxc#file-empty? _path71138_)))) + (gxc#file-empty? _path71143_)))) (declare (not safe)) - (not __tmp74262)))) - (_compile-stub71046_ - (lambda (_output-scm71053_ _output-bin71054_) - (let* ((_gerbil-home71056_ + (not __tmp74267)))) + (_compile-stub71049_ + (lambda (_output-scm71056_ _output-bin71057_) + (let* ((_gerbil-home71059_ (getenv '"GERBIL_BUILD_PREFIX" (gerbil-home))) - (_gerbil-libdir71058_ - (path-expand '"lib" _gerbil-home71056_)) - (_gerbil-staticdir71060_ - (path-expand '"static" _gerbil-libdir71058_)) - (_gxlink71062_ + (_gerbil-libdir71061_ + (path-expand '"lib" _gerbil-home71059_)) + (_gerbil-staticdir71063_ + (path-expand '"static" _gerbil-libdir71061_)) + (_gxlink71065_ (path-expand '"libgerbil-link" - _gerbil-libdir71058_)) - (_tmp71064_ + _gerbil-libdir71061_)) + (_tmp71067_ (path-expand (string-append '"gxc." @@ -436,316 +436,321 @@ (declare (not safe)) (gxc#compile-timestamp-nanos)))) '"/tmp")) - (_tmp-path71068_ - (lambda (_f71066_) + (_tmp-path71071_ + (lambda (_f71069_) (path-expand - (path-strip-directory _f71066_) - _tmp71064_))) - (_deps71070_ + (path-strip-directory _f71069_) + _tmp71067_))) + (_deps71073_ (let () (declare (not safe)) - (gxc#find-runtime-module-deps _ctx71037_))) - (_deps71072_ - (filter _not-exclude-module?71044_ _deps71070_)) - (_src-deps-scm71074_ - (map gxc#find-static-module-file _deps71072_)) - (_src-deps-scm71076_ - (filter _not-file-empty?71045_ - _src-deps-scm71074_)) - (_src-deps-scm71078_ - (map path-expand _src-deps-scm71076_)) - (_deps-scm71080_ - (map _tmp-path71068_ _src-deps-scm71078_)) - (_deps-c71086_ - (map (lambda (_g7108171083_) + (gxc#find-runtime-module-deps _ctx71040_))) + (_deps71075_ + (filter _not-exclude-module?71047_ _deps71073_)) + (_src-deps-scm71077_ + (map gxc#find-static-module-file _deps71075_)) + (_src-deps-scm71079_ + (filter _not-file-empty?71048_ + _src-deps-scm71077_)) + (_src-deps-scm71081_ + (map path-expand _src-deps-scm71079_)) + (_deps-scm71083_ + (map _tmp-path71071_ _src-deps-scm71081_)) + (_deps-c71089_ + (map (lambda (_g7108471086_) (let () (declare (not safe)) - (_replace-extension71043_ - _g7108171083_ + (_replace-extension71046_ + _g7108471086_ '".c"))) - _deps-scm71080_)) - (_deps-o71092_ - (map (lambda (_g7108771089_) + _deps-scm71083_)) + (_deps-o71095_ + (map (lambda (_g7109071092_) (let () (declare (not safe)) - (_replace-extension71043_ - _g7108771089_ + (_replace-extension71046_ + _g7109071092_ '".o"))) - _deps-scm71080_)) - (_src-bin-scm71094_ + _deps-scm71083_)) + (_src-bin-scm71097_ (let () (declare (not safe)) - (gxc#find-static-module-file _ctx71037_))) - (_src-bin-scm71096_ - (path-expand _src-bin-scm71094_)) - (_bin-scm71098_ + (gxc#find-static-module-file _ctx71040_))) + (_src-bin-scm71099_ + (path-expand _src-bin-scm71097_)) + (_bin-scm71101_ (let () (declare (not safe)) - (_tmp-path71068_ _src-bin-scm71096_))) - (_bin-c71100_ + (_tmp-path71071_ _src-bin-scm71099_))) + (_bin-c71103_ (let () (declare (not safe)) - (_replace-extension71043_ _bin-scm71098_ '".c"))) - (_bin-o71102_ + (_replace-extension71046_ _bin-scm71101_ '".c"))) + (_bin-o71105_ (let () (declare (not safe)) - (_replace-extension71043_ _bin-scm71098_ '".o"))) - (_output-bin71104_ (path-expand _output-bin71054_)) - (_output-scm71106_ (path-expand _output-scm71053_)) - (_output-c71108_ + (_replace-extension71046_ _bin-scm71101_ '".o"))) + (_output-bin71107_ (path-expand _output-bin71057_)) + (_output-scm71109_ (path-expand _output-scm71056_)) + (_output-c71111_ (let () (declare (not safe)) - (_replace-extension71043_ - _output-scm71106_ + (_replace-extension71046_ + _output-scm71109_ '".c"))) - (_output-o71110_ + (_output-o71113_ (let () (declare (not safe)) - (_replace-extension71043_ - _output-scm71106_ + (_replace-extension71046_ + _output-scm71109_ '".o"))) - (_output_71112_ + (_output_71115_ (string-append - (path-strip-extension _output-scm71106_) + (path-strip-extension _output-scm71109_) '"_")) - (_output_-c71114_ - (string-append _output_71112_ '".c")) - (_output_-o71116_ - (string-append _output_71112_ '".o")) - (_gsc-link-opts71118_ + (_output_-c71117_ + (string-append _output_71115_ '".c")) + (_output_-o71119_ + (string-append _output_71115_ '".o")) + (_gsc-link-opts71121_ (let () (declare (not safe)) (gxc#gsc-link-options '#f))) - (_gsc-cc-opts71120_ + (_gsc-cc-opts71123_ (let () (declare (not safe)) - (_get-gsc-cc-opts71041_ - _gerbil-staticdir71060_))) - (_output-ld-opts71122_ + (_get-gsc-cc-opts71044_ + _gerbil-staticdir71063_))) + (_output-ld-opts71125_ (let () (declare (not safe)) (gxc#gcc-ld-options))) - (_libgerbil.a71124_ - (path-expand '"libgerbil.a" _gerbil-libdir71058_)) - (_libgerbil.so71126_ - (path-expand '"libgerbil.so" _gerbil-libdir71058_)) - (_libgerbil-ld-opts71128_ - (if (file-exists? _libgerbil.so71126_) + (_libgerbil.a71127_ + (path-expand '"libgerbil.a" _gerbil-libdir71061_)) + (_libgerbil.so71129_ + (path-expand '"libgerbil.so" _gerbil-libdir71061_)) + (_libgerbil-ld-opts71131_ + (if (file-exists? _libgerbil.so71129_) (let () (declare (not safe)) - (_get-libgerbil-ld-opts71042_ - _libgerbil.so71126_)) - (if (file-exists? _libgerbil.a71124_) + (_get-libgerbil-ld-opts71045_ + _libgerbil.so71129_)) + (if (file-exists? _libgerbil.a71127_) (let () (declare (not safe)) - (_get-libgerbil-ld-opts71042_ - _libgerbil.a71124_)) + (_get-libgerbil-ld-opts71045_ + _libgerbil.a71127_)) (let () (declare (not safe)) (gxc#raise-compile-error '"libgerbil does not exist" - _libgerbil.a71124_ - _libgerbil.so71126_))))) - (_gerbil-rpath71130_ + _libgerbil.a71127_ + _libgerbil.so71129_))))) + (_gerbil-rpath71133_ (string-append '"-Wl,-rpath=" - _gerbil-libdir71058_)) - (_builtin-modules71134_ - (map (lambda (_mod71132_) + _gerbil-libdir71061_)) + (_builtin-modules71137_ + (map (lambda (_mod71135_) (symbol->string (##structure-ref - _mod71132_ + _mod71135_ '1 gx#expander-context::t '#f))) (let () (declare (not safe)) - (cons _ctx71037_ _deps71072_))))) - (let ((__tmp74263 (path-directory _output-bin71104_))) - (declare (not safe)) - (create-directory* __tmp74263)) - (let ((__tmp74264 + (cons _ctx71040_ _deps71075_))))) + (with-lock + gxc#+driver-mutex+ + (lambda () + (let ((__tmp74268 (path-directory _output-bin71107_))) + (declare (not safe)) + (create-directory* __tmp74268)))) + (let ((__tmp74269 (lambda () (let () (declare (not safe)) - (_generate-stub71040_ - _builtin-modules71134_))))) + (_generate-stub71043_ + _builtin-modules71137_))))) (declare (not safe)) (gxc#with-output-to-scheme-file - _output-scm71106_ - __tmp74264)) + _output-scm71109_ + __tmp74269)) (if (gxc#current-compile-invoke-gsc) (begin - (create-directory _tmp71064_) + (with-lock + gxc#+driver-mutex+ + (lambda () (create-directory _tmp71067_))) (for-each copy-file - _src-deps-scm71078_ - _deps-scm71080_) - (copy-file _src-bin-scm71096_ _bin-scm71098_) - (let ((__tmp74272 + _src-deps-scm71081_ + _deps-scm71083_) + (copy-file _src-bin-scm71099_ _bin-scm71101_) + (let ((__tmp74277 (let () (declare (not safe)) (gxc#gerbil-gsc))) - (__tmp74265 - (let ((__tmp74266 - (let ((__tmp74267 - (let ((__tmp74268 - (let ((__tmp74269 - (let ((__tmp74270 + (__tmp74270 + (let ((__tmp74271 + (let ((__tmp74272 + (let ((__tmp74273 + (let ((__tmp74274 + (let ((__tmp74275 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp74271 + (let ((__tmp74276 (let () (declare (not safe)) - (cons _output-scm71106_ '())))) + (cons _output-scm71109_ '())))) (declare (not safe)) - (cons _bin-scm71098_ __tmp74271)))) + (cons _bin-scm71101_ __tmp74276)))) (declare (not safe)) - (foldr1 cons __tmp74270 _deps-scm71080_)))) + (foldr1 cons __tmp74275 _deps-scm71083_)))) (declare (not safe)) - (foldr1 cons __tmp74269 _gsc-link-opts71118_)))) + (foldr1 cons __tmp74274 _gsc-link-opts71121_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _gxlink71062_ - __tmp74268)))) + (cons _gxlink71065_ + __tmp74273)))) (declare (not safe)) - (cons '"-l" __tmp74267)))) + (cons '"-l" __tmp74272)))) (declare (not safe)) - (cons '"-link" __tmp74266)))) + (cons '"-link" __tmp74271)))) (declare (not safe)) (gxc#invoke__% '#f absent-value absent-value - __tmp74272 - __tmp74265)) - (let ((__tmp74279 + __tmp74277 + __tmp74270)) + (let ((__tmp74284 (let () (declare (not safe)) (gxc#gerbil-gsc))) - (__tmp74273 - (let ((__tmp74274 - (let ((__tmp74275 - (let ((__tmp74276 - (let ((__tmp74277 - (let ((__tmp74278 + (__tmp74278 + (let ((__tmp74279 + (let ((__tmp74280 + (let ((__tmp74281 + (let ((__tmp74282 + (let ((__tmp74283 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _output_-c71114_ '())))) + (cons _output_-c71117_ '())))) (declare (not safe)) - (cons _output-c71108_ __tmp74278)))) + (cons _output-c71111_ __tmp74283)))) (declare (not safe)) - (cons _bin-c71100_ __tmp74277)))) + (cons _bin-c71103_ __tmp74282)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (foldr1 cons - __tmp74276 - _deps-c71086_)))) + __tmp74281 + _deps-c71089_)))) (declare (not safe)) (foldr1 cons - __tmp74275 - _gsc-cc-opts71120_)))) + __tmp74280 + _gsc-cc-opts71123_)))) (declare (not safe)) - (cons '"-obj" __tmp74274)))) + (cons '"-obj" __tmp74279)))) (declare (not safe)) (gxc#invoke__% '#f absent-value absent-value - __tmp74279 - __tmp74273)) - (let ((__tmp74292 + __tmp74284 + __tmp74278)) + (let ((__tmp74297 (let () (declare (not safe)) (gxc#gerbil-gcc))) - (__tmp74280 - (let ((__tmp74281 - (let ((__tmp74282 - (let ((__tmp74283 - (let ((__tmp74284 - (let ((__tmp74285 + (__tmp74285 + (let ((__tmp74286 + (let ((__tmp74287 + (let ((__tmp74288 + (let ((__tmp74289 + (let ((__tmp74290 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp74286 - (let ((__tmp74287 - (let ((__tmp74288 - (let ((__tmp74289 - (let ((__tmp74290 + (let ((__tmp74291 + (let ((__tmp74292 + (let ((__tmp74293 + (let ((__tmp74294 + (let ((__tmp74295 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp74291 + (let ((__tmp74296 (let () (declare (not safe)) (cons '"-lgambit" - _libgerbil-ld-opts71128_)))) + _libgerbil-ld-opts71131_)))) (declare (not safe)) - (cons '"-lgerbil" __tmp74291)))) + (cons '"-lgerbil" __tmp74296)))) (declare (not safe)) - (cons _gerbil-libdir71058_ __tmp74290)))) + (cons _gerbil-libdir71061_ __tmp74295)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '"-L" __tmp74289)))) + (cons '"-L" __tmp74294)))) (declare (not safe)) - (cons _gerbil-rpath71130_ - __tmp74288)))) + (cons _gerbil-rpath71133_ + __tmp74293)))) (declare (not safe)) (foldr1 cons - __tmp74287 - _output-ld-opts71122_)))) + __tmp74292 + _output-ld-opts71125_)))) (declare (not safe)) - (cons _output_-o71116_ __tmp74286)))) + (cons _output_-o71119_ __tmp74291)))) (declare (not safe)) - (cons _output-o71110_ __tmp74285)))) + (cons _output-o71113_ __tmp74290)))) (declare (not safe)) - (cons _bin-o71102_ __tmp74284)))) + (cons _bin-o71105_ __tmp74289)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (foldr1 cons - __tmp74283 - _deps-o71092_)))) + __tmp74288 + _deps-o71095_)))) (declare (not safe)) - (cons _output-bin71104_ - __tmp74282)))) + (cons _output-bin71107_ + __tmp74287)))) (declare (not safe)) - (cons '"-o" __tmp74281)))) + (cons '"-o" __tmp74286)))) (declare (not safe)) (gxc#invoke__% '#f absent-value absent-value - __tmp74292 - __tmp74280)) + __tmp74297 + __tmp74285)) (for-each delete-file - (let ((__tmp74293 - (let ((__tmp74294 - (let ((__tmp74295 + (let ((__tmp74298 + (let ((__tmp74299 + (let ((__tmp74300 (let () (declare (not safe)) - (cons _output_-o71116_ + (cons _output_-o71119_ '())))) (declare (not safe)) - (cons _output-o71110_ - __tmp74295)))) + (cons _output-o71113_ + __tmp74300)))) (declare (not safe)) - (cons _output_-c71114_ __tmp74294)))) + (cons _output_-c71117_ __tmp74299)))) (declare (not safe)) - (cons _output-c71108_ __tmp74293))) + (cons _output-c71111_ __tmp74298))) (let () (declare (not safe)) - (gxc#delete-directory* _tmp71064_))) + (gxc#delete-directory* _tmp71067_))) '#!void))))) - (let* ((_output-bin71048_ + (let* ((_output-bin71051_ (let () (declare (not safe)) - (gxc#compile-exe-output-file _ctx71037_ _opts71038_))) - (_output-scm71050_ - (string-append _output-bin71048_ '".scmx"))) + (gxc#compile-exe-output-file _ctx71040_ _opts71041_))) + (_output-scm71053_ + (string-append _output-bin71051_ '".scmx"))) (let () (declare (not safe)) - (_compile-stub71046_ _output-scm71050_ _output-bin71048_)) + (_compile-stub71049_ _output-scm71053_ _output-bin71051_)) (if (gxc#current-compile-keep-scm) '#!void - (delete-file _output-scm71050_)))))) + (delete-file _output-scm71053_)))))) (define gxc#compile-executable-module/full-program-optimization - (lambda (_ctx70857_ _opts70858_) - (letrec ((_reset-declare70860_ + (lambda (_ctx70859_ _opts70860_) + (letrec ((_reset-declare70862_ (lambda () '(declare (gambit-scheme) @@ -767,633 +772,636 @@ (optimize-dead-definitions) (generic) (mostly-fixnum-flonum)))) - (_generate-stub70861_ - (lambda (_deps71028_) - (let ((_mod-main71030_ + (_generate-stub70863_ + (lambda (_deps71031_) + (let ((_mod-main71033_ (let () (declare (not safe)) - (gxc#find-runtime-symbol _ctx70857_ 'main))) - (_reset-decl71031_ + (gxc#find-runtime-symbol _ctx70859_ 'main))) + (_reset-decl71034_ (let () (declare (not safe)) - (_reset-declare70860_))) - (_user-decl71032_ + (_reset-declare70862_))) + (_user-decl71035_ (let () (declare (not safe)) - (_user-declare70863_)))) + (_user-declare70865_)))) (for-each - (lambda (_dep71034_) + (lambda (_dep71037_) (write '(##namespace (""))) (newline) - (write _reset-decl71031_) + (write _reset-decl71034_) (newline) - (if _user-decl71032_ - (begin (write _user-decl71032_) (newline)) + (if _user-decl71035_ + (begin (write _user-decl71035_) (newline)) '#!void) - (write (let ((__tmp74296 + (write (let ((__tmp74301 (let () (declare (not safe)) - (cons _dep71034_ '())))) + (cons _dep71037_ '())))) (declare (not safe)) - (cons 'include __tmp74296))) + (cons 'include __tmp74301))) (newline)) - _deps71028_) - (write (let ((__tmp74297 - (let ((__tmp74310 + _deps71031_) + (write (let ((__tmp74302 + (let ((__tmp74315 (let () (declare (not safe)) (cons 'gerbil-main '()))) - (__tmp74298 - (let ((__tmp74306 - (let ((__tmp74307 - (let ((__tmp74308 - (let ((__tmp74309 + (__tmp74303 + (let ((__tmp74311 + (let ((__tmp74312 + (let ((__tmp74313 + (let ((__tmp74314 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons '() '())))) (declare (not safe)) - (cons 'quote __tmp74309)))) + (cons 'quote __tmp74314)))) (declare (not safe)) - (cons __tmp74308 '())))) + (cons __tmp74313 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons 'gerbil-runtime-init! - __tmp74307))) - (__tmp74299 - (let ((__tmp74300 - (let ((__tmp74301 - (let ((__tmp74302 + __tmp74312))) + (__tmp74304 + (let ((__tmp74305 + (let ((__tmp74306 + (let ((__tmp74307 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp74303 - (let ((__tmp74304 - (let ((__tmp74305 + (let ((__tmp74308 + (let ((__tmp74309 + (let ((__tmp74310 (let () (declare (not safe)) (cons 'command-line '())))) (declare (not safe)) - (cons __tmp74305 '())))) + (cons __tmp74310 '())))) (declare (not safe)) - (cons 'cdr __tmp74304)))) + (cons 'cdr __tmp74309)))) (declare (not safe)) - (cons __tmp74303 '())))) + (cons __tmp74308 '())))) (declare (not safe)) - (cons _mod-main71030_ __tmp74302)))) + (cons _mod-main71033_ __tmp74307)))) (declare (not safe)) - (cons 'apply __tmp74301)))) + (cons 'apply __tmp74306)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp74300 '())))) + (cons __tmp74305 '())))) (declare (not safe)) - (cons __tmp74306 __tmp74299)))) + (cons __tmp74311 __tmp74304)))) (declare (not safe)) - (cons __tmp74310 __tmp74298)))) + (cons __tmp74315 __tmp74303)))) (declare (not safe)) - (cons 'define __tmp74297))) + (cons 'define __tmp74302))) (write '(gerbil-main)) (newline)))) - (_static-include70862_ - (lambda (_gsc-opts71021_ _libdir71022_) - (letrec* ((_static-dir71024_ - (path-expand '"static" _libdir71022_)) - (_user-static-dir71025_ + (_static-include70864_ + (lambda (_gsc-opts71024_ _libdir71025_) + (letrec* ((_static-dir71027_ + (path-expand '"static" _libdir71025_)) + (_user-static-dir71028_ (path-expand (path-expand '"lib/static" (gerbil-path)))) - (_cppflags71026_ + (_cppflags71029_ (string-append '"-I " - _static-dir71024_ + _static-dir71027_ '" -I " - _user-static-dir71025_))) - (append _gsc-opts71021_ - (let ((__tmp74311 + _user-static-dir71028_))) + (append _gsc-opts71024_ + (let ((__tmp74316 (let () (declare (not safe)) - (cons _cppflags71026_ '())))) + (cons _cppflags71029_ '())))) (declare (not safe)) - (cons '"-cc-options" __tmp74311)))))) - (_user-declare70863_ + (cons '"-cc-options" __tmp74316)))))) + (_user-declare70865_ (lambda () - (let* ((_gsc-opts70926_ + (let* ((_gsc-opts70929_ (let () (declare (not safe)) - (pgetq 'gsc-options: _opts70858_))) - (_gsc-prelude70928_ - (if _gsc-opts70926_ - (member '"-prelude" _gsc-opts70926_) + (pgetq 'gsc-options: _opts70860_))) + (_gsc-prelude70931_ + (if _gsc-opts70929_ + (member '"-prelude" _gsc-opts70929_) '#f)) - (_gsc-prelude70930_ - (if _gsc-prelude70928_ + (_gsc-prelude70933_ + (if _gsc-prelude70931_ (read (open-input-string - (cadr _gsc-prelude70928_))) + (cadr _gsc-prelude70931_))) '#f))) - (let _lp70933_ ((_rest70935_ + (let _lp70936_ ((_rest70938_ (let () (declare (not safe)) - (cons _gsc-prelude70930_ '()))) - (_user-decls70936_ '())) - (let* ((_rest7093770945_ _rest70935_) - (_else7093970953_ + (cons _gsc-prelude70933_ '()))) + (_user-decls70939_ '())) + (let* ((_rest7094070948_ _rest70938_) + (_else7094270956_ (lambda () (if (let () (declare (not safe)) - (null? _user-decls70936_)) + (null? _user-decls70939_)) '#f - (let ((__tmp74312 - (reverse _user-decls70936_))) + (let ((__tmp74317 + (reverse _user-decls70939_))) (declare (not safe)) - (cons 'declare __tmp74312))))) - (_K7094171009_ - (lambda (_rest70956_ _expr70957_) - (let* ((_expr7095870970_ _expr70957_) - (_else7096170978_ + (cons 'declare __tmp74317))))) + (_K7094471012_ + (lambda (_rest70959_ _expr70960_) + (let* ((_expr7096170973_ _expr70960_) + (_else7096470981_ (lambda () (let () (declare (not safe)) - (_lp70933_ - _rest70956_ - _user-decls70936_))))) - (let ((_K7096670999_ - (lambda (_decls70997_) - (let ((__tmp74313 + (_lp70936_ + _rest70959_ + _user-decls70939_))))) + (let ((_K7096971002_ + (lambda (_decls71000_) + (let ((__tmp74318 (let () (declare (not safe)) (foldl1 cons - _user-decls70936_ - _decls70997_)))) + _user-decls70939_ + _decls71000_)))) (declare (not safe)) - (_lp70933_ - _rest70956_ - __tmp74313)))) - (_K7096370984_ - (lambda (_exprs70982_) - (let ((__tmp74314 - (append _exprs70982_ - _rest70956_))) + (_lp70936_ + _rest70959_ + __tmp74318)))) + (_K7096670987_ + (lambda (_exprs70985_) + (let ((__tmp74319 + (append _exprs70985_ + _rest70959_))) (declare (not safe)) - (_lp70933_ - __tmp74314 - _user-decls70936_))))) + (_lp70936_ + __tmp74319 + _user-decls70939_))))) (if (let () (declare (not safe)) - (##pair? _expr7095870970_)) - (let ((_tl7096871004_ + (##pair? _expr7096170973_)) + (let ((_tl7097171007_ (let () (declare (not safe)) - (##cdr _expr7095870970_))) - (_hd7096771002_ + (##cdr _expr7096170973_))) + (_hd7097071005_ (let () (declare (not safe)) - (##car _expr7095870970_)))) + (##car _expr7096170973_)))) (if (let () (declare (not safe)) - (##eq? _hd7096771002_ + (##eq? _hd7097071005_ 'declare)) - (let ((_decls71007_ - _tl7096871004_)) + (let ((_decls71010_ + _tl7097171007_)) (declare (not safe)) - (_K7096670999_ _decls71007_)) + (_K7096971002_ _decls71010_)) (if (let () (declare (not safe)) - (##eq? _hd7096771002_ + (##eq? _hd7097071005_ 'begin)) - (let ((_exprs70992_ - _tl7096871004_)) + (let ((_exprs70995_ + _tl7097171007_)) (declare (not safe)) - (_K7096370984_ - _exprs70992_)) + (_K7096670987_ + _exprs70995_)) (let () (declare (not safe)) - (_else7096170978_))))) + (_else7096470981_))))) (let () (declare (not safe)) - (_else7096170978_)))))))) + (_else7096470981_)))))))) (if (let () (declare (not safe)) - (##pair? _rest7093770945_)) - (let ((_hd7094271012_ + (##pair? _rest7094070948_)) + (let ((_hd7094571015_ (let () (declare (not safe)) - (##car _rest7093770945_))) - (_tl7094371014_ + (##car _rest7094070948_))) + (_tl7094671017_ (let () (declare (not safe)) - (##cdr _rest7093770945_)))) - (let* ((_expr71017_ _hd7094271012_) - (_rest71019_ _tl7094371014_)) + (##cdr _rest7094070948_)))) + (let* ((_expr71020_ _hd7094571015_) + (_rest71022_ _tl7094671017_)) (declare (not safe)) - (_K7094171009_ _rest71019_ _expr71017_))) + (_K7094471012_ _rest71022_ _expr71020_))) (let () (declare (not safe)) - (_else7093970953_)))))))) - (_compile-stub70864_ - (lambda (_output-scm70871_ _output-bin70872_) - (let* ((_gerbil-home70874_ + (_else7094270956_)))))))) + (_compile-stub70866_ + (lambda (_output-scm70873_ _output-bin70874_) + (let* ((_gerbil-home70876_ (getenv '"GERBIL_BUILD_PREFIX" (gerbil-home))) - (_gerbil-libdir70876_ - (path-expand '"lib" _gerbil-home70874_)) - (_runtime70878_ + (_gerbil-libdir70878_ + (path-expand '"lib" _gerbil-home70876_)) + (_runtime70880_ (map gxc#find-static-module-file gxc#gerbil-runtime-modules)) - (_gambit-sharp70880_ + (_gambit-sharp70882_ (path-expand '"lib/_gambit#.scm" - _gerbil-home70874_)) - (_include-gambit-sharp70882_ + _gerbil-home70876_)) + (_include-gambit-sharp70884_ (string-append '"(include \"" - _gambit-sharp70880_ + _gambit-sharp70882_ '"\")")) - (_bin-scm70884_ + (_bin-scm70886_ (let () (declare (not safe)) - (gxc#find-static-module-file _ctx70857_))) - (_deps70886_ + (gxc#find-static-module-file _ctx70859_))) + (_deps70888_ (let () (declare (not safe)) - (gxc#find-runtime-module-deps _ctx70857_))) - (_deps70888_ - (map gxc#find-static-module-file _deps70886_)) - (_deps70893_ - (filter (lambda (_$obj70890_) - (let ((__tmp74315 + (gxc#find-runtime-module-deps _ctx70859_))) + (_deps70890_ + (map gxc#find-static-module-file _deps70888_)) + (_deps70895_ + (filter (lambda (_$obj70892_) + (let ((__tmp74320 (let () (declare (not safe)) - (gxc#file-empty? _$obj70890_)))) + (gxc#file-empty? _$obj70892_)))) (declare (not safe)) - (not __tmp74315))) - _deps70888_)) - (_deps70897_ - (filter (lambda (_f70895_) - (let ((__tmp74316 - (member _f70895_ _runtime70878_))) + (not __tmp74320))) + _deps70890_)) + (_deps70899_ + (filter (lambda (_f70897_) + (let ((__tmp74321 + (member _f70897_ _runtime70880_))) (declare (not safe)) - (not __tmp74316))) - _deps70893_)) - (_output-base70899_ + (not __tmp74321))) + _deps70895_)) + (_output-base70901_ (string-append - (path-strip-extension _output-scm70871_))) - (_output-c70901_ - (string-append _output-base70899_ '".c")) - (_output-o70903_ - (string-append _output-base70899_ '".o")) - (_output-c_70905_ - (string-append _output-base70899_ '"_.c")) - (_output-o_70907_ - (string-append _output-base70899_ '"_.o")) - (_gsc-link-opts70909_ + (path-strip-extension _output-scm70873_))) + (_output-c70903_ + (string-append _output-base70901_ '".c")) + (_output-o70905_ + (string-append _output-base70901_ '".o")) + (_output-c_70907_ + (string-append _output-base70901_ '"_.c")) + (_output-o_70909_ + (string-append _output-base70901_ '"_.o")) + (_gsc-link-opts70911_ (let () (declare (not safe)) (gxc#gsc-link-options '#f))) - (_gsc-cc-opts70911_ - (let ((__tmp74317 + (_gsc-cc-opts70913_ + (let ((__tmp74322 (let () (declare (not safe)) (gxc#gsc-cc-options)))) (declare (not safe)) - (_static-include70862_ - __tmp74317 - _gerbil-libdir70876_))) - (_output-ld-opts70913_ + (_static-include70864_ + __tmp74322 + _gerbil-libdir70878_))) + (_output-ld-opts70915_ (let () (declare (not safe)) (gxc#gcc-ld-options))) - (_gsc-gx-macros70915_ + (_gsc-gx-macros70917_ (if (gerbil-runtime-smp?) - (let ((__tmp74319 - (let ((__tmp74320 - (let ((__tmp74321 + (let ((__tmp74324 + (let ((__tmp74325 + (let ((__tmp74326 (let () (declare (not safe)) - (cons _include-gambit-sharp70882_ + (cons _include-gambit-sharp70884_ '())))) (declare (not safe)) - (cons '"-e" __tmp74321)))) + (cons '"-e" __tmp74326)))) (declare (not safe)) (cons '"(define-cond-expand-feature|enable-smp|)" - __tmp74320)))) + __tmp74325)))) (declare (not safe)) - (cons '"-e" __tmp74319)) - (let ((__tmp74318 + (cons '"-e" __tmp74324)) + (let ((__tmp74323 (let () (declare (not safe)) - (cons _include-gambit-sharp70882_ + (cons _include-gambit-sharp70884_ '())))) (declare (not safe)) - (cons '"-e" __tmp74318)))) - (_gsc-link-opts70917_ - (append _gsc-link-opts70909_ _gsc-gx-macros70915_)) - (_gerbil-rpath70919_ + (cons '"-e" __tmp74323)))) + (_gsc-link-opts70919_ + (append _gsc-link-opts70911_ _gsc-gx-macros70917_)) + (_gerbil-rpath70921_ (string-append '"-Wl,-rpath=" - _gerbil-libdir70876_)) - (_default-ld-options70921_ - (let ((__tmp74322 + _gerbil-libdir70878_)) + (_default-ld-options70923_ + (let ((__tmp74327 (let () (declare (not safe)) (cons '"-lm" '())))) (declare (not safe)) - (cons '"-ldl" __tmp74322)))) - (let ((__tmp74323 (path-directory _output-bin70872_))) - (declare (not safe)) - (create-directory* __tmp74323)) - (let ((__tmp74324 + (cons '"-ldl" __tmp74327)))) + (with-lock + gxc#+driver-mutex+ + (lambda () + (let ((__tmp74328 (path-directory _output-bin70874_))) + (declare (not safe)) + (create-directory* __tmp74328)))) + (let ((__tmp74329 (lambda () - (let ((__tmp74325 - (let ((__tmp74326 - (let ((__tmp74327 + (let ((__tmp74330 + (let ((__tmp74331 + (let ((__tmp74332 (let () (declare (not safe)) - (cons _bin-scm70884_ + (cons _bin-scm70886_ '())))) (declare (not safe)) (foldr1 cons - __tmp74327 - _deps70897_)))) + __tmp74332 + _deps70899_)))) (declare (not safe)) (foldr1 cons - __tmp74326 - _runtime70878_)))) + __tmp74331 + _runtime70880_)))) (declare (not safe)) - (_generate-stub70861_ __tmp74325))))) + (_generate-stub70863_ __tmp74330))))) (declare (not safe)) (gxc#with-output-to-scheme-file - _output-scm70871_ - __tmp74324)) + _output-scm70873_ + __tmp74329)) (if (gxc#current-compile-invoke-gsc) (begin - (let ((__tmp74333 + (let ((__tmp74338 (let () (declare (not safe)) (gxc#gerbil-gsc))) - (__tmp74328 - (let ((__tmp74329 - (let ((__tmp74330 - (let ((__tmp74331 - (let ((__tmp74332 + (__tmp74333 + (let ((__tmp74334 + (let ((__tmp74335 + (let ((__tmp74336 + (let ((__tmp74337 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _output-scm70871_ '())))) + (cons _output-scm70873_ '())))) (declare (not safe)) - (foldr1 cons __tmp74332 _gsc-link-opts70917_)))) + (foldr1 cons __tmp74337 _gsc-link-opts70919_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _output-c_70905_ - __tmp74331)))) + (cons _output-c_70907_ + __tmp74336)))) (declare (not safe)) - (cons '"-o" __tmp74330)))) + (cons '"-o" __tmp74335)))) (declare (not safe)) - (cons '"-link" __tmp74329)))) + (cons '"-link" __tmp74334)))) (declare (not safe)) (gxc#invoke__% '#f absent-value absent-value - __tmp74333 - __tmp74328)) - (let ((__tmp74337 + __tmp74338 + __tmp74333)) + (let ((__tmp74342 (let () (declare (not safe)) (gxc#gerbil-gsc))) - (__tmp74334 - (let ((__tmp74335 - (let ((__tmp74336 + (__tmp74339 + (let ((__tmp74340 + (let ((__tmp74341 (let () (declare (not safe)) - (cons _output-c_70905_ + (cons _output-c_70907_ '())))) (declare (not safe)) - (cons _output-c70901_ - __tmp74336)))) + (cons _output-c70903_ + __tmp74341)))) (declare (not safe)) - (cons '"-obj" __tmp74335)))) + (cons '"-obj" __tmp74340)))) (declare (not safe)) (gxc#invoke__% '#f absent-value absent-value - __tmp74337 - __tmp74334)) - (let ((__tmp74347 + __tmp74342 + __tmp74339)) + (let ((__tmp74352 (let () (declare (not safe)) (gxc#gerbil-gcc))) - (__tmp74338 - (let ((__tmp74339 - (let ((__tmp74340 - (let ((__tmp74341 - (let ((__tmp74342 - (let ((__tmp74343 + (__tmp74343 + (let ((__tmp74344 + (let ((__tmp74345 + (let ((__tmp74346 + (let ((__tmp74347 + (let ((__tmp74348 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp74344 - (let ((__tmp74345 - (let ((__tmp74346 + (let ((__tmp74349 + (let ((__tmp74350 + (let ((__tmp74351 (let () (declare (not safe)) (cons '"-lgambit" - _default-ld-options70921_)))) + _default-ld-options70923_)))) (declare (not safe)) - (cons _gerbil-libdir70876_ - __tmp74346)))) + (cons _gerbil-libdir70878_ + __tmp74351)))) (declare (not safe)) - (cons '"-L" __tmp74345)))) + (cons '"-L" __tmp74350)))) (declare (not safe)) - (cons _gerbil-rpath70919_ __tmp74344)))) + (cons _gerbil-rpath70921_ __tmp74349)))) (declare (not safe)) - (foldr1 cons __tmp74343 _output-ld-opts70913_)))) + (foldr1 cons __tmp74348 _output-ld-opts70915_)))) (declare (not safe)) - (cons _output-o_70907_ __tmp74342)))) + (cons _output-o_70909_ __tmp74347)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _output-o70903_ - __tmp74341)))) + (cons _output-o70905_ + __tmp74346)))) (declare (not safe)) - (cons _output-bin70872_ - __tmp74340)))) + (cons _output-bin70874_ + __tmp74345)))) (declare (not safe)) - (cons '"-o" __tmp74339)))) + (cons '"-o" __tmp74344)))) (declare (not safe)) (gxc#invoke__% '#f absent-value absent-value - __tmp74347 - __tmp74338))) + __tmp74352 + __tmp74343))) '#!void))))) - (let* ((_output-bin70866_ + (let* ((_output-bin70868_ (let () (declare (not safe)) - (gxc#compile-exe-output-file _ctx70857_ _opts70858_))) - (_output-scm70868_ - (string-append _output-bin70866_ '".scmx"))) + (gxc#compile-exe-output-file _ctx70859_ _opts70860_))) + (_output-scm70870_ + (string-append _output-bin70868_ '".scmx"))) (let () (declare (not safe)) - (_compile-stub70864_ _output-scm70868_ _output-bin70866_)) + (_compile-stub70866_ _output-scm70870_ _output-bin70868_)) (if (gxc#current-compile-keep-scm) '#!void - (delete-file _output-scm70868_)))))) + (delete-file _output-scm70870_)))))) (define gxc#find-export-binding - (lambda (_ctx70807_ _id70808_) - (let ((_$e70854_ - (let ((__tmp74349 - (lambda (_e7080970811_) - (let* ((_g7081370823_ _e7080970811_) - (_else7081570831_ (lambda () '#f)) - (_K7081770835_ (lambda () '#t))) + (lambda (_ctx70809_ _id70810_) + (let ((_$e70856_ + (let ((__tmp74354 + (lambda (_e7081170813_) + (let* ((_g7081570825_ _e7081170813_) + (_else7081770833_ (lambda () '#f)) + (_K7081970837_ (lambda () '#t))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _g7081370823_ + _g7081570825_ 'gx#module-export::t)) - (let* ((_e7081870838_ + (let* ((_e7082070840_ (let () (declare (not safe)) - (##vector-ref _g7081370823_ '1))) - (_e7081970841_ + (##vector-ref _g7081570825_ '1))) + (_e7082170843_ (let () (declare (not safe)) - (##vector-ref _g7081370823_ '2))) - (_e7082070844_ + (##vector-ref _g7081570825_ '2))) + (_e7082270846_ (let () (declare (not safe)) - (##vector-ref _g7081370823_ '3)))) + (##vector-ref _g7081570825_ '3)))) (if (let () (declare (not safe)) - (##eq? _e7082070844_ '0)) - (let ((_e7082170847_ + (##eq? _e7082270846_ '0)) + (let ((_e7082370849_ (let () (declare (not safe)) - (##vector-ref _g7081370823_ '4)))) - (if ((lambda (_g7084970851_) + (##vector-ref _g7081570825_ '4)))) + (if ((lambda (_g7085170853_) (let () (declare (not safe)) - (eq? _g7084970851_ _id70808_))) - _e7082170847_) + (eq? _g7085170853_ _id70810_))) + _e7082370849_) (let () (declare (not safe)) - (_K7081770835_)) + (_K7081970837_)) (let () (declare (not safe)) - (_else7081570831_)))) + (_else7081770833_)))) (let () (declare (not safe)) - (_else7081570831_)))) + (_else7081770833_)))) (let () (declare (not safe)) - (_else7081570831_)))))) - (__tmp74348 + (_else7081770833_)))))) + (__tmp74353 (##structure-ref - _ctx70807_ + _ctx70809_ '9 gx#module-context::t '#f))) (declare (not safe)) - (find __tmp74349 __tmp74348)))) - (if _$e70854_ + (find __tmp74354 __tmp74353)))) + (if _$e70856_ (let () (declare (not safe)) - (gx#core-resolve-module-export _$e70854_)) + (gx#core-resolve-module-export _$e70856_)) '#f)))) (define gxc#find-runtime-symbol - (lambda (_ctx70799_ _id70800_) - (let ((_$e70802_ + (lambda (_ctx70801_ _id70802_) + (let ((_$e70804_ (let () (declare (not safe)) - (gxc#find-export-binding _ctx70799_ _id70800_)))) - (if _$e70802_ - ((lambda (_bind70805_) + (gxc#find-export-binding _ctx70801_ _id70802_)))) + (if _$e70804_ + ((lambda (_bind70807_) (if (let () (declare (not safe)) (##structure-instance-of? - _bind70805_ + _bind70807_ 'gx#runtime-binding::t)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"export is not a runtime binding" - _id70800_))) - (##structure-ref _bind70805_ '1 gx#binding::t '#f)) - _$e70802_) - (let ((__tmp74350 + _id70802_))) + (##structure-ref _bind70807_ '1 gx#binding::t '#f)) + _$e70804_) + (let ((__tmp74355 (##structure-ref - _ctx70799_ + _ctx70801_ '1 gx#expander-context::t '#f))) (declare (not safe)) (gxc#raise-compile-error '"module does not export symbol" - __tmp74350 - _id70800_)))))) + __tmp74355 + _id70802_)))))) (define gxc#find-runtime-module-deps - (lambda (_ctx70686_) - (letrec* ((_ht70688_ + (lambda (_ctx70688_) + (letrec* ((_ht70690_ (let () (declare (not safe)) (make-table 'test: eq?))) - (_import-set-template70689_ - (lambda (_in70751_ _phi70752_) - (let ((_iphi70754_ - (fx+ _phi70752_ + (_import-set-template70691_ + (lambda (_in70753_ _phi70754_) + (let ((_iphi70756_ + (fx+ _phi70754_ (##direct-structure-ref - _in70751_ + _in70753_ '2 gx#import-set::t '#f))) - (_imports70755_ + (_imports70757_ (##structure-ref (##direct-structure-ref - _in70751_ + _in70753_ '1 gx#import-set::t '#f) '8 gx#module-context::t '#f))) - (let _lp70757_ ((_rest70759_ _imports70755_) - (_r70760_ '())) - (let* ((_rest7076170769_ _rest70759_) - (_else7076370777_ (lambda () _r70760_)) - (_K7076570787_ - (lambda (_rest70780_ _in70781_) + (let _lp70759_ ((_rest70761_ _imports70757_) + (_r70762_ '())) + (let* ((_rest7076370771_ _rest70761_) + (_else7076570779_ (lambda () _r70762_)) + (_K7076770789_ + (lambda (_rest70782_ _in70783_) (if (let () (declare (not safe)) (##structure-instance-of? - _in70781_ + _in70783_ 'gx#module-context::t)) (if (let () (declare (not safe)) - (fxzero? _iphi70754_)) - (let ((__tmp74357 + (fxzero? _iphi70756_)) + (let ((__tmp74362 (let () (declare (not safe)) - (cons _in70781_ - _r70760_)))) + (cons _in70783_ + _r70762_)))) (declare (not safe)) - (_lp70757_ - _rest70780_ - __tmp74357)) + (_lp70759_ + _rest70782_ + __tmp74362)) (let () (declare (not safe)) - (_lp70757_ _rest70780_ _r70760_))) + (_lp70759_ _rest70782_ _r70762_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in70781_ + _in70783_ 'gx#module-import::t)) - (let ((_iphi70783_ - (fx+ _phi70752_ + (let ((_iphi70785_ + (fx+ _phi70754_ (##direct-structure-ref - _in70781_ + _in70783_ '3 gx#module-import::t '#f)))) (if (let () (declare (not safe)) - (fxzero? _iphi70783_)) - (let ((__tmp74355 - (let ((__tmp74356 + (fxzero? _iphi70785_)) + (let ((__tmp74360 + (let ((__tmp74361 (##direct-structure-ref (##direct-structure-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _in70781_ + _in70783_ '1 gx#module-import::t '#f) @@ -1401,876 +1409,876 @@ gx#module-export::t '#f))) (declare (not safe)) - (cons __tmp74356 _r70760_)))) + (cons __tmp74361 _r70762_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp70757_ - _rest70780_ - __tmp74355)) + (_lp70759_ + _rest70782_ + __tmp74360)) (let () (declare (not safe)) - (_lp70757_ - _rest70780_ - _r70760_)))) + (_lp70759_ + _rest70782_ + _r70762_)))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in70781_ + _in70783_ 'gx#import-set::t)) - (let ((_xphi70785_ - (fx+ _iphi70754_ + (let ((_xphi70787_ + (fx+ _iphi70756_ (##direct-structure-ref - _in70781_ + _in70783_ '2 gx#import-set::t '#f)))) (if (let () (declare (not safe)) - (fxzero? _xphi70785_)) - (let ((__tmp74353 - (let ((__tmp74354 + (fxzero? _xphi70787_)) + (let ((__tmp74358 + (let ((__tmp74359 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##direct-structure-ref - _in70781_ + _in70783_ '1 gx#import-set::t '#f))) (declare (not safe)) - (cons __tmp74354 _r70760_)))) + (cons __tmp74359 _r70762_)))) (declare (not safe)) - (_lp70757_ _rest70780_ __tmp74353)) + (_lp70759_ _rest70782_ __tmp74358)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (fxpositive? - _xphi70785_) - (let ((__tmp74351 - (let ((__tmp74352 + _xphi70787_) + (let ((__tmp74356 + (let ((__tmp74357 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (_import-set-template70689_ - _in70781_ - _iphi70754_)))) + (_import-set-template70691_ + _in70783_ + _iphi70756_)))) (declare (not safe)) - (foldl1 cons _r70760_ __tmp74352)))) + (foldl1 cons _r70762_ __tmp74357)))) (declare (not safe)) - (_lp70757_ _rest70780_ __tmp74351)) + (_lp70759_ _rest70782_ __tmp74356)) (let () (declare (not safe)) - (_lp70757_ _rest70780_ _r70760_))))) + (_lp70759_ _rest70782_ _r70762_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_lp70757_ - _rest70780_ - _r70760_)))))))) + (_lp70759_ + _rest70782_ + _r70762_)))))))) (if (let () (declare (not safe)) - (##pair? _rest7076170769_)) - (let ((_hd7076670790_ + (##pair? _rest7076370771_)) + (let ((_hd7076870792_ (let () (declare (not safe)) - (##car _rest7076170769_))) - (_tl7076770792_ + (##car _rest7076370771_))) + (_tl7076970794_ (let () (declare (not safe)) - (##cdr _rest7076170769_)))) - (let* ((_in70795_ _hd7076670790_) - (_rest70797_ _tl7076770792_)) + (##cdr _rest7076370771_)))) + (let* ((_in70797_ _hd7076870792_) + (_rest70799_ _tl7076970794_)) (declare (not safe)) - (_K7076570787_ _rest70797_ _in70795_))) + (_K7076770789_ _rest70799_ _in70797_))) (let () (declare (not safe)) - (_else7076370777_)))))))) - (_find-deps70690_ - (lambda (_rest70697_ _deps70698_) - (let* ((_rest7069970707_ _rest70697_) - (_else7070170715_ (lambda () _deps70698_)) - (_K7070370739_ - (lambda (_rest70718_ _hd70719_) + (_else7076570779_)))))))) + (_find-deps70692_ + (lambda (_rest70699_ _deps70700_) + (let* ((_rest7070170709_ _rest70699_) + (_else7070370717_ (lambda () _deps70700_)) + (_K7070570741_ + (lambda (_rest70720_ _hd70721_) (if (let () (declare (not safe)) (##structure-instance-of? - _hd70719_ + _hd70721_ 'gx#module-context::t)) - (let ((_id70721_ + (let ((_id70723_ (##structure-ref - _hd70719_ + _hd70721_ '1 gx#expander-context::t '#f)) - (_imports70722_ + (_imports70724_ (##structure-ref - _hd70719_ + _hd70721_ '8 gx#module-context::t '#f))) (if (let () (declare (not safe)) - (table-ref _ht70688_ _id70721_ '#f)) + (table-ref _ht70690_ _id70723_ '#f)) (let () (declare (not safe)) - (_find-deps70690_ - _rest70718_ - _deps70698_)) - (let ((_$e70724_ + (_find-deps70692_ + _rest70720_ + _deps70700_)) + (let ((_$e70726_ (let () (declare (not safe)) (gx#core-context-prelude__% - _hd70719_)))) - (if _$e70724_ - ((lambda (_pre70727_) - (let ((_xdeps70729_ - (let ((__tmp74370 + _hd70721_)))) + (if _$e70726_ + ((lambda (_pre70729_) + (let ((_xdeps70731_ + (let ((__tmp74375 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _pre70727_ _imports70722_)))) + (cons _pre70729_ _imports70724_)))) (declare (not safe)) - (_find-deps70690_ __tmp74370 _deps70698_)))) + (_find-deps70692_ __tmp74375 _deps70700_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) (table-set! - _ht70688_ - _id70721_ - _hd70719_)) - (let ((__tmp74371 + _ht70690_ + _id70723_ + _hd70721_)) + (let ((__tmp74376 (let () (declare (not safe)) - (cons _hd70719_ + (cons _hd70721_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _xdeps70729_)))) + _xdeps70731_)))) (declare (not safe)) - (_find-deps70690_ _rest70718_ __tmp74371)))) + (_find-deps70692_ _rest70720_ __tmp74376)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _$e70724_) - (let ((_xdeps70731_ + _$e70726_) + (let ((_xdeps70733_ (let () (declare (not safe)) - (_find-deps70690_ - _imports70722_ - _deps70698_)))) + (_find-deps70692_ + _imports70724_ + _deps70700_)))) (let () (declare (not safe)) (table-set! - _ht70688_ - _id70721_ - _hd70719_)) - (let ((__tmp74369 + _ht70690_ + _id70723_ + _hd70721_)) + (let ((__tmp74374 (let () (declare (not safe)) - (cons _hd70719_ - _xdeps70731_)))) + (cons _hd70721_ + _xdeps70733_)))) (declare (not safe)) - (_find-deps70690_ - _rest70718_ - __tmp74369))))))) + (_find-deps70692_ + _rest70720_ + __tmp74374))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _hd70719_ + _hd70721_ 'gx#prelude-context::t)) - (let ((_id70733_ + (let ((_id70735_ (##structure-ref - _hd70719_ + _hd70721_ '1 gx#expander-context::t '#f))) (if (let () (declare (not safe)) (table-ref - _ht70688_ - _id70733_ + _ht70690_ + _id70735_ '#f)) (let () (declare (not safe)) - (_find-deps70690_ - _rest70718_ - _deps70698_)) - (let ((_xdeps70735_ - (let ((__tmp74367 + (_find-deps70692_ + _rest70720_ + _deps70700_)) + (let ((_xdeps70737_ + (let ((__tmp74372 (##structure-ref - _hd70719_ + _hd70721_ '7 gx#prelude-context::t '#f))) (declare (not safe)) - (_find-deps70690_ - __tmp74367 - _deps70698_)))) + (_find-deps70692_ + __tmp74372 + _deps70700_)))) (if (let () (declare (not safe)) (table-ref - _ht70688_ - _id70733_ + _ht70690_ + _id70735_ '#f)) (let () (declare (not safe)) - (_find-deps70690_ - _rest70718_ - _xdeps70735_)) + (_find-deps70692_ + _rest70720_ + _xdeps70737_)) (begin (let () (declare (not safe)) (table-set! - _ht70688_ - _id70733_ - _hd70719_)) - (let ((__tmp74368 + _ht70690_ + _id70735_ + _hd70721_)) + (let ((__tmp74373 (let () (declare (not safe)) - (cons _hd70719_ + (cons _hd70721_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _xdeps70735_)))) + _xdeps70737_)))) (declare (not safe)) - (_find-deps70690_ _rest70718_ __tmp74368))))))) + (_find-deps70692_ _rest70720_ __tmp74373))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-direct-instance-of? - _hd70719_ + _hd70721_ 'gx#module-import::t)) - (if (let ((__tmp74366 + (if (let ((__tmp74371 (##direct-structure-ref - _hd70719_ + _hd70721_ '3 gx#module-import::t '#f))) (declare (not safe)) - (fxzero? __tmp74366)) - (let ((__tmp74364 - (let ((__tmp74365 + (fxzero? __tmp74371)) + (let ((__tmp74369 + (let ((__tmp74370 (##direct-structure-ref - _hd70719_ + _hd70721_ '1 gx#module-import::t '#f))) (declare (not safe)) - (cons __tmp74365 - _rest70718_)))) + (cons __tmp74370 + _rest70720_)))) (declare (not safe)) - (_find-deps70690_ - __tmp74364 - _deps70698_)) + (_find-deps70692_ + __tmp74369 + _deps70700_)) (let () (declare (not safe)) - (_find-deps70690_ - _rest70718_ - _deps70698_))) + (_find-deps70692_ + _rest70720_ + _deps70700_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _hd70719_ + _hd70721_ 'gx#module-export::t)) - (let ((__tmp74362 - (let ((__tmp74363 + (let ((__tmp74367 + (let ((__tmp74368 (##direct-structure-ref - _hd70719_ + _hd70721_ '1 gx#module-export::t '#f))) (declare (not safe)) - (cons __tmp74363 - _rest70718_)))) + (cons __tmp74368 + _rest70720_)))) (declare (not safe)) - (_find-deps70690_ - __tmp74362 - _deps70698_)) + (_find-deps70692_ + __tmp74367 + _deps70700_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _hd70719_ + _hd70721_ 'gx#import-set::t)) - (if (let ((__tmp74361 + (if (let ((__tmp74366 (##direct-structure-ref - _hd70719_ + _hd70721_ '2 gx#import-set::t '#f))) (declare (not safe)) - (fxzero? __tmp74361)) - (let ((__tmp74359 - (let ((__tmp74360 + (fxzero? __tmp74366)) + (let ((__tmp74364 + (let ((__tmp74365 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##direct-structure-ref - _hd70719_ + _hd70721_ '1 gx#import-set::t '#f))) (declare (not safe)) - (cons __tmp74360 _rest70718_)))) + (cons __tmp74365 _rest70720_)))) (declare (not safe)) - (_find-deps70690_ __tmp74359 _deps70698_)) + (_find-deps70692_ __tmp74364 _deps70700_)) (if (fxpositive? - (##direct-structure-ref _hd70719_ '2 gx#import-set::t '#f)) - (let* ((_xdeps70737_ + (##direct-structure-ref _hd70721_ '2 gx#import-set::t '#f)) + (let* ((_xdeps70739_ (let () (declare (not safe)) - (_import-set-template70689_ _hd70719_ '0))) - (__tmp74358 + (_import-set-template70691_ _hd70721_ '0))) + (__tmp74363 (let () (declare (not safe)) - (foldl1 cons _rest70718_ _xdeps70737_)))) + (foldl1 cons _rest70720_ _xdeps70739_)))) (declare (not safe)) - (_find-deps70690_ __tmp74358 _deps70698_)) + (_find-deps70692_ __tmp74363 _deps70700_)) (let () (declare (not safe)) - (_find-deps70690_ _rest70718_ _deps70698_)))) + (_find-deps70692_ _rest70720_ _deps70700_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) (error '"Unexpected module import" - _hd70719_)))))))))) + _hd70721_)))))))))) (if (let () (declare (not safe)) - (##pair? _rest7069970707_)) - (let ((_hd7070470742_ + (##pair? _rest7070170709_)) + (let ((_hd7070670744_ (let () (declare (not safe)) - (##car _rest7069970707_))) - (_tl7070570744_ + (##car _rest7070170709_))) + (_tl7070770746_ (let () (declare (not safe)) - (##cdr _rest7069970707_)))) - (let* ((_hd70747_ _hd7070470742_) - (_rest70749_ _tl7070570744_)) + (##cdr _rest7070170709_)))) + (let* ((_hd70749_ _hd7070670744_) + (_rest70751_ _tl7070770746_)) (declare (not safe)) - (_K7070370739_ _rest70749_ _hd70747_))) + (_K7070570741_ _rest70751_ _hd70749_))) (let () (declare (not safe)) - (_else7070170715_))))))) + (_else7070370717_))))))) (reverse (filter gx#expander-context-id - (let ((__tmp74372 - (let ((_$e70692_ + (let ((__tmp74377 + (let ((_$e70694_ (let () (declare (not safe)) (gx#core-context-prelude__% - _ctx70686_)))) - (if _$e70692_ - ((lambda (_pre70695_) - (let ((__tmp74373 + _ctx70688_)))) + (if _$e70694_ + ((lambda (_pre70697_) + (let ((__tmp74378 (##structure-ref - _ctx70686_ + _ctx70688_ '8 gx#module-context::t '#f))) (declare (not safe)) - (cons _pre70695_ __tmp74373))) - _$e70692_) + (cons _pre70697_ __tmp74378))) + _$e70694_) (##structure-ref - _ctx70686_ + _ctx70688_ '8 gx#module-context::t '#f))))) (declare (not safe)) - (_find-deps70690_ __tmp74372 '()))))))) + (_find-deps70692_ __tmp74377 '()))))))) (define gxc#find-static-module-file - (lambda (_ctx70617_) - (let* ((_context-id70619_ + (lambda (_ctx70619_) + (let* ((_context-id70621_ (if (let () (declare (not safe)) (##structure-instance-of? - _ctx70617_ + _ctx70619_ 'gx#module-context::t)) - (##structure-ref _ctx70617_ '1 gx#expander-context::t '#f) - (string->symbol _ctx70617_))) - (_scm70621_ + (##structure-ref _ctx70619_ '1 gx#expander-context::t '#f) + (string->symbol _ctx70619_))) + (_scm70623_ (string-append (let () (declare (not safe)) - (gxc#static-module-name _context-id70619_)) + (gxc#static-module-name _context-id70621_)) '".scm")) - (_dirs70623_ (gx#current-expander-module-library-path)) - (_dirs70629_ - (let ((_user-libpath70625_ (getenv '"GERBIL_PATH" '#f))) - (if _user-libpath70625_ - (let ((_user-libpath70627_ - (path-expand '"lib" _user-libpath70625_))) - (if (member _user-libpath70627_ _dirs70623_) - _dirs70623_ + (_dirs70625_ (gx#current-expander-module-library-path)) + (_dirs70631_ + (let ((_user-libpath70627_ (getenv '"GERBIL_PATH" '#f))) + (if _user-libpath70627_ + (let ((_user-libpath70629_ + (path-expand '"lib" _user-libpath70627_))) + (if (member _user-libpath70629_ _dirs70625_) + _dirs70625_ (let () (declare (not safe)) - (cons _user-libpath70627_ _dirs70623_)))) - _dirs70623_))) - (_dirs70638_ - (let ((_$e70631_ (gxc#current-compile-output-dir))) - (if _$e70631_ - ((lambda (_g7063370635_) + (cons _user-libpath70629_ _dirs70625_)))) + _dirs70625_))) + (_dirs70640_ + (let ((_$e70633_ (gxc#current-compile-output-dir))) + (if _$e70633_ + ((lambda (_g7063570637_) (let () (declare (not safe)) - (cons _g7063370635_ _dirs70629_))) - _$e70631_) - _dirs70629_))) - (_dirs70644_ - (map (lambda (_g7063970641_) - (path-expand '"static" _g7063970641_)) - _dirs70638_))) - (let _lp70647_ ((_rest70649_ _dirs70644_)) - (let* ((_rest7065070658_ _rest70649_) - (_else7065270666_ + (cons _g7063570637_ _dirs70631_))) + _$e70633_) + _dirs70631_))) + (_dirs70646_ + (map (lambda (_g7064170643_) + (path-expand '"static" _g7064170643_)) + _dirs70640_))) + (let _lp70649_ ((_rest70651_ _dirs70646_)) + (let* ((_rest7065270660_ _rest70651_) + (_else7065470668_ (lambda () - (let ((__tmp74374 + (let ((__tmp74379 (##structure-ref - _ctx70617_ + _ctx70619_ '1 gx#expander-context::t '#f))) (declare (not safe)) (gxc#raise-compile-error '"cannot find static module" - __tmp74374 - _scm70621_)))) - (_K7065470674_ - (lambda (_rest70669_ _dir70670_) - (let ((_path70672_ (path-expand _scm70621_ _dir70670_))) - (if (file-exists? _path70672_) - _path70672_ + __tmp74379 + _scm70623_)))) + (_K7065670676_ + (lambda (_rest70671_ _dir70672_) + (let ((_path70674_ (path-expand _scm70623_ _dir70672_))) + (if (file-exists? _path70674_) + _path70674_ (let () (declare (not safe)) - (_lp70647_ _rest70669_))))))) - (if (let () (declare (not safe)) (##pair? _rest7065070658_)) - (let ((_hd7065570677_ + (_lp70649_ _rest70671_))))))) + (if (let () (declare (not safe)) (##pair? _rest7065270660_)) + (let ((_hd7065770679_ (let () (declare (not safe)) - (##car _rest7065070658_))) - (_tl7065670679_ + (##car _rest7065270660_))) + (_tl7065870681_ (let () (declare (not safe)) - (##cdr _rest7065070658_)))) - (let* ((_dir70682_ _hd7065570677_) - (_rest70684_ _tl7065670679_)) + (##cdr _rest7065270660_)))) + (let* ((_dir70684_ _hd7065770679_) + (_rest70686_ _tl7065870681_)) (declare (not safe)) - (_K7065470674_ _rest70684_ _dir70682_))) - (let () (declare (not safe)) (_else7065270666_)))))))) + (_K7065670676_ _rest70686_ _dir70684_))) + (let () (declare (not safe)) (_else7065470668_)))))))) (define gxc#file-empty? - (lambda (_path70615_) - (let ((__tmp74375 (file-info-size (file-info _path70615_ '#t)))) + (lambda (_path70617_) + (let ((__tmp74380 (file-info-size (file-info _path70617_ '#t)))) (declare (not safe)) - (zero? __tmp74375)))) + (zero? __tmp74380)))) (define gxc#compile-top-module - (lambda (_ctx70604_) - (let ((__tmp74379 + (lambda (_ctx70606_) + (let ((__tmp74384 (lambda () - (let ((__tmp74380 + (let ((__tmp74385 (##structure-ref - _ctx70604_ + _ctx70606_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (gxc#verbose '"compile " __tmp74380)) + (gxc#verbose '"compile " __tmp74385)) (if (gxc#current-compile-optimize) (with-lock gxc#+driver-mutex+ (lambda () (let () (declare (not safe)) - (gxc#optimize! _ctx70604_)))) + (gxc#optimize! _ctx70606_)))) '#!void) (let () (declare (not safe)) - (gxc#collect-bindings _ctx70604_)) - (if (let ((__tmp74383 + (gxc#collect-bindings _ctx70606_)) + (if (let ((__tmp74388 (let () (declare (not safe)) - (gxc#lift-nested-modules _ctx70604_)))) + (gxc#lift-nested-modules _ctx70606_)))) (declare (not safe)) - (null? __tmp74383)) - (let* ((_thr170609_ - (let ((__tmp74381 + (null? __tmp74388)) + (let* ((_thr170611_ + (let ((__tmp74386 (lambda () (let () (declare (not safe)) (gxc#compile-runtime-code - _ctx70604_))))) + _ctx70606_))))) (declare (not safe)) - (spawn __tmp74381))) - (_thr270612_ - (let ((__tmp74382 + (spawn __tmp74386))) + (_thr270614_ + (let ((__tmp74387 (lambda () (let () (declare (not safe)) - (gxc#compile-meta-code _ctx70604_))))) + (gxc#compile-meta-code _ctx70606_))))) (declare (not safe)) - (spawn __tmp74382)))) - (let () (declare (not safe)) (gxc#join! _thr170609_)) - (let () (declare (not safe)) (gxc#join! _thr270612_))) + (spawn __tmp74387)))) + (let () (declare (not safe)) (gxc#join! _thr170611_)) + (let () (declare (not safe)) (gxc#join! _thr270614_))) (begin (let () (declare (not safe)) - (gxc#compile-runtime-code _ctx70604_)) + (gxc#compile-runtime-code _ctx70606_)) (let () (declare (not safe)) - (gxc#compile-meta-code _ctx70604_)))) + (gxc#compile-meta-code _ctx70606_)))) (if (and (gxc#current-compile-optimize) (gxc#current-compile-generate-ssxi)) (let () (declare (not safe)) - (gxc#compile-ssxi-code _ctx70604_)) + (gxc#compile-ssxi-code _ctx70606_)) '#!void))) - (__tmp74378 - (let ((__obj74227 (make-object gxc#symbol-table::t '2))) + (__tmp74383 + (let ((__obj74232 (make-object gxc#symbol-table::t '2))) (let () (declare (not safe)) - (gxc#symbol-table:::init! __obj74227)) - __obj74227)) - (__tmp74377 + (gxc#symbol-table:::init! __obj74232)) + __obj74232)) + (__tmp74382 (let () (declare (not safe)) (make-table 'test: eq?))) - (__tmp74376 (let () (declare (not safe)) (make-table)))) + (__tmp74381 (let () (declare (not safe)) (make-table)))) (declare (not safe)) (call-with-parameters - __tmp74379 + __tmp74384 gx#current-expander-context - _ctx70604_ + _ctx70606_ gx#current-expander-phi '0 gx#current-expander-marks '() gxc#current-compile-symbol-table - __tmp74378 + __tmp74383 gxc#current-compile-runtime-sections - __tmp74377 + __tmp74382 gxc#current-compile-runtime-names - __tmp74376)))) + __tmp74381)))) (define gxc#collect-bindings - (lambda (_ctx70602_) - (let ((__tmp74384 - (##structure-ref _ctx70602_ '11 gx#module-context::t '#f))) + (lambda (_ctx70604_) + (let ((__tmp74389 + (##structure-ref _ctx70604_ '11 gx#module-context::t '#f))) (declare (not safe)) - (gxc#apply-collect-bindings __tmp74384)))) + (gxc#apply-collect-bindings __tmp74389)))) (define gxc#compile-runtime-code - (lambda (_ctx70548_) - (letrec ((_compile170550_ - (lambda (_ctx70591_) - (let* ((_code70593_ + (lambda (_ctx70550_) + (letrec ((_compile170552_ + (lambda (_ctx70593_) + (let* ((_code70595_ (##structure-ref - _ctx70591_ + _ctx70593_ '11 gx#module-context::t '#f)) - (_rt70597_ + (_rt70599_ (if (let () (declare (not safe)) - (gxc#apply-find-runtime-code _code70593_)) - (let ((_idstr70595_ - (let ((__tmp74385 + (gxc#apply-find-runtime-code _code70595_)) + (let ((_idstr70597_ + (let ((__tmp74390 (##structure-ref - _ctx70591_ + _ctx70593_ '1 gx#expander-context::t '#f))) (declare (not safe)) (gxc#module-id->path-string - __tmp74385)))) - (string-append _idstr70595_ '"__0")) + __tmp74390)))) + (string-append _idstr70597_ '"__0")) '#f))) - (if _rt70597_ + (if _rt70599_ (begin - (let ((__tmp74386 + (let ((__tmp74391 (gxc#current-compile-runtime-sections))) (declare (not safe)) - (table-set! __tmp74386 _ctx70591_ _rt70597_)) + (table-set! __tmp74391 _ctx70593_ _rt70599_)) (let () (declare (not safe)) - (_generate-runtime-code70552_ - _ctx70591_ - _code70593_))) - (let ((_path70600_ + (_generate-runtime-code70554_ + _ctx70593_ + _code70595_))) + (let ((_path70602_ (let () (declare (not safe)) (gxc#compile-static-output-file - _ctx70591_)))) + _ctx70593_)))) (declare (not safe)) - (gxc#with-output-to-scheme-file _path70600_ void))) + (gxc#with-output-to-scheme-file _path70602_ void))) (let () (declare (not safe)) - (_generate-loader-code70553_ - _ctx70591_ - _code70593_ - _rt70597_))))) - (_context-timestamp70551_ - (lambda (_ctx70589_) + (_generate-loader-code70555_ + _ctx70593_ + _code70595_ + _rt70599_))))) + (_context-timestamp70553_ + (lambda (_ctx70591_) (string->symbol (string-append (symbol->string (##structure-ref - _ctx70589_ + _ctx70591_ '1 gx#expander-context::t '#f)) '"::timestamp")))) - (_generate-runtime-code70552_ - (lambda (_ctx70571_ _code70572_) - (let* ((_lifts70574_ + (_generate-runtime-code70554_ + (lambda (_ctx70573_ _code70574_) + (let* ((_lifts70576_ (let () (declare (not safe)) (box '()))) - (_runtime-code70577_ - (let ((__tmp74389 + (_runtime-code70579_ + (let ((__tmp74394 (lambda () (let () (declare (not safe)) (gxc#apply-generate-runtime - _code70572_)))) - (__tmp74388 + _code70574_)))) + (__tmp74393 (let () (declare (not safe)) (make-table 'test: eq?))) - (__tmp74387 + (__tmp74392 (let () (declare (not safe)) (gxc#make-bound-identifier-table)))) (declare (not safe)) (call-with-parameters - __tmp74389 + __tmp74394 gx#current-expander-context - _ctx70571_ + _ctx70573_ gx#current-expander-phi '0 gxc#current-compile-lift - _lifts70574_ + _lifts70576_ gxc#current-compile-marks - __tmp74388 + __tmp74393 gxc#current-compile-identifiers - __tmp74387))) - (_runtime-code70579_ - (if (let ((__tmp74393 (unbox _lifts70574_))) + __tmp74392))) + (_runtime-code70581_ + (if (let ((__tmp74398 (unbox _lifts70576_))) (declare (not safe)) - (null? __tmp74393)) - _runtime-code70577_ - (let ((__tmp74390 - (let ((__tmp74392 + (null? __tmp74398)) + _runtime-code70579_ + (let ((__tmp74395 + (let ((__tmp74397 (let () (declare (not safe)) - (cons _runtime-code70577_ + (cons _runtime-code70579_ '()))) - (__tmp74391 - (reverse (unbox _lifts70574_)))) + (__tmp74396 + (reverse (unbox _lifts70576_)))) (declare (not safe)) - (foldr1 cons __tmp74392 __tmp74391)))) + (foldr1 cons __tmp74397 __tmp74396)))) (declare (not safe)) - (cons 'begin __tmp74390)))) - (_runtime-code70581_ - (let ((__tmp74394 - (let ((__tmp74396 - (let ((__tmp74397 - (let ((__tmp74400 + (cons 'begin __tmp74395)))) + (_runtime-code70583_ + (let ((__tmp74399 + (let ((__tmp74401 + (let ((__tmp74402 + (let ((__tmp74405 (let () (declare (not safe)) - (_context-timestamp70551_ - _ctx70571_))) - (__tmp74398 - (let ((__tmp74399 + (_context-timestamp70553_ + _ctx70573_))) + (__tmp74403 + (let ((__tmp74404 (gxc#current-compile-timestamp))) (declare (not safe)) - (cons __tmp74399 + (cons __tmp74404 '())))) (declare (not safe)) - (cons __tmp74400 - __tmp74398)))) + (cons __tmp74405 + __tmp74403)))) (declare (not safe)) - (cons 'define __tmp74397))) - (__tmp74395 + (cons 'define __tmp74402))) + (__tmp74400 (let () (declare (not safe)) - (cons _runtime-code70579_ '())))) + (cons _runtime-code70581_ '())))) (declare (not safe)) - (cons __tmp74396 __tmp74395)))) + (cons __tmp74401 __tmp74400)))) (declare (not safe)) - (cons 'begin __tmp74394))) - (_scm070583_ + (cons 'begin __tmp74399))) + (_scm070585_ (let () (declare (not safe)) (gxc#compile-output-file - _ctx70571_ + _ctx70573_ '0 '".scm")))) - (let ((_scms70586_ + (let ((_scms70588_ (let () (declare (not safe)) - (gxc#compile-static-output-file _ctx70571_)))) - (let ((__tmp74401 + (gxc#compile-static-output-file _ctx70573_)))) + (let ((__tmp74406 (lambda () (let () (declare (not safe)) (gxc#compile-scm-file__0 - _scm070583_ - _runtime-code70581_))))) + _scm070585_ + _runtime-code70583_))))) (declare (not safe)) (call-with-parameters - __tmp74401 + __tmp74406 gxc#current-compile-keep-scm '#t)) - (if (file-exists? _scms70586_) - (delete-file _scms70586_) + (if (file-exists? _scms70588_) + (delete-file _scms70588_) '#!void) (let () (declare (not safe)) (gxc#verbose '"copy static module " - _scm070583_ + _scm070585_ '" => " - _scms70586_)) - (copy-file _scm070583_ _scms70586_) + _scms70588_)) + (copy-file _scm070585_ _scms70588_) (if (gxc#current-compile-keep-scm) '#!void - (delete-file _scm070583_)))))) - (_generate-loader-code70553_ - (lambda (_ctx70560_ _code70561_ _rt70562_) - (let* ((_loader-code70565_ - (let ((__tmp74402 + (delete-file _scm070585_)))))) + (_generate-loader-code70555_ + (lambda (_ctx70562_ _code70563_ _rt70564_) + (let* ((_loader-code70567_ + (let ((__tmp74407 (lambda () (let () (declare (not safe)) (gxc#apply-generate-loader - _code70561_))))) + _code70563_))))) (declare (not safe)) (call-with-parameters - __tmp74402 + __tmp74407 gx#current-expander-context - _ctx70560_))) - (_loader-code70567_ - (if _rt70562_ - (let ((__tmp74403 - (let ((__tmp74404 - (let ((__tmp74405 - (let ((__tmp74406 + _ctx70562_))) + (_loader-code70569_ + (if _rt70564_ + (let ((__tmp74408 + (let ((__tmp74409 + (let ((__tmp74410 + (let ((__tmp74411 (let () (declare (not safe)) - (cons _rt70562_ + (cons _rt70564_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons 'load-module __tmp74406)))) + (cons 'load-module __tmp74411)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp74405 '())))) + (cons __tmp74410 '())))) (declare (not safe)) - (cons _loader-code70565_ - __tmp74404)))) + (cons _loader-code70567_ + __tmp74409)))) (declare (not safe)) - (cons 'begin __tmp74403)) - _loader-code70565_))) - (let ((__tmp74407 + (cons 'begin __tmp74408)) + _loader-code70567_))) + (let ((__tmp74412 (lambda () - (let ((__tmp74408 + (let ((__tmp74413 (let () (declare (not safe)) (gxc#compile-output-file - _ctx70560_ + _ctx70562_ 'rt '".scm")))) (declare (not safe)) (gxc#compile-scm-file__0 - __tmp74408 - _loader-code70567_))))) + __tmp74413 + _loader-code70569_))))) (declare (not safe)) (call-with-parameters - __tmp74407 + __tmp74412 gxc#current-compile-gsc-options '#f)))))) - (let ((_all-modules70555_ - (let ((__tmp74409 + (let ((_all-modules70557_ + (let ((__tmp74414 (let () (declare (not safe)) - (gxc#lift-nested-modules _ctx70548_)))) + (gxc#lift-nested-modules _ctx70550_)))) (declare (not safe)) - (cons _ctx70548_ __tmp74409)))) + (cons _ctx70550_ __tmp74414)))) (for-each - (lambda (_ctx70557_) - (let ((__tmp74410 + (lambda (_ctx70559_) + (let ((__tmp74415 (lambda () (let () (declare (not safe)) - (_compile170550_ _ctx70557_))))) + (_compile170552_ _ctx70559_))))) (declare (not safe)) (call-with-parameters - __tmp74410 + __tmp74415 gxc#current-compile-decls '()))) - _all-modules70555_))))) + _all-modules70557_))))) (define gxc#compile-meta-code - (lambda (_ctx70445_) - (letrec ((_compile-ssi70447_ - (lambda (_code70518_) - (let* ((_path70520_ + (lambda (_ctx70447_) + (letrec ((_compile-ssi70449_ + (lambda (_code70520_) + (let* ((_path70522_ (let () (declare (not safe)) (gxc#compile-output-file - _ctx70445_ + _ctx70447_ '#f '".ssi"))) - (_prelude70531_ - (let* ((_super70522_ + (_prelude70533_ + (let* ((_super70524_ (##structure-ref - _ctx70445_ + _ctx70447_ '3 gx#phi-context::t '#f)) - (_$e70524_ + (_$e70526_ (##structure-ref - _super70522_ + _super70524_ '1 gx#expander-context::t '#f))) - (if _$e70524_ - ((lambda (_g7052670528_) - (make-symbol '":" _g7052670528_)) - _$e70524_) + (if _$e70526_ + ((lambda (_g7052870530_) + (make-symbol '":" _g7052870530_)) + _$e70526_) ':))) - (_ns70533_ + (_ns70535_ (##structure-ref - _ctx70445_ + _ctx70447_ '6 gx#module-context::t '#f)) - (_idstr70535_ + (_idstr70537_ (symbol->string (##structure-ref - _ctx70445_ + _ctx70447_ '1 gx#expander-context::t '#f))) - (_pkg70542_ - (let ((_$e70537_ + (_pkg70544_ + (let ((_$e70539_ (let () (declare (not safe)) - (string-rindex _idstr70535_ '#\/)))) - (if _$e70537_ - ((lambda (_x70540_) + (string-rindex _idstr70537_ '#\/)))) + (if _$e70539_ + ((lambda (_x70542_) (string->symbol - (substring _idstr70535_ '0 _x70540_))) - _$e70537_) + (substring _idstr70537_ '0 _x70542_))) + _$e70539_) '#f))) - (_rt70544_ - (let ((__tmp74411 + (_rt70546_ + (let ((__tmp74416 (gxc#current-compile-runtime-sections))) (declare (not safe)) - (table-ref __tmp74411 _ctx70445_ '#f)))) + (table-ref __tmp74416 _ctx70447_ '#f)))) (let () (declare (not safe)) - (gxc#verbose '"compile " _path70520_)) - (let ((__tmp74412 + (gxc#verbose '"compile " _path70522_)) + (let ((__tmp74417 (lambda () (let () (declare (not safe)) - (displayln '"prelude:" '" " _prelude70531_)) - (if _pkg70542_ + (displayln '"prelude:" '" " _prelude70533_)) + (if _pkg70544_ (let () (declare (not safe)) - (displayln '"package:" '" " _pkg70542_)) + (displayln '"package:" '" " _pkg70544_)) '#!void) (let () (declare (not safe)) - (displayln '"namespace:" '" " _ns70533_)) + (displayln '"namespace:" '" " _ns70535_)) (newline) - (pretty-print _code70518_) - (if _rt70544_ + (pretty-print _code70520_) + (if _rt70546_ (pretty-print - (let ((__tmp74413 - (let ((__tmp74417 - (let ((__tmp74418 + (let ((__tmp74418 + (let ((__tmp74422 + (let ((__tmp74423 (let () (declare (not safe)) (cons 'load-module @@ -2278,893 +2286,899 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#ref __tmp74418))) - (__tmp74414 - (let ((__tmp74415 - (let ((__tmp74416 + (cons '%#ref __tmp74423))) + (__tmp74419 + (let ((__tmp74420 + (let ((__tmp74421 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _rt70544_ '())))) + (cons _rt70546_ '())))) (declare (not safe)) - (cons '%#quote __tmp74416)))) + (cons '%#quote __tmp74421)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp74415 '())))) + (cons __tmp74420 '())))) (declare (not safe)) - (cons __tmp74417 __tmp74414)))) + (cons __tmp74422 __tmp74419)))) (declare (not safe)) - (cons '%#call __tmp74413))) + (cons '%#call __tmp74418))) '#!void)))) (declare (not safe)) (gxc#with-output-to-scheme-file - _path70520_ - __tmp74412))))) - (_compile-phi70448_ - (lambda (_part70458_) - (let* ((_part7045970472_ _part70458_) - (_E7046170476_ + _path70522_ + __tmp74417))))) + (_compile-phi70450_ + (lambda (_part70460_) + (let* ((_part7046170474_ _part70460_) + (_E7046370478_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _part7045970472_)))) - (_K7046270487_ - (lambda (_code70479_ - _n70480_ - _phi70481_ - _phi-ctx70482_) - (let* ((_code70485_ - (let ((__tmp74419 + _part7046170474_)))) + (_K7046470489_ + (lambda (_code70481_ + _n70482_ + _phi70483_ + _phi-ctx70484_) + (let* ((_code70487_ + (let ((__tmp74424 (lambda () (let () (declare (not safe)) (gxc#generate-runtime-phi - _code70479_))))) + _code70481_))))) (declare (not safe)) (call-with-parameters - __tmp74419 + __tmp74424 gx#current-expander-context - _phi-ctx70482_ + _phi-ctx70484_ gx#current-expander-phi - _phi70481_))) - (__tmp74420 + _phi70483_))) + (__tmp74425 (let () (declare (not safe)) (gxc#compile-output-file - _ctx70445_ - _n70480_ + _ctx70447_ + _n70482_ '".scm")))) (declare (not safe)) (gxc#compile-scm-file__% - __tmp74420 - _code70485_ + __tmp74425 + _code70487_ '#t))))) (if (let () (declare (not safe)) - (##pair? _part7045970472_)) - (let ((_hd7046370490_ + (##pair? _part7046170474_)) + (let ((_hd7046570492_ (let () (declare (not safe)) - (##car _part7045970472_))) - (_tl7046470492_ + (##car _part7046170474_))) + (_tl7046670494_ (let () (declare (not safe)) - (##cdr _part7045970472_)))) - (let ((_phi-ctx70495_ _hd7046370490_)) + (##cdr _part7046170474_)))) + (let ((_phi-ctx70497_ _hd7046570492_)) (if (let () (declare (not safe)) - (##pair? _tl7046470492_)) - (let ((_hd7046570497_ + (##pair? _tl7046670494_)) + (let ((_hd7046770499_ (let () (declare (not safe)) - (##car _tl7046470492_))) - (_tl7046670499_ + (##car _tl7046670494_))) + (_tl7046870501_ (let () (declare (not safe)) - (##cdr _tl7046470492_)))) - (let ((_phi70502_ _hd7046570497_)) + (##cdr _tl7046670494_)))) + (let ((_phi70504_ _hd7046770499_)) (if (let () (declare (not safe)) - (##pair? _tl7046670499_)) - (let ((_hd7046770504_ + (##pair? _tl7046870501_)) + (let ((_hd7046970506_ (let () (declare (not safe)) - (##car _tl7046670499_))) - (_tl7046870506_ + (##car _tl7046870501_))) + (_tl7047070508_ (let () (declare (not safe)) - (##cdr _tl7046670499_)))) - (let ((_n70509_ _hd7046770504_)) + (##cdr _tl7046870501_)))) + (let ((_n70511_ _hd7046970506_)) (if (let () (declare (not safe)) - (##pair? _tl7046870506_)) - (let ((_hd7046970511_ + (##pair? _tl7047070508_)) + (let ((_hd7047170513_ (let () (declare (not safe)) - (##car _tl7046870506_))) - (_tl7047070513_ + (##car _tl7047070508_))) + (_tl7047270515_ (let () (declare (not safe)) - (##cdr _tl7046870506_)))) - (let ((_code70516_ - _hd7046970511_)) + (##cdr _tl7047070508_)))) + (let ((_code70518_ + _hd7047170513_)) (if (let () (declare (not safe)) - (##null? _tl7047070513_)) + (##null? _tl7047270515_)) (let () (declare (not safe)) - (_K7046270487_ - _code70516_ - _n70509_ - _phi70502_ - _phi-ctx70495_)) + (_K7046470489_ + _code70518_ + _n70511_ + _phi70504_ + _phi-ctx70497_)) (let () (declare (not safe)) - (_E7046170476_))))) + (_E7046370478_))))) (let () (declare (not safe)) - (_E7046170476_))))) + (_E7046370478_))))) (let () (declare (not safe)) - (_E7046170476_))))) + (_E7046370478_))))) (let () (declare (not safe)) - (_E7046170476_))))) - (let () (declare (not safe)) (_E7046170476_))))))) - (let ((_g74421_ + (_E7046370478_))))) + (let () (declare (not safe)) (_E7046370478_))))))) + (let ((_g74426_ (let () (declare (not safe)) - (gxc#generate-meta-code _ctx70445_)))) + (gxc#generate-meta-code _ctx70447_)))) (begin - (let ((_g74422_ + (let ((_g74427_ (let () (declare (not safe)) - (if (##values? _g74421_) - (##vector-length _g74421_) + (if (##values? _g74426_) + (##vector-length _g74426_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g74422_ 2))) - (error "Context expects 2 values" _g74422_))) - (let ((_ssi-code70450_ - (let () (declare (not safe)) (##vector-ref _g74421_ 0))) - (_phi-code70451_ - (let () (declare (not safe)) (##vector-ref _g74421_ 1)))) + (if (not (let () (declare (not safe)) (##fx= _g74427_ 2))) + (error "Context expects 2 values" _g74427_))) + (let ((_ssi-code70452_ + (let () (declare (not safe)) (##vector-ref _g74426_ 0))) + (_phi-code70453_ + (let () (declare (not safe)) (##vector-ref _g74426_ 1)))) (begin (let () (declare (not safe)) - (_compile-ssi70447_ _ssi-code70450_)) - (let ((_threads70456_ - (map (lambda (_code70453_) - (let ((__tmp74423 + (_compile-ssi70449_ _ssi-code70452_)) + (let ((_threads70458_ + (map (lambda (_code70455_) + (let ((__tmp74428 (lambda () (let () (declare (not safe)) - (_compile-phi70448_ _code70453_))))) + (_compile-phi70450_ _code70455_))))) (declare (not safe)) - (spawn __tmp74423))) - _phi-code70451_))) - (for-each gxc#join! _threads70456_))))))))) + (spawn __tmp74428))) + _phi-code70453_))) + (for-each gxc#join! _threads70458_))))))))) (define gxc#compile-ssxi-code - (lambda (_ctx70428_) - (let* ((_path70430_ + (lambda (_ctx70430_) + (let* ((_path70432_ (let () (declare (not safe)) - (gxc#compile-output-file _ctx70428_ '#f '".ssxi.ss"))) - (_code70432_ - (let ((__tmp74424 + (gxc#compile-output-file _ctx70430_ '#f '".ssxi.ss"))) + (_code70434_ + (let ((__tmp74429 (##structure-ref - _ctx70428_ + _ctx70430_ '11 gx#module-context::t '#f))) (declare (not safe)) - (gxc#apply-generate-ssxi __tmp74424))) - (_idstr70434_ + (gxc#apply-generate-ssxi __tmp74429))) + (_idstr70436_ (symbol->string - (##structure-ref _ctx70428_ '1 gx#expander-context::t '#f))) - (_pkg70441_ - (let ((_$e70436_ + (##structure-ref _ctx70430_ '1 gx#expander-context::t '#f))) + (_pkg70443_ + (let ((_$e70438_ (let () (declare (not safe)) - (string-rindex _idstr70434_ '#\/)))) - (if _$e70436_ - ((lambda (_x70439_) - (string->symbol (substring _idstr70434_ '0 _x70439_))) - _$e70436_) + (string-rindex _idstr70436_ '#\/)))) + (if _$e70438_ + ((lambda (_x70441_) + (string->symbol (substring _idstr70436_ '0 _x70441_))) + _$e70438_) '#f)))) - (let () (declare (not safe)) (gxc#verbose '"compile " _path70430_)) - (let ((__tmp74425 + (let () (declare (not safe)) (gxc#verbose '"compile " _path70432_)) + (let ((__tmp74430 (lambda () (let () (declare (not safe)) (displayln '"prelude: :gerbil/compiler/ssxi")) - (if _pkg70441_ + (if _pkg70443_ (let () (declare (not safe)) - (displayln '"package: " _pkg70441_)) + (displayln '"package: " _pkg70443_)) '#!void) (newline) - (pretty-print _code70432_)))) + (pretty-print _code70434_)))) (declare (not safe)) - (gxc#with-output-to-scheme-file _path70430_ __tmp74425))))) + (gxc#with-output-to-scheme-file _path70432_ __tmp74430))))) (define gxc#generate-meta-code - (lambda (_ctx70421_) - (let* ((_state70423_ - (let ((__obj74228 (make-object gxc#meta-state::t '4))) + (lambda (_ctx70423_) + (let* ((_state70425_ + (let ((__obj74233 (make-object gxc#meta-state::t '4))) (let () (declare (not safe)) - (gxc#meta-state:::init! __obj74228 _ctx70421_)) - __obj74228)) - (_ssi-code70425_ - (let ((__tmp74426 + (gxc#meta-state:::init! __obj74233 _ctx70423_)) + __obj74233)) + (_ssi-code70427_ + (let ((__tmp74431 (##structure-ref - _ctx70421_ + _ctx70423_ '11 gx#module-context::t '#f))) (declare (not safe)) - (gxc#apply-generate-meta __tmp74426 _state70423_)))) - (values _ssi-code70425_ + (gxc#apply-generate-meta __tmp74431 _state70425_)))) + (values _ssi-code70427_ (let () (declare (not safe)) - (gxc#meta-state-end! _state70423_)))))) + (gxc#meta-state-end! _state70425_)))))) (define gxc#generate-runtime-phi - (lambda (_stx70414_) - (let ((_lifts70416_ (let () (declare (not safe)) (box '())))) - (let ((__tmp74429 + (lambda (_stx70416_) + (let ((_lifts70418_ (let () (declare (not safe)) (box '())))) + (let ((__tmp74434 (lambda () - (let ((_code70419_ + (let ((_code70421_ (let () (declare (not safe)) - (gxc#apply-generate-runtime-phi _stx70414_)))) - (if (let ((__tmp74433 (unbox _lifts70416_))) + (gxc#apply-generate-runtime-phi _stx70416_)))) + (if (let ((__tmp74438 (unbox _lifts70418_))) (declare (not safe)) - (null? __tmp74433)) - _code70419_ - (let ((__tmp74430 - (let ((__tmp74432 + (null? __tmp74438)) + _code70421_ + (let ((__tmp74435 + (let ((__tmp74437 (let () (declare (not safe)) - (cons _code70419_ '()))) - (__tmp74431 - (reverse (unbox _lifts70416_)))) + (cons _code70421_ '()))) + (__tmp74436 + (reverse (unbox _lifts70418_)))) (declare (not safe)) - (foldr1 cons __tmp74432 __tmp74431)))) + (foldr1 cons __tmp74437 __tmp74436)))) (declare (not safe)) - (cons 'begin __tmp74430)))))) - (__tmp74428 + (cons 'begin __tmp74435)))))) + (__tmp74433 (let () (declare (not safe)) (make-table 'test: eq?))) - (__tmp74427 + (__tmp74432 (let () (declare (not safe)) (gxc#make-bound-identifier-table)))) (declare (not safe)) (call-with-parameters - __tmp74429 + __tmp74434 gxc#current-compile-lift - _lifts70416_ + _lifts70418_ gxc#current-compile-marks - __tmp74428 + __tmp74433 gxc#current-compile-identifiers - __tmp74427))))) + __tmp74432))))) (define gxc#lift-nested-modules - (lambda (_ctx70410_) - (let ((_modules70412_ (let () (declare (not safe)) (box '())))) - (let ((__tmp74434 - (##structure-ref _ctx70410_ '11 gx#module-context::t '#f))) + (lambda (_ctx70412_) + (let ((_modules70414_ (let () (declare (not safe)) (box '())))) + (let ((__tmp74439 + (##structure-ref _ctx70412_ '11 gx#module-context::t '#f))) (declare (not safe)) - (gxc#apply-lift-modules __tmp74434 _modules70412_)) - (reverse (unbox _modules70412_))))) + (gxc#apply-lift-modules __tmp74439 _modules70414_)) + (reverse (unbox _modules70414_))))) (define gxc#compile-scm-file__% - (lambda (_path70393_ _code70394_ _phi?70395_) - (let () (declare (not safe)) (gxc#verbose '"compile " _path70393_)) - (let ((__tmp74435 + (lambda (_path70395_ _code70396_ _phi?70397_) + (let () (declare (not safe)) (gxc#verbose '"compile " _path70395_)) + (let ((__tmp74440 (lambda () (pretty-print - (let ((__tmp74436 - (let ((__tmp74443 + (let ((__tmp74441 + (let ((__tmp74448 (let () (declare (not safe)) (cons 'block '()))) - (__tmp74437 - (let ((__tmp74442 + (__tmp74442 + (let ((__tmp74447 (let () (declare (not safe)) (cons 'standard-bindings '()))) - (__tmp74438 - (let ((__tmp74441 + (__tmp74443 + (let ((__tmp74446 (let () (declare (not safe)) (cons 'extended-bindings '()))) - (__tmp74439 - (let ((__tmp74440 - (if _phi?70395_ + (__tmp74444 + (let ((__tmp74445 + (if _phi?70397_ '((inlining-limit 200)) '()))) (declare (not safe)) - (foldr1 cons '() __tmp74440)))) + (foldr1 cons '() __tmp74445)))) (declare (not safe)) - (cons __tmp74441 __tmp74439)))) + (cons __tmp74446 __tmp74444)))) (declare (not safe)) - (cons __tmp74442 __tmp74438)))) + (cons __tmp74447 __tmp74443)))) (declare (not safe)) - (cons __tmp74443 __tmp74437)))) + (cons __tmp74448 __tmp74442)))) (declare (not safe)) - (cons 'declare __tmp74436))) - (pretty-print _code70394_)))) + (cons 'declare __tmp74441))) + (pretty-print _code70396_)))) (declare (not safe)) - (gxc#with-output-to-scheme-file _path70393_ __tmp74435)) + (gxc#with-output-to-scheme-file _path70395_ __tmp74440)) (if (gxc#current-compile-invoke-gsc) (let () (declare (not safe)) - (gxc#gsc-compile-file _path70393_ _phi?70395_)) + (gxc#gsc-compile-file _path70395_ _phi?70397_)) '#!void) - (if (gxc#current-compile-keep-scm) '#!void (delete-file _path70393_)))) + (if (gxc#current-compile-keep-scm) '#!void (delete-file _path70395_)))) (define gxc#compile-scm-file__0 - (lambda (_path70401_ _code70402_) - (let ((_phi?70404_ '#f)) + (lambda (_path70403_ _code70404_) + (let ((_phi?70406_ '#f)) (declare (not safe)) - (gxc#compile-scm-file__% _path70401_ _code70402_ _phi?70404_)))) + (gxc#compile-scm-file__% _path70403_ _code70404_ _phi?70406_)))) (define gxc#compile-scm-file - (lambda _g74445_ - (let ((_g74444_ (let () (declare (not safe)) (##length _g74445_)))) - (cond ((let () (declare (not safe)) (##fx= _g74444_ 2)) - (apply (lambda (_path70401_ _code70402_) + (lambda _g74450_ + (let ((_g74449_ (let () (declare (not safe)) (##length _g74450_)))) + (cond ((let () (declare (not safe)) (##fx= _g74449_ 2)) + (apply (lambda (_path70403_ _code70404_) (let () (declare (not safe)) - (gxc#compile-scm-file__0 _path70401_ _code70402_))) - _g74445_)) - ((let () (declare (not safe)) (##fx= _g74444_ 3)) - (apply (lambda (_path70406_ _code70407_ _phi?70408_) + (gxc#compile-scm-file__0 _path70403_ _code70404_))) + _g74450_)) + ((let () (declare (not safe)) (##fx= _g74449_ 3)) + (apply (lambda (_path70408_ _code70409_ _phi?70410_) (let () (declare (not safe)) (gxc#compile-scm-file__% - _path70406_ - _code70407_ - _phi?70408_))) - _g74445_)) + _path70408_ + _code70409_ + _phi?70410_))) + _g74450_)) (else (##raise-wrong-number-of-arguments-exception gxc#compile-scm-file - _g74445_)))))) + _g74450_)))))) (define gxc#gsc-debug-options__% - (lambda (_phi?70313_) + (lambda (_phi?70315_) (if (gxc#current-compile-debug) - (if _phi?70313_ + (if _phi?70315_ '() - (let ((__tmp74446 - (let ((__tmp74447 - (let ((__tmp74448 + (let ((__tmp74451 + (let ((__tmp74452 + (let ((__tmp74453 (let () (declare (not safe)) (cons '"-g" '())))) (declare (not safe)) - (cons '"-cc-options" __tmp74448)))) + (cons '"-cc-options" __tmp74453)))) (declare (not safe)) - (cons '"-track-scheme" __tmp74447)))) + (cons '"-track-scheme" __tmp74452)))) (declare (not safe)) - (cons '"-debug-source" __tmp74446))) + (cons '"-debug-source" __tmp74451))) '()))) (define gxc#gsc-debug-options__0 (lambda () - (let ((_phi?70388_ '#f)) + (let ((_phi?70390_ '#f)) (declare (not safe)) - (gxc#gsc-debug-options__% _phi?70388_)))) + (gxc#gsc-debug-options__% _phi?70390_)))) (define gxc#gsc-debug-options - (lambda _g74450_ - (let ((_g74449_ (let () (declare (not safe)) (##length _g74450_)))) - (cond ((let () (declare (not safe)) (##fx= _g74449_ 0)) + (lambda _g74455_ + (let ((_g74454_ (let () (declare (not safe)) (##length _g74455_)))) + (cond ((let () (declare (not safe)) (##fx= _g74454_ 0)) (apply (lambda () (let () (declare (not safe)) (gxc#gsc-debug-options__0))) - _g74450_)) - ((let () (declare (not safe)) (##fx= _g74449_ 1)) - (apply (lambda (_phi?70390_) + _g74455_)) + ((let () (declare (not safe)) (##fx= _g74454_ 1)) + (apply (lambda (_phi?70392_) (let () (declare (not safe)) - (gxc#gsc-debug-options__% _phi?70390_))) - _g74450_)) + (gxc#gsc-debug-options__% _phi?70392_))) + _g74455_)) (else (##raise-wrong-number-of-arguments-exception gxc#gsc-debug-options - _g74450_)))))) + _g74455_)))))) (define gxc#gsc-link-options - (lambda (_phi?70222_) - (let _lp70224_ ((_rest70226_ (gxc#current-compile-gsc-options)) - (_opts70227_ '())) - (let* ((_rest7022870248_ _rest70226_) - (_else7023270256_ + (lambda (_phi?70224_) + (let _lp70226_ ((_rest70228_ (gxc#current-compile-gsc-options)) + (_opts70229_ '())) + (let* ((_rest7023070250_ _rest70228_) + (_else7023470258_ (lambda () - (let ((__tmp74452 (reverse _opts70227_)) - (__tmp74451 + (let ((__tmp74457 (reverse _opts70229_)) + (__tmp74456 (let () (declare (not safe)) - (gxc#gsc-debug-options__% _phi?70222_)))) + (gxc#gsc-debug-options__% _phi?70224_)))) (declare (not safe)) - (foldr1 cons __tmp74452 __tmp74451))))) - (let ((_K7024270299_ - (lambda (_rest70297_) + (foldr1 cons __tmp74457 __tmp74456))))) + (let ((_K7024470301_ + (lambda (_rest70299_) (let () (declare (not safe)) - (_lp70224_ _rest70297_ _opts70227_)))) - (_K7023770281_ - (lambda (_rest70279_) + (_lp70226_ _rest70299_ _opts70229_)))) + (_K7023970283_ + (lambda (_rest70281_) (let () (declare (not safe)) - (_lp70224_ _rest70279_ _opts70227_)))) - (_K7023470263_ - (lambda (_rest70260_ _opt70261_) - (let ((__tmp74453 + (_lp70226_ _rest70281_ _opts70229_)))) + (_K7023670265_ + (lambda (_rest70262_ _opt70263_) + (let ((__tmp74458 (let () (declare (not safe)) - (cons _opt70261_ _opts70227_)))) + (cons _opt70263_ _opts70229_)))) (declare (not safe)) - (_lp70224_ _rest70260_ __tmp74453))))) - (if (let () (declare (not safe)) (##pair? _rest7022870248_)) - (let ((_tl7024470304_ + (_lp70226_ _rest70262_ __tmp74458))))) + (if (let () (declare (not safe)) (##pair? _rest7023070250_)) + (let ((_tl7024670306_ (let () (declare (not safe)) - (##cdr _rest7022870248_))) - (_hd7024370302_ + (##cdr _rest7023070250_))) + (_hd7024570304_ (let () (declare (not safe)) - (##car _rest7022870248_)))) + (##car _rest7023070250_)))) (if (let () (declare (not safe)) - (equal? _hd7024370302_ '"-cc-options")) + (equal? _hd7024570304_ '"-cc-options")) (if (let () (declare (not safe)) - (##pair? _tl7024470304_)) - (let* ((_tl7024670307_ + (##pair? _tl7024670306_)) + (let* ((_tl7024870309_ (let () (declare (not safe)) - (##cdr _tl7024470304_))) - (_rest70310_ _tl7024670307_)) + (##cdr _tl7024670306_))) + (_rest70312_ _tl7024870309_)) (declare (not safe)) - (_K7024270299_ _rest70310_)) - (let ((_opt70271_ _hd7024370302_) - (_rest70273_ _tl7024470304_)) + (_K7024470301_ _rest70312_)) + (let ((_opt70273_ _hd7024570304_) + (_rest70275_ _tl7024670306_)) (let () (declare (not safe)) - (_K7023470263_ _rest70273_ _opt70271_)))) + (_K7023670265_ _rest70275_ _opt70273_)))) (if (let () (declare (not safe)) - (equal? _hd7024370302_ '"-ld-options")) + (equal? _hd7024570304_ '"-ld-options")) (if (let () (declare (not safe)) - (##pair? _tl7024470304_)) - (let* ((_tl7024170289_ + (##pair? _tl7024670306_)) + (let* ((_tl7024370291_ (let () (declare (not safe)) - (##cdr _tl7024470304_))) - (_rest70292_ _tl7024170289_)) + (##cdr _tl7024670306_))) + (_rest70294_ _tl7024370291_)) (declare (not safe)) - (_K7023770281_ _rest70292_)) - (let ((_opt70271_ _hd7024370302_) - (_rest70273_ _tl7024470304_)) + (_K7023970283_ _rest70294_)) + (let ((_opt70273_ _hd7024570304_) + (_rest70275_ _tl7024670306_)) (let () (declare (not safe)) - (_K7023470263_ _rest70273_ _opt70271_)))) - (let ((_opt70271_ _hd7024370302_) - (_rest70273_ _tl7024470304_)) + (_K7023670265_ _rest70275_ _opt70273_)))) + (let ((_opt70273_ _hd7024570304_) + (_rest70275_ _tl7024670306_)) (let () (declare (not safe)) - (_K7023470263_ _rest70273_ _opt70271_)))))) - (let () (declare (not safe)) (_else7023270256_)))))))) + (_K7023670265_ _rest70275_ _opt70273_)))))) + (let () (declare (not safe)) (_else7023470258_)))))))) (define gxc#gsc-cc-options (lambda () - (let _lp70134_ ((_rest70136_ (gxc#current-compile-gsc-options)) - (_opts70137_ '())) - (let* ((_rest7013870158_ _rest70136_) - (_else7014270166_ (lambda () (reverse _opts70137_)))) - (let ((_K7015270205_ - (lambda (_rest70202_ _opt70203_) - (let ((__tmp74454 - (let ((__tmp74455 + (let _lp70136_ ((_rest70138_ (gxc#current-compile-gsc-options)) + (_opts70139_ '())) + (let* ((_rest7014070160_ _rest70138_) + (_else7014470168_ (lambda () (reverse _opts70139_)))) + (let ((_K7015470207_ + (lambda (_rest70204_ _opt70205_) + (let ((__tmp74459 + (let ((__tmp74460 (let () (declare (not safe)) - (cons '"-cc-options" _opts70137_)))) + (cons '"-cc-options" _opts70139_)))) (declare (not safe)) - (cons _opt70203_ __tmp74455)))) + (cons _opt70205_ __tmp74460)))) (declare (not safe)) - (_lp70134_ _rest70202_ __tmp74454)))) - (_K7014770186_ - (lambda (_rest70184_) + (_lp70136_ _rest70204_ __tmp74459)))) + (_K7014970188_ + (lambda (_rest70186_) (let () (declare (not safe)) - (_lp70134_ _rest70184_ _opts70137_)))) - (_K7014470172_ - (lambda (_rest70170_) + (_lp70136_ _rest70186_ _opts70139_)))) + (_K7014670174_ + (lambda (_rest70172_) (let () (declare (not safe)) - (_lp70134_ _rest70170_ _opts70137_))))) - (if (let () (declare (not safe)) (##pair? _rest7013870158_)) - (let ((_tl7015470210_ + (_lp70136_ _rest70172_ _opts70139_))))) + (if (let () (declare (not safe)) (##pair? _rest7014070160_)) + (let ((_tl7015670212_ (let () (declare (not safe)) - (##cdr _rest7013870158_))) - (_hd7015370208_ + (##cdr _rest7014070160_))) + (_hd7015570210_ (let () (declare (not safe)) - (##car _rest7013870158_)))) + (##car _rest7014070160_)))) (if (let () (declare (not safe)) - (equal? _hd7015370208_ '"-cc-options")) + (equal? _hd7015570210_ '"-cc-options")) (if (let () (declare (not safe)) - (##pair? _tl7015470210_)) - (let ((_tl7015670215_ + (##pair? _tl7015670212_)) + (let ((_tl7015870217_ (let () (declare (not safe)) - (##cdr _tl7015470210_))) - (_hd7015570213_ + (##cdr _tl7015670212_))) + (_hd7015770215_ (let () (declare (not safe)) - (##car _tl7015470210_)))) - (let ((_opt70218_ _hd7015570213_) - (_rest70220_ _tl7015670215_)) + (##car _tl7015670212_)))) + (let ((_opt70220_ _hd7015770215_) + (_rest70222_ _tl7015870217_)) (let () (declare (not safe)) - (_K7015270205_ _rest70220_ _opt70218_)))) - (let ((_rest70178_ _tl7015470210_)) + (_K7015470207_ _rest70222_ _opt70220_)))) + (let ((_rest70180_ _tl7015670212_)) (declare (not safe)) - (_K7014470172_ _rest70178_))) + (_K7014670174_ _rest70180_))) (if (let () (declare (not safe)) - (equal? _hd7015370208_ '"-ld-options")) + (equal? _hd7015570210_ '"-ld-options")) (if (let () (declare (not safe)) - (##pair? _tl7015470210_)) - (let* ((_tl7015170194_ + (##pair? _tl7015670212_)) + (let* ((_tl7015370196_ (let () (declare (not safe)) - (##cdr _tl7015470210_))) - (_rest70197_ _tl7015170194_)) + (##cdr _tl7015670212_))) + (_rest70199_ _tl7015370196_)) (declare (not safe)) - (_K7014770186_ _rest70197_)) - (let ((_rest70178_ _tl7015470210_)) + (_K7014970188_ _rest70199_)) + (let ((_rest70180_ _tl7015670212_)) (declare (not safe)) - (_K7014470172_ _rest70178_))) - (let ((_rest70178_ _tl7015470210_)) + (_K7014670174_ _rest70180_))) + (let ((_rest70180_ _tl7015670212_)) (declare (not safe)) - (_K7014470172_ _rest70178_))))) - (let () (declare (not safe)) (_else7014270166_)))))))) + (_K7014670174_ _rest70180_))))) + (let () (declare (not safe)) (_else7014470168_)))))))) (define gxc#gcc-ld-options (lambda () - (let _lp70045_ ((_rest70047_ (gxc#current-compile-gsc-options)) - (_opts70048_ '())) - (let* ((_rest7004970069_ _rest70047_) - (_else7005370077_ (lambda () _opts70048_))) - (let ((_K7006370120_ - (lambda (_rest70118_) + (let _lp70047_ ((_rest70049_ (gxc#current-compile-gsc-options)) + (_opts70050_ '())) + (let* ((_rest7005170071_ _rest70049_) + (_else7005570079_ (lambda () _opts70050_))) + (let ((_K7006570122_ + (lambda (_rest70120_) (let () (declare (not safe)) - (_lp70045_ _rest70118_ _opts70048_)))) - (_K7005870098_ - (lambda (_rest70095_ _opt70096_) - (let ((__tmp74456 - (append _opts70048_ + (_lp70047_ _rest70120_ _opts70050_)))) + (_K7006070100_ + (lambda (_rest70097_ _opt70098_) + (let ((__tmp74461 + (append _opts70050_ (filter gxc#not-string-empty? (let () (declare (not safe)) (string-split - _opt70096_ + _opt70098_ '#\space)))))) (declare (not safe)) - (_lp70045_ _rest70095_ __tmp74456)))) - (_K7005570083_ - (lambda (_rest70081_) + (_lp70047_ _rest70097_ __tmp74461)))) + (_K7005770085_ + (lambda (_rest70083_) (let () (declare (not safe)) - (_lp70045_ _rest70081_ _opts70048_))))) - (if (let () (declare (not safe)) (##pair? _rest7004970069_)) - (let ((_tl7006570125_ + (_lp70047_ _rest70083_ _opts70050_))))) + (if (let () (declare (not safe)) (##pair? _rest7005170071_)) + (let ((_tl7006770127_ (let () (declare (not safe)) - (##cdr _rest7004970069_))) - (_hd7006470123_ + (##cdr _rest7005170071_))) + (_hd7006670125_ (let () (declare (not safe)) - (##car _rest7004970069_)))) + (##car _rest7005170071_)))) (if (let () (declare (not safe)) - (equal? _hd7006470123_ '"-cc-options")) + (equal? _hd7006670125_ '"-cc-options")) (if (let () (declare (not safe)) - (##pair? _tl7006570125_)) - (let* ((_tl7006770128_ + (##pair? _tl7006770127_)) + (let* ((_tl7006970130_ (let () (declare (not safe)) - (##cdr _tl7006570125_))) - (_rest70131_ _tl7006770128_)) + (##cdr _tl7006770127_))) + (_rest70133_ _tl7006970130_)) (declare (not safe)) - (_K7006370120_ _rest70131_)) - (let ((_rest70089_ _tl7006570125_)) + (_K7006570122_ _rest70133_)) + (let ((_rest70091_ _tl7006770127_)) (declare (not safe)) - (_K7005570083_ _rest70089_))) + (_K7005770085_ _rest70091_))) (if (let () (declare (not safe)) - (equal? _hd7006470123_ '"-ld-options")) + (equal? _hd7006670125_ '"-ld-options")) (if (let () (declare (not safe)) - (##pair? _tl7006570125_)) - (let ((_tl7006270108_ + (##pair? _tl7006770127_)) + (let ((_tl7006470110_ (let () (declare (not safe)) - (##cdr _tl7006570125_))) - (_hd7006170106_ + (##cdr _tl7006770127_))) + (_hd7006370108_ (let () (declare (not safe)) - (##car _tl7006570125_)))) - (let ((_opt70111_ _hd7006170106_) - (_rest70113_ _tl7006270108_)) + (##car _tl7006770127_)))) + (let ((_opt70113_ _hd7006370108_) + (_rest70115_ _tl7006470110_)) (let () (declare (not safe)) - (_K7005870098_ _rest70113_ _opt70111_)))) - (let ((_rest70089_ _tl7006570125_)) + (_K7006070100_ _rest70115_ _opt70113_)))) + (let ((_rest70091_ _tl7006770127_)) (declare (not safe)) - (_K7005570083_ _rest70089_))) - (let ((_rest70089_ _tl7006570125_)) + (_K7005770085_ _rest70091_))) + (let ((_rest70091_ _tl7006770127_)) (declare (not safe)) - (_K7005570083_ _rest70089_))))) - (let () (declare (not safe)) (_else7005370077_)))))))) + (_K7005770085_ _rest70091_))))) + (let () (declare (not safe)) (_else7005570079_)))))))) (define gxc#not-string-empty? - (lambda (_str70042_) - (let ((__tmp74457 - (let () (declare (not safe)) (string-empty? _str70042_)))) + (lambda (_str70044_) + (let ((__tmp74462 + (let () (declare (not safe)) (string-empty? _str70044_)))) (declare (not safe)) - (not __tmp74457)))) + (not __tmp74462)))) (define gxc#gsc-compile-file - (lambda (_path70010_ _phi?70011_) - (letrec ((_gsc-link-path70013_ - (lambda (_base-path70034_) - (let _lp70036_ ((_n70038_ '1)) - (let ((_path70040_ + (lambda (_path70012_ _phi?70013_) + (letrec ((_gsc-link-path70015_ + (lambda (_base-path70036_) + (let _lp70038_ ((_n70040_ '1)) + (let ((_path70042_ (string-append - _base-path70034_ + _base-path70036_ '".o" - (number->string _n70038_)))) - (if (file-exists? _path70040_) - (let ((__tmp74458 + (number->string _n70040_)))) + (if (file-exists? _path70042_) + (let ((__tmp74463 (let () (declare (not safe)) - (+ _n70038_ '1)))) + (+ _n70040_ '1)))) (declare (not safe)) - (_lp70036_ __tmp74458)) - _path70040_)))))) - (let* ((_base-path70015_ (path-strip-extension _path70010_)) - (_path-c70017_ (string-append _base-path70015_ '".c")) - (_path-o70019_ (string-append _base-path70015_ '".o")) - (_link-path70021_ + (_lp70038_ __tmp74463)) + _path70042_)))))) + (let* ((_base-path70017_ (path-strip-extension _path70012_)) + (_path-c70019_ (string-append _base-path70017_ '".c")) + (_path-o70021_ (string-append _base-path70017_ '".o")) + (_link-path70023_ (let () (declare (not safe)) - (_gsc-link-path70013_ _base-path70015_))) - (_link-path-c70023_ (string-append _link-path70021_ '".c")) - (_link-path-o70025_ (string-append _link-path70021_ '".o")) - (_gsc-link-opts70027_ + (_gsc-link-path70015_ _base-path70017_))) + (_link-path-c70025_ (string-append _link-path70023_ '".c")) + (_link-path-o70027_ (string-append _link-path70023_ '".o")) + (_gsc-link-opts70029_ (let () (declare (not safe)) - (gxc#gsc-link-options _phi?70011_))) - (_gsc-cc-opts70029_ + (gxc#gsc-link-options _phi?70013_))) + (_gsc-cc-opts70031_ (let () (declare (not safe)) (gxc#gsc-cc-options))) - (_gcc-ld-opts70031_ + (_gcc-ld-opts70033_ (let () (declare (not safe)) (gxc#gcc-ld-options)))) - (let ((__tmp74465 (let () (declare (not safe)) (gxc#gerbil-gsc))) - (__tmp74459 - (let ((__tmp74460 - (let ((__tmp74461 - (let ((__tmp74462 - (let ((__tmp74463 - (let ((__tmp74464 + (let ((__tmp74470 (let () (declare (not safe)) (gxc#gerbil-gsc))) + (__tmp74464 + (let ((__tmp74465 + (let ((__tmp74466 + (let ((__tmp74467 + (let ((__tmp74468 + (let ((__tmp74469 (let () (declare (not safe)) - (cons _path70010_ + (cons _path70012_ '())))) (declare (not safe)) (foldr1 cons - __tmp74464 - _gsc-link-opts70027_)))) + __tmp74469 + _gsc-link-opts70029_)))) (declare (not safe)) - (cons _link-path-c70023_ - __tmp74463)))) + (cons _link-path-c70025_ + __tmp74468)))) (declare (not safe)) - (cons '"-o" __tmp74462)))) + (cons '"-o" __tmp74467)))) (declare (not safe)) - (cons '"-flat" __tmp74461)))) + (cons '"-flat" __tmp74466)))) (declare (not safe)) - (cons '"-link" __tmp74460)))) + (cons '"-link" __tmp74465)))) (declare (not safe)) - (gxc#invoke__% '#f '#t absent-value __tmp74465 __tmp74459)) - (let ((__tmp74472 (let () (declare (not safe)) (gxc#gerbil-gsc))) - (__tmp74466 - (let ((__tmp74467 - (let ((__tmp74468 - (let ((__tmp74469 - (let ((__tmp74470 - (let ((__tmp74471 + (gxc#invoke__% '#f '#t absent-value __tmp74470 __tmp74464)) + (let ((__tmp74477 (let () (declare (not safe)) (gxc#gerbil-gsc))) + (__tmp74471 + (let ((__tmp74472 + (let ((__tmp74473 + (let ((__tmp74474 + (let ((__tmp74475 + (let ((__tmp74476 (let () (declare (not safe)) - (cons _link-path-c70023_ + (cons _link-path-c70025_ '())))) (declare (not safe)) - (cons _path-c70017_ - __tmp74471)))) + (cons _path-c70019_ + __tmp74476)))) (declare (not safe)) (foldr1 cons - __tmp74470 - _gsc-cc-opts70029_)))) + __tmp74475 + _gsc-cc-opts70031_)))) (declare (not safe)) - (cons '"-D___DYNAMIC" __tmp74469)))) + (cons '"-D___DYNAMIC" __tmp74474)))) (declare (not safe)) - (cons '"-cc-options" __tmp74468)))) + (cons '"-cc-options" __tmp74473)))) (declare (not safe)) - (cons '"-obj" __tmp74467)))) + (cons '"-obj" __tmp74472)))) (declare (not safe)) - (gxc#invoke__% '#f '#t absent-value __tmp74472 __tmp74466)) - (let ((__tmp74478 (let () (declare (not safe)) (gxc#gerbil-gcc))) - (__tmp74473 - (let ((__tmp74474 - (let ((__tmp74475 - (let ((__tmp74476 - (let ((__tmp74477 + (gxc#invoke__% '#f '#t absent-value __tmp74477 __tmp74471)) + (let ((__tmp74483 (let () (declare (not safe)) (gxc#gerbil-gcc))) + (__tmp74478 + (let ((__tmp74479 + (let ((__tmp74480 + (let ((__tmp74481 + (let ((__tmp74482 (let () (declare (not safe)) - (cons _link-path-o70025_ - _gcc-ld-opts70031_)))) + (cons _link-path-o70027_ + _gcc-ld-opts70033_)))) (declare (not safe)) - (cons _path-o70019_ __tmp74477)))) + (cons _path-o70021_ __tmp74482)))) (declare (not safe)) - (cons _link-path70021_ __tmp74476)))) + (cons _link-path70023_ __tmp74481)))) (declare (not safe)) - (cons '"-o" __tmp74475)))) + (cons '"-o" __tmp74480)))) (declare (not safe)) - (cons '"-shared" __tmp74474)))) + (cons '"-shared" __tmp74479)))) (declare (not safe)) (gxc#invoke__% '#f absent-value absent-value - __tmp74478 - __tmp74473)) + __tmp74483 + __tmp74478)) (for-each delete-file - (let ((__tmp74479 - (let ((__tmp74480 - (let ((__tmp74481 + (let ((__tmp74484 + (let ((__tmp74485 + (let ((__tmp74486 (let () (declare (not safe)) - (cons _link-path-o70025_ '())))) + (cons _link-path-o70027_ '())))) (declare (not safe)) - (cons _link-path-c70023_ __tmp74481)))) + (cons _link-path-c70025_ __tmp74486)))) (declare (not safe)) - (cons _path-o70019_ __tmp74480)))) + (cons _path-o70021_ __tmp74485)))) (declare (not safe)) - (cons _path-c70017_ __tmp74479))))))) + (cons _path-c70019_ __tmp74484))))))) (define gxc#compile-output-file - (lambda (_ctx69982_ _n69983_ _ext69984_) - (letrec ((_module-relative-path69986_ - (lambda (_ctx70008_) + (lambda (_ctx69983_ _n69984_ _ext69985_) + (letrec ((_module-relative-path69987_ + (lambda (_ctx70010_) (path-strip-directory - (let ((__tmp74482 + (let ((__tmp74487 (##structure-ref - _ctx70008_ + _ctx70010_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (gxc#module-id->path-string __tmp74482))))) - (_module-source-directory69987_ - (lambda (_ctx70004_) + (gxc#module-id->path-string __tmp74487))))) + (_module-source-directory69988_ + (lambda (_ctx70006_) (path-directory - (let ((_mpath70006_ + (let ((_mpath70008_ (##structure-ref - _ctx70004_ + _ctx70006_ '7 gx#module-context::t '#f))) - (if (let () (declare (not safe)) (string? _mpath70006_)) - _mpath70006_ + (if (let () (declare (not safe)) (string? _mpath70008_)) + _mpath70008_ (let () (declare (not safe)) - (last _mpath70006_))))))) - (_section-string69988_ - (lambda (_n70002_) - (if (let () (declare (not safe)) (number? _n70002_)) - (number->string _n70002_) - (if (let () (declare (not safe)) (symbol? _n70002_)) - (symbol->string _n70002_) + (last _mpath70008_))))))) + (_section-string69989_ + (lambda (_n70004_) + (if (let () (declare (not safe)) (number? _n70004_)) + (number->string _n70004_) + (if (let () (declare (not safe)) (symbol? _n70004_)) + (symbol->string _n70004_) (if (let () (declare (not safe)) - (string? _n70002_)) - _n70002_ + (string? _n70004_)) + _n70004_ (let () (declare (not safe)) (gxc#raise-compile-error '"Unexpected section" - _n70002_))))))) - (_file-name69989_ - (lambda (_path70000_) - (if _n69983_ + _n70004_))))))) + (_file-name69990_ + (lambda (_path70002_) + (if _n69984_ (string-append - _path70000_ + _path70002_ '"__" (let () (declare (not safe)) - (_section-string69988_ _n69983_)) - _ext69984_) - (string-append _path70000_ _ext69984_)))) - (_file-path69990_ + (_section-string69989_ _n69984_)) + _ext69985_) + (string-append _path70002_ _ext69985_)))) + (_file-path69991_ (lambda () - (let ((_$e69995_ (gxc#current-compile-output-dir))) - (if _$e69995_ - ((lambda (_outdir69998_) + (let ((_$e69997_ (gxc#current-compile-output-dir))) + (if _$e69997_ + ((lambda (_outdir70000_) (path-expand - (let ((__tmp74484 - (let ((__tmp74485 + (let ((__tmp74489 + (let ((__tmp74490 (##structure-ref - _ctx69982_ + _ctx69983_ '1 gx#expander-context::t '#f))) (declare (not safe)) (gxc#module-id->path-string - __tmp74485)))) + __tmp74490)))) (declare (not safe)) - (_file-name69989_ __tmp74484)) - _outdir69998_)) - _$e69995_) + (_file-name69990_ __tmp74489)) + _outdir70000_)) + _$e69997_) (path-expand - (let ((__tmp74483 + (let ((__tmp74488 (let () (declare (not safe)) - (_module-relative-path69986_ _ctx69982_)))) + (_module-relative-path69987_ _ctx69983_)))) (declare (not safe)) - (_file-name69989_ __tmp74483)) + (_file-name69990_ __tmp74488)) (let () (declare (not safe)) - (_module-source-directory69987_ _ctx69982_)))))))) - (let ((_path69992_ (let () (declare (not safe)) (_file-path69990_)))) - (let ((__tmp74486 (path-directory _path69992_))) - (declare (not safe)) - (create-directory* __tmp74486)) - _path69992_)))) + (_module-source-directory69988_ _ctx69983_)))))))) + (let ((_path69993_ (let () (declare (not safe)) (_file-path69991_)))) + (with-lock + gxc#+driver-mutex+ + (lambda () + (let ((__tmp74491 (path-directory _path69993_))) + (declare (not safe)) + (create-directory* __tmp74491)))) + _path69993_)))) (define gxc#compile-static-output-file (lambda (_ctx69965_) (letrec ((_file-name69967_ - (lambda (_id69980_) + (lambda (_id69981_) (string-append (let () (declare (not safe)) - (gxc#static-module-name _id69980_)) + (gxc#static-module-name _id69981_)) '".scm"))) (_file-path69968_ (lambda () - (let* ((_file69973_ - (let ((__tmp74487 + (let* ((_file69974_ + (let ((__tmp74492 (##structure-ref _ctx69965_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (_file-name69967_ __tmp74487))) - (_$e69975_ (gxc#current-compile-output-dir))) - (if _$e69975_ - ((lambda (_outdir69978_) + (_file-name69967_ __tmp74492))) + (_$e69976_ (gxc#current-compile-output-dir))) + (if _$e69976_ + ((lambda (_outdir69979_) (path-expand - _file69973_ - (path-expand '"static" _outdir69978_))) - _$e69975_) - (path-expand _file69973_ '"static")))))) + _file69974_ + (path-expand '"static" _outdir69979_))) + _$e69976_) + (path-expand _file69974_ '"static")))))) (let ((_path69970_ (let () (declare (not safe)) (_file-path69968_)))) - (let ((__tmp74488 (path-directory _path69970_))) - (declare (not safe)) - (create-directory* __tmp74488)) + (with-lock + gxc#+driver-mutex+ + (lambda () + (let ((__tmp74493 (path-directory _path69970_))) + (declare (not safe)) + (create-directory* __tmp74493)))) _path69970_)))) (define gxc#compile-exe-output-file (lambda (_ctx69952_ _opts69953_) @@ -3206,14 +3220,14 @@ (string-split _str69947_ '#\/)))) (let () (declare (not safe)) (string-join _strs69949_ '"__"))) (if (let () (declare (not safe)) (symbol? _idstr69945_)) - (let ((__tmp74489 (symbol->string _idstr69945_))) + (let ((__tmp74494 (symbol->string _idstr69945_))) (declare (not safe)) - (gxc#static-module-name __tmp74489)) + (gxc#static-module-name __tmp74494)) (let () (declare (not safe)) (error '"Bad module id" _idstr69945_)))))) (define gxc#invoke__% - (lambda (_g74490_ + (lambda (_g74495_ _stdout-redirection6990969913_ _stderr-redirection6991069915_ _program69917_ @@ -3230,41 +3244,41 @@ (eq? _stderr-redirection6991069915_ absent-value)) '#f _stderr-redirection6991069915_))) - (let ((__tmp74491 + (let ((__tmp74496 (let () (declare (not safe)) (cons _program69917_ _args69918_)))) (declare (not safe)) - (gxc#verbose '"invoke " __tmp74491)) + (gxc#verbose '"invoke " __tmp74496)) (let ((_proc69924_ (open-process - (let ((__tmp74492 - (let ((__tmp74493 - (let ((__tmp74494 - (let ((__tmp74495 - (let ((__tmp74496 - (let ((__tmp74497 - (let ((__tmp74498 + (let ((__tmp74497 + (let ((__tmp74498 + (let ((__tmp74499 + (let ((__tmp74500 + (let ((__tmp74501 + (let ((__tmp74502 + (let ((__tmp74503 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _stderr-redirection69922_ '())))) (declare (not safe)) - (cons 'stderr-redirection: __tmp74498)))) + (cons 'stderr-redirection: __tmp74503)))) (declare (not safe)) - (cons _stdout-redirection69920_ __tmp74497)))) + (cons _stdout-redirection69920_ __tmp74502)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons 'stdout-redirection: - __tmp74496)))) + __tmp74501)))) (declare (not safe)) - (cons _args69918_ __tmp74495)))) + (cons _args69918_ __tmp74500)))) (declare (not safe)) - (cons 'arguments: __tmp74494)))) + (cons 'arguments: __tmp74499)))) (declare (not safe)) - (cons _program69917_ __tmp74493)))) + (cons _program69917_ __tmp74498)))) (declare (not safe)) - (cons 'path: __tmp74492))))) + (cons 'path: __tmp74497))))) (if (or _stdout-redirection69920_ _stderr-redirection69922_) (read-line _proc69924_ '#f) '#!void) @@ -3302,18 +3316,18 @@ _args6991169942_))) (define gxc#join! (lambda (_thread69902_) - (let ((__tmp74500 + (let ((__tmp74505 (lambda (_exn69904_) (if (let () (declare (not safe)) (uncaught-exception? _exn69904_)) - (let ((__tmp74501 + (let ((__tmp74506 (let () (declare (not safe)) (uncaught-exception-reason _exn69904_)))) (declare (not safe)) - (raise __tmp74501)) + (raise __tmp74506)) (let () (declare (not safe)) (raise _exn69904_))))) - (__tmp74499 (lambda () (thread-join! _thread69902_)))) + (__tmp74504 (lambda () (thread-join! _thread69902_)))) (declare (not safe)) - (with-catch __tmp74500 __tmp74499)))))) + (with-catch __tmp74505 __tmp74504)))))) diff --git a/src/bootstrap/gerbil/compiler/driver__1.scm b/src/bootstrap/gerbil/compiler/driver__1.scm index 905a02759..ce22163ac 100644 --- a/src/bootstrap/gerbil/compiler/driver__1.scm +++ b/src/bootstrap/gerbil/compiler/driver__1.scm @@ -41,42 +41,42 @@ (declare (not safe)) (gx#stx-null? _tl6978569817_)) ((lambda (_L69820_) - (let ((__tmp74509 + (let ((__tmp74514 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'with-lock))) - (__tmp74502 - (let ((__tmp74508 + (__tmp74507 + (let ((__tmp74513 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '+driver-mutex+))) - (__tmp74503 - (let ((__tmp74504 - (let ((__tmp74507 + (__tmp74508 + (let ((__tmp74509 + (let ((__tmp74512 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lambda))) - (__tmp74505 - (let ((__tmp74506 + (__tmp74510 + (let ((__tmp74511 (let () (declare (not safe)) (cons _L69820_ '())))) (declare (not safe)) - (cons '() __tmp74506)))) + (cons '() __tmp74511)))) (declare (not safe)) - (cons __tmp74507 __tmp74505)))) + (cons __tmp74512 __tmp74510)))) (declare (not safe)) - (cons __tmp74504 '())))) + (cons __tmp74509 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp74508 __tmp74503)))) + (cons __tmp74513 __tmp74508)))) (declare (not safe)) - (cons __tmp74509 __tmp74502))) + (cons __tmp74514 __tmp74507))) _hd6978669814_) (_g6977969793_ _g6978069797_)))) (_g6977969793_ _g6978069797_)))) @@ -123,34 +123,34 @@ (declare (not safe)) (gx#stx-null? _tl6984969881_)) ((lambda (_L69884_) - (let ((__tmp74515 + (let ((__tmp74520 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'spawn))) - (__tmp74510 - (let ((__tmp74511 - (let ((__tmp74514 + (__tmp74515 + (let ((__tmp74516 + (let ((__tmp74519 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lambda))) - (__tmp74512 - (let ((__tmp74513 + (__tmp74517 + (let ((__tmp74518 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _L69884_ '())))) (declare (not safe)) - (cons '() __tmp74513)))) + (cons '() __tmp74518)))) (declare (not safe)) - (cons __tmp74514 __tmp74512)))) + (cons __tmp74519 __tmp74517)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp74511 '())))) + (cons __tmp74516 '())))) (declare (not safe)) - (cons __tmp74515 __tmp74510))) + (cons __tmp74520 __tmp74515))) _hd6985069878_) (_g6984369857_ _g6984469861_)))) (_g6984369857_ _g6984469861_)))) diff --git a/src/bootstrap/gerbil/compiler/optimize-ann__0.scm b/src/bootstrap/gerbil/compiler/optimize-ann__0.scm index e6db424c4..e4909ec19 100644 --- a/src/bootstrap/gerbil/compiler/optimize-ann__0.scm +++ b/src/bootstrap/gerbil/compiler/optimize-ann__0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize-ann::timestamp 1696399081) + (define gerbil/compiler/optimize-ann::timestamp 1696439810) (begin (declare (inlining-limit 200)) (define gxc#&optmize-annotated diff --git a/src/bootstrap/gerbil/compiler/optimize-base__0.scm b/src/bootstrap/gerbil/compiler/optimize-base__0.scm index 3466dedc4..3ce34470e 100644 --- a/src/bootstrap/gerbil/compiler/optimize-base__0.scm +++ b/src/bootstrap/gerbil/compiler/optimize-base__0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize-base::timestamp 1696399078) + (define gerbil/compiler/optimize-base::timestamp 1696439807) (begin (define gxc#current-compile-optimizer-info (make-parameter '#f)) (define gxc#current-compile-mutators (make-parameter '#f)) diff --git a/src/bootstrap/gerbil/compiler/optimize-call__0.scm b/src/bootstrap/gerbil/compiler/optimize-call__0.scm index 4d06aa1c8..7df9d42fb 100644 --- a/src/bootstrap/gerbil/compiler/optimize-call__0.scm +++ b/src/bootstrap/gerbil/compiler/optimize-call__0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize-call::timestamp 1696399083) + (define gerbil/compiler/optimize-call::timestamp 1696439812) (begin (define gxc#&optimize-call (make-promise diff --git a/src/bootstrap/gerbil/compiler/optimize-spec__0.scm b/src/bootstrap/gerbil/compiler/optimize-spec__0.scm index fca5b0da5..128367b7d 100644 --- a/src/bootstrap/gerbil/compiler/optimize-spec__0.scm +++ b/src/bootstrap/gerbil/compiler/optimize-spec__0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize-spec::timestamp 1696399080) + (define gerbil/compiler/optimize-spec::timestamp 1696439809) (begin (define gxc#&generate-method-specializers (make-promise diff --git a/src/bootstrap/gerbil/compiler/optimize-top__0.scm b/src/bootstrap/gerbil/compiler/optimize-top__0.scm index f03610a1b..3f67fd611 100644 --- a/src/bootstrap/gerbil/compiler/optimize-top__0.scm +++ b/src/bootstrap/gerbil/compiler/optimize-top__0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize-top::timestamp 1696399078) + (define gerbil/compiler/optimize-top::timestamp 1696439807) (begin (define gxc#&collect-top-level-type-info (make-promise diff --git a/src/bootstrap/gerbil/compiler/optimize-xform__0.scm b/src/bootstrap/gerbil/compiler/optimize-xform__0.scm index 10a53dfed..aeed9beaf 100644 --- a/src/bootstrap/gerbil/compiler/optimize-xform__0.scm +++ b/src/bootstrap/gerbil/compiler/optimize-xform__0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize-xform::timestamp 1696399078) + (define gerbil/compiler/optimize-xform::timestamp 1696439807) (begin (define gxc#&identity-expression (make-promise diff --git a/src/bootstrap/gerbil/compiler/optimize__0.scm b/src/bootstrap/gerbil/compiler/optimize__0.scm index 0f85a1a5b..2c4254066 100644 --- a/src/bootstrap/gerbil/compiler/optimize__0.scm +++ b/src/bootstrap/gerbil/compiler/optimize__0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize::timestamp 1696399083) + (define gerbil/compiler/optimize::timestamp 1696439812) (begin (define gxc#optimizer-info-init! (lambda () diff --git a/src/bootstrap/gerbil/compiler/ssxi__1.scm b/src/bootstrap/gerbil/compiler/ssxi__1.scm index 8e1a82fc1..4d537db1d 100644 --- a/src/bootstrap/gerbil/compiler/ssxi__1.scm +++ b/src/bootstrap/gerbil/compiler/ssxi__1.scm @@ -1,5728 +1,5728 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin (define |gxc[:0:]#declare-type| - (lambda (_$stx74519_) - (let* ((_g7452374541_ - (lambda (_g7452474537_) + (lambda (_$stx74524_) + (let* ((_g7452874546_ + (lambda (_g7452974542_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g7452474537_)))) - (_g7452274596_ - (lambda (_g7452474545_) - (if (let () (declare (not safe)) (gx#stx-pair? _g7452474545_)) - (let ((_e7452974548_ + (gx#raise-syntax-error '#f '"Bad syntax" _g7452974542_)))) + (_g7452774601_ + (lambda (_g7452974550_) + (if (let () (declare (not safe)) (gx#stx-pair? _g7452974550_)) + (let ((_e7453474553_ (let () (declare (not safe)) - (gx#syntax-e _g7452474545_)))) - (let ((_hd7452874552_ + (gx#syntax-e _g7452974550_)))) + (let ((_hd7453374557_ (let () (declare (not safe)) - (##car _e7452974548_))) - (_tl7452774555_ + (##car _e7453474553_))) + (_tl7453274560_ (let () (declare (not safe)) - (##cdr _e7452974548_)))) + (##cdr _e7453474553_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl7452774555_)) - (let ((_e7453274558_ + (gx#stx-pair? _tl7453274560_)) + (let ((_e7453774563_ (let () (declare (not safe)) - (gx#syntax-e _tl7452774555_)))) - (let ((_hd7453174562_ + (gx#syntax-e _tl7453274560_)))) + (let ((_hd7453674567_ (let () (declare (not safe)) - (##car _e7453274558_))) - (_tl7453074565_ + (##car _e7453774563_))) + (_tl7453574570_ (let () (declare (not safe)) - (##cdr _e7453274558_)))) + (##cdr _e7453774563_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl7453074565_)) - (let ((_e7453574568_ + (gx#stx-pair? _tl7453574570_)) + (let ((_e7454074573_ (let () (declare (not safe)) - (gx#syntax-e _tl7453074565_)))) - (let ((_hd7453474572_ + (gx#syntax-e _tl7453574570_)))) + (let ((_hd7453974577_ (let () (declare (not safe)) - (##car _e7453574568_))) - (_tl7453374575_ + (##car _e7454074573_))) + (_tl7453874580_ (let () (declare (not safe)) - (##cdr _e7453574568_)))) + (##cdr _e7454074573_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl7453374575_)) - ((lambda (_L74578_ _L74580_) + (gx#stx-null? _tl7453874580_)) + ((lambda (_L74583_ _L74585_) (if (let () (declare (not safe)) - (gx#identifier? _L74580_)) - (let ((__tmp79603 + (gx#identifier? _L74585_)) + (let ((__tmp79608 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'optimizer-declare-type!))) - (__tmp79598 - (let ((__tmp79600 + (__tmp79603 + (let ((__tmp79605 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp79602 + (let ((__tmp79607 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp79601 + (__tmp79606 (let () (declare (not safe)) - (cons _L74580_ '())))) + (cons _L74585_ '())))) (declare (not safe)) - (cons __tmp79602 __tmp79601))) - (__tmp79599 - (let () (declare (not safe)) (cons _L74578_ '())))) + (cons __tmp79607 __tmp79606))) + (__tmp79604 + (let () (declare (not safe)) (cons _L74583_ '())))) (declare (not safe)) - (cons __tmp79600 __tmp79599)))) + (cons __tmp79605 __tmp79604)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp79603 - __tmp79598)) - (_g7452374541_ - _g7452474545_))) - _hd7453474572_ - _hd7453174562_) - (_g7452374541_ _g7452474545_)))) - (_g7452374541_ _g7452474545_)))) - (_g7452374541_ _g7452474545_)))) - (_g7452374541_ _g7452474545_))))) - (_g7452274596_ _$stx74519_)))) + (cons __tmp79608 + __tmp79603)) + (_g7452874546_ + _g7452974550_))) + _hd7453974577_ + _hd7453674567_) + (_g7452874546_ _g7452974550_)))) + (_g7452874546_ _g7452974550_)))) + (_g7452874546_ _g7452974550_)))) + (_g7452874546_ _g7452974550_))))) + (_g7452774601_ _$stx74524_)))) (define |gxc[:0:]#declare-type*| - (lambda (_$stx74600_) - (let* ((_g7460474633_ - (lambda (_g7460574629_) + (lambda (_$stx74605_) + (let* ((_g7460974638_ + (lambda (_g7461074634_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g7460574629_)))) - (_g7460374733_ - (lambda (_g7460574637_) - (if (let () (declare (not safe)) (gx#stx-pair? _g7460574637_)) - (let ((_e7461074640_ + (gx#raise-syntax-error '#f '"Bad syntax" _g7461074634_)))) + (_g7460874738_ + (lambda (_g7461074642_) + (if (let () (declare (not safe)) (gx#stx-pair? _g7461074642_)) + (let ((_e7461574645_ (let () (declare (not safe)) - (gx#syntax-e _g7460574637_)))) - (let ((_hd7460974644_ + (gx#syntax-e _g7461074642_)))) + (let ((_hd7461474649_ (let () (declare (not safe)) - (##car _e7461074640_))) - (_tl7460874647_ + (##car _e7461574645_))) + (_tl7461374652_ (let () (declare (not safe)) - (##cdr _e7461074640_)))) + (##cdr _e7461574645_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl7460874647_)) - (let ((_g79604_ + (gx#stx-pair/null? _tl7461374652_)) + (let ((_g79609_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl7460874647_ + _tl7461374652_ '0)))) (begin - (let ((_g79605_ + (let ((_g79610_ (let () (declare (not safe)) - (if (##values? _g79604_) - (##vector-length _g79604_) + (if (##values? _g79609_) + (##vector-length _g79609_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g79605_ 2))) + (##fx= _g79610_ 2))) (error "Context expects 2 values" - _g79605_))) - (let ((_target7461174650_ + _g79610_))) + (let ((_target7461674655_ (let () (declare (not safe)) - (##vector-ref _g79604_ 0))) - (_tl7461374653_ + (##vector-ref _g79609_ 0))) + (_tl7461874658_ (let () (declare (not safe)) - (##vector-ref _g79604_ 1)))) + (##vector-ref _g79609_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl7461374653_)) - (letrec ((_loop7461474656_ - (lambda (_hd7461274660_ - _type7461874663_ - _symbol7461974665_) + (gx#stx-null? _tl7461874658_)) + (letrec ((_loop7461974661_ + (lambda (_hd7461774665_ + _type7462374668_ + _symbol7462474670_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd7461274660_)) - (let ((_e7461574668_ + _hd7461774665_)) + (let ((_e7462074673_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _hd7461274660_)))) - (let ((_lp-hd7461674672_ - (let () (declare (not safe)) (##car _e7461574668_))) - (_lp-tl7461774675_ - (let () (declare (not safe)) (##cdr _e7461574668_)))) + (gx#syntax-e _hd7461774665_)))) + (let ((_lp-hd7462174677_ + (let () (declare (not safe)) (##car _e7462074673_))) + (_lp-tl7462274680_ + (let () (declare (not safe)) (##cdr _e7462074673_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd7461674672_)) - (let ((_e7462474678_ + (gx#stx-pair? _lp-hd7462174677_)) + (let ((_e7462974683_ (let () (declare (not safe)) - (gx#syntax-e _lp-hd7461674672_)))) - (let ((_hd7462374682_ + (gx#syntax-e _lp-hd7462174677_)))) + (let ((_hd7462874687_ (let () (declare (not safe)) - (##car _e7462474678_))) - (_tl7462274685_ + (##car _e7462974683_))) + (_tl7462774690_ (let () (declare (not safe)) - (##cdr _e7462474678_)))) + (##cdr _e7462974683_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl7462274685_)) - (let ((_e7462774688_ + (gx#stx-pair? _tl7462774690_)) + (let ((_e7463274693_ (let () (declare (not safe)) - (gx#syntax-e _tl7462274685_)))) - (let ((_hd7462674692_ + (gx#syntax-e _tl7462774690_)))) + (let ((_hd7463174697_ (let () (declare (not safe)) - (##car _e7462774688_))) - (_tl7462574695_ + (##car _e7463274693_))) + (_tl7463074700_ (let () (declare (not safe)) - (##cdr _e7462774688_)))) + (##cdr _e7463274693_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl7462574695_)) - (_loop7461474656_ - _lp-tl7461774675_ + (gx#stx-null? _tl7463074700_)) + (_loop7461974661_ + _lp-tl7462274680_ (let () (declare (not safe)) - (cons _hd7462674692_ - _type7461874663_)) + (cons _hd7463174697_ + _type7462374668_)) (let () (declare (not safe)) - (cons _hd7462374682_ - _symbol7461974665_))) - (_g7460474633_ _g7460574637_)))) - (_g7460474633_ _g7460574637_)))) - (_g7460474633_ _g7460574637_)))) - (let ((_type7462074698_ (reverse _type7461874663_)) - (_symbol7462174701_ (reverse _symbol7461974665_))) - ((lambda (_L74704_ _L74706_) - (let ((__tmp79612 + (cons _hd7462874687_ + _symbol7462474670_))) + (_g7460974638_ _g7461074642_)))) + (_g7460974638_ _g7461074642_)))) + (_g7460974638_ _g7461074642_)))) + (let ((_type7462574703_ (reverse _type7462374668_)) + (_symbol7462674706_ (reverse _symbol7462474670_))) + ((lambda (_L74709_ _L74711_) + (let ((__tmp79617 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp79606 + (__tmp79611 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L74704_ - _L74706_)) - (let ((__tmp79607 - (lambda (_g7472174725_ - _g7472274728_ - _g7472374730_) - (let ((__tmp79608 - (let ((__tmp79611 + _L74709_ + _L74711_)) + (let ((__tmp79612 + (lambda (_g7472674730_ + _g7472774733_ + _g7472874735_) + (let ((__tmp79613 + (let ((__tmp79616 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type))) - (__tmp79609 - (let ((__tmp79610 + (__tmp79614 + (let ((__tmp79615 (let () (declare (not safe)) - (cons _g7472174725_ + (cons _g7472674730_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _g7472274728_ - __tmp79610)))) + (cons _g7472774733_ + __tmp79615)))) (declare (not safe)) - (cons __tmp79611 __tmp79609)))) + (cons __tmp79616 __tmp79614)))) (declare (not safe)) - (cons __tmp79608 _g7472374730_))))) + (cons __tmp79613 _g7472874735_))))) (declare (not safe)) - (foldr2 __tmp79607 '() _L74704_ _L74706_))))) + (foldr2 __tmp79612 '() _L74709_ _L74711_))))) (declare (not safe)) - (cons __tmp79612 __tmp79606))) - _type7462074698_ - _symbol7462174701_)))))) + (cons __tmp79617 __tmp79611))) + _type7462574703_ + _symbol7462674706_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop7461474656_ - _target7461174650_ + (_loop7461974661_ + _target7461674655_ '() '())) - (_g7460474633_ _g7460574637_))))) - (_g7460474633_ _g7460574637_)))) - (_g7460474633_ _g7460574637_))))) - (_g7460374733_ _$stx74600_)))) + (_g7460974638_ _g7461074642_))))) + (_g7460974638_ _g7461074642_)))) + (_g7460974638_ _g7461074642_))))) + (_g7460874738_ _$stx74605_)))) (define |gxc[:0:]#declare-method| - (lambda (_$stx74738_) - (let* ((___stx7873978740_ _$stx74738_) - (_g7474374785_ + (lambda (_$stx74743_) + (let* ((___stx7874478745_ _$stx74743_) + (_g7474874790_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax" - ___stx7873978740_))))) - (let ((___kont7874278743_ - (lambda (_L74913_ _L74915_ _L74916_ _L74917_) - (let ((__tmp79626 + ___stx7874478745_))))) + (let ((___kont7874778748_ + (lambda (_L74918_ _L74920_ _L74921_ _L74922_) + (let ((__tmp79631 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'optimizer-declare-method!))) - (__tmp79613 - (let ((__tmp79623 - (let ((__tmp79625 + (__tmp79618 + (let ((__tmp79628 + (let ((__tmp79630 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp79624 + (__tmp79629 (let () (declare (not safe)) - (cons _L74917_ '())))) + (cons _L74922_ '())))) (declare (not safe)) - (cons __tmp79625 __tmp79624))) - (__tmp79614 - (let ((__tmp79620 - (let ((__tmp79622 + (cons __tmp79630 __tmp79629))) + (__tmp79619 + (let ((__tmp79625 + (let ((__tmp79627 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp79621 + (__tmp79626 (let () (declare (not safe)) - (cons _L74916_ '())))) + (cons _L74921_ '())))) (declare (not safe)) - (cons __tmp79622 __tmp79621))) - (__tmp79615 - (let ((__tmp79617 - (let ((__tmp79619 + (cons __tmp79627 __tmp79626))) + (__tmp79620 + (let ((__tmp79622 + (let ((__tmp79624 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp79618 + (__tmp79623 (let () (declare (not safe)) - (cons _L74915_ '())))) + (cons _L74920_ '())))) (declare (not safe)) - (cons __tmp79619 __tmp79618))) - (__tmp79616 + (cons __tmp79624 __tmp79623))) + (__tmp79621 (let () (declare (not safe)) - (cons _L74913_ '())))) + (cons _L74918_ '())))) (declare (not safe)) - (cons __tmp79617 __tmp79616)))) + (cons __tmp79622 __tmp79621)))) (declare (not safe)) - (cons __tmp79620 __tmp79615)))) + (cons __tmp79625 __tmp79620)))) (declare (not safe)) - (cons __tmp79623 __tmp79614)))) + (cons __tmp79628 __tmp79619)))) (declare (not safe)) - (cons __tmp79626 __tmp79613)))) - (___kont7874478745_ - (lambda (_L74832_ _L74834_ _L74835_ _L74836_) - (let ((__tmp79627 - (let ((__tmp79628 - (let ((__tmp79629 - (let ((__tmp79630 - (let ((__tmp79631 + (cons __tmp79631 __tmp79618)))) + (___kont7874978750_ + (lambda (_L74837_ _L74839_ _L74840_ _L74841_) + (let ((__tmp79632 + (let ((__tmp79633 + (let ((__tmp79634 + (let ((__tmp79635 + (let ((__tmp79636 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rebind?)))) (declare (not safe)) - (cons __tmp79631 '())))) + (cons __tmp79636 '())))) (declare (not safe)) - (cons _L74832_ __tmp79630)))) + (cons _L74837_ __tmp79635)))) (declare (not safe)) - (cons _L74834_ __tmp79629)))) + (cons _L74839_ __tmp79634)))) (declare (not safe)) - (cons _L74835_ __tmp79628)))) + (cons _L74840_ __tmp79633)))) (declare (not safe)) - (cons _L74836_ __tmp79627))))) - (let ((___match7877878779_ - (lambda (_e7475174863_ - _hd7475074867_ - _tl7474974870_ - _e7475474873_ - _hd7475374877_ - _tl7475274880_ - _e7475774883_ - _hd7475674887_ - _tl7475574890_ - _e7476074893_ - _hd7475974897_ - _tl7475874900_ - _e7476374903_ - _hd7476274907_ - _tl7476174910_) - (let ((_L74913_ _hd7476274907_) - (_L74915_ _hd7475974897_) - (_L74916_ _hd7475674887_) - (_L74917_ _hd7475374877_)) + (cons _L74841_ __tmp79632))))) + (let ((___match7878378784_ + (lambda (_e7475674868_ + _hd7475574872_ + _tl7475474875_ + _e7475974878_ + _hd7475874882_ + _tl7475774885_ + _e7476274888_ + _hd7476174892_ + _tl7476074895_ + _e7476574898_ + _hd7476474902_ + _tl7476374905_ + _e7476874908_ + _hd7476774912_ + _tl7476674915_) + (let ((_L74918_ _hd7476774912_) + (_L74920_ _hd7476474902_) + (_L74921_ _hd7476174892_) + (_L74922_ _hd7475874882_)) (if (and (let () (declare (not safe)) - (gx#identifier? _L74917_)) + (gx#identifier? _L74922_)) (let () (declare (not safe)) - (gx#identifier? _L74916_)) + (gx#identifier? _L74921_)) (let () (declare (not safe)) - (gx#identifier? _L74915_))) - (___kont7874278743_ - _L74913_ - _L74915_ - _L74916_ - _L74917_) - (let () (declare (not safe)) (_g7474374785_))))))) - (if (let () (declare (not safe)) (gx#stx-pair? ___stx7873978740_)) - (let ((_e7475174863_ + (gx#identifier? _L74920_))) + (___kont7874778748_ + _L74918_ + _L74920_ + _L74921_ + _L74922_) + (let () (declare (not safe)) (_g7474874790_))))))) + (if (let () (declare (not safe)) (gx#stx-pair? ___stx7874478745_)) + (let ((_e7475674868_ (let () (declare (not safe)) - (gx#syntax-e ___stx7873978740_)))) - (let ((_tl7474974870_ - (let () (declare (not safe)) (##cdr _e7475174863_))) - (_hd7475074867_ - (let () (declare (not safe)) (##car _e7475174863_)))) + (gx#syntax-e ___stx7874478745_)))) + (let ((_tl7475474875_ + (let () (declare (not safe)) (##cdr _e7475674868_))) + (_hd7475574872_ + (let () (declare (not safe)) (##car _e7475674868_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl7474974870_)) - (let ((_e7475474873_ + (gx#stx-pair? _tl7475474875_)) + (let ((_e7475974878_ (let () (declare (not safe)) - (gx#syntax-e _tl7474974870_)))) - (let ((_tl7475274880_ + (gx#syntax-e _tl7475474875_)))) + (let ((_tl7475774885_ (let () (declare (not safe)) - (##cdr _e7475474873_))) - (_hd7475374877_ + (##cdr _e7475974878_))) + (_hd7475874882_ (let () (declare (not safe)) - (##car _e7475474873_)))) + (##car _e7475974878_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl7475274880_)) - (let ((_e7475774883_ + (gx#stx-pair? _tl7475774885_)) + (let ((_e7476274888_ (let () (declare (not safe)) - (gx#syntax-e _tl7475274880_)))) - (let ((_tl7475574890_ + (gx#syntax-e _tl7475774885_)))) + (let ((_tl7476074895_ (let () (declare (not safe)) - (##cdr _e7475774883_))) - (_hd7475674887_ + (##cdr _e7476274888_))) + (_hd7476174892_ (let () (declare (not safe)) - (##car _e7475774883_)))) + (##car _e7476274888_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl7475574890_)) - (let ((_e7476074893_ + (gx#stx-pair? _tl7476074895_)) + (let ((_e7476574898_ (let () (declare (not safe)) (gx#syntax-e - _tl7475574890_)))) - (let ((_tl7475874900_ + _tl7476074895_)))) + (let ((_tl7476374905_ (let () (declare (not safe)) - (##cdr _e7476074893_))) - (_hd7475974897_ + (##cdr _e7476574898_))) + (_hd7476474902_ (let () (declare (not safe)) - (##car _e7476074893_)))) + (##car _e7476574898_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl7475874900_)) - (let ((_e7476374903_ + _tl7476374905_)) + (let ((_e7476874908_ (let () (declare (not safe)) (gx#syntax-e - _tl7475874900_)))) - (let ((_tl7476174910_ + _tl7476374905_)))) + (let ((_tl7476674915_ (let () (declare (not safe)) - (##cdr _e7476374903_))) - (_hd7476274907_ + (##cdr _e7476874908_))) + (_hd7476774912_ (let () (declare (not safe)) - (##car _e7476374903_)))) + (##car _e7476874908_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl7476174910_)) - (___match7877878779_ - _e7475174863_ - _hd7475074867_ - _tl7474974870_ - _e7475474873_ - _hd7475374877_ - _tl7475274880_ - _e7475774883_ - _hd7475674887_ - _tl7475574890_ - _e7476074893_ - _hd7475974897_ - _tl7475874900_ - _e7476374903_ - _hd7476274907_ - _tl7476174910_) + _tl7476674915_)) + (___match7878378784_ + _e7475674868_ + _hd7475574872_ + _tl7475474875_ + _e7475974878_ + _hd7475874882_ + _tl7475774885_ + _e7476274888_ + _hd7476174892_ + _tl7476074895_ + _e7476574898_ + _hd7476474902_ + _tl7476374905_ + _e7476874908_ + _hd7476774912_ + _tl7476674915_) (let () (declare (not safe)) - (_g7474374785_))))) + (_g7474874790_))))) (if (let () (declare (not safe)) (gx#stx-null? - _tl7475874900_)) - (___kont7874478745_ - _hd7475974897_ - _hd7475674887_ - _hd7475374877_ - _hd7475074867_) + _tl7476374905_)) + (___kont7874978750_ + _hd7476474902_ + _hd7476174892_ + _hd7475874882_ + _hd7475574872_) (let () (declare (not safe)) - (_g7474374785_)))))) + (_g7474874790_)))))) (let () (declare (not safe)) - (_g7474374785_))))) + (_g7474874790_))))) (let () (declare (not safe)) - (_g7474374785_))))) - (let () (declare (not safe)) (_g7474374785_))))) - (let () (declare (not safe)) (_g7474374785_)))))))) + (_g7474874790_))))) + (let () (declare (not safe)) (_g7474874790_))))) + (let () (declare (not safe)) (_g7474874790_)))))))) (define |gxc[:0:]#declare-method*| - (lambda (_$stx74942_) - (let* ((_g7494674981_ - (lambda (_g7494774977_) + (lambda (_$stx74947_) + (let* ((_g7495174986_ + (lambda (_g7495274982_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g7494774977_)))) - (_g7494575100_ - (lambda (_g7494774985_) - (if (let () (declare (not safe)) (gx#stx-pair? _g7494774985_)) - (let ((_e7495374988_ + (gx#raise-syntax-error '#f '"Bad syntax" _g7495274982_)))) + (_g7495075105_ + (lambda (_g7495274990_) + (if (let () (declare (not safe)) (gx#stx-pair? _g7495274990_)) + (let ((_e7495874993_ (let () (declare (not safe)) - (gx#syntax-e _g7494774985_)))) - (let ((_hd7495274992_ + (gx#syntax-e _g7495274990_)))) + (let ((_hd7495774997_ (let () (declare (not safe)) - (##car _e7495374988_))) - (_tl7495174995_ + (##car _e7495874993_))) + (_tl7495675000_ (let () (declare (not safe)) - (##cdr _e7495374988_)))) + (##cdr _e7495874993_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl7495174995_)) - (let ((_g79632_ + (gx#stx-pair/null? _tl7495675000_)) + (let ((_g79637_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl7495174995_ + _tl7495675000_ '0)))) (begin - (let ((_g79633_ + (let ((_g79638_ (let () (declare (not safe)) - (if (##values? _g79632_) - (##vector-length _g79632_) + (if (##values? _g79637_) + (##vector-length _g79637_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g79633_ 2))) + (##fx= _g79638_ 2))) (error "Context expects 2 values" - _g79633_))) - (let ((_target7495474998_ + _g79638_))) + (let ((_target7495975003_ (let () (declare (not safe)) - (##vector-ref _g79632_ 0))) - (_tl7495675001_ + (##vector-ref _g79637_ 0))) + (_tl7496175006_ (let () (declare (not safe)) - (##vector-ref _g79632_ 1)))) + (##vector-ref _g79637_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl7495675001_)) - (letrec ((_loop7495775004_ - (lambda (_hd7495575008_ - _symbol7496175011_ - _method7496275013_ - _type-t7496375015_) + (gx#stx-null? _tl7496175006_)) + (letrec ((_loop7496275009_ + (lambda (_hd7496075013_ + _symbol7496675016_ + _method7496775018_ + _type-t7496875020_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd7495575008_)) - (let ((_e7495875018_ + _hd7496075013_)) + (let ((_e7496375023_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _hd7495575008_)))) - (let ((_lp-hd7495975022_ - (let () (declare (not safe)) (##car _e7495875018_))) - (_lp-tl7496075025_ - (let () (declare (not safe)) (##cdr _e7495875018_)))) + (gx#syntax-e _hd7496075013_)))) + (let ((_lp-hd7496475027_ + (let () (declare (not safe)) (##car _e7496375023_))) + (_lp-tl7496575030_ + (let () (declare (not safe)) (##cdr _e7496375023_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd7495975022_)) - (let ((_e7496975028_ + (gx#stx-pair? _lp-hd7496475027_)) + (let ((_e7497475033_ (let () (declare (not safe)) - (gx#syntax-e _lp-hd7495975022_)))) - (let ((_hd7496875032_ + (gx#syntax-e _lp-hd7496475027_)))) + (let ((_hd7497375037_ (let () (declare (not safe)) - (##car _e7496975028_))) - (_tl7496775035_ + (##car _e7497475033_))) + (_tl7497275040_ (let () (declare (not safe)) - (##cdr _e7496975028_)))) + (##cdr _e7497475033_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl7496775035_)) - (let ((_e7497275038_ + (gx#stx-pair? _tl7497275040_)) + (let ((_e7497775043_ (let () (declare (not safe)) - (gx#syntax-e _tl7496775035_)))) - (let ((_hd7497175042_ + (gx#syntax-e _tl7497275040_)))) + (let ((_hd7497675047_ (let () (declare (not safe)) - (##car _e7497275038_))) - (_tl7497075045_ + (##car _e7497775043_))) + (_tl7497575050_ (let () (declare (not safe)) - (##cdr _e7497275038_)))) + (##cdr _e7497775043_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl7497075045_)) - (let ((_e7497575048_ + (gx#stx-pair? _tl7497575050_)) + (let ((_e7498075053_ (let () (declare (not safe)) - (gx#syntax-e _tl7497075045_)))) - (let ((_hd7497475052_ + (gx#syntax-e _tl7497575050_)))) + (let ((_hd7497975057_ (let () (declare (not safe)) - (##car _e7497575048_))) - (_tl7497375055_ + (##car _e7498075053_))) + (_tl7497875060_ (let () (declare (not safe)) - (##cdr _e7497575048_)))) + (##cdr _e7498075053_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl7497375055_)) - (_loop7495775004_ - _lp-tl7496075025_ + (gx#stx-null? _tl7497875060_)) + (_loop7496275009_ + _lp-tl7496575030_ (let () (declare (not safe)) - (cons _hd7497475052_ - _symbol7496175011_)) + (cons _hd7497975057_ + _symbol7496675016_)) (let () (declare (not safe)) - (cons _hd7497175042_ - _method7496275013_)) + (cons _hd7497675047_ + _method7496775018_)) (let () (declare (not safe)) - (cons _hd7496875032_ - _type-t7496375015_))) - (_g7494674981_ _g7494774985_)))) - (_g7494674981_ _g7494774985_)))) - (_g7494674981_ _g7494774985_)))) - (_g7494674981_ _g7494774985_)))) - (let ((_symbol7496475058_ (reverse _symbol7496175011_)) - (_method7496575061_ (reverse _method7496275013_)) - (_type-t7496675063_ (reverse _type-t7496375015_))) - ((lambda (_L75066_ _L75068_ _L75069_) - (let ((__tmp79641 + (cons _hd7497375037_ + _type-t7496875020_))) + (_g7495174986_ _g7495274990_)))) + (_g7495174986_ _g7495274990_)))) + (_g7495174986_ _g7495274990_)))) + (_g7495174986_ _g7495274990_)))) + (let ((_symbol7496975063_ (reverse _symbol7496675016_)) + (_method7497075066_ (reverse _method7496775018_)) + (_type-t7497175068_ (reverse _type-t7496875020_))) + ((lambda (_L75071_ _L75073_ _L75074_) + (let ((__tmp79646 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp79634 + (__tmp79639 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L75066_ - _L75068_ - _L75069_)) - (let ((__tmp79635 - (lambda (_g7508575090_ - _g7508675093_ - _g7508775095_ - _g7508875097_) - (let ((__tmp79636 - (let ((__tmp79640 + _L75071_ + _L75073_ + _L75074_)) + (let ((__tmp79640 + (lambda (_g7509075095_ + _g7509175098_ + _g7509275100_ + _g7509375102_) + (let ((__tmp79641 + (let ((__tmp79645 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-method))) - (__tmp79637 - (let ((__tmp79638 - (let ((__tmp79639 + (__tmp79642 + (let ((__tmp79643 + (let ((__tmp79644 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _g7508575090_ '())))) + (cons _g7509075095_ '())))) (declare (not safe)) - (cons _g7508675093_ __tmp79639)))) + (cons _g7509175098_ __tmp79644)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _g7508775095_ - __tmp79638)))) + (cons _g7509275100_ + __tmp79643)))) (declare (not safe)) - (cons __tmp79640 __tmp79637)))) + (cons __tmp79645 __tmp79642)))) (declare (not safe)) - (cons __tmp79636 _g7508875097_))))) + (cons __tmp79641 _g7509375102_))))) (declare (not safe)) - (foldr* __tmp79635 + (foldr* __tmp79640 '() - _L75066_ - _L75068_ - _L75069_))))) + _L75071_ + _L75073_ + _L75074_))))) (declare (not safe)) - (cons __tmp79641 __tmp79634))) - _symbol7496475058_ - _method7496575061_ - _type-t7496675063_)))))) + (cons __tmp79646 __tmp79639))) + _symbol7496975063_ + _method7497075066_ + _type-t7497175068_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop7495775004_ - _target7495474998_ + (_loop7496275009_ + _target7495975003_ '() '() '())) - (_g7494674981_ _g7494774985_))))) - (_g7494674981_ _g7494774985_)))) - (_g7494674981_ _g7494774985_))))) - (_g7494575100_ _$stx74942_)))) + (_g7495174986_ _g7495274990_))))) + (_g7495174986_ _g7495274990_)))) + (_g7495174986_ _g7495274990_))))) + (_g7495075105_ _$stx74947_)))) (define |gxc[:0:]#declare-methods| - (lambda (_$stx75105_) - (let* ((_g7510975142_ - (lambda (_g7511075138_) + (lambda (_$stx75110_) + (let* ((_g7511475147_ + (lambda (_g7511575143_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g7511075138_)))) - (_g7510875256_ - (lambda (_g7511075146_) - (if (let () (declare (not safe)) (gx#stx-pair? _g7511075146_)) - (let ((_e7511675149_ + (gx#raise-syntax-error '#f '"Bad syntax" _g7511575143_)))) + (_g7511375261_ + (lambda (_g7511575151_) + (if (let () (declare (not safe)) (gx#stx-pair? _g7511575151_)) + (let ((_e7512175154_ (let () (declare (not safe)) - (gx#syntax-e _g7511075146_)))) - (let ((_hd7511575153_ + (gx#syntax-e _g7511575151_)))) + (let ((_hd7512075158_ (let () (declare (not safe)) - (##car _e7511675149_))) - (_tl7511475156_ + (##car _e7512175154_))) + (_tl7511975161_ (let () (declare (not safe)) - (##cdr _e7511675149_)))) + (##cdr _e7512175154_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl7511475156_)) - (let ((_e7511975159_ + (gx#stx-pair? _tl7511975161_)) + (let ((_e7512475164_ (let () (declare (not safe)) - (gx#syntax-e _tl7511475156_)))) - (let ((_hd7511875163_ + (gx#syntax-e _tl7511975161_)))) + (let ((_hd7512375168_ (let () (declare (not safe)) - (##car _e7511975159_))) - (_tl7511775166_ + (##car _e7512475164_))) + (_tl7512275171_ (let () (declare (not safe)) - (##cdr _e7511975159_)))) + (##cdr _e7512475164_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl7511775166_)) - (let ((_g79642_ + (gx#stx-pair/null? _tl7512275171_)) + (let ((_g79647_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl7511775166_ + _tl7512275171_ '0)))) (begin - (let ((_g79643_ + (let ((_g79648_ (let () (declare (not safe)) - (if (##values? _g79642_) - (##vector-length _g79642_) + (if (##values? _g79647_) + (##vector-length _g79647_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g79643_ 2))) + (##fx= _g79648_ 2))) (error "Context expects 2 values" - _g79643_))) - (let ((_target7512075169_ + _g79648_))) + (let ((_target7512575174_ (let () (declare (not safe)) - (##vector-ref _g79642_ 0))) - (_tl7512275172_ + (##vector-ref _g79647_ 0))) + (_tl7512775177_ (let () (declare (not safe)) - (##vector-ref _g79642_ 1)))) + (##vector-ref _g79647_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl7512275172_)) - (letrec ((_loop7512375175_ - (lambda (_hd7512175179_ + (gx#stx-null? _tl7512775177_)) + (letrec ((_loop7512875180_ + (lambda (_hd7512675184_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _symbol7512775182_ - _method7512875184_) + _symbol7513275187_ + _method7513375189_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd7512175179_)) - (let ((_e7512475187_ + (gx#stx-pair? _hd7512675184_)) + (let ((_e7512975192_ (let () (declare (not safe)) - (gx#syntax-e _hd7512175179_)))) - (let ((_lp-hd7512575191_ + (gx#syntax-e _hd7512675184_)))) + (let ((_lp-hd7513075196_ (let () (declare (not safe)) - (##car _e7512475187_))) - (_lp-tl7512675194_ + (##car _e7512975192_))) + (_lp-tl7513175199_ (let () (declare (not safe)) - (##cdr _e7512475187_)))) + (##cdr _e7512975192_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd7512575191_)) - (let ((_e7513375197_ + (gx#stx-pair? _lp-hd7513075196_)) + (let ((_e7513875202_ (let () (declare (not safe)) - (gx#syntax-e _lp-hd7512575191_)))) - (let ((_hd7513275201_ + (gx#syntax-e _lp-hd7513075196_)))) + (let ((_hd7513775206_ (let () (declare (not safe)) - (##car _e7513375197_))) - (_tl7513175204_ + (##car _e7513875202_))) + (_tl7513675209_ (let () (declare (not safe)) - (##cdr _e7513375197_)))) + (##cdr _e7513875202_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl7513175204_)) - (let ((_e7513675207_ + (gx#stx-pair? _tl7513675209_)) + (let ((_e7514175212_ (let () (declare (not safe)) - (gx#syntax-e _tl7513175204_)))) - (let ((_hd7513575211_ + (gx#syntax-e _tl7513675209_)))) + (let ((_hd7514075216_ (let () (declare (not safe)) - (##car _e7513675207_))) - (_tl7513475214_ + (##car _e7514175212_))) + (_tl7513975219_ (let () (declare (not safe)) - (##cdr _e7513675207_)))) + (##cdr _e7514175212_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl7513475214_)) - (_loop7512375175_ - _lp-tl7512675194_ + (gx#stx-null? _tl7513975219_)) + (_loop7512875180_ + _lp-tl7513175199_ (let () (declare (not safe)) - (cons _hd7513575211_ - _symbol7512775182_)) + (cons _hd7514075216_ + _symbol7513275187_)) (let () (declare (not safe)) - (cons _hd7513275201_ - _method7512875184_))) - (_g7510975142_ _g7511075146_)))) - (_g7510975142_ _g7511075146_)))) - (_g7510975142_ _g7511075146_)))) - (let ((_symbol7512975217_ (reverse _symbol7512775182_)) - (_method7513075220_ (reverse _method7512875184_))) - ((lambda (_L75223_ _L75225_ _L75226_) - (let ((__tmp79651 + (cons _hd7513775206_ + _method7513375189_))) + (_g7511475147_ _g7511575151_)))) + (_g7511475147_ _g7511575151_)))) + (_g7511475147_ _g7511575151_)))) + (let ((_symbol7513475222_ (reverse _symbol7513275187_)) + (_method7513575225_ (reverse _method7513375189_))) + ((lambda (_L75228_ _L75230_ _L75231_) + (let ((__tmp79656 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp79644 + (__tmp79649 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L75223_ - _L75225_)) - (let ((__tmp79645 - (lambda (_g7524475248_ - _g7524575251_ - _g7524675253_) - (let ((__tmp79646 - (let ((__tmp79650 + _L75228_ + _L75230_)) + (let ((__tmp79650 + (lambda (_g7524975253_ + _g7525075256_ + _g7525175258_) + (let ((__tmp79651 + (let ((__tmp79655 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-method))) - (__tmp79647 - (let ((__tmp79648 + (__tmp79652 + (let ((__tmp79653 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp79649 + (let ((__tmp79654 (let () (declare (not safe)) - (cons _g7524475248_ '())))) + (cons _g7524975253_ '())))) (declare (not safe)) - (cons _g7524575251_ __tmp79649)))) + (cons _g7525075256_ __tmp79654)))) (declare (not safe)) - (cons _L75226_ __tmp79648)))) + (cons _L75231_ __tmp79653)))) (declare (not safe)) - (cons __tmp79650 __tmp79647)))) + (cons __tmp79655 __tmp79652)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp79646 - _g7524675253_))))) + (cons __tmp79651 + _g7525175258_))))) (declare (not safe)) - (foldr2 __tmp79645 + (foldr2 __tmp79650 '() - _L75223_ - _L75225_))))) + _L75228_ + _L75230_))))) (declare (not safe)) - (cons __tmp79651 __tmp79644))) - _symbol7512975217_ - _method7513075220_ - _hd7511875163_)))))) + (cons __tmp79656 __tmp79649))) + _symbol7513475222_ + _method7513575225_ + _hd7512375168_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop7512375175_ - _target7512075169_ + (_loop7512875180_ + _target7512575174_ '() '())) - (_g7510975142_ _g7511075146_))))) - (_g7510975142_ _g7511075146_)))) - (_g7510975142_ _g7511075146_)))) - (_g7510975142_ _g7511075146_))))) - (_g7510875256_ _$stx75105_)))) + (_g7511475147_ _g7511575151_))))) + (_g7511475147_ _g7511575151_)))) + (_g7511475147_ _g7511575151_)))) + (_g7511475147_ _g7511575151_))))) + (_g7511375261_ _$stx75110_)))) (define |gxc[:0:]#@alias| - (lambda (_$stx75261_) - (let* ((_g7526575279_ - (lambda (_g7526675275_) + (lambda (_$stx75266_) + (let* ((_g7527075284_ + (lambda (_g7527175280_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g7526675275_)))) - (_g7526475320_ - (lambda (_g7526675283_) - (if (let () (declare (not safe)) (gx#stx-pair? _g7526675283_)) - (let ((_e7527075286_ + (gx#raise-syntax-error '#f '"Bad syntax" _g7527175280_)))) + (_g7526975325_ + (lambda (_g7527175288_) + (if (let () (declare (not safe)) (gx#stx-pair? _g7527175288_)) + (let ((_e7527575291_ (let () (declare (not safe)) - (gx#syntax-e _g7526675283_)))) - (let ((_hd7526975290_ + (gx#syntax-e _g7527175288_)))) + (let ((_hd7527475295_ (let () (declare (not safe)) - (##car _e7527075286_))) - (_tl7526875293_ + (##car _e7527575291_))) + (_tl7527375298_ (let () (declare (not safe)) - (##cdr _e7527075286_)))) + (##cdr _e7527575291_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl7526875293_)) - (let ((_e7527375296_ + (gx#stx-pair? _tl7527375298_)) + (let ((_e7527875301_ (let () (declare (not safe)) - (gx#syntax-e _tl7526875293_)))) - (let ((_hd7527275300_ + (gx#syntax-e _tl7527375298_)))) + (let ((_hd7527775305_ (let () (declare (not safe)) - (##car _e7527375296_))) - (_tl7527175303_ + (##car _e7527875301_))) + (_tl7527675308_ (let () (declare (not safe)) - (##cdr _e7527375296_)))) + (##cdr _e7527875301_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl7527175303_)) - ((lambda (_L75306_) - (let ((__tmp79656 + (gx#stx-null? _tl7527675308_)) + ((lambda (_L75311_) + (let ((__tmp79661 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!alias))) - (__tmp79652 - (let ((__tmp79653 - (let ((__tmp79655 + (__tmp79657 + (let ((__tmp79658 + (let ((__tmp79660 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp79654 + (__tmp79659 (let () (declare (not safe)) - (cons _L75306_ + (cons _L75311_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp79655 __tmp79654)))) + (cons __tmp79660 __tmp79659)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp79653 '())))) + (cons __tmp79658 '())))) (declare (not safe)) - (cons __tmp79656 __tmp79652))) - _hd7527275300_) - (_g7526575279_ _g7526675283_)))) - (_g7526575279_ _g7526675283_)))) - (_g7526575279_ _g7526675283_))))) - (_g7526475320_ _$stx75261_)))) + (cons __tmp79661 __tmp79657))) + _hd7527775305_) + (_g7527075284_ _g7527175288_)))) + (_g7527075284_ _g7527175288_)))) + (_g7527075284_ _g7527175288_))))) + (_g7526975325_ _$stx75266_)))) (define |gxc[:0:]#@struct-type| - (lambda (_$stx75324_) - (let* ((___stx7880778808_ _$stx75324_) - (_g7533075396_ + (lambda (_$stx75329_) + (let* ((___stx7881278813_ _$stx75329_) + (_g7533575401_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax" - ___stx7880778808_))))) - (let ((___kont7881078811_ - (lambda (_L75618_ _L75620_ _L75621_ _L75622_ _L75623_) - (let ((__tmp79662 + ___stx7881278813_))))) + (let ((___kont7881578816_ + (lambda (_L75623_ _L75625_ _L75626_ _L75627_ _L75628_) + (let ((__tmp79667 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@make-struct-type))) - (__tmp79657 - (let ((__tmp79658 - (let ((__tmp79659 - (let ((__tmp79660 - (let ((__tmp79661 + (__tmp79662 + (let ((__tmp79663 + (let ((__tmp79664 + (let ((__tmp79665 + (let ((__tmp79666 (let () (declare (not safe)) - (cons _L75618_ '())))) + (cons _L75623_ '())))) (declare (not safe)) - (cons _L75620_ __tmp79661)))) + (cons _L75625_ __tmp79666)))) (declare (not safe)) - (cons _L75621_ __tmp79660)))) + (cons _L75626_ __tmp79665)))) (declare (not safe)) - (cons _L75622_ __tmp79659)))) + (cons _L75627_ __tmp79664)))) (declare (not safe)) - (cons _L75623_ __tmp79658)))) + (cons _L75628_ __tmp79663)))) (declare (not safe)) - (cons __tmp79662 __tmp79657)))) - (___kont7881278813_ - (lambda (_L75528_ _L75530_ _L75531_ _L75532_) - (let ((__tmp79663 - (let ((__tmp79664 - (let ((__tmp79665 - (let ((__tmp79666 - (let ((__tmp79667 + (cons __tmp79667 __tmp79662)))) + (___kont7881778818_ + (lambda (_L75533_ _L75535_ _L75536_ _L75537_) + (let ((__tmp79668 + (let ((__tmp79669 + (let ((__tmp79670 + (let ((__tmp79671 + (let ((__tmp79672 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons '#f __tmp79667)))) + (cons '#f __tmp79672)))) (declare (not safe)) - (cons _L75528_ __tmp79666)))) + (cons _L75533_ __tmp79671)))) (declare (not safe)) - (cons _L75530_ __tmp79665)))) + (cons _L75535_ __tmp79670)))) (declare (not safe)) - (cons _L75531_ __tmp79664)))) + (cons _L75536_ __tmp79669)))) (declare (not safe)) - (cons _L75532_ __tmp79663)))) - (___kont7881478815_ - (lambda (_L75453_ _L75455_ _L75456_ _L75457_ _L75458_) - (let ((__tmp79668 - (let ((__tmp79673 + (cons _L75537_ __tmp79668)))) + (___kont7881978820_ + (lambda (_L75458_ _L75460_ _L75461_ _L75462_ _L75463_) + (let ((__tmp79673 + (let ((__tmp79678 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'type))) - (__tmp79669 - (let ((__tmp79670 - (let ((__tmp79671 - (let ((__tmp79672 + (__tmp79674 + (let ((__tmp79675 + (let ((__tmp79676 + (let ((__tmp79677 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons _L75453_ __tmp79672)))) + (cons _L75458_ __tmp79677)))) (declare (not safe)) - (cons _L75455_ __tmp79671)))) + (cons _L75460_ __tmp79676)))) (declare (not safe)) - (cons _L75456_ __tmp79670)))) + (cons _L75461_ __tmp79675)))) (declare (not safe)) - (cons __tmp79673 __tmp79669)))) + (cons __tmp79678 __tmp79674)))) (declare (not safe)) - (cons _L75458_ __tmp79668))))) - (if (let () (declare (not safe)) (gx#stx-pair? ___stx7880778808_)) - (let ((_e7533975558_ + (cons _L75463_ __tmp79673))))) + (if (let () (declare (not safe)) (gx#stx-pair? ___stx7881278813_)) + (let ((_e7534475563_ (let () (declare (not safe)) - (gx#syntax-e ___stx7880778808_)))) - (let ((_tl7533775565_ - (let () (declare (not safe)) (##cdr _e7533975558_))) - (_hd7533875562_ - (let () (declare (not safe)) (##car _e7533975558_)))) + (gx#syntax-e ___stx7881278813_)))) + (let ((_tl7534275570_ + (let () (declare (not safe)) (##cdr _e7534475563_))) + (_hd7534375567_ + (let () (declare (not safe)) (##car _e7534475563_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl7533775565_)) - (let ((_e7534275568_ + (gx#stx-pair? _tl7534275570_)) + (let ((_e7534775573_ (let () (declare (not safe)) - (gx#syntax-e _tl7533775565_)))) - (let ((_tl7534075575_ + (gx#syntax-e _tl7534275570_)))) + (let ((_tl7534575580_ (let () (declare (not safe)) - (##cdr _e7534275568_))) - (_hd7534175572_ + (##cdr _e7534775573_))) + (_hd7534675577_ (let () (declare (not safe)) - (##car _e7534275568_)))) + (##car _e7534775573_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl7534075575_)) - (let ((_e7534575578_ + (gx#stx-pair? _tl7534575580_)) + (let ((_e7535075583_ (let () (declare (not safe)) - (gx#syntax-e _tl7534075575_)))) - (let ((_tl7534375585_ + (gx#syntax-e _tl7534575580_)))) + (let ((_tl7534875590_ (let () (declare (not safe)) - (##cdr _e7534575578_))) - (_hd7534475582_ + (##cdr _e7535075583_))) + (_hd7534975587_ (let () (declare (not safe)) - (##car _e7534575578_)))) + (##car _e7535075583_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl7534375585_)) - (let ((_e7534875588_ + (gx#stx-pair? _tl7534875590_)) + (let ((_e7535375593_ (let () (declare (not safe)) - (gx#syntax-e _tl7534375585_)))) - (let ((_tl7534675595_ + (gx#syntax-e _tl7534875590_)))) + (let ((_tl7535175600_ (let () (declare (not safe)) - (##cdr _e7534875588_))) - (_hd7534775592_ + (##cdr _e7535375593_))) + (_hd7535275597_ (let () (declare (not safe)) - (##car _e7534875588_)))) + (##car _e7535375593_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl7534675595_)) - (let ((_e7535175598_ + (gx#stx-pair? _tl7535175600_)) + (let ((_e7535675603_ (let () (declare (not safe)) (gx#syntax-e - _tl7534675595_)))) - (let ((_tl7534975605_ + _tl7535175600_)))) + (let ((_tl7535475610_ (let () (declare (not safe)) - (##cdr _e7535175598_))) - (_hd7535075602_ + (##cdr _e7535675603_))) + (_hd7535575607_ (let () (declare (not safe)) - (##car _e7535175598_)))) + (##car _e7535675603_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl7534975605_)) - (let ((_e7535475608_ + _tl7535475610_)) + (let ((_e7535975613_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _tl7534975605_)))) - (let ((_tl7535275615_ - (let () (declare (not safe)) (##cdr _e7535475608_))) - (_hd7535375612_ - (let () (declare (not safe)) (##car _e7535475608_)))) + (gx#syntax-e _tl7535475610_)))) + (let ((_tl7535775620_ + (let () (declare (not safe)) (##cdr _e7535975613_))) + (_hd7535875617_ + (let () (declare (not safe)) (##car _e7535975613_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl7535275615_)) - (___kont7881078811_ - _hd7535375612_ - _hd7535075602_ - _hd7534775592_ - _hd7534475582_ - _hd7534175572_) - (let () (declare (not safe)) (_g7533075396_))))) - (if (let () (declare (not safe)) (gx#stx-null? _tl7534975605_)) - (___kont7881478815_ - _hd7535075602_ - _hd7534775592_ - _hd7534475582_ - _hd7534175572_ - _hd7533875562_) - (let () (declare (not safe)) (_g7533075396_)))))) + (gx#stx-null? _tl7535775620_)) + (___kont7881578816_ + _hd7535875617_ + _hd7535575607_ + _hd7535275597_ + _hd7534975587_ + _hd7534675577_) + (let () (declare (not safe)) (_g7533575401_))))) + (if (let () (declare (not safe)) (gx#stx-null? _tl7535475610_)) + (___kont7881978820_ + _hd7535575607_ + _hd7535275597_ + _hd7534975587_ + _hd7534675577_ + _hd7534375567_) + (let () (declare (not safe)) (_g7533575401_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _tl7534675595_)) - (___kont7881278813_ - _hd7534775592_ - _hd7534475582_ - _hd7534175572_ - _hd7533875562_) + _tl7535175600_)) + (___kont7881778818_ + _hd7535275597_ + _hd7534975587_ + _hd7534675577_ + _hd7534375567_) (let () (declare (not safe)) - (_g7533075396_)))))) + (_g7533575401_)))))) (let () (declare (not safe)) - (_g7533075396_))))) - (let () (declare (not safe)) (_g7533075396_))))) - (let () (declare (not safe)) (_g7533075396_))))) - (let () (declare (not safe)) (_g7533075396_))))))) + (_g7533575401_))))) + (let () (declare (not safe)) (_g7533575401_))))) + (let () (declare (not safe)) (_g7533575401_))))) + (let () (declare (not safe)) (_g7533575401_))))))) (define |gxc[:0:]#@make-struct-type| - (lambda (_$stx75651_) - (let* ((___stx7891578916_ _$stx75651_) - (_g7565675709_ + (lambda (_$stx75656_) + (let* ((___stx7892078921_ _$stx75656_) + (_g7566175714_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax" - ___stx7891578916_))))) - (let ((___kont7891878919_ - (lambda (_L75877_ _L75879_ _L75880_ _L75881_) - (let ((__tmp79689 + ___stx7892078921_))))) + (let ((___kont7892378924_ + (lambda (_L75882_ _L75884_ _L75885_ _L75886_) + (let ((__tmp79694 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!struct-type))) - (__tmp79674 - (let ((__tmp79686 - (let ((__tmp79688 + (__tmp79679 + (let ((__tmp79691 + (let ((__tmp79693 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp79687 + (__tmp79692 (let () (declare (not safe)) - (cons _L75881_ '())))) + (cons _L75886_ '())))) (declare (not safe)) - (cons __tmp79688 __tmp79687))) - (__tmp79675 - (let ((__tmp79676 - (let ((__tmp79677 - (let ((__tmp79678 - (let ((__tmp79683 - (let ((__tmp79685 + (cons __tmp79693 __tmp79692))) + (__tmp79680 + (let ((__tmp79681 + (let ((__tmp79682 + (let ((__tmp79683 + (let ((__tmp79688 + (let ((__tmp79690 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp79684 - (let () (declare (not safe)) (cons _L75879_ '())))) + (__tmp79689 + (let () (declare (not safe)) (cons _L75884_ '())))) (declare (not safe)) - (cons __tmp79685 __tmp79684))) - (__tmp79679 - (let ((__tmp79680 - (let ((__tmp79682 + (cons __tmp79690 __tmp79689))) + (__tmp79684 + (let ((__tmp79685 + (let ((__tmp79687 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp79681 + (__tmp79686 (let () (declare (not safe)) - (cons _L75877_ '())))) + (cons _L75882_ '())))) (declare (not safe)) - (cons __tmp79682 __tmp79681)))) + (cons __tmp79687 __tmp79686)))) (declare (not safe)) - (cons __tmp79680 '())))) + (cons __tmp79685 '())))) (declare (not safe)) - (cons __tmp79683 __tmp79679)))) + (cons __tmp79688 __tmp79684)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '0 __tmp79678)))) + (cons '0 __tmp79683)))) (declare (not safe)) - (cons _L75880_ __tmp79677)))) + (cons _L75885_ __tmp79682)))) (declare (not safe)) - (cons '#f __tmp79676)))) + (cons '#f __tmp79681)))) (declare (not safe)) - (cons __tmp79686 __tmp79675)))) + (cons __tmp79691 __tmp79680)))) (declare (not safe)) - (cons __tmp79689 __tmp79674)))) - (___kont7892078921_ - (lambda (_L75776_ _L75778_ _L75779_ _L75780_ _L75781_) - (let ((__tmp79771 + (cons __tmp79694 __tmp79679)))) + (___kont7892578926_ + (lambda (_L75781_ _L75783_ _L75784_ _L75785_ _L75786_) + (let ((__tmp79776 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'let*))) - (__tmp79690 - (let ((__tmp79711 - (let ((__tmp79762 - (let ((__tmp79770 + (__tmp79695 + (let ((__tmp79716 + (let ((__tmp79767 + (let ((__tmp79775 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'super-type))) - (__tmp79763 - (let ((__tmp79764 - (let ((__tmp79769 + (__tmp79768 + (let ((__tmp79769 + (let ((__tmp79774 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'optimizer-resolve-type))) - (__tmp79765 - (let ((__tmp79766 + (__tmp79770 + (let ((__tmp79771 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp79768 + (let ((__tmp79773 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp79767 + (__tmp79772 (let () (declare (not safe)) - (cons _L75780_ '())))) + (cons _L75785_ '())))) (declare (not safe)) - (cons __tmp79768 __tmp79767)))) + (cons __tmp79773 __tmp79772)))) (declare (not safe)) - (cons __tmp79766 '())))) + (cons __tmp79771 '())))) (declare (not safe)) - (cons __tmp79769 __tmp79765)))) + (cons __tmp79774 __tmp79770)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp79764 '())))) + (cons __tmp79769 '())))) (declare (not safe)) - (cons __tmp79770 __tmp79763))) - (__tmp79712 - (let ((__tmp79734 - (let ((__tmp79761 + (cons __tmp79775 __tmp79768))) + (__tmp79717 + (let ((__tmp79739 + (let ((__tmp79766 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'xfields))) - (__tmp79735 - (let ((__tmp79736 - (let ((__tmp79760 + (__tmp79740 + (let ((__tmp79741 + (let ((__tmp79765 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'and))) - (__tmp79737 - (let ((__tmp79759 + (__tmp79742 + (let ((__tmp79764 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'super-type))) - (__tmp79738 - (let ((__tmp79739 - (let ((__tmp79758 + (__tmp79743 + (let ((__tmp79744 + (let ((__tmp79763 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'alet))) - (__tmp79740 - (let ((__tmp79751 - (let ((__tmp79757 + (__tmp79745 + (let ((__tmp79756 + (let ((__tmp79762 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'xfields))) - (__tmp79752 - (let ((__tmp79753 - (let ((__tmp79756 + (__tmp79757 + (let ((__tmp79758 + (let ((__tmp79761 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '!struct-type-xfields))) - (__tmp79754 - (let ((__tmp79755 + (__tmp79759 + (let ((__tmp79760 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'super-type)))) (declare (not safe)) - (cons __tmp79755 '())))) + (cons __tmp79760 '())))) (declare (not safe)) - (cons __tmp79756 __tmp79754)))) + (cons __tmp79761 __tmp79759)))) (declare (not safe)) - (cons __tmp79753 '())))) + (cons __tmp79758 '())))) (declare (not safe)) - (cons __tmp79757 __tmp79752))) + (cons __tmp79762 __tmp79757))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp79741 - (let ((__tmp79742 - (let ((__tmp79750 + (__tmp79746 + (let ((__tmp79747 + (let ((__tmp79755 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'fx+))) - (__tmp79743 - (let ((__tmp79749 + (__tmp79748 + (let ((__tmp79754 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'xfields))) - (__tmp79744 - (let ((__tmp79745 - (let ((__tmp79748 + (__tmp79749 + (let ((__tmp79750 + (let ((__tmp79753 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '!struct-type-fields))) - (__tmp79746 - (let ((__tmp79747 + (__tmp79751 + (let ((__tmp79752 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'super-type)))) (declare (not safe)) - (cons __tmp79747 '())))) + (cons __tmp79752 '())))) (declare (not safe)) - (cons __tmp79748 __tmp79746)))) + (cons __tmp79753 __tmp79751)))) (declare (not safe)) - (cons __tmp79745 '())))) + (cons __tmp79750 '())))) (declare (not safe)) - (cons __tmp79749 __tmp79744)))) + (cons __tmp79754 __tmp79749)))) (declare (not safe)) - (cons __tmp79750 __tmp79743)))) + (cons __tmp79755 __tmp79748)))) (declare (not safe)) - (cons __tmp79742 '())))) + (cons __tmp79747 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp79751 - __tmp79741)))) + (cons __tmp79756 + __tmp79746)))) (declare (not safe)) - (cons __tmp79758 __tmp79740)))) + (cons __tmp79763 __tmp79745)))) (declare (not safe)) - (cons __tmp79739 '())))) + (cons __tmp79744 '())))) (declare (not safe)) - (cons __tmp79759 __tmp79738)))) + (cons __tmp79764 __tmp79743)))) (declare (not safe)) - (cons __tmp79760 __tmp79737)))) + (cons __tmp79765 __tmp79742)))) (declare (not safe)) - (cons __tmp79736 '())))) + (cons __tmp79741 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp79761 __tmp79735))) - (__tmp79713 - (let ((__tmp79714 - (let ((__tmp79733 + (cons __tmp79766 __tmp79740))) + (__tmp79718 + (let ((__tmp79719 + (let ((__tmp79738 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'xtor))) - (__tmp79715 - (let ((__tmp79716 + (__tmp79720 + (let ((__tmp79721 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp79732 + (let ((__tmp79737 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'or))) - (__tmp79717 - (let ((__tmp79729 - (let ((__tmp79731 + (__tmp79722 + (let ((__tmp79734 + (let ((__tmp79736 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp79730 + (__tmp79735 (let () (declare (not safe)) - (cons _L75778_ '())))) + (cons _L75783_ '())))) (declare (not safe)) - (cons __tmp79731 __tmp79730))) - (__tmp79718 - (let ((__tmp79719 - (let ((__tmp79728 + (cons __tmp79736 __tmp79735))) + (__tmp79723 + (let ((__tmp79724 + (let ((__tmp79733 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'if))) - (__tmp79720 - (let ((__tmp79727 + (__tmp79725 + (let ((__tmp79732 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'super-type))) - (__tmp79721 - (let ((__tmp79723 - (let ((__tmp79726 + (__tmp79726 + (let ((__tmp79728 + (let ((__tmp79731 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '!struct-type-ctor))) - (__tmp79724 - (let ((__tmp79725 + (__tmp79729 + (let ((__tmp79730 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'super-type)))) (declare (not safe)) - (cons __tmp79725 '())))) + (cons __tmp79730 '())))) (declare (not safe)) - (cons __tmp79726 __tmp79724))) - (__tmp79722 + (cons __tmp79731 __tmp79729))) + (__tmp79727 (let () (declare (not safe)) (cons '#!void '())))) (declare (not safe)) - (cons __tmp79723 __tmp79722)))) + (cons __tmp79728 __tmp79727)))) (declare (not safe)) - (cons __tmp79727 __tmp79721)))) + (cons __tmp79732 __tmp79726)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp79728 - __tmp79720)))) + (cons __tmp79733 + __tmp79725)))) (declare (not safe)) - (cons __tmp79719 '())))) + (cons __tmp79724 '())))) (declare (not safe)) - (cons __tmp79729 __tmp79718)))) + (cons __tmp79734 __tmp79723)))) (declare (not safe)) - (cons __tmp79732 __tmp79717)))) + (cons __tmp79737 __tmp79722)))) (declare (not safe)) - (cons __tmp79716 '())))) + (cons __tmp79721 '())))) (declare (not safe)) - (cons __tmp79733 __tmp79715)))) + (cons __tmp79738 __tmp79720)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp79714 '())))) + (cons __tmp79719 '())))) (declare (not safe)) - (cons __tmp79734 __tmp79713)))) + (cons __tmp79739 __tmp79718)))) (declare (not safe)) - (cons __tmp79762 __tmp79712))) - (__tmp79691 - (let ((__tmp79692 - (let ((__tmp79710 + (cons __tmp79767 __tmp79717))) + (__tmp79696 + (let ((__tmp79697 + (let ((__tmp79715 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!struct-type))) - (__tmp79693 - (let ((__tmp79707 - (let ((__tmp79709 + (__tmp79698 + (let ((__tmp79712 + (let ((__tmp79714 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp79708 + (__tmp79713 (let () (declare (not safe)) - (cons _L75781_ + (cons _L75786_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp79709 __tmp79708))) + (cons __tmp79714 __tmp79713))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp79694 - (let ((__tmp79704 - (let ((__tmp79706 + (__tmp79699 + (let ((__tmp79709 + (let ((__tmp79711 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp79705 - (let () (declare (not safe)) (cons _L75780_ '())))) + (__tmp79710 + (let () (declare (not safe)) (cons _L75785_ '())))) (declare (not safe)) - (cons __tmp79706 __tmp79705))) - (__tmp79695 - (let ((__tmp79696 - (let ((__tmp79703 + (cons __tmp79711 __tmp79710))) + (__tmp79700 + (let ((__tmp79701 + (let ((__tmp79708 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'xfields))) - (__tmp79697 - (let ((__tmp79702 + (__tmp79702 + (let ((__tmp79707 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'xtor))) - (__tmp79698 - (let ((__tmp79699 - (let ((__tmp79701 + (__tmp79703 + (let ((__tmp79704 + (let ((__tmp79706 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp79700 + (__tmp79705 (let () (declare (not safe)) - (cons _L75776_ '())))) + (cons _L75781_ '())))) (declare (not safe)) - (cons __tmp79701 - __tmp79700)))) + (cons __tmp79706 + __tmp79705)))) (declare (not safe)) - (cons __tmp79699 '())))) + (cons __tmp79704 '())))) (declare (not safe)) - (cons __tmp79702 __tmp79698)))) + (cons __tmp79707 __tmp79703)))) (declare (not safe)) - (cons __tmp79703 __tmp79697)))) + (cons __tmp79708 __tmp79702)))) (declare (not safe)) - (cons _L75779_ __tmp79696)))) + (cons _L75784_ __tmp79701)))) (declare (not safe)) - (cons __tmp79704 __tmp79695)))) + (cons __tmp79709 __tmp79700)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp79707 __tmp79694)))) + (cons __tmp79712 __tmp79699)))) (declare (not safe)) - (cons __tmp79710 __tmp79693)))) + (cons __tmp79715 __tmp79698)))) (declare (not safe)) - (cons __tmp79692 '())))) + (cons __tmp79697 '())))) (declare (not safe)) - (cons __tmp79711 __tmp79691)))) + (cons __tmp79716 __tmp79696)))) (declare (not safe)) - (cons __tmp79771 __tmp79690))))) - (if (let () (declare (not safe)) (gx#stx-pair? ___stx7891578916_)) - (let ((_e7566475813_ + (cons __tmp79776 __tmp79695))))) + (if (let () (declare (not safe)) (gx#stx-pair? ___stx7892078921_)) + (let ((_e7566975818_ (let () (declare (not safe)) - (gx#syntax-e ___stx7891578916_)))) - (let ((_tl7566275820_ - (let () (declare (not safe)) (##cdr _e7566475813_))) - (_hd7566375817_ - (let () (declare (not safe)) (##car _e7566475813_)))) + (gx#syntax-e ___stx7892078921_)))) + (let ((_tl7566775825_ + (let () (declare (not safe)) (##cdr _e7566975818_))) + (_hd7566875822_ + (let () (declare (not safe)) (##car _e7566975818_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl7566275820_)) - (let ((_e7566775823_ + (gx#stx-pair? _tl7566775825_)) + (let ((_e7567275828_ (let () (declare (not safe)) - (gx#syntax-e _tl7566275820_)))) - (let ((_tl7566575830_ + (gx#syntax-e _tl7566775825_)))) + (let ((_tl7567075835_ (let () (declare (not safe)) - (##cdr _e7566775823_))) - (_hd7566675827_ + (##cdr _e7567275828_))) + (_hd7567175832_ (let () (declare (not safe)) - (##car _e7566775823_)))) + (##car _e7567275828_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl7566575830_)) - (let ((_e7567075833_ + (gx#stx-pair? _tl7567075835_)) + (let ((_e7567575838_ (let () (declare (not safe)) - (gx#syntax-e _tl7566575830_)))) - (let ((_tl7566875840_ + (gx#syntax-e _tl7567075835_)))) + (let ((_tl7567375845_ (let () (declare (not safe)) - (##cdr _e7567075833_))) - (_hd7566975837_ + (##cdr _e7567575838_))) + (_hd7567475842_ (let () (declare (not safe)) - (##car _e7567075833_)))) + (##car _e7567575838_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd7566975837_)) - (let ((_e7567175843_ + (gx#stx-datum? _hd7567475842_)) + (let ((_e7567675848_ (let () (declare (not safe)) - (gx#stx-e _hd7566975837_)))) + (gx#stx-e _hd7567475842_)))) (if (let () (declare (not safe)) - (equal? _e7567175843_ '#f)) + (equal? _e7567675848_ '#f)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl7566875840_)) - (let ((_e7567475847_ + _tl7567375845_)) + (let ((_e7567975852_ (let () (declare (not safe)) (gx#syntax-e - _tl7566875840_)))) - (let ((_tl7567275854_ + _tl7567375845_)))) + (let ((_tl7567775859_ (let () (declare (not safe)) - (##cdr _e7567475847_))) - (_hd7567375851_ + (##cdr _e7567975852_))) + (_hd7567875856_ (let () (declare (not safe)) - (##car _e7567475847_)))) + (##car _e7567975852_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl7567275854_)) - (let ((_e7567775857_ + _tl7567775859_)) + (let ((_e7568275862_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _tl7567275854_)))) - (let ((_tl7567575864_ - (let () (declare (not safe)) (##cdr _e7567775857_))) - (_hd7567675861_ - (let () (declare (not safe)) (##car _e7567775857_)))) + (gx#syntax-e _tl7567775859_)))) + (let ((_tl7568075869_ + (let () (declare (not safe)) (##cdr _e7568275862_))) + (_hd7568175866_ + (let () (declare (not safe)) (##car _e7568275862_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl7567575864_)) - (let ((_e7568075867_ + (gx#stx-pair? _tl7568075869_)) + (let ((_e7568575872_ (let () (declare (not safe)) - (gx#syntax-e _tl7567575864_)))) - (let ((_tl7567875874_ + (gx#syntax-e _tl7568075869_)))) + (let ((_tl7568375879_ (let () (declare (not safe)) - (##cdr _e7568075867_))) - (_hd7567975871_ + (##cdr _e7568575872_))) + (_hd7568475876_ (let () (declare (not safe)) - (##car _e7568075867_)))) + (##car _e7568575872_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl7567875874_)) - (___kont7891878919_ - _hd7567975871_ - _hd7567675861_ - _hd7567375851_ - _hd7566675827_) + (gx#stx-null? _tl7568375879_)) + (___kont7892378924_ + _hd7568475876_ + _hd7568175866_ + _hd7567875856_ + _hd7567175832_) (let () (declare (not safe)) - (_g7565675709_))))) - (let () (declare (not safe)) (_g7565675709_))))) - (let () (declare (not safe)) (_g7565675709_))))) + (_g7566175714_))))) + (let () (declare (not safe)) (_g7566175714_))))) + (let () (declare (not safe)) (_g7566175714_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g7565675709_))) + (_g7566175714_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl7566875840_)) - (let ((_e7569775746_ + _tl7567375845_)) + (let ((_e7570275751_ (let () (declare (not safe)) (gx#syntax-e - _tl7566875840_)))) - (let ((_tl7569575753_ + _tl7567375845_)))) + (let ((_tl7570075758_ (let () (declare (not safe)) - (##cdr _e7569775746_))) - (_hd7569675750_ + (##cdr _e7570275751_))) + (_hd7570175755_ (let () (declare (not safe)) - (##car _e7569775746_)))) + (##car _e7570275751_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl7569575753_)) - (let ((_e7570075756_ + _tl7570075758_)) + (let ((_e7570575761_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _tl7569575753_)))) - (let ((_tl7569875763_ - (let () (declare (not safe)) (##cdr _e7570075756_))) - (_hd7569975760_ - (let () (declare (not safe)) (##car _e7570075756_)))) + (gx#syntax-e _tl7570075758_)))) + (let ((_tl7570375768_ + (let () (declare (not safe)) (##cdr _e7570575761_))) + (_hd7570475765_ + (let () (declare (not safe)) (##car _e7570575761_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl7569875763_)) - (let ((_e7570375766_ + (gx#stx-pair? _tl7570375768_)) + (let ((_e7570875771_ (let () (declare (not safe)) - (gx#syntax-e _tl7569875763_)))) - (let ((_tl7570175773_ + (gx#syntax-e _tl7570375768_)))) + (let ((_tl7570675778_ (let () (declare (not safe)) - (##cdr _e7570375766_))) - (_hd7570275770_ + (##cdr _e7570875771_))) + (_hd7570775775_ (let () (declare (not safe)) - (##car _e7570375766_)))) + (##car _e7570875771_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl7570175773_)) - (___kont7892078921_ - _hd7570275770_ - _hd7569975760_ - _hd7569675750_ - _hd7566975837_ - _hd7566675827_) + (gx#stx-null? _tl7570675778_)) + (___kont7892578926_ + _hd7570775775_ + _hd7570475765_ + _hd7570175755_ + _hd7567475842_ + _hd7567175832_) (let () (declare (not safe)) - (_g7565675709_))))) - (let () (declare (not safe)) (_g7565675709_))))) - (let () (declare (not safe)) (_g7565675709_))))) + (_g7566175714_))))) + (let () (declare (not safe)) (_g7566175714_))))) + (let () (declare (not safe)) (_g7566175714_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g7565675709_))))) + (_g7566175714_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl7566875840_)) - (let ((_e7569775746_ + (gx#stx-pair? _tl7567375845_)) + (let ((_e7570275751_ (let () (declare (not safe)) (gx#syntax-e - _tl7566875840_)))) - (let ((_tl7569575753_ + _tl7567375845_)))) + (let ((_tl7570075758_ (let () (declare (not safe)) - (##cdr _e7569775746_))) - (_hd7569675750_ + (##cdr _e7570275751_))) + (_hd7570175755_ (let () (declare (not safe)) - (##car _e7569775746_)))) + (##car _e7570275751_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl7569575753_)) - (let ((_e7570075756_ + _tl7570075758_)) + (let ((_e7570575761_ (let () (declare (not safe)) (gx#syntax-e - _tl7569575753_)))) - (let ((_tl7569875763_ + _tl7570075758_)))) + (let ((_tl7570375768_ (let () (declare (not safe)) - (##cdr _e7570075756_))) - (_hd7569975760_ + (##cdr _e7570575761_))) + (_hd7570475765_ (let () (declare (not safe)) - (##car _e7570075756_)))) + (##car _e7570575761_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl7569875763_)) - (let ((_e7570375766_ + _tl7570375768_)) + (let ((_e7570875771_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _tl7569875763_)))) - (let ((_tl7570175773_ - (let () (declare (not safe)) (##cdr _e7570375766_))) - (_hd7570275770_ + (gx#syntax-e _tl7570375768_)))) + (let ((_tl7570675778_ + (let () (declare (not safe)) (##cdr _e7570875771_))) + (_hd7570775775_ (let () (declare (not safe)) - (##car _e7570375766_)))) + (##car _e7570875771_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl7570175773_)) - (___kont7892078921_ - _hd7570275770_ - _hd7569975760_ - _hd7569675750_ - _hd7566975837_ - _hd7566675827_) - (let () (declare (not safe)) (_g7565675709_))))) - (let () (declare (not safe)) (_g7565675709_))))) + (gx#stx-null? _tl7570675778_)) + (___kont7892578926_ + _hd7570775775_ + _hd7570475765_ + _hd7570175755_ + _hd7567475842_ + _hd7567175832_) + (let () (declare (not safe)) (_g7566175714_))))) + (let () (declare (not safe)) (_g7566175714_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g7565675709_))))) + (_g7566175714_))))) (let () (declare (not safe)) - (_g7565675709_)))))) - (let () (declare (not safe)) (_g7565675709_))))) - (let () (declare (not safe)) (_g7565675709_))))) - (let () (declare (not safe)) (_g7565675709_))))))) + (_g7566175714_)))))) + (let () (declare (not safe)) (_g7566175714_))))) + (let () (declare (not safe)) (_g7566175714_))))) + (let () (declare (not safe)) (_g7566175714_))))))) (define |gxc[:0:]#@struct-pred| - (lambda (_$stx75909_) - (let* ((_g7591375927_ - (lambda (_g7591475923_) + (lambda (_$stx75914_) + (let* ((_g7591875932_ + (lambda (_g7591975928_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g7591475923_)))) - (_g7591275968_ - (lambda (_g7591475931_) - (if (let () (declare (not safe)) (gx#stx-pair? _g7591475931_)) - (let ((_e7591875934_ + (gx#raise-syntax-error '#f '"Bad syntax" _g7591975928_)))) + (_g7591775973_ + (lambda (_g7591975936_) + (if (let () (declare (not safe)) (gx#stx-pair? _g7591975936_)) + (let ((_e7592375939_ (let () (declare (not safe)) - (gx#syntax-e _g7591475931_)))) - (let ((_hd7591775938_ + (gx#syntax-e _g7591975936_)))) + (let ((_hd7592275943_ (let () (declare (not safe)) - (##car _e7591875934_))) - (_tl7591675941_ + (##car _e7592375939_))) + (_tl7592175946_ (let () (declare (not safe)) - (##cdr _e7591875934_)))) + (##cdr _e7592375939_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl7591675941_)) - (let ((_e7592175944_ + (gx#stx-pair? _tl7592175946_)) + (let ((_e7592675949_ (let () (declare (not safe)) - (gx#syntax-e _tl7591675941_)))) - (let ((_hd7592075948_ + (gx#syntax-e _tl7592175946_)))) + (let ((_hd7592575953_ (let () (declare (not safe)) - (##car _e7592175944_))) - (_tl7591975951_ + (##car _e7592675949_))) + (_tl7592475956_ (let () (declare (not safe)) - (##cdr _e7592175944_)))) + (##cdr _e7592675949_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl7591975951_)) - ((lambda (_L75954_) - (let ((__tmp79776 + (gx#stx-null? _tl7592475956_)) + ((lambda (_L75959_) + (let ((__tmp79781 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!struct-pred))) - (__tmp79772 - (let ((__tmp79773 - (let ((__tmp79775 + (__tmp79777 + (let ((__tmp79778 + (let ((__tmp79780 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp79774 + (__tmp79779 (let () (declare (not safe)) - (cons _L75954_ + (cons _L75959_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp79775 __tmp79774)))) + (cons __tmp79780 __tmp79779)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp79773 '())))) + (cons __tmp79778 '())))) (declare (not safe)) - (cons __tmp79776 __tmp79772))) - _hd7592075948_) - (_g7591375927_ _g7591475931_)))) - (_g7591375927_ _g7591475931_)))) - (_g7591375927_ _g7591475931_))))) - (_g7591275968_ _$stx75909_)))) + (cons __tmp79781 __tmp79777))) + _hd7592575953_) + (_g7591875932_ _g7591975936_)))) + (_g7591875932_ _g7591975936_)))) + (_g7591875932_ _g7591975936_))))) + (_g7591775973_ _$stx75914_)))) (define |gxc[:0:]#@struct-cons| - (lambda (_$stx75972_) - (let* ((_g7597675990_ - (lambda (_g7597775986_) + (lambda (_$stx75977_) + (let* ((_g7598175995_ + (lambda (_g7598275991_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g7597775986_)))) - (_g7597576031_ - (lambda (_g7597775994_) - (if (let () (declare (not safe)) (gx#stx-pair? _g7597775994_)) - (let ((_e7598175997_ + (gx#raise-syntax-error '#f '"Bad syntax" _g7598275991_)))) + (_g7598076036_ + (lambda (_g7598275999_) + (if (let () (declare (not safe)) (gx#stx-pair? _g7598275999_)) + (let ((_e7598676002_ (let () (declare (not safe)) - (gx#syntax-e _g7597775994_)))) - (let ((_hd7598076001_ + (gx#syntax-e _g7598275999_)))) + (let ((_hd7598576006_ (let () (declare (not safe)) - (##car _e7598175997_))) - (_tl7597976004_ + (##car _e7598676002_))) + (_tl7598476009_ (let () (declare (not safe)) - (##cdr _e7598175997_)))) + (##cdr _e7598676002_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl7597976004_)) - (let ((_e7598476007_ + (gx#stx-pair? _tl7598476009_)) + (let ((_e7598976012_ (let () (declare (not safe)) - (gx#syntax-e _tl7597976004_)))) - (let ((_hd7598376011_ + (gx#syntax-e _tl7598476009_)))) + (let ((_hd7598876016_ (let () (declare (not safe)) - (##car _e7598476007_))) - (_tl7598276014_ + (##car _e7598976012_))) + (_tl7598776019_ (let () (declare (not safe)) - (##cdr _e7598476007_)))) + (##cdr _e7598976012_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl7598276014_)) - ((lambda (_L76017_) - (let ((__tmp79781 + (gx#stx-null? _tl7598776019_)) + ((lambda (_L76022_) + (let ((__tmp79786 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!struct-cons))) - (__tmp79777 - (let ((__tmp79778 - (let ((__tmp79780 + (__tmp79782 + (let ((__tmp79783 + (let ((__tmp79785 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp79779 + (__tmp79784 (let () (declare (not safe)) - (cons _L76017_ + (cons _L76022_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp79780 __tmp79779)))) + (cons __tmp79785 __tmp79784)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp79778 '())))) + (cons __tmp79783 '())))) (declare (not safe)) - (cons __tmp79781 __tmp79777))) - _hd7598376011_) - (_g7597675990_ _g7597775994_)))) - (_g7597675990_ _g7597775994_)))) - (_g7597675990_ _g7597775994_))))) - (_g7597576031_ _$stx75972_)))) + (cons __tmp79786 __tmp79782))) + _hd7598876016_) + (_g7598175995_ _g7598275999_)))) + (_g7598175995_ _g7598275999_)))) + (_g7598175995_ _g7598275999_))))) + (_g7598076036_ _$stx75977_)))) (define |gxc[:0:]#@struct-getf| - (lambda (_$stx76035_) - (let* ((___stx7900779008_ _$stx76035_) - (_g7604076073_ + (lambda (_$stx76040_) + (let* ((___stx7901279013_ _$stx76040_) + (_g7604576078_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax" - ___stx7900779008_))))) - (let ((___kont7901079011_ - (lambda (_L76175_ _L76177_ _L76178_) - (let ((__tmp79788 + ___stx7901279013_))))) + (let ((___kont7901579016_ + (lambda (_L76180_ _L76182_ _L76183_) + (let ((__tmp79793 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!struct-getf))) - (__tmp79782 - (let ((__tmp79785 - (let ((__tmp79787 + (__tmp79787 + (let ((__tmp79790 + (let ((__tmp79792 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp79786 + (__tmp79791 (let () (declare (not safe)) - (cons _L76178_ '())))) + (cons _L76183_ '())))) (declare (not safe)) - (cons __tmp79787 __tmp79786))) - (__tmp79783 - (let ((__tmp79784 + (cons __tmp79792 __tmp79791))) + (__tmp79788 + (let ((__tmp79789 (let () (declare (not safe)) - (cons _L76175_ '())))) + (cons _L76180_ '())))) (declare (not safe)) - (cons _L76177_ __tmp79784)))) + (cons _L76182_ __tmp79789)))) (declare (not safe)) - (cons __tmp79785 __tmp79783)))) + (cons __tmp79790 __tmp79788)))) (declare (not safe)) - (cons __tmp79788 __tmp79782)))) - (___kont7901279013_ - (lambda (_L76110_ _L76112_) - (let ((__tmp79795 + (cons __tmp79793 __tmp79787)))) + (___kont7901779018_ + (lambda (_L76115_ _L76117_) + (let ((__tmp79800 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!struct-getf))) - (__tmp79789 - (let ((__tmp79792 - (let ((__tmp79794 + (__tmp79794 + (let ((__tmp79797 + (let ((__tmp79799 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp79793 + (__tmp79798 (let () (declare (not safe)) - (cons _L76112_ '())))) + (cons _L76117_ '())))) (declare (not safe)) - (cons __tmp79794 __tmp79793))) - (__tmp79790 - (let ((__tmp79791 + (cons __tmp79799 __tmp79798))) + (__tmp79795 + (let ((__tmp79796 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons _L76110_ __tmp79791)))) + (cons _L76115_ __tmp79796)))) (declare (not safe)) - (cons __tmp79792 __tmp79790)))) + (cons __tmp79797 __tmp79795)))) (declare (not safe)) - (cons __tmp79795 __tmp79789))))) - (if (let () (declare (not safe)) (gx#stx-pair? ___stx7900779008_)) - (let ((_e7604776135_ + (cons __tmp79800 __tmp79794))))) + (if (let () (declare (not safe)) (gx#stx-pair? ___stx7901279013_)) + (let ((_e7605276140_ (let () (declare (not safe)) - (gx#syntax-e ___stx7900779008_)))) - (let ((_tl7604576142_ - (let () (declare (not safe)) (##cdr _e7604776135_))) - (_hd7604676139_ - (let () (declare (not safe)) (##car _e7604776135_)))) + (gx#syntax-e ___stx7901279013_)))) + (let ((_tl7605076147_ + (let () (declare (not safe)) (##cdr _e7605276140_))) + (_hd7605176144_ + (let () (declare (not safe)) (##car _e7605276140_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl7604576142_)) - (let ((_e7605076145_ + (gx#stx-pair? _tl7605076147_)) + (let ((_e7605576150_ (let () (declare (not safe)) - (gx#syntax-e _tl7604576142_)))) - (let ((_tl7604876152_ + (gx#syntax-e _tl7605076147_)))) + (let ((_tl7605376157_ (let () (declare (not safe)) - (##cdr _e7605076145_))) - (_hd7604976149_ + (##cdr _e7605576150_))) + (_hd7605476154_ (let () (declare (not safe)) - (##car _e7605076145_)))) + (##car _e7605576150_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl7604876152_)) - (let ((_e7605376155_ + (gx#stx-pair? _tl7605376157_)) + (let ((_e7605876160_ (let () (declare (not safe)) - (gx#syntax-e _tl7604876152_)))) - (let ((_tl7605176162_ + (gx#syntax-e _tl7605376157_)))) + (let ((_tl7605676167_ (let () (declare (not safe)) - (##cdr _e7605376155_))) - (_hd7605276159_ + (##cdr _e7605876160_))) + (_hd7605776164_ (let () (declare (not safe)) - (##car _e7605376155_)))) + (##car _e7605876160_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl7605176162_)) - (let ((_e7605676165_ + (gx#stx-pair? _tl7605676167_)) + (let ((_e7606176170_ (let () (declare (not safe)) - (gx#syntax-e _tl7605176162_)))) - (let ((_tl7605476172_ + (gx#syntax-e _tl7605676167_)))) + (let ((_tl7605976177_ (let () (declare (not safe)) - (##cdr _e7605676165_))) - (_hd7605576169_ + (##cdr _e7606176170_))) + (_hd7606076174_ (let () (declare (not safe)) - (##car _e7605676165_)))) + (##car _e7606176170_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl7605476172_)) - (___kont7901079011_ - _hd7605576169_ - _hd7605276159_ - _hd7604976149_) + (gx#stx-null? _tl7605976177_)) + (___kont7901579016_ + _hd7606076174_ + _hd7605776164_ + _hd7605476154_) (let () (declare (not safe)) - (_g7604076073_))))) + (_g7604576078_))))) (if (let () (declare (not safe)) - (gx#stx-null? _tl7605176162_)) - (___kont7901279013_ - _hd7605276159_ - _hd7604976149_) + (gx#stx-null? _tl7605676167_)) + (___kont7901779018_ + _hd7605776164_ + _hd7605476154_) (let () (declare (not safe)) - (_g7604076073_)))))) - (let () (declare (not safe)) (_g7604076073_))))) - (let () (declare (not safe)) (_g7604076073_))))) - (let () (declare (not safe)) (_g7604076073_))))))) + (_g7604576078_)))))) + (let () (declare (not safe)) (_g7604576078_))))) + (let () (declare (not safe)) (_g7604576078_))))) + (let () (declare (not safe)) (_g7604576078_))))))) (define |gxc[:0:]#@struct-setf| - (lambda (_$stx76200_) - (let* ((___stx7906379064_ _$stx76200_) - (_g7620576238_ + (lambda (_$stx76205_) + (let* ((___stx7906879069_ _$stx76205_) + (_g7621076243_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax" - ___stx7906379064_))))) - (let ((___kont7906679067_ - (lambda (_L76340_ _L76342_ _L76343_) - (let ((__tmp79802 + ___stx7906879069_))))) + (let ((___kont7907179072_ + (lambda (_L76345_ _L76347_ _L76348_) + (let ((__tmp79807 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!struct-setf))) - (__tmp79796 - (let ((__tmp79799 - (let ((__tmp79801 + (__tmp79801 + (let ((__tmp79804 + (let ((__tmp79806 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp79800 + (__tmp79805 (let () (declare (not safe)) - (cons _L76343_ '())))) + (cons _L76348_ '())))) (declare (not safe)) - (cons __tmp79801 __tmp79800))) - (__tmp79797 - (let ((__tmp79798 + (cons __tmp79806 __tmp79805))) + (__tmp79802 + (let ((__tmp79803 (let () (declare (not safe)) - (cons _L76340_ '())))) + (cons _L76345_ '())))) (declare (not safe)) - (cons _L76342_ __tmp79798)))) + (cons _L76347_ __tmp79803)))) (declare (not safe)) - (cons __tmp79799 __tmp79797)))) + (cons __tmp79804 __tmp79802)))) (declare (not safe)) - (cons __tmp79802 __tmp79796)))) - (___kont7906879069_ - (lambda (_L76275_ _L76277_) - (let ((__tmp79809 + (cons __tmp79807 __tmp79801)))) + (___kont7907379074_ + (lambda (_L76280_ _L76282_) + (let ((__tmp79814 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!struct-setf))) - (__tmp79803 - (let ((__tmp79806 - (let ((__tmp79808 + (__tmp79808 + (let ((__tmp79811 + (let ((__tmp79813 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp79807 + (__tmp79812 (let () (declare (not safe)) - (cons _L76277_ '())))) + (cons _L76282_ '())))) (declare (not safe)) - (cons __tmp79808 __tmp79807))) - (__tmp79804 - (let ((__tmp79805 + (cons __tmp79813 __tmp79812))) + (__tmp79809 + (let ((__tmp79810 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons _L76275_ __tmp79805)))) + (cons _L76280_ __tmp79810)))) (declare (not safe)) - (cons __tmp79806 __tmp79804)))) + (cons __tmp79811 __tmp79809)))) (declare (not safe)) - (cons __tmp79809 __tmp79803))))) - (if (let () (declare (not safe)) (gx#stx-pair? ___stx7906379064_)) - (let ((_e7621276300_ + (cons __tmp79814 __tmp79808))))) + (if (let () (declare (not safe)) (gx#stx-pair? ___stx7906879069_)) + (let ((_e7621776305_ (let () (declare (not safe)) - (gx#syntax-e ___stx7906379064_)))) - (let ((_tl7621076307_ - (let () (declare (not safe)) (##cdr _e7621276300_))) - (_hd7621176304_ - (let () (declare (not safe)) (##car _e7621276300_)))) + (gx#syntax-e ___stx7906879069_)))) + (let ((_tl7621576312_ + (let () (declare (not safe)) (##cdr _e7621776305_))) + (_hd7621676309_ + (let () (declare (not safe)) (##car _e7621776305_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl7621076307_)) - (let ((_e7621576310_ + (gx#stx-pair? _tl7621576312_)) + (let ((_e7622076315_ (let () (declare (not safe)) - (gx#syntax-e _tl7621076307_)))) - (let ((_tl7621376317_ + (gx#syntax-e _tl7621576312_)))) + (let ((_tl7621876322_ (let () (declare (not safe)) - (##cdr _e7621576310_))) - (_hd7621476314_ + (##cdr _e7622076315_))) + (_hd7621976319_ (let () (declare (not safe)) - (##car _e7621576310_)))) + (##car _e7622076315_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl7621376317_)) - (let ((_e7621876320_ + (gx#stx-pair? _tl7621876322_)) + (let ((_e7622376325_ (let () (declare (not safe)) - (gx#syntax-e _tl7621376317_)))) - (let ((_tl7621676327_ + (gx#syntax-e _tl7621876322_)))) + (let ((_tl7622176332_ (let () (declare (not safe)) - (##cdr _e7621876320_))) - (_hd7621776324_ + (##cdr _e7622376325_))) + (_hd7622276329_ (let () (declare (not safe)) - (##car _e7621876320_)))) + (##car _e7622376325_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl7621676327_)) - (let ((_e7622176330_ + (gx#stx-pair? _tl7622176332_)) + (let ((_e7622676335_ (let () (declare (not safe)) - (gx#syntax-e _tl7621676327_)))) - (let ((_tl7621976337_ + (gx#syntax-e _tl7622176332_)))) + (let ((_tl7622476342_ (let () (declare (not safe)) - (##cdr _e7622176330_))) - (_hd7622076334_ + (##cdr _e7622676335_))) + (_hd7622576339_ (let () (declare (not safe)) - (##car _e7622176330_)))) + (##car _e7622676335_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl7621976337_)) - (___kont7906679067_ - _hd7622076334_ - _hd7621776324_ - _hd7621476314_) + (gx#stx-null? _tl7622476342_)) + (___kont7907179072_ + _hd7622576339_ + _hd7622276329_ + _hd7621976319_) (let () (declare (not safe)) - (_g7620576238_))))) + (_g7621076243_))))) (if (let () (declare (not safe)) - (gx#stx-null? _tl7621676327_)) - (___kont7906879069_ - _hd7621776324_ - _hd7621476314_) + (gx#stx-null? _tl7622176332_)) + (___kont7907379074_ + _hd7622276329_ + _hd7621976319_) (let () (declare (not safe)) - (_g7620576238_)))))) - (let () (declare (not safe)) (_g7620576238_))))) - (let () (declare (not safe)) (_g7620576238_))))) - (let () (declare (not safe)) (_g7620576238_))))))) + (_g7621076243_)))))) + (let () (declare (not safe)) (_g7621076243_))))) + (let () (declare (not safe)) (_g7621076243_))))) + (let () (declare (not safe)) (_g7621076243_))))))) (define |gxc[:0:]#@class-type| - (lambda (_$stx76365_) - (let* ((_g7636976407_ - (lambda (_g7637076403_) + (lambda (_$stx76370_) + (let* ((_g7637476412_ + (lambda (_g7637576408_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g7637076403_)))) - (_g7636876532_ - (lambda (_g7637076411_) - (if (let () (declare (not safe)) (gx#stx-pair? _g7637076411_)) - (let ((_e7638076414_ + (gx#raise-syntax-error '#f '"Bad syntax" _g7637576408_)))) + (_g7637376537_ + (lambda (_g7637576416_) + (if (let () (declare (not safe)) (gx#stx-pair? _g7637576416_)) + (let ((_e7638576419_ (let () (declare (not safe)) - (gx#syntax-e _g7637076411_)))) - (let ((_hd7637976418_ + (gx#syntax-e _g7637576416_)))) + (let ((_hd7638476423_ (let () (declare (not safe)) - (##car _e7638076414_))) - (_tl7637876421_ + (##car _e7638576419_))) + (_tl7638376426_ (let () (declare (not safe)) - (##cdr _e7638076414_)))) + (##cdr _e7638576419_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl7637876421_)) - (let ((_e7638376424_ + (gx#stx-pair? _tl7638376426_)) + (let ((_e7638876429_ (let () (declare (not safe)) - (gx#syntax-e _tl7637876421_)))) - (let ((_hd7638276428_ + (gx#syntax-e _tl7638376426_)))) + (let ((_hd7638776433_ (let () (declare (not safe)) - (##car _e7638376424_))) - (_tl7638176431_ + (##car _e7638876429_))) + (_tl7638676436_ (let () (declare (not safe)) - (##cdr _e7638376424_)))) + (##cdr _e7638876429_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl7638176431_)) - (let ((_e7638676434_ + (gx#stx-pair? _tl7638676436_)) + (let ((_e7639176439_ (let () (declare (not safe)) - (gx#syntax-e _tl7638176431_)))) - (let ((_hd7638576438_ + (gx#syntax-e _tl7638676436_)))) + (let ((_hd7639076443_ (let () (declare (not safe)) - (##car _e7638676434_))) - (_tl7638476441_ + (##car _e7639176439_))) + (_tl7638976446_ (let () (declare (not safe)) - (##cdr _e7638676434_)))) + (##cdr _e7639176439_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl7638476441_)) - (let ((_e7638976444_ + (gx#stx-pair? _tl7638976446_)) + (let ((_e7639476449_ (let () (declare (not safe)) (gx#syntax-e - _tl7638476441_)))) - (let ((_hd7638876448_ + _tl7638976446_)))) + (let ((_hd7639376453_ (let () (declare (not safe)) - (##car _e7638976444_))) - (_tl7638776451_ + (##car _e7639476449_))) + (_tl7639276456_ (let () (declare (not safe)) - (##cdr _e7638976444_)))) + (##cdr _e7639476449_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl7638776451_)) - (let ((_e7639276454_ + _tl7639276456_)) + (let ((_e7639776459_ (let () (declare (not safe)) (gx#syntax-e - _tl7638776451_)))) - (let ((_hd7639176458_ + _tl7639276456_)))) + (let ((_hd7639676463_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e7639276454_))) - (_tl7639076461_ - (let () (declare (not safe)) (##cdr _e7639276454_)))) - (if (let () (declare (not safe)) (gx#stx-pair? _tl7639076461_)) - (let ((_e7639576464_ + (##car _e7639776459_))) + (_tl7639576466_ + (let () (declare (not safe)) (##cdr _e7639776459_)))) + (if (let () (declare (not safe)) (gx#stx-pair? _tl7639576466_)) + (let ((_e7640076469_ (let () (declare (not safe)) - (gx#syntax-e _tl7639076461_)))) - (let ((_hd7639476468_ + (gx#syntax-e _tl7639576466_)))) + (let ((_hd7639976473_ (let () (declare (not safe)) - (##car _e7639576464_))) - (_tl7639376471_ + (##car _e7640076469_))) + (_tl7639876476_ (let () (declare (not safe)) - (##cdr _e7639576464_)))) + (##cdr _e7640076469_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl7639376471_)) - (let ((_e7639876474_ + (gx#stx-pair? _tl7639876476_)) + (let ((_e7640376479_ (let () (declare (not safe)) - (gx#syntax-e _tl7639376471_)))) - (let ((_hd7639776478_ + (gx#syntax-e _tl7639876476_)))) + (let ((_hd7640276483_ (let () (declare (not safe)) - (##car _e7639876474_))) - (_tl7639676481_ + (##car _e7640376479_))) + (_tl7640176486_ (let () (declare (not safe)) - (##cdr _e7639876474_)))) + (##cdr _e7640376479_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl7639676481_)) - (let ((_e7640176484_ + (gx#stx-pair? _tl7640176486_)) + (let ((_e7640676489_ (let () (declare (not safe)) - (gx#syntax-e _tl7639676481_)))) - (let ((_hd7640076488_ + (gx#syntax-e _tl7640176486_)))) + (let ((_hd7640576493_ (let () (declare (not safe)) - (##car _e7640176484_))) - (_tl7639976491_ + (##car _e7640676489_))) + (_tl7640476496_ (let () (declare (not safe)) - (##cdr _e7640176484_)))) + (##cdr _e7640676489_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl7639976491_)) - ((lambda (_L76494_ - _L76496_ - _L76497_ - _L76498_ - _L76499_ - _L76500_ - _L76501_) - (let ((__tmp79838 + (gx#stx-null? _tl7640476496_)) + ((lambda (_L76499_ + _L76501_ + _L76502_ + _L76503_ + _L76504_ + _L76505_ + _L76506_) + (let ((__tmp79843 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!class-type))) - (__tmp79810 - (let ((__tmp79835 - (let ((__tmp79837 + (__tmp79815 + (let ((__tmp79840 + (let ((__tmp79842 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp79836 - (let () (declare (not safe)) (cons _L76501_ '())))) + (__tmp79841 + (let () (declare (not safe)) (cons _L76506_ '())))) (declare (not safe)) - (cons __tmp79837 __tmp79836))) - (__tmp79811 - (let ((__tmp79832 - (let ((__tmp79834 + (cons __tmp79842 __tmp79841))) + (__tmp79816 + (let ((__tmp79837 + (let ((__tmp79839 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp79833 + (__tmp79838 (let () (declare (not safe)) - (cons _L76500_ '())))) + (cons _L76505_ '())))) (declare (not safe)) - (cons __tmp79834 __tmp79833))) - (__tmp79812 - (let ((__tmp79829 - (let ((__tmp79831 + (cons __tmp79839 __tmp79838))) + (__tmp79817 + (let ((__tmp79834 + (let ((__tmp79836 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp79830 + (__tmp79835 (let () (declare (not safe)) - (cons _L76499_ '())))) + (cons _L76504_ '())))) (declare (not safe)) - (cons __tmp79831 __tmp79830))) - (__tmp79813 - (let ((__tmp79826 - (let ((__tmp79828 + (cons __tmp79836 __tmp79835))) + (__tmp79818 + (let ((__tmp79831 + (let ((__tmp79833 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp79827 + (__tmp79832 (let () (declare (not safe)) - (cons _L76498_ '())))) + (cons _L76503_ '())))) (declare (not safe)) - (cons __tmp79828 __tmp79827))) - (__tmp79814 - (let ((__tmp79823 - (let ((__tmp79825 + (cons __tmp79833 __tmp79832))) + (__tmp79819 + (let ((__tmp79828 + (let ((__tmp79830 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp79824 + (__tmp79829 (let () (declare (not safe)) - (cons _L76497_ + (cons _L76502_ '())))) (declare (not safe)) - (cons __tmp79825 - __tmp79824))) - (__tmp79815 - (let ((__tmp79820 - (let ((__tmp79822 + (cons __tmp79830 + __tmp79829))) + (__tmp79820 + (let ((__tmp79825 + (let ((__tmp79827 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp79821 - (let () (declare (not safe)) (cons _L76496_ '())))) + (__tmp79826 + (let () (declare (not safe)) (cons _L76501_ '())))) (declare (not safe)) - (cons __tmp79822 __tmp79821))) - (__tmp79816 - (let ((__tmp79817 - (let ((__tmp79819 + (cons __tmp79827 __tmp79826))) + (__tmp79821 + (let ((__tmp79822 + (let ((__tmp79824 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp79818 + (__tmp79823 (let () (declare (not safe)) - (cons _L76494_ '())))) + (cons _L76499_ '())))) (declare (not safe)) - (cons __tmp79819 __tmp79818)))) + (cons __tmp79824 __tmp79823)))) (declare (not safe)) - (cons __tmp79817 '())))) + (cons __tmp79822 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp79820 - __tmp79816)))) + (cons __tmp79825 + __tmp79821)))) (declare (not safe)) - (cons __tmp79823 __tmp79815)))) + (cons __tmp79828 __tmp79820)))) (declare (not safe)) - (cons __tmp79826 __tmp79814)))) + (cons __tmp79831 __tmp79819)))) (declare (not safe)) - (cons __tmp79829 __tmp79813)))) + (cons __tmp79834 __tmp79818)))) (declare (not safe)) - (cons __tmp79832 __tmp79812)))) + (cons __tmp79837 __tmp79817)))) (declare (not safe)) - (cons __tmp79835 __tmp79811)))) + (cons __tmp79840 __tmp79816)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp79838 __tmp79810))) - _hd7640076488_ - _hd7639776478_ - _hd7639476468_ - _hd7639176458_ - _hd7638876448_ - _hd7638576438_ - _hd7638276428_) - (_g7636976407_ _g7637076411_)))) - (_g7636976407_ _g7637076411_)))) - (_g7636976407_ _g7637076411_)))) - (_g7636976407_ _g7637076411_)))) + (cons __tmp79843 __tmp79815))) + _hd7640576493_ + _hd7640276483_ + _hd7639976473_ + _hd7639676463_ + _hd7639376453_ + _hd7639076443_ + _hd7638776433_) + (_g7637476412_ _g7637576416_)))) + (_g7637476412_ _g7637576416_)))) + (_g7637476412_ _g7637576416_)))) + (_g7637476412_ _g7637576416_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g7636976407_ - _g7637076411_)))) - (_g7636976407_ _g7637076411_)))) - (_g7636976407_ _g7637076411_)))) - (_g7636976407_ _g7637076411_)))) - (_g7636976407_ _g7637076411_))))) - (_g7636876532_ _$stx76365_)))) + (_g7637476412_ + _g7637576416_)))) + (_g7637476412_ _g7637576416_)))) + (_g7637476412_ _g7637576416_)))) + (_g7637476412_ _g7637576416_)))) + (_g7637476412_ _g7637576416_))))) + (_g7637376537_ _$stx76370_)))) (define |gxc[:0:]#@class-pred| - (lambda (_$stx76536_) - (let* ((_g7654076554_ - (lambda (_g7654176550_) + (lambda (_$stx76541_) + (let* ((_g7654576559_ + (lambda (_g7654676555_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g7654176550_)))) - (_g7653976595_ - (lambda (_g7654176558_) - (if (let () (declare (not safe)) (gx#stx-pair? _g7654176558_)) - (let ((_e7654576561_ + (gx#raise-syntax-error '#f '"Bad syntax" _g7654676555_)))) + (_g7654476600_ + (lambda (_g7654676563_) + (if (let () (declare (not safe)) (gx#stx-pair? _g7654676563_)) + (let ((_e7655076566_ (let () (declare (not safe)) - (gx#syntax-e _g7654176558_)))) - (let ((_hd7654476565_ + (gx#syntax-e _g7654676563_)))) + (let ((_hd7654976570_ (let () (declare (not safe)) - (##car _e7654576561_))) - (_tl7654376568_ + (##car _e7655076566_))) + (_tl7654876573_ (let () (declare (not safe)) - (##cdr _e7654576561_)))) + (##cdr _e7655076566_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl7654376568_)) - (let ((_e7654876571_ + (gx#stx-pair? _tl7654876573_)) + (let ((_e7655376576_ (let () (declare (not safe)) - (gx#syntax-e _tl7654376568_)))) - (let ((_hd7654776575_ + (gx#syntax-e _tl7654876573_)))) + (let ((_hd7655276580_ (let () (declare (not safe)) - (##car _e7654876571_))) - (_tl7654676578_ + (##car _e7655376576_))) + (_tl7655176583_ (let () (declare (not safe)) - (##cdr _e7654876571_)))) + (##cdr _e7655376576_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl7654676578_)) - ((lambda (_L76581_) - (let ((__tmp79843 + (gx#stx-null? _tl7655176583_)) + ((lambda (_L76586_) + (let ((__tmp79848 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!class-pred))) - (__tmp79839 - (let ((__tmp79840 - (let ((__tmp79842 + (__tmp79844 + (let ((__tmp79845 + (let ((__tmp79847 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp79841 + (__tmp79846 (let () (declare (not safe)) - (cons _L76581_ + (cons _L76586_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp79842 __tmp79841)))) + (cons __tmp79847 __tmp79846)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp79840 '())))) + (cons __tmp79845 '())))) (declare (not safe)) - (cons __tmp79843 __tmp79839))) - _hd7654776575_) - (_g7654076554_ _g7654176558_)))) - (_g7654076554_ _g7654176558_)))) - (_g7654076554_ _g7654176558_))))) - (_g7653976595_ _$stx76536_)))) + (cons __tmp79848 __tmp79844))) + _hd7655276580_) + (_g7654576559_ _g7654676563_)))) + (_g7654576559_ _g7654676563_)))) + (_g7654576559_ _g7654676563_))))) + (_g7654476600_ _$stx76541_)))) (define |gxc[:0:]#@class-cons| - (lambda (_$stx76599_) - (let* ((_g7660376617_ - (lambda (_g7660476613_) + (lambda (_$stx76604_) + (let* ((_g7660876622_ + (lambda (_g7660976618_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g7660476613_)))) - (_g7660276658_ - (lambda (_g7660476621_) - (if (let () (declare (not safe)) (gx#stx-pair? _g7660476621_)) - (let ((_e7660876624_ + (gx#raise-syntax-error '#f '"Bad syntax" _g7660976618_)))) + (_g7660776663_ + (lambda (_g7660976626_) + (if (let () (declare (not safe)) (gx#stx-pair? _g7660976626_)) + (let ((_e7661376629_ (let () (declare (not safe)) - (gx#syntax-e _g7660476621_)))) - (let ((_hd7660776628_ + (gx#syntax-e _g7660976626_)))) + (let ((_hd7661276633_ (let () (declare (not safe)) - (##car _e7660876624_))) - (_tl7660676631_ + (##car _e7661376629_))) + (_tl7661176636_ (let () (declare (not safe)) - (##cdr _e7660876624_)))) + (##cdr _e7661376629_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl7660676631_)) - (let ((_e7661176634_ + (gx#stx-pair? _tl7661176636_)) + (let ((_e7661676639_ (let () (declare (not safe)) - (gx#syntax-e _tl7660676631_)))) - (let ((_hd7661076638_ + (gx#syntax-e _tl7661176636_)))) + (let ((_hd7661576643_ (let () (declare (not safe)) - (##car _e7661176634_))) - (_tl7660976641_ + (##car _e7661676639_))) + (_tl7661476646_ (let () (declare (not safe)) - (##cdr _e7661176634_)))) + (##cdr _e7661676639_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl7660976641_)) - ((lambda (_L76644_) - (let ((__tmp79848 + (gx#stx-null? _tl7661476646_)) + ((lambda (_L76649_) + (let ((__tmp79853 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!class-cons))) - (__tmp79844 - (let ((__tmp79845 - (let ((__tmp79847 + (__tmp79849 + (let ((__tmp79850 + (let ((__tmp79852 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp79846 + (__tmp79851 (let () (declare (not safe)) - (cons _L76644_ + (cons _L76649_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp79847 __tmp79846)))) + (cons __tmp79852 __tmp79851)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp79845 '())))) + (cons __tmp79850 '())))) (declare (not safe)) - (cons __tmp79848 __tmp79844))) - _hd7661076638_) - (_g7660376617_ _g7660476621_)))) - (_g7660376617_ _g7660476621_)))) - (_g7660376617_ _g7660476621_))))) - (_g7660276658_ _$stx76599_)))) + (cons __tmp79853 __tmp79849))) + _hd7661576643_) + (_g7660876622_ _g7660976626_)))) + (_g7660876622_ _g7660976626_)))) + (_g7660876622_ _g7660976626_))))) + (_g7660776663_ _$stx76604_)))) (define |gxc[:0:]#@class-getf| - (lambda (_$stx76662_) - (let* ((___stx7911979120_ _$stx76662_) - (_g7666776700_ + (lambda (_$stx76667_) + (let* ((___stx7912479125_ _$stx76667_) + (_g7667276705_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax" - ___stx7911979120_))))) - (let ((___kont7912279123_ - (lambda (_L76802_ _L76804_ _L76805_) - (let ((__tmp79858 + ___stx7912479125_))))) + (let ((___kont7912779128_ + (lambda (_L76807_ _L76809_ _L76810_) + (let ((__tmp79863 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!class-getf))) - (__tmp79849 - (let ((__tmp79855 - (let ((__tmp79857 + (__tmp79854 + (let ((__tmp79860 + (let ((__tmp79862 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp79856 + (__tmp79861 (let () (declare (not safe)) - (cons _L76805_ '())))) + (cons _L76810_ '())))) (declare (not safe)) - (cons __tmp79857 __tmp79856))) - (__tmp79850 - (let ((__tmp79852 - (let ((__tmp79854 + (cons __tmp79862 __tmp79861))) + (__tmp79855 + (let ((__tmp79857 + (let ((__tmp79859 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp79853 + (__tmp79858 (let () (declare (not safe)) - (cons _L76804_ '())))) + (cons _L76809_ '())))) (declare (not safe)) - (cons __tmp79854 __tmp79853))) - (__tmp79851 + (cons __tmp79859 __tmp79858))) + (__tmp79856 (let () (declare (not safe)) - (cons _L76802_ '())))) + (cons _L76807_ '())))) (declare (not safe)) - (cons __tmp79852 __tmp79851)))) + (cons __tmp79857 __tmp79856)))) (declare (not safe)) - (cons __tmp79855 __tmp79850)))) + (cons __tmp79860 __tmp79855)))) (declare (not safe)) - (cons __tmp79858 __tmp79849)))) - (___kont7912479125_ - (lambda (_L76737_ _L76739_) - (let ((__tmp79868 + (cons __tmp79863 __tmp79854)))) + (___kont7912979130_ + (lambda (_L76742_ _L76744_) + (let ((__tmp79873 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!class-getf))) - (__tmp79859 - (let ((__tmp79865 - (let ((__tmp79867 + (__tmp79864 + (let ((__tmp79870 + (let ((__tmp79872 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp79866 + (__tmp79871 (let () (declare (not safe)) - (cons _L76739_ '())))) + (cons _L76744_ '())))) (declare (not safe)) - (cons __tmp79867 __tmp79866))) - (__tmp79860 - (let ((__tmp79862 - (let ((__tmp79864 + (cons __tmp79872 __tmp79871))) + (__tmp79865 + (let ((__tmp79867 + (let ((__tmp79869 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp79863 + (__tmp79868 (let () (declare (not safe)) - (cons _L76737_ '())))) + (cons _L76742_ '())))) (declare (not safe)) - (cons __tmp79864 __tmp79863))) - (__tmp79861 + (cons __tmp79869 __tmp79868))) + (__tmp79866 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons __tmp79862 __tmp79861)))) + (cons __tmp79867 __tmp79866)))) (declare (not safe)) - (cons __tmp79865 __tmp79860)))) + (cons __tmp79870 __tmp79865)))) (declare (not safe)) - (cons __tmp79868 __tmp79859))))) - (if (let () (declare (not safe)) (gx#stx-pair? ___stx7911979120_)) - (let ((_e7667476762_ + (cons __tmp79873 __tmp79864))))) + (if (let () (declare (not safe)) (gx#stx-pair? ___stx7912479125_)) + (let ((_e7667976767_ (let () (declare (not safe)) - (gx#syntax-e ___stx7911979120_)))) - (let ((_tl7667276769_ - (let () (declare (not safe)) (##cdr _e7667476762_))) - (_hd7667376766_ - (let () (declare (not safe)) (##car _e7667476762_)))) + (gx#syntax-e ___stx7912479125_)))) + (let ((_tl7667776774_ + (let () (declare (not safe)) (##cdr _e7667976767_))) + (_hd7667876771_ + (let () (declare (not safe)) (##car _e7667976767_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl7667276769_)) - (let ((_e7667776772_ + (gx#stx-pair? _tl7667776774_)) + (let ((_e7668276777_ (let () (declare (not safe)) - (gx#syntax-e _tl7667276769_)))) - (let ((_tl7667576779_ + (gx#syntax-e _tl7667776774_)))) + (let ((_tl7668076784_ (let () (declare (not safe)) - (##cdr _e7667776772_))) - (_hd7667676776_ + (##cdr _e7668276777_))) + (_hd7668176781_ (let () (declare (not safe)) - (##car _e7667776772_)))) + (##car _e7668276777_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl7667576779_)) - (let ((_e7668076782_ + (gx#stx-pair? _tl7668076784_)) + (let ((_e7668576787_ (let () (declare (not safe)) - (gx#syntax-e _tl7667576779_)))) - (let ((_tl7667876789_ + (gx#syntax-e _tl7668076784_)))) + (let ((_tl7668376794_ (let () (declare (not safe)) - (##cdr _e7668076782_))) - (_hd7667976786_ + (##cdr _e7668576787_))) + (_hd7668476791_ (let () (declare (not safe)) - (##car _e7668076782_)))) + (##car _e7668576787_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl7667876789_)) - (let ((_e7668376792_ + (gx#stx-pair? _tl7668376794_)) + (let ((_e7668876797_ (let () (declare (not safe)) - (gx#syntax-e _tl7667876789_)))) - (let ((_tl7668176799_ + (gx#syntax-e _tl7668376794_)))) + (let ((_tl7668676804_ (let () (declare (not safe)) - (##cdr _e7668376792_))) - (_hd7668276796_ + (##cdr _e7668876797_))) + (_hd7668776801_ (let () (declare (not safe)) - (##car _e7668376792_)))) + (##car _e7668876797_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl7668176799_)) - (___kont7912279123_ - _hd7668276796_ - _hd7667976786_ - _hd7667676776_) + (gx#stx-null? _tl7668676804_)) + (___kont7912779128_ + _hd7668776801_ + _hd7668476791_ + _hd7668176781_) (let () (declare (not safe)) - (_g7666776700_))))) + (_g7667276705_))))) (if (let () (declare (not safe)) - (gx#stx-null? _tl7667876789_)) - (___kont7912479125_ - _hd7667976786_ - _hd7667676776_) + (gx#stx-null? _tl7668376794_)) + (___kont7912979130_ + _hd7668476791_ + _hd7668176781_) (let () (declare (not safe)) - (_g7666776700_)))))) - (let () (declare (not safe)) (_g7666776700_))))) - (let () (declare (not safe)) (_g7666776700_))))) - (let () (declare (not safe)) (_g7666776700_))))))) + (_g7667276705_)))))) + (let () (declare (not safe)) (_g7667276705_))))) + (let () (declare (not safe)) (_g7667276705_))))) + (let () (declare (not safe)) (_g7667276705_))))))) (define |gxc[:0:]#@class-setf| - (lambda (_$stx76827_) - (let* ((___stx7917579176_ _$stx76827_) - (_g7683276865_ + (lambda (_$stx76832_) + (let* ((___stx7918079181_ _$stx76832_) + (_g7683776870_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax" - ___stx7917579176_))))) - (let ((___kont7917879179_ - (lambda (_L76967_ _L76969_ _L76970_) - (let ((__tmp79878 + ___stx7918079181_))))) + (let ((___kont7918379184_ + (lambda (_L76972_ _L76974_ _L76975_) + (let ((__tmp79883 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!class-setf))) - (__tmp79869 - (let ((__tmp79875 - (let ((__tmp79877 + (__tmp79874 + (let ((__tmp79880 + (let ((__tmp79882 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp79876 + (__tmp79881 (let () (declare (not safe)) - (cons _L76970_ '())))) + (cons _L76975_ '())))) (declare (not safe)) - (cons __tmp79877 __tmp79876))) - (__tmp79870 - (let ((__tmp79872 - (let ((__tmp79874 + (cons __tmp79882 __tmp79881))) + (__tmp79875 + (let ((__tmp79877 + (let ((__tmp79879 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp79873 + (__tmp79878 (let () (declare (not safe)) - (cons _L76969_ '())))) + (cons _L76974_ '())))) (declare (not safe)) - (cons __tmp79874 __tmp79873))) - (__tmp79871 + (cons __tmp79879 __tmp79878))) + (__tmp79876 (let () (declare (not safe)) - (cons _L76967_ '())))) + (cons _L76972_ '())))) (declare (not safe)) - (cons __tmp79872 __tmp79871)))) + (cons __tmp79877 __tmp79876)))) (declare (not safe)) - (cons __tmp79875 __tmp79870)))) + (cons __tmp79880 __tmp79875)))) (declare (not safe)) - (cons __tmp79878 __tmp79869)))) - (___kont7918079181_ - (lambda (_L76902_ _L76904_) - (let ((__tmp79888 + (cons __tmp79883 __tmp79874)))) + (___kont7918579186_ + (lambda (_L76907_ _L76909_) + (let ((__tmp79893 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!class-setf))) - (__tmp79879 - (let ((__tmp79885 - (let ((__tmp79887 + (__tmp79884 + (let ((__tmp79890 + (let ((__tmp79892 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp79886 + (__tmp79891 (let () (declare (not safe)) - (cons _L76904_ '())))) + (cons _L76909_ '())))) (declare (not safe)) - (cons __tmp79887 __tmp79886))) - (__tmp79880 - (let ((__tmp79882 - (let ((__tmp79884 + (cons __tmp79892 __tmp79891))) + (__tmp79885 + (let ((__tmp79887 + (let ((__tmp79889 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp79883 + (__tmp79888 (let () (declare (not safe)) - (cons _L76902_ '())))) + (cons _L76907_ '())))) (declare (not safe)) - (cons __tmp79884 __tmp79883))) - (__tmp79881 + (cons __tmp79889 __tmp79888))) + (__tmp79886 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons __tmp79882 __tmp79881)))) + (cons __tmp79887 __tmp79886)))) (declare (not safe)) - (cons __tmp79885 __tmp79880)))) + (cons __tmp79890 __tmp79885)))) (declare (not safe)) - (cons __tmp79888 __tmp79879))))) - (if (let () (declare (not safe)) (gx#stx-pair? ___stx7917579176_)) - (let ((_e7683976927_ + (cons __tmp79893 __tmp79884))))) + (if (let () (declare (not safe)) (gx#stx-pair? ___stx7918079181_)) + (let ((_e7684476932_ (let () (declare (not safe)) - (gx#syntax-e ___stx7917579176_)))) - (let ((_tl7683776934_ - (let () (declare (not safe)) (##cdr _e7683976927_))) - (_hd7683876931_ - (let () (declare (not safe)) (##car _e7683976927_)))) + (gx#syntax-e ___stx7918079181_)))) + (let ((_tl7684276939_ + (let () (declare (not safe)) (##cdr _e7684476932_))) + (_hd7684376936_ + (let () (declare (not safe)) (##car _e7684476932_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl7683776934_)) - (let ((_e7684276937_ + (gx#stx-pair? _tl7684276939_)) + (let ((_e7684776942_ (let () (declare (not safe)) - (gx#syntax-e _tl7683776934_)))) - (let ((_tl7684076944_ + (gx#syntax-e _tl7684276939_)))) + (let ((_tl7684576949_ (let () (declare (not safe)) - (##cdr _e7684276937_))) - (_hd7684176941_ + (##cdr _e7684776942_))) + (_hd7684676946_ (let () (declare (not safe)) - (##car _e7684276937_)))) + (##car _e7684776942_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl7684076944_)) - (let ((_e7684576947_ + (gx#stx-pair? _tl7684576949_)) + (let ((_e7685076952_ (let () (declare (not safe)) - (gx#syntax-e _tl7684076944_)))) - (let ((_tl7684376954_ + (gx#syntax-e _tl7684576949_)))) + (let ((_tl7684876959_ (let () (declare (not safe)) - (##cdr _e7684576947_))) - (_hd7684476951_ + (##cdr _e7685076952_))) + (_hd7684976956_ (let () (declare (not safe)) - (##car _e7684576947_)))) + (##car _e7685076952_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl7684376954_)) - (let ((_e7684876957_ + (gx#stx-pair? _tl7684876959_)) + (let ((_e7685376962_ (let () (declare (not safe)) - (gx#syntax-e _tl7684376954_)))) - (let ((_tl7684676964_ + (gx#syntax-e _tl7684876959_)))) + (let ((_tl7685176969_ (let () (declare (not safe)) - (##cdr _e7684876957_))) - (_hd7684776961_ + (##cdr _e7685376962_))) + (_hd7685276966_ (let () (declare (not safe)) - (##car _e7684876957_)))) + (##car _e7685376962_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl7684676964_)) - (___kont7917879179_ - _hd7684776961_ - _hd7684476951_ - _hd7684176941_) + (gx#stx-null? _tl7685176969_)) + (___kont7918379184_ + _hd7685276966_ + _hd7684976956_ + _hd7684676946_) (let () (declare (not safe)) - (_g7683276865_))))) + (_g7683776870_))))) (if (let () (declare (not safe)) - (gx#stx-null? _tl7684376954_)) - (___kont7918079181_ - _hd7684476951_ - _hd7684176941_) + (gx#stx-null? _tl7684876959_)) + (___kont7918579186_ + _hd7684976956_ + _hd7684676946_) (let () (declare (not safe)) - (_g7683276865_)))))) - (let () (declare (not safe)) (_g7683276865_))))) - (let () (declare (not safe)) (_g7683276865_))))) - (let () (declare (not safe)) (_g7683276865_))))))) + (_g7683776870_)))))) + (let () (declare (not safe)) (_g7683776870_))))) + (let () (declare (not safe)) (_g7683776870_))))) + (let () (declare (not safe)) (_g7683776870_))))))) (define |gxc[:0:]#@lambda| - (lambda (_$stx76992_) - (let* ((___stx7923179232_ _$stx76992_) - (_g7700077068_ + (lambda (_$stx76997_) + (let* ((___stx7923679237_ _$stx76997_) + (_g7700577073_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax" - ___stx7923179232_))))) - (let ((___kont7923479235_ - (lambda (_L77346_ _L77348_) - (let ((__tmp79904 + ___stx7923679237_))))) + (let ((___kont7923979240_ + (lambda (_L77351_ _L77353_) + (let ((__tmp79909 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!lambda))) - (__tmp79889 - (let ((__tmp79900 - (let ((__tmp79903 + (__tmp79894 + (let ((__tmp79905 + (let ((__tmp79908 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp79901 - (let ((__tmp79902 + (__tmp79906 + (let ((__tmp79907 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lambda)))) (declare (not safe)) - (cons __tmp79902 '())))) + (cons __tmp79907 '())))) (declare (not safe)) - (cons __tmp79903 __tmp79901))) - (__tmp79890 - (let ((__tmp79897 - (let ((__tmp79899 + (cons __tmp79908 __tmp79906))) + (__tmp79895 + (let ((__tmp79902 + (let ((__tmp79904 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp79898 + (__tmp79903 (let () (declare (not safe)) - (cons _L77348_ '())))) + (cons _L77353_ '())))) (declare (not safe)) - (cons __tmp79899 __tmp79898))) - (__tmp79891 - (let ((__tmp79892 - (let ((__tmp79893 - (let ((__tmp79894 - (let ((__tmp79896 + (cons __tmp79904 __tmp79903))) + (__tmp79896 + (let ((__tmp79897 + (let ((__tmp79898 + (let ((__tmp79899 + (let ((__tmp79901 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp79895 - (let () (declare (not safe)) (cons _L77346_ '())))) + (__tmp79900 + (let () (declare (not safe)) (cons _L77351_ '())))) (declare (not safe)) - (cons __tmp79896 __tmp79895)))) + (cons __tmp79901 __tmp79900)))) (declare (not safe)) - (cons __tmp79894 '())))) + (cons __tmp79899 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L77346_ __tmp79893)))) + (cons _L77351_ __tmp79898)))) (declare (not safe)) - (cons '#f __tmp79892)))) + (cons '#f __tmp79897)))) (declare (not safe)) - (cons __tmp79897 __tmp79891)))) + (cons __tmp79902 __tmp79896)))) (declare (not safe)) - (cons __tmp79900 __tmp79890)))) + (cons __tmp79905 __tmp79895)))) (declare (not safe)) - (cons __tmp79904 __tmp79889)))) - (___kont7923679237_ - (lambda (_L77277_ _L77279_) - (let ((__tmp79905 - (let ((__tmp79906 - (let ((__tmp79907 + (cons __tmp79909 __tmp79894)))) + (___kont7924179242_ + (lambda (_L77282_ _L77284_) + (let ((__tmp79910 + (let ((__tmp79911 + (let ((__tmp79912 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons _L77277_ __tmp79907)))) + (cons _L77282_ __tmp79912)))) (declare (not safe)) - (cons 'primitive: __tmp79906)))) + (cons 'primitive: __tmp79911)))) (declare (not safe)) - (cons _L77279_ __tmp79905)))) - (___kont7923879239_ - (lambda (_L77216_ _L77218_) - (let ((__tmp79921 + (cons _L77284_ __tmp79910)))) + (___kont7924379244_ + (lambda (_L77221_ _L77223_) + (let ((__tmp79926 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!primitive-lambda))) - (__tmp79908 - (let ((__tmp79917 - (let ((__tmp79920 + (__tmp79913 + (let ((__tmp79922 + (let ((__tmp79925 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp79918 - (let ((__tmp79919 + (__tmp79923 + (let ((__tmp79924 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lambda)))) (declare (not safe)) - (cons __tmp79919 '())))) + (cons __tmp79924 '())))) (declare (not safe)) - (cons __tmp79920 __tmp79918))) - (__tmp79909 - (let ((__tmp79914 - (let ((__tmp79916 + (cons __tmp79925 __tmp79923))) + (__tmp79914 + (let ((__tmp79919 + (let ((__tmp79921 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp79915 + (__tmp79920 (let () (declare (not safe)) - (cons _L77218_ '())))) + (cons _L77223_ '())))) (declare (not safe)) - (cons __tmp79916 __tmp79915))) - (__tmp79910 - (let ((__tmp79911 - (let ((__tmp79913 + (cons __tmp79921 __tmp79920))) + (__tmp79915 + (let ((__tmp79916 + (let ((__tmp79918 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp79912 + (__tmp79917 (let () (declare (not safe)) - (cons _L77216_ '())))) + (cons _L77221_ '())))) (declare (not safe)) - (cons __tmp79913 __tmp79912)))) + (cons __tmp79918 __tmp79917)))) (declare (not safe)) - (cons __tmp79911 '())))) + (cons __tmp79916 '())))) (declare (not safe)) - (cons __tmp79914 __tmp79910)))) + (cons __tmp79919 __tmp79915)))) (declare (not safe)) - (cons __tmp79917 __tmp79909)))) + (cons __tmp79922 __tmp79914)))) (declare (not safe)) - (cons __tmp79921 __tmp79908)))) - (___kont7924079241_ - (lambda (_L77148_ _L77150_) - (let ((__tmp79935 + (cons __tmp79926 __tmp79913)))) + (___kont7924579246_ + (lambda (_L77153_ _L77155_) + (let ((__tmp79940 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!lambda))) - (__tmp79922 - (let ((__tmp79931 - (let ((__tmp79934 + (__tmp79927 + (let ((__tmp79936 + (let ((__tmp79939 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp79932 - (let ((__tmp79933 + (__tmp79937 + (let ((__tmp79938 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lambda)))) (declare (not safe)) - (cons __tmp79933 '())))) + (cons __tmp79938 '())))) (declare (not safe)) - (cons __tmp79934 __tmp79932))) - (__tmp79923 - (let ((__tmp79928 - (let ((__tmp79930 + (cons __tmp79939 __tmp79937))) + (__tmp79928 + (let ((__tmp79933 + (let ((__tmp79935 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp79929 + (__tmp79934 (let () (declare (not safe)) - (cons _L77150_ '())))) + (cons _L77155_ '())))) (declare (not safe)) - (cons __tmp79930 __tmp79929))) - (__tmp79924 - (let ((__tmp79925 - (let ((__tmp79927 + (cons __tmp79935 __tmp79934))) + (__tmp79929 + (let ((__tmp79930 + (let ((__tmp79932 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp79926 + (__tmp79931 (let () (declare (not safe)) - (cons _L77148_ '())))) + (cons _L77153_ '())))) (declare (not safe)) - (cons __tmp79927 __tmp79926)))) + (cons __tmp79932 __tmp79931)))) (declare (not safe)) - (cons __tmp79925 '())))) + (cons __tmp79930 '())))) (declare (not safe)) - (cons __tmp79928 __tmp79924)))) + (cons __tmp79933 __tmp79929)))) (declare (not safe)) - (cons __tmp79931 __tmp79923)))) + (cons __tmp79936 __tmp79928)))) (declare (not safe)) - (cons __tmp79935 __tmp79922)))) - (___kont7924279243_ - (lambda (_L77095_ _L77097_) - (let ((__tmp79936 - (let ((__tmp79937 + (cons __tmp79940 __tmp79927)))) + (___kont7924779248_ + (lambda (_L77100_ _L77102_) + (let ((__tmp79941 + (let ((__tmp79942 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons _L77095_ __tmp79937)))) + (cons _L77100_ __tmp79942)))) (declare (not safe)) - (cons _L77097_ __tmp79936))))) - (if (let () (declare (not safe)) (gx#stx-pair? ___stx7923179232_)) - (let ((_e7700677302_ + (cons _L77102_ __tmp79941))))) + (if (let () (declare (not safe)) (gx#stx-pair? ___stx7923679237_)) + (let ((_e7701177307_ (let () (declare (not safe)) - (gx#syntax-e ___stx7923179232_)))) - (let ((_tl7700477309_ - (let () (declare (not safe)) (##cdr _e7700677302_))) - (_hd7700577306_ - (let () (declare (not safe)) (##car _e7700677302_)))) + (gx#syntax-e ___stx7923679237_)))) + (let ((_tl7700977314_ + (let () (declare (not safe)) (##cdr _e7701177307_))) + (_hd7701077311_ + (let () (declare (not safe)) (##car _e7701177307_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl7700477309_)) - (let ((_e7700977312_ + (gx#stx-pair? _tl7700977314_)) + (let ((_e7701477317_ (let () (declare (not safe)) - (gx#syntax-e _tl7700477309_)))) - (let ((_tl7700777319_ + (gx#syntax-e _tl7700977314_)))) + (let ((_tl7701277324_ (let () (declare (not safe)) - (##cdr _e7700977312_))) - (_hd7700877316_ + (##cdr _e7701477317_))) + (_hd7701377321_ (let () (declare (not safe)) - (##car _e7700977312_)))) + (##car _e7701477317_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl7700777319_)) - (let ((_e7701277322_ + (gx#stx-pair? _tl7701277324_)) + (let ((_e7701777327_ (let () (declare (not safe)) - (gx#syntax-e _tl7700777319_)))) - (let ((_tl7701077329_ + (gx#syntax-e _tl7701277324_)))) + (let ((_tl7701577334_ (let () (declare (not safe)) - (##cdr _e7701277322_))) - (_hd7701177326_ + (##cdr _e7701777327_))) + (_hd7701677331_ (let () (declare (not safe)) - (##car _e7701277322_)))) + (##car _e7701777327_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd7701177326_)) - (let ((_e7701377332_ + (gx#stx-datum? _hd7701677331_)) + (let ((_e7701877337_ (let () (declare (not safe)) - (gx#stx-e _hd7701177326_)))) + (gx#stx-e _hd7701677331_)))) (if (let () (declare (not safe)) - (equal? _e7701377332_ 'inline:)) + (equal? _e7701877337_ 'inline:)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl7701077329_)) - (let ((_e7701677336_ + _tl7701577334_)) + (let ((_e7702177341_ (let () (declare (not safe)) (gx#syntax-e - _tl7701077329_)))) - (let ((_tl7701477343_ + _tl7701577334_)))) + (let ((_tl7701977348_ (let () (declare (not safe)) - (##cdr _e7701677336_))) - (_hd7701577340_ + (##cdr _e7702177341_))) + (_hd7702077345_ (let () (declare (not safe)) - (##car _e7701677336_)))) + (##car _e7702177341_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl7701477343_)) - (___kont7923479235_ - _hd7701577340_ - _hd7700877316_) + _tl7701977348_)) + (___kont7923979240_ + _hd7702077345_ + _hd7701377321_) (if (let () (declare (not safe)) (gx#stx-datum? - _hd7700877316_)) - (let ((_e7702577263_ + _hd7701377321_)) + (let ((_e7703077268_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd7700877316_)))) + (gx#stx-e _hd7701377321_)))) (declare (not safe)) - (_g7700077068_)) - (let () (declare (not safe)) (_g7700077068_)))))) + (_g7700577073_)) + (let () (declare (not safe)) (_g7700577073_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-datum? - _hd7700877316_)) - (let ((_e7702577263_ + _hd7701377321_)) + (let ((_e7703077268_ (let () (declare (not safe)) (gx#stx-e - _hd7700877316_)))) + _hd7701377321_)))) (if (let () (declare (not safe)) - (equal? _e7702577263_ + (equal? _e7703077268_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 'primitive:)) (if (let () (declare (not safe)) - (gx#stx-null? _tl7701077329_)) - (___kont7923679237_ _hd7701177326_ _hd7700577306_) - (let () (declare (not safe)) (_g7700077068_))) + (gx#stx-null? _tl7701577334_)) + (___kont7924179242_ _hd7701677331_ _hd7701077311_) + (let () (declare (not safe)) (_g7700577073_))) (if (let () (declare (not safe)) - (gx#stx-null? _tl7701077329_)) - (___kont7924079241_ _hd7701177326_ _hd7700877316_) - (let () (declare (not safe)) (_g7700077068_))))) + (gx#stx-null? _tl7701577334_)) + (___kont7924579246_ _hd7701677331_ _hd7701377321_) + (let () (declare (not safe)) (_g7700577073_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _tl7701077329_)) - (___kont7924079241_ - _hd7701177326_ - _hd7700877316_) + _tl7701577334_)) + (___kont7924579246_ + _hd7701677331_ + _hd7701377321_) (let () (declare (not safe)) - (_g7700077068_))))) + (_g7700577073_))))) (if (let () (declare (not safe)) (gx#stx-datum? - _hd7700877316_)) - (let ((_e7702577263_ + _hd7701377321_)) + (let ((_e7703077268_ (let () (declare (not safe)) (gx#stx-e - _hd7700877316_)))) + _hd7701377321_)))) (if (let () (declare (not safe)) - (equal? _e7702577263_ + (equal? _e7703077268_ 'primitive:)) (if (let () (declare (not safe)) (gx#stx-null? - _tl7701077329_)) - (___kont7923679237_ - _hd7701177326_ - _hd7700577306_) + _tl7701577334_)) + (___kont7924179242_ + _hd7701677331_ + _hd7701077311_) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl7701077329_)) - (let ((_e7704377206_ + (gx#stx-pair? _tl7701577334_)) + (let ((_e7704877211_ (let () (declare (not safe)) - (gx#syntax-e _tl7701077329_)))) - (let ((_tl7704177213_ + (gx#syntax-e _tl7701577334_)))) + (let ((_tl7704677218_ (let () (declare (not safe)) - (##cdr _e7704377206_))) - (_hd7704277210_ + (##cdr _e7704877211_))) + (_hd7704777215_ (let () (declare (not safe)) - (##car _e7704377206_)))) + (##car _e7704877211_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl7704177213_)) - (___kont7923879239_ - _hd7704277210_ - _hd7701177326_) - (let () (declare (not safe)) (_g7700077068_))))) - (let () (declare (not safe)) (_g7700077068_)))) - (if (let () (declare (not safe)) (gx#stx-null? _tl7701077329_)) - (___kont7924079241_ _hd7701177326_ _hd7700877316_) - (let () (declare (not safe)) (_g7700077068_))))) + (gx#stx-null? _tl7704677218_)) + (___kont7924379244_ + _hd7704777215_ + _hd7701677331_) + (let () (declare (not safe)) (_g7700577073_))))) + (let () (declare (not safe)) (_g7700577073_)))) + (if (let () (declare (not safe)) (gx#stx-null? _tl7701577334_)) + (___kont7924579246_ _hd7701677331_ _hd7701377321_) + (let () (declare (not safe)) (_g7700577073_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _tl7701077329_)) - (___kont7924079241_ - _hd7701177326_ - _hd7700877316_) + _tl7701577334_)) + (___kont7924579246_ + _hd7701677331_ + _hd7701377321_) (let () (declare (not safe)) - (_g7700077068_)))))) + (_g7700577073_)))))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd7700877316_)) - (let ((_e7702577263_ + (gx#stx-datum? _hd7701377321_)) + (let ((_e7703077268_ (let () (declare (not safe)) - (gx#stx-e _hd7700877316_)))) + (gx#stx-e _hd7701377321_)))) (if (let () (declare (not safe)) - (equal? _e7702577263_ + (equal? _e7703077268_ 'primitive:)) (if (let () (declare (not safe)) (gx#stx-null? - _tl7701077329_)) - (___kont7923679237_ - _hd7701177326_ - _hd7700577306_) + _tl7701577334_)) + (___kont7924179242_ + _hd7701677331_ + _hd7701077311_) (if (let () (declare (not safe)) (gx#stx-pair? - _tl7701077329_)) - (let ((_e7704377206_ + _tl7701577334_)) + (let ((_e7704877211_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _tl7701077329_)))) - (let ((_tl7704177213_ - (let () (declare (not safe)) (##cdr _e7704377206_))) - (_hd7704277210_ - (let () (declare (not safe)) (##car _e7704377206_)))) + (gx#syntax-e _tl7701577334_)))) + (let ((_tl7704677218_ + (let () (declare (not safe)) (##cdr _e7704877211_))) + (_hd7704777215_ + (let () (declare (not safe)) (##car _e7704877211_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl7704177213_)) - (___kont7923879239_ _hd7704277210_ _hd7701177326_) - (let () (declare (not safe)) (_g7700077068_))))) - (let () (declare (not safe)) (_g7700077068_)))) + (gx#stx-null? _tl7704677218_)) + (___kont7924379244_ _hd7704777215_ _hd7701677331_) + (let () (declare (not safe)) (_g7700577073_))))) + (let () (declare (not safe)) (_g7700577073_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _tl7701077329_)) - (___kont7924079241_ - _hd7701177326_ - _hd7700877316_) + _tl7701577334_)) + (___kont7924579246_ + _hd7701677331_ + _hd7701377321_) (let () (declare (not safe)) - (_g7700077068_))))) + (_g7700577073_))))) (if (let () (declare (not safe)) - (gx#stx-null? _tl7701077329_)) - (___kont7924079241_ - _hd7701177326_ - _hd7700877316_) + (gx#stx-null? _tl7701577334_)) + (___kont7924579246_ + _hd7701677331_ + _hd7701377321_) (let () (declare (not safe)) - (_g7700077068_))))))) + (_g7700577073_))))))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd7700877316_)) - (let ((_e7702577263_ + (gx#stx-datum? _hd7701377321_)) + (let ((_e7703077268_ (let () (declare (not safe)) - (gx#stx-e _hd7700877316_)))) + (gx#stx-e _hd7701377321_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl7700777319_)) - (___kont7924279243_ - _hd7700877316_ - _hd7700577306_) + (gx#stx-null? _tl7701277324_)) + (___kont7924779248_ + _hd7701377321_ + _hd7701077311_) (let () (declare (not safe)) - (_g7700077068_)))) + (_g7700577073_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl7700777319_)) - (___kont7924279243_ - _hd7700877316_ - _hd7700577306_) + (gx#stx-null? _tl7701277324_)) + (___kont7924779248_ + _hd7701377321_ + _hd7701077311_) (let () (declare (not safe)) - (_g7700077068_))))))) - (let () (declare (not safe)) (_g7700077068_))))) - (let () (declare (not safe)) (_g7700077068_))))))) + (_g7700577073_))))))) + (let () (declare (not safe)) (_g7700577073_))))) + (let () (declare (not safe)) (_g7700577073_))))))) (define |gxc[:0:]#@case-lambda| - (lambda (_$stx77370_) - (let* ((___stx7937179372_ _$stx77370_) - (_g7737577430_ + (lambda (_$stx77375_) + (let* ((___stx7937679377_ _$stx77375_) + (_g7738077435_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax" - ___stx7937179372_))))) - (let ((___kont7937479375_ - (lambda (_L77615_ _L77617_) - (let ((__tmp79953 + ___stx7937679377_))))) + (let ((___kont7937979380_ + (lambda (_L77620_ _L77622_) + (let ((__tmp79958 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!primitive-case-lambda))) - (__tmp79938 - (let ((__tmp79949 - (let ((__tmp79952 + (__tmp79943 + (let ((__tmp79954 + (let ((__tmp79957 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp79950 - (let ((__tmp79951 + (__tmp79955 + (let ((__tmp79956 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'case-lambda)))) (declare (not safe)) - (cons __tmp79951 '())))) + (cons __tmp79956 '())))) (declare (not safe)) - (cons __tmp79952 __tmp79950))) - (__tmp79939 - (let ((__tmp79940 - (let ((__tmp79948 + (cons __tmp79957 __tmp79955))) + (__tmp79944 + (let ((__tmp79945 + (let ((__tmp79953 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@list))) - (__tmp79941 + (__tmp79946 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L77615_ - _L77617_)) - (let ((__tmp79942 - (lambda (_g7763477638_ - _g7763577641_ - _g7763677643_) - (let ((__tmp79943 - (let ((__tmp79947 + _L77620_ + _L77622_)) + (let ((__tmp79947 + (lambda (_g7763977643_ + _g7764077646_ + _g7764177648_) + (let ((__tmp79948 + (let ((__tmp79952 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@lambda))) - (__tmp79944 - (let ((__tmp79945 - (let ((__tmp79946 + (__tmp79949 + (let ((__tmp79950 + (let ((__tmp79951 (let () (declare (not safe)) - (cons _g7763477638_ '())))) + (cons _g7763977643_ '())))) (declare (not safe)) - (cons _g7763577641_ __tmp79946)))) + (cons _g7764077646_ __tmp79951)))) (declare (not safe)) - (cons 'primitive: __tmp79945)))) + (cons 'primitive: __tmp79950)))) (declare (not safe)) - (cons __tmp79947 __tmp79944)))) + (cons __tmp79952 __tmp79949)))) (declare (not safe)) - (cons __tmp79943 _g7763677643_))))) + (cons __tmp79948 _g7764177648_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr2 __tmp79942 + (foldr2 __tmp79947 '() - _L77615_ - _L77617_))))) + _L77620_ + _L77622_))))) (declare (not safe)) - (cons __tmp79948 __tmp79941)))) + (cons __tmp79953 __tmp79946)))) (declare (not safe)) - (cons __tmp79940 '())))) + (cons __tmp79945 '())))) (declare (not safe)) - (cons __tmp79949 __tmp79939)))) + (cons __tmp79954 __tmp79944)))) (declare (not safe)) - (cons __tmp79953 __tmp79938)))) - (___kont7937879379_ - (lambda (_L77501_ _L77503_) - (let ((__tmp79968 + (cons __tmp79958 __tmp79943)))) + (___kont7938379384_ + (lambda (_L77506_ _L77508_) + (let ((__tmp79973 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!case-lambda))) - (__tmp79954 - (let ((__tmp79964 - (let ((__tmp79967 + (__tmp79959 + (let ((__tmp79969 + (let ((__tmp79972 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp79965 - (let ((__tmp79966 + (__tmp79970 + (let ((__tmp79971 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'case-lambda)))) (declare (not safe)) - (cons __tmp79966 '())))) + (cons __tmp79971 '())))) (declare (not safe)) - (cons __tmp79967 __tmp79965))) - (__tmp79955 - (let ((__tmp79956 - (let ((__tmp79963 + (cons __tmp79972 __tmp79970))) + (__tmp79960 + (let ((__tmp79961 + (let ((__tmp79968 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@list))) - (__tmp79957 + (__tmp79962 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L77501_ - _L77503_)) - (let ((__tmp79958 - (lambda (_g7751877522_ - _g7751977525_ - _g7752077527_) - (let ((__tmp79959 - (let ((__tmp79962 + _L77506_ + _L77508_)) + (let ((__tmp79963 + (lambda (_g7752377527_ + _g7752477530_ + _g7752577532_) + (let ((__tmp79964 + (let ((__tmp79967 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@lambda))) - (__tmp79960 - (let ((__tmp79961 + (__tmp79965 + (let ((__tmp79966 (let () (declare (not safe)) - (cons _g7751877522_ '())))) + (cons _g7752377527_ '())))) (declare (not safe)) - (cons _g7751977525_ __tmp79961)))) + (cons _g7752477530_ __tmp79966)))) (declare (not safe)) - (cons __tmp79962 __tmp79960)))) + (cons __tmp79967 __tmp79965)))) (declare (not safe)) - (cons __tmp79959 _g7752077527_))))) + (cons __tmp79964 _g7752577532_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr2 __tmp79958 + (foldr2 __tmp79963 '() - _L77501_ - _L77503_))))) + _L77506_ + _L77508_))))) (declare (not safe)) - (cons __tmp79963 __tmp79957)))) + (cons __tmp79968 __tmp79962)))) (declare (not safe)) - (cons __tmp79956 '())))) + (cons __tmp79961 '())))) (declare (not safe)) - (cons __tmp79964 __tmp79955)))) + (cons __tmp79969 __tmp79960)))) (declare (not safe)) - (cons __tmp79968 __tmp79954))))) - (let* ((___match7942279423_ - (lambda (_e7740777437_ - _hd7740677441_ - _tl7740577444_ - ___splice7938079381_ - _target7740877447_ - _tl7741077450_) - (letrec ((_loop7741177453_ - (lambda (_hd7740977457_ - _dispatch7741577460_ - _arity7741677462_) + (cons __tmp79973 __tmp79959))))) + (let* ((___match7942779428_ + (lambda (_e7741277442_ + _hd7741177446_ + _tl7741077449_ + ___splice7938579386_ + _target7741377452_ + _tl7741577455_) + (letrec ((_loop7741677458_ + (lambda (_hd7741477462_ + _dispatch7742077465_ + _arity7742177467_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd7740977457_)) - (let ((_e7741277465_ + (gx#stx-pair? _hd7741477462_)) + (let ((_e7741777470_ (let () (declare (not safe)) - (gx#syntax-e _hd7740977457_)))) - (let ((_lp-tl7741477472_ + (gx#syntax-e _hd7741477462_)))) + (let ((_lp-tl7741977477_ (let () (declare (not safe)) - (##cdr _e7741277465_))) - (_lp-hd7741377469_ + (##cdr _e7741777470_))) + (_lp-hd7741877474_ (let () (declare (not safe)) - (##car _e7741277465_)))) + (##car _e7741777470_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd7741377469_)) - (let ((_e7742177475_ + (gx#stx-pair? _lp-hd7741877474_)) + (let ((_e7742677480_ (let () (declare (not safe)) (gx#syntax-e - _lp-hd7741377469_)))) - (let ((_tl7741977482_ + _lp-hd7741877474_)))) + (let ((_tl7742477487_ (let () (declare (not safe)) - (##cdr _e7742177475_))) - (_hd7742077479_ + (##cdr _e7742677480_))) + (_hd7742577484_ (let () (declare (not safe)) - (##car _e7742177475_)))) + (##car _e7742677480_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl7741977482_)) - (let ((_e7742477485_ + _tl7742477487_)) + (let ((_e7742977490_ (let () (declare (not safe)) (gx#syntax-e - _tl7741977482_)))) - (let ((_tl7742277492_ + _tl7742477487_)))) + (let ((_tl7742777497_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e7742477485_))) - (_hd7742377489_ - (let () (declare (not safe)) (##car _e7742477485_)))) - (if (let () (declare (not safe)) (gx#stx-null? _tl7742277492_)) - (_loop7741177453_ - _lp-tl7741477472_ + (##cdr _e7742977490_))) + (_hd7742877494_ + (let () (declare (not safe)) (##car _e7742977490_)))) + (if (let () (declare (not safe)) (gx#stx-null? _tl7742777497_)) + (_loop7741677458_ + _lp-tl7741977477_ (let () (declare (not safe)) - (cons _hd7742377489_ _dispatch7741577460_)) + (cons _hd7742877494_ _dispatch7742077465_)) (let () (declare (not safe)) - (cons _hd7742077479_ _arity7741677462_))) - (let () (declare (not safe)) (_g7737577430_))))) + (cons _hd7742577484_ _arity7742177467_))) + (let () (declare (not safe)) (_g7738077435_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g7737577430_))))) + (_g7738077435_))))) (let () (declare (not safe)) - (_g7737577430_))))) - (let ((_arity7741877498_ - (reverse _arity7741677462_)) - (_dispatch7741777495_ - (reverse _dispatch7741577460_))) - (___kont7937879379_ - _dispatch7741777495_ - _arity7741877498_)))))) - (_loop7741177453_ _target7740877447_ '() '())))) - (___match7941479415_ - (lambda (_e7740777437_ _hd7740677441_ _tl7740577444_) + (_g7738077435_))))) + (let ((_arity7742377503_ + (reverse _arity7742177467_)) + (_dispatch7742277500_ + (reverse _dispatch7742077465_))) + (___kont7938379384_ + _dispatch7742277500_ + _arity7742377503_)))))) + (_loop7741677458_ _target7741377452_ '() '())))) + (___match7941979420_ + (lambda (_e7741277442_ _hd7741177446_ _tl7741077449_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl7740577444_)) - (let ((___splice7938079381_ + (gx#stx-pair/null? _tl7741077449_)) + (let ((___splice7938579386_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl7740577444_ '0)))) - (let ((_tl7741077450_ + (gx#syntax-split-splice _tl7741077449_ '0)))) + (let ((_tl7741577455_ (let () (declare (not safe)) - (##vector-ref ___splice7938079381_ '1))) - (_target7740877447_ + (##vector-ref ___splice7938579386_ '1))) + (_target7741377452_ (let () (declare (not safe)) - (##vector-ref ___splice7938079381_ '0)))) + (##vector-ref ___splice7938579386_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl7741077450_)) - (___match7942279423_ - _e7740777437_ - _hd7740677441_ - _tl7740577444_ - ___splice7938079381_ - _target7740877447_ - _tl7741077450_) + (gx#stx-null? _tl7741577455_)) + (___match7942779428_ + _e7741277442_ + _hd7741177446_ + _tl7741077449_ + ___splice7938579386_ + _target7741377452_ + _tl7741577455_) (let () (declare (not safe)) - (_g7737577430_))))) - (let () (declare (not safe)) (_g7737577430_))))) - (___match7940879409_ - (lambda (_e7738177537_ - _hd7738077541_ - _tl7737977544_ - _e7738477547_ - _hd7738377551_ - _tl7738277554_ - _e7738577557_ - ___splice7937679377_ - _target7738677561_ - _tl7738877564_) - (letrec ((_loop7738977567_ - (lambda (_hd7738777571_ - _dispatch7739377574_ - _arity7739477576_) + (_g7738077435_))))) + (let () (declare (not safe)) (_g7738077435_))))) + (___match7941379414_ + (lambda (_e7738677542_ + _hd7738577546_ + _tl7738477549_ + _e7738977552_ + _hd7738877556_ + _tl7738777559_ + _e7739077562_ + ___splice7938179382_ + _target7739177566_ + _tl7739377569_) + (letrec ((_loop7739477572_ + (lambda (_hd7739277576_ + _dispatch7739877579_ + _arity7739977581_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd7738777571_)) - (let ((_e7739077579_ + (gx#stx-pair? _hd7739277576_)) + (let ((_e7739577584_ (let () (declare (not safe)) - (gx#syntax-e _hd7738777571_)))) - (let ((_lp-tl7739277586_ + (gx#syntax-e _hd7739277576_)))) + (let ((_lp-tl7739777591_ (let () (declare (not safe)) - (##cdr _e7739077579_))) - (_lp-hd7739177583_ + (##cdr _e7739577584_))) + (_lp-hd7739677588_ (let () (declare (not safe)) - (##car _e7739077579_)))) + (##car _e7739577584_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd7739177583_)) - (let ((_e7739977589_ + (gx#stx-pair? _lp-hd7739677588_)) + (let ((_e7740477594_ (let () (declare (not safe)) (gx#syntax-e - _lp-hd7739177583_)))) - (let ((_tl7739777596_ + _lp-hd7739677588_)))) + (let ((_tl7740277601_ (let () (declare (not safe)) - (##cdr _e7739977589_))) - (_hd7739877593_ + (##cdr _e7740477594_))) + (_hd7740377598_ (let () (declare (not safe)) - (##car _e7739977589_)))) + (##car _e7740477594_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl7739777596_)) - (let ((_e7740277599_ + _tl7740277601_)) + (let ((_e7740777604_ (let () (declare (not safe)) (gx#syntax-e - _tl7739777596_)))) - (let ((_tl7740077606_ + _tl7740277601_)))) + (let ((_tl7740577611_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e7740277599_))) - (_hd7740177603_ - (let () (declare (not safe)) (##car _e7740277599_)))) - (if (let () (declare (not safe)) (gx#stx-null? _tl7740077606_)) - (_loop7738977567_ - _lp-tl7739277586_ + (##cdr _e7740777604_))) + (_hd7740677608_ + (let () (declare (not safe)) (##car _e7740777604_)))) + (if (let () (declare (not safe)) (gx#stx-null? _tl7740577611_)) + (_loop7739477572_ + _lp-tl7739777591_ (let () (declare (not safe)) - (cons _hd7740177603_ _dispatch7739377574_)) + (cons _hd7740677608_ _dispatch7739877579_)) (let () (declare (not safe)) - (cons _hd7739877593_ _arity7739477576_))) - (___match7941479415_ - _e7738177537_ - _hd7738077541_ - _tl7737977544_)))) + (cons _hd7740377598_ _arity7739977581_))) + (___match7941979420_ + _e7738677542_ + _hd7738577546_ + _tl7738477549_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match7941479415_ - _e7738177537_ - _hd7738077541_ - _tl7737977544_)))) - (___match7941479415_ - _e7738177537_ - _hd7738077541_ - _tl7737977544_)))) - (let ((_arity7739677612_ - (reverse _arity7739477576_)) - (_dispatch7739577609_ - (reverse _dispatch7739377574_))) - (___kont7937479375_ - _dispatch7739577609_ - _arity7739677612_)))))) - (_loop7738977567_ _target7738677561_ '() '()))))) - (if (let () (declare (not safe)) (gx#stx-pair? ___stx7937179372_)) - (let ((_e7738177537_ + (___match7941979420_ + _e7738677542_ + _hd7738577546_ + _tl7738477549_)))) + (___match7941979420_ + _e7738677542_ + _hd7738577546_ + _tl7738477549_)))) + (let ((_arity7740177617_ + (reverse _arity7739977581_)) + (_dispatch7740077614_ + (reverse _dispatch7739877579_))) + (___kont7937979380_ + _dispatch7740077614_ + _arity7740177617_)))))) + (_loop7739477572_ _target7739177566_ '() '()))))) + (if (let () (declare (not safe)) (gx#stx-pair? ___stx7937679377_)) + (let ((_e7738677542_ (let () (declare (not safe)) - (gx#syntax-e ___stx7937179372_)))) - (let ((_tl7737977544_ - (let () (declare (not safe)) (##cdr _e7738177537_))) - (_hd7738077541_ - (let () (declare (not safe)) (##car _e7738177537_)))) + (gx#syntax-e ___stx7937679377_)))) + (let ((_tl7738477549_ + (let () (declare (not safe)) (##cdr _e7738677542_))) + (_hd7738577546_ + (let () (declare (not safe)) (##car _e7738677542_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl7737977544_)) - (let ((_e7738477547_ + (gx#stx-pair? _tl7738477549_)) + (let ((_e7738977552_ (let () (declare (not safe)) - (gx#syntax-e _tl7737977544_)))) - (let ((_tl7738277554_ + (gx#syntax-e _tl7738477549_)))) + (let ((_tl7738777559_ (let () (declare (not safe)) - (##cdr _e7738477547_))) - (_hd7738377551_ + (##cdr _e7738977552_))) + (_hd7738877556_ (let () (declare (not safe)) - (##car _e7738477547_)))) + (##car _e7738977552_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd7738377551_)) - (let ((_e7738577557_ + (gx#stx-datum? _hd7738877556_)) + (let ((_e7739077562_ (let () (declare (not safe)) - (gx#stx-e _hd7738377551_)))) + (gx#stx-e _hd7738877556_)))) (if (let () (declare (not safe)) - (equal? _e7738577557_ 'primitive:)) + (equal? _e7739077562_ 'primitive:)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl7738277554_)) - (let ((___splice7937679377_ + (gx#stx-pair/null? _tl7738777559_)) + (let ((___splice7938179382_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl7738277554_ + _tl7738777559_ '0)))) - (let ((_tl7738877564_ + (let ((_tl7739377569_ (let () (declare (not safe)) (##vector-ref - ___splice7937679377_ + ___splice7938179382_ '1))) - (_target7738677561_ + (_target7739177566_ (let () (declare (not safe)) (##vector-ref - ___splice7937679377_ + ___splice7938179382_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl7738877564_)) - (___match7940879409_ - _e7738177537_ - _hd7738077541_ - _tl7737977544_ - _e7738477547_ - _hd7738377551_ - _tl7738277554_ - _e7738577557_ - ___splice7937679377_ - _target7738677561_ - _tl7738877564_) + _tl7739377569_)) + (___match7941379414_ + _e7738677542_ + _hd7738577546_ + _tl7738477549_ + _e7738977552_ + _hd7738877556_ + _tl7738777559_ + _e7739077562_ + ___splice7938179382_ + _target7739177566_ + _tl7739377569_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl7737977544_)) - (let ((___splice7938079381_ + _tl7738477549_)) + (let ((___splice7938579386_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _tl7737977544_ '0)))) - (let ((_tl7741077450_ + (gx#syntax-split-splice _tl7738477549_ '0)))) + (let ((_tl7741577455_ (let () (declare (not safe)) - (##vector-ref ___splice7938079381_ '1))) - (_target7740877447_ + (##vector-ref ___splice7938579386_ '1))) + (_target7741377452_ (let () (declare (not safe)) - (##vector-ref ___splice7938079381_ '0)))) + (##vector-ref ___splice7938579386_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl7741077450_)) - (___match7942279423_ - _e7738177537_ - _hd7738077541_ - _tl7737977544_ - ___splice7938079381_ - _target7740877447_ - _tl7741077450_) - (let () (declare (not safe)) (_g7737577430_))))) - (let () (declare (not safe)) (_g7737577430_)))))) + (gx#stx-null? _tl7741577455_)) + (___match7942779428_ + _e7738677542_ + _hd7738577546_ + _tl7738477549_ + ___splice7938579386_ + _target7741377452_ + _tl7741577455_) + (let () (declare (not safe)) (_g7738077435_))))) + (let () (declare (not safe)) (_g7738077435_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl7737977544_)) - (let ((___splice7938079381_ + _tl7738477549_)) + (let ((___splice7938579386_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl7737977544_ + _tl7738477549_ '0)))) - (let ((_tl7741077450_ + (let ((_tl7741577455_ (let () (declare (not safe)) (##vector-ref - ___splice7938079381_ + ___splice7938579386_ '1))) - (_target7740877447_ + (_target7741377452_ (let () (declare (not safe)) (##vector-ref - ___splice7938079381_ + ___splice7938579386_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl7741077450_)) - (___match7942279423_ - _e7738177537_ - _hd7738077541_ - _tl7737977544_ - ___splice7938079381_ - _target7740877447_ - _tl7741077450_) + _tl7741577455_)) + (___match7942779428_ + _e7738677542_ + _hd7738577546_ + _tl7738477549_ + ___splice7938579386_ + _target7741377452_ + _tl7741577455_) (let () (declare (not safe)) - (_g7737577430_))))) + (_g7738077435_))))) (let () (declare (not safe)) - (_g7737577430_)))) + (_g7738077435_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl7737977544_)) - (let ((___splice7938079381_ + (gx#stx-pair/null? _tl7738477549_)) + (let ((___splice7938579386_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl7737977544_ + _tl7738477549_ '0)))) - (let ((_tl7741077450_ + (let ((_tl7741577455_ (let () (declare (not safe)) (##vector-ref - ___splice7938079381_ + ___splice7938579386_ '1))) - (_target7740877447_ + (_target7741377452_ (let () (declare (not safe)) (##vector-ref - ___splice7938079381_ + ___splice7938579386_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl7741077450_)) - (___match7942279423_ - _e7738177537_ - _hd7738077541_ - _tl7737977544_ - ___splice7938079381_ - _target7740877447_ - _tl7741077450_) + _tl7741577455_)) + (___match7942779428_ + _e7738677542_ + _hd7738577546_ + _tl7738477549_ + ___splice7938579386_ + _target7741377452_ + _tl7741577455_) (let () (declare (not safe)) - (_g7737577430_))))) + (_g7738077435_))))) (let () (declare (not safe)) - (_g7737577430_))))) + (_g7738077435_))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl7737977544_)) - (let ((___splice7938079381_ + (gx#stx-pair/null? _tl7738477549_)) + (let ((___splice7938579386_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl7737977544_ + _tl7738477549_ '0)))) - (let ((_tl7741077450_ + (let ((_tl7741577455_ (let () (declare (not safe)) (##vector-ref - ___splice7938079381_ + ___splice7938579386_ '1))) - (_target7740877447_ + (_target7741377452_ (let () (declare (not safe)) (##vector-ref - ___splice7938079381_ + ___splice7938579386_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl7741077450_)) - (___match7942279423_ - _e7738177537_ - _hd7738077541_ - _tl7737977544_ - ___splice7938079381_ - _target7740877447_ - _tl7741077450_) + (gx#stx-null? _tl7741577455_)) + (___match7942779428_ + _e7738677542_ + _hd7738577546_ + _tl7738477549_ + ___splice7938579386_ + _target7741377452_ + _tl7741577455_) (let () (declare (not safe)) - (_g7737577430_))))) + (_g7738077435_))))) (let () (declare (not safe)) - (_g7737577430_)))))) + (_g7738077435_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl7737977544_)) - (let ((___splice7938079381_ + (gx#stx-pair/null? _tl7738477549_)) + (let ((___splice7938579386_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl7737977544_ + _tl7738477549_ '0)))) - (let ((_tl7741077450_ + (let ((_tl7741577455_ (let () (declare (not safe)) - (##vector-ref ___splice7938079381_ '1))) - (_target7740877447_ + (##vector-ref ___splice7938579386_ '1))) + (_target7741377452_ (let () (declare (not safe)) (##vector-ref - ___splice7938079381_ + ___splice7938579386_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl7741077450_)) - (___match7942279423_ - _e7738177537_ - _hd7738077541_ - _tl7737977544_ - ___splice7938079381_ - _target7740877447_ - _tl7741077450_) + (gx#stx-null? _tl7741577455_)) + (___match7942779428_ + _e7738677542_ + _hd7738577546_ + _tl7738477549_ + ___splice7938579386_ + _target7741377452_ + _tl7741577455_) (let () (declare (not safe)) - (_g7737577430_))))) - (let () (declare (not safe)) (_g7737577430_)))))) - (let () (declare (not safe)) (_g7737577430_)))))))) + (_g7738077435_))))) + (let () (declare (not safe)) (_g7738077435_)))))) + (let () (declare (not safe)) (_g7738077435_)))))))) (define |gxc[:0:]#@kw-lambda| - (lambda (_$stx77652_) - (let* ((_g7765677674_ - (lambda (_g7765777670_) + (lambda (_$stx77657_) + (let* ((_g7766177679_ + (lambda (_g7766277675_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g7765777670_)))) - (_g7765577729_ - (lambda (_g7765777678_) - (if (let () (declare (not safe)) (gx#stx-pair? _g7765777678_)) - (let ((_e7766277681_ + (gx#raise-syntax-error '#f '"Bad syntax" _g7766277675_)))) + (_g7766077734_ + (lambda (_g7766277683_) + (if (let () (declare (not safe)) (gx#stx-pair? _g7766277683_)) + (let ((_e7766777686_ (let () (declare (not safe)) - (gx#syntax-e _g7765777678_)))) - (let ((_hd7766177685_ + (gx#syntax-e _g7766277683_)))) + (let ((_hd7766677690_ (let () (declare (not safe)) - (##car _e7766277681_))) - (_tl7766077688_ + (##car _e7766777686_))) + (_tl7766577693_ (let () (declare (not safe)) - (##cdr _e7766277681_)))) + (##cdr _e7766777686_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl7766077688_)) - (let ((_e7766577691_ + (gx#stx-pair? _tl7766577693_)) + (let ((_e7767077696_ (let () (declare (not safe)) - (gx#syntax-e _tl7766077688_)))) - (let ((_hd7766477695_ + (gx#syntax-e _tl7766577693_)))) + (let ((_hd7766977700_ (let () (declare (not safe)) - (##car _e7766577691_))) - (_tl7766377698_ + (##car _e7767077696_))) + (_tl7766877703_ (let () (declare (not safe)) - (##cdr _e7766577691_)))) + (##cdr _e7767077696_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl7766377698_)) - (let ((_e7766877701_ + (gx#stx-pair? _tl7766877703_)) + (let ((_e7767377706_ (let () (declare (not safe)) - (gx#syntax-e _tl7766377698_)))) - (let ((_hd7766777705_ + (gx#syntax-e _tl7766877703_)))) + (let ((_hd7767277710_ (let () (declare (not safe)) - (##car _e7766877701_))) - (_tl7766677708_ + (##car _e7767377706_))) + (_tl7767177713_ (let () (declare (not safe)) - (##cdr _e7766877701_)))) + (##cdr _e7767377706_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl7766677708_)) - ((lambda (_L77711_ _L77713_) - (let ((__tmp79982 + (gx#stx-null? _tl7767177713_)) + ((lambda (_L77716_ _L77718_) + (let ((__tmp79987 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!kw-lambda))) - (__tmp79969 - (let ((__tmp79978 - (let ((__tmp79981 + (__tmp79974 + (let ((__tmp79983 + (let ((__tmp79986 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp79979 - (let ((__tmp79980 + (__tmp79984 + (let ((__tmp79985 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'kw-lambda)))) (declare (not safe)) - (cons __tmp79980 '())))) + (cons __tmp79985 '())))) (declare (not safe)) - (cons __tmp79981 __tmp79979))) - (__tmp79970 - (let ((__tmp79975 - (let ((__tmp79977 + (cons __tmp79986 __tmp79984))) + (__tmp79975 + (let ((__tmp79980 + (let ((__tmp79982 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp79976 + (__tmp79981 (let () (declare (not safe)) - (cons _L77713_ '())))) + (cons _L77718_ '())))) (declare (not safe)) - (cons __tmp79977 __tmp79976))) - (__tmp79971 - (let ((__tmp79972 - (let ((__tmp79974 + (cons __tmp79982 __tmp79981))) + (__tmp79976 + (let ((__tmp79977 + (let ((__tmp79979 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp79973 + (__tmp79978 (let () (declare (not safe)) - (cons _L77711_ '())))) + (cons _L77716_ '())))) (declare (not safe)) - (cons __tmp79974 __tmp79973)))) + (cons __tmp79979 __tmp79978)))) (declare (not safe)) - (cons __tmp79972 '())))) + (cons __tmp79977 '())))) (declare (not safe)) - (cons __tmp79975 __tmp79971)))) + (cons __tmp79980 __tmp79976)))) (declare (not safe)) - (cons __tmp79978 __tmp79970)))) + (cons __tmp79983 __tmp79975)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp79982 __tmp79969))) - _hd7766777705_ - _hd7766477695_) - (_g7765677674_ _g7765777678_)))) - (_g7765677674_ _g7765777678_)))) - (_g7765677674_ _g7765777678_)))) - (_g7765677674_ _g7765777678_))))) - (_g7765577729_ _$stx77652_)))) + (cons __tmp79987 __tmp79974))) + _hd7767277710_ + _hd7766977700_) + (_g7766177679_ _g7766277683_)))) + (_g7766177679_ _g7766277683_)))) + (_g7766177679_ _g7766277683_)))) + (_g7766177679_ _g7766277683_))))) + (_g7766077734_ _$stx77657_)))) (define |gxc[:0:]#@kw-lambda-dispatch| - (lambda (_$stx77733_) - (let* ((_g7773777755_ - (lambda (_g7773877751_) + (lambda (_$stx77738_) + (let* ((_g7774277760_ + (lambda (_g7774377756_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g7773877751_)))) - (_g7773677810_ - (lambda (_g7773877759_) - (if (let () (declare (not safe)) (gx#stx-pair? _g7773877759_)) - (let ((_e7774377762_ + (gx#raise-syntax-error '#f '"Bad syntax" _g7774377756_)))) + (_g7774177815_ + (lambda (_g7774377764_) + (if (let () (declare (not safe)) (gx#stx-pair? _g7774377764_)) + (let ((_e7774877767_ (let () (declare (not safe)) - (gx#syntax-e _g7773877759_)))) - (let ((_hd7774277766_ + (gx#syntax-e _g7774377764_)))) + (let ((_hd7774777771_ (let () (declare (not safe)) - (##car _e7774377762_))) - (_tl7774177769_ + (##car _e7774877767_))) + (_tl7774677774_ (let () (declare (not safe)) - (##cdr _e7774377762_)))) + (##cdr _e7774877767_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl7774177769_)) - (let ((_e7774677772_ + (gx#stx-pair? _tl7774677774_)) + (let ((_e7775177777_ (let () (declare (not safe)) - (gx#syntax-e _tl7774177769_)))) - (let ((_hd7774577776_ + (gx#syntax-e _tl7774677774_)))) + (let ((_hd7775077781_ (let () (declare (not safe)) - (##car _e7774677772_))) - (_tl7774477779_ + (##car _e7775177777_))) + (_tl7774977784_ (let () (declare (not safe)) - (##cdr _e7774677772_)))) + (##cdr _e7775177777_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl7774477779_)) - (let ((_e7774977782_ + (gx#stx-pair? _tl7774977784_)) + (let ((_e7775477787_ (let () (declare (not safe)) - (gx#syntax-e _tl7774477779_)))) - (let ((_hd7774877786_ + (gx#syntax-e _tl7774977784_)))) + (let ((_hd7775377791_ (let () (declare (not safe)) - (##car _e7774977782_))) - (_tl7774777789_ + (##car _e7775477787_))) + (_tl7775277794_ (let () (declare (not safe)) - (##cdr _e7774977782_)))) + (##cdr _e7775477787_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl7774777789_)) - ((lambda (_L77792_ _L77794_) - (let ((__tmp79996 + (gx#stx-null? _tl7775277794_)) + ((lambda (_L77797_ _L77799_) + (let ((__tmp80001 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!kw-lambda-primary))) - (__tmp79983 - (let ((__tmp79992 - (let ((__tmp79995 + (__tmp79988 + (let ((__tmp79997 + (let ((__tmp80000 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp79993 - (let ((__tmp79994 + (__tmp79998 + (let ((__tmp79999 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'kw-lambda-dispatch)))) (declare (not safe)) - (cons __tmp79994 '())))) + (cons __tmp79999 '())))) (declare (not safe)) - (cons __tmp79995 __tmp79993))) - (__tmp79984 - (let ((__tmp79989 - (let ((__tmp79991 + (cons __tmp80000 __tmp79998))) + (__tmp79989 + (let ((__tmp79994 + (let ((__tmp79996 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp79990 + (__tmp79995 (let () (declare (not safe)) - (cons _L77794_ '())))) + (cons _L77799_ '())))) (declare (not safe)) - (cons __tmp79991 __tmp79990))) - (__tmp79985 - (let ((__tmp79986 - (let ((__tmp79988 + (cons __tmp79996 __tmp79995))) + (__tmp79990 + (let ((__tmp79991 + (let ((__tmp79993 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp79987 + (__tmp79992 (let () (declare (not safe)) - (cons _L77792_ '())))) + (cons _L77797_ '())))) (declare (not safe)) - (cons __tmp79988 __tmp79987)))) + (cons __tmp79993 __tmp79992)))) (declare (not safe)) - (cons __tmp79986 '())))) + (cons __tmp79991 '())))) (declare (not safe)) - (cons __tmp79989 __tmp79985)))) + (cons __tmp79994 __tmp79990)))) (declare (not safe)) - (cons __tmp79992 __tmp79984)))) + (cons __tmp79997 __tmp79989)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp79996 __tmp79983))) - _hd7774877786_ - _hd7774577776_) - (_g7773777755_ _g7773877759_)))) - (_g7773777755_ _g7773877759_)))) - (_g7773777755_ _g7773877759_)))) - (_g7773777755_ _g7773877759_))))) - (_g7773677810_ _$stx77733_)))) + (cons __tmp80001 __tmp79988))) + _hd7775377791_ + _hd7775077781_) + (_g7774277760_ _g7774377764_)))) + (_g7774277760_ _g7774377764_)))) + (_g7774277760_ _g7774377764_)))) + (_g7774277760_ _g7774377764_))))) + (_g7774177815_ _$stx77738_)))) (define |gxc[:0:]#declare-primitive| - (lambda (_$stx77814_) - (let* ((___stx7942579426_ _$stx77814_) - (_g7782177892_ + (lambda (_$stx77819_) + (let* ((___stx7943079431_ _$stx77819_) + (_g7782677897_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax" - ___stx7942579426_))))) - (let ((___kont7942879429_ - (lambda (_L78183_ _L78185_) - (let ((__tmp80002 + ___stx7943079431_))))) + (let ((___kont7943379434_ + (lambda (_L78188_ _L78190_) + (let ((__tmp80007 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type))) - (__tmp79997 - (let ((__tmp79998 - (let ((__tmp79999 - (let ((__tmp80001 + (__tmp80002 + (let ((__tmp80003 + (let ((__tmp80004 + (let ((__tmp80006 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@lambda))) - (__tmp80000 + (__tmp80005 (let () (declare (not safe)) - (cons _L78183_ '())))) + (cons _L78188_ '())))) (declare (not safe)) - (cons __tmp80001 __tmp80000)))) + (cons __tmp80006 __tmp80005)))) (declare (not safe)) - (cons __tmp79999 '())))) + (cons __tmp80004 '())))) (declare (not safe)) - (cons _L78185_ __tmp79998)))) + (cons _L78190_ __tmp80003)))) (declare (not safe)) - (cons __tmp80002 __tmp79997)))) - (___kont7943079431_ - (lambda (_L78102_ _L78104_) - (let ((__tmp80011 + (cons __tmp80007 __tmp80002)))) + (___kont7943579436_ + (lambda (_L78107_ _L78109_) + (let ((__tmp80016 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type))) - (__tmp80003 - (let ((__tmp80004 - (let ((__tmp80005 - (let ((__tmp80010 + (__tmp80008 + (let ((__tmp80009 + (let ((__tmp80010 + (let ((__tmp80015 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@case-lambda))) - (__tmp80006 - (let ((__tmp80007 - (lambda (_g7812378126_ - _g7812478129_) - (let ((__tmp80008 - (let ((__tmp80009 + (__tmp80011 + (let ((__tmp80012 + (lambda (_g7812878131_ + _g7812978134_) + (let ((__tmp80013 + (let ((__tmp80014 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons _g7812378126_ __tmp80009)))) + (cons _g7812878131_ __tmp80014)))) (declare (not safe)) - (cons __tmp80008 _g7812478129_))))) + (cons __tmp80013 _g7812978134_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp80007 + (foldr1 __tmp80012 '() - _L78102_)))) + _L78107_)))) (declare (not safe)) - (cons __tmp80010 __tmp80006)))) + (cons __tmp80015 __tmp80011)))) (declare (not safe)) - (cons __tmp80005 '())))) + (cons __tmp80010 '())))) (declare (not safe)) - (cons _L78104_ __tmp80004)))) + (cons _L78109_ __tmp80009)))) (declare (not safe)) - (cons __tmp80011 __tmp80003)))) - (___kont7943479435_ - (lambda (_L78014_ _L78016_) - (let ((__tmp80018 + (cons __tmp80016 __tmp80008)))) + (___kont7943979440_ + (lambda (_L78019_ _L78021_) + (let ((__tmp80023 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type))) - (__tmp80012 - (let ((__tmp80013 - (let ((__tmp80014 - (let ((__tmp80017 + (__tmp80017 + (let ((__tmp80018 + (let ((__tmp80019 + (let ((__tmp80022 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@lambda))) - (__tmp80015 - (let ((__tmp80016 + (__tmp80020 + (let ((__tmp80021 (let () (declare (not safe)) - (cons _L78014_ '())))) + (cons _L78019_ '())))) (declare (not safe)) - (cons 'primitive: __tmp80016)))) + (cons 'primitive: __tmp80021)))) (declare (not safe)) - (cons __tmp80017 __tmp80015)))) + (cons __tmp80022 __tmp80020)))) (declare (not safe)) - (cons __tmp80014 '())))) + (cons __tmp80019 '())))) (declare (not safe)) - (cons _L78016_ __tmp80013)))) + (cons _L78021_ __tmp80018)))) (declare (not safe)) - (cons __tmp80018 __tmp80012)))) - (___kont7943679437_ - (lambda (_L77949_ _L77951_) - (let ((__tmp80028 + (cons __tmp80023 __tmp80017)))) + (___kont7944179442_ + (lambda (_L77954_ _L77956_) + (let ((__tmp80033 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type))) - (__tmp80019 - (let ((__tmp80020 - (let ((__tmp80021 - (let ((__tmp80027 + (__tmp80024 + (let ((__tmp80025 + (let ((__tmp80026 + (let ((__tmp80032 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@case-lambda))) - (__tmp80022 - (let ((__tmp80023 - (let ((__tmp80024 - (lambda (_g7796877971_ + (__tmp80027 + (let ((__tmp80028 + (let ((__tmp80029 + (lambda (_g7797377976_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g7796977974_) - (let ((__tmp80025 - (let ((__tmp80026 + _g7797477979_) + (let ((__tmp80030 + (let ((__tmp80031 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons _g7796877971_ __tmp80026)))) + (cons _g7797377976_ __tmp80031)))) (declare (not safe)) - (cons __tmp80025 _g7796977974_))))) + (cons __tmp80030 _g7797477979_))))) (declare (not safe)) - (foldr1 __tmp80024 '() _L77949_)))) + (foldr1 __tmp80029 '() _L77954_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'primitive: __tmp80023)))) + (cons 'primitive: __tmp80028)))) (declare (not safe)) - (cons __tmp80027 __tmp80022)))) + (cons __tmp80032 __tmp80027)))) (declare (not safe)) - (cons __tmp80021 '())))) + (cons __tmp80026 '())))) (declare (not safe)) - (cons _L77951_ __tmp80020)))) + (cons _L77956_ __tmp80025)))) (declare (not safe)) - (cons __tmp80028 __tmp80019))))) - (let* ((___match7954479545_ - (lambda (_e7787477899_ - _hd7787377903_ - _tl7787277906_ - _e7787777909_ - _hd7787677913_ - _tl7787577916_ - ___splice7943879439_ - _target7787877919_ - _tl7788077922_) - (letrec ((_loop7788177925_ - (lambda (_hd7787977929_ _arity7788577932_) + (cons __tmp80033 __tmp80024))))) + (let* ((___match7954979550_ + (lambda (_e7787977904_ + _hd7787877908_ + _tl7787777911_ + _e7788277914_ + _hd7788177918_ + _tl7788077921_ + ___splice7944379444_ + _target7788377924_ + _tl7788577927_) + (letrec ((_loop7788677930_ + (lambda (_hd7788477934_ _arity7789077937_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd7787977929_)) - (let ((_e7788277935_ + (gx#stx-pair? _hd7788477934_)) + (let ((_e7788777940_ (let () (declare (not safe)) - (gx#syntax-e _hd7787977929_)))) - (let ((_lp-tl7788477942_ + (gx#syntax-e _hd7788477934_)))) + (let ((_lp-tl7788977947_ (let () (declare (not safe)) - (##cdr _e7788277935_))) - (_lp-hd7788377939_ + (##cdr _e7788777940_))) + (_lp-hd7788877944_ (let () (declare (not safe)) - (##car _e7788277935_)))) - (_loop7788177925_ - _lp-tl7788477942_ + (##car _e7788777940_)))) + (_loop7788677930_ + _lp-tl7788977947_ (let () (declare (not safe)) - (cons _lp-hd7788377939_ - _arity7788577932_))))) - (let ((_arity7788677945_ - (reverse _arity7788577932_))) - (___kont7943679437_ - _arity7788677945_ - _hd7787677913_)))))) - (_loop7788177925_ _target7787877919_ '())))) - (___match7950479505_ - (lambda (_e7784278038_ - _hd7784178042_ - _tl7784078045_ - _e7784578048_ - _hd7784478052_ - _tl7784378055_ - _e7784878058_ - _hd7784778062_ - _tl7784678065_ - _e7784978068_ - ___splice7943279433_ - _target7785078072_ - _tl7785278075_) - (letrec ((_loop7785378078_ - (lambda (_hd7785178082_ _arity7785778085_) + (cons _lp-hd7788877944_ + _arity7789077937_))))) + (let ((_arity7789177950_ + (reverse _arity7789077937_))) + (___kont7944179442_ + _arity7789177950_ + _hd7788177918_)))))) + (_loop7788677930_ _target7788377924_ '())))) + (___match7950979510_ + (lambda (_e7784778043_ + _hd7784678047_ + _tl7784578050_ + _e7785078053_ + _hd7784978057_ + _tl7784878060_ + _e7785378063_ + _hd7785278067_ + _tl7785178070_ + _e7785478073_ + ___splice7943779438_ + _target7785578077_ + _tl7785778080_) + (letrec ((_loop7785878083_ + (lambda (_hd7785678087_ _arity7786278090_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd7785178082_)) - (let ((_e7785478088_ + (gx#stx-pair? _hd7785678087_)) + (let ((_e7785978093_ (let () (declare (not safe)) - (gx#syntax-e _hd7785178082_)))) - (let ((_lp-tl7785678095_ + (gx#syntax-e _hd7785678087_)))) + (let ((_lp-tl7786178100_ (let () (declare (not safe)) - (##cdr _e7785478088_))) - (_lp-hd7785578092_ + (##cdr _e7785978093_))) + (_lp-hd7786078097_ (let () (declare (not safe)) - (##car _e7785478088_)))) - (_loop7785378078_ - _lp-tl7785678095_ + (##car _e7785978093_)))) + (_loop7785878083_ + _lp-tl7786178100_ (let () (declare (not safe)) - (cons _lp-hd7785578092_ - _arity7785778085_))))) - (let ((_arity7785878098_ - (reverse _arity7785778085_))) - (___kont7943079431_ - _arity7785878098_ - _hd7784478052_)))))) - (_loop7785378078_ _target7785078072_ '()))))) - (if (let () (declare (not safe)) (gx#stx-pair? ___stx7942579426_)) - (let ((_e7782778139_ + (cons _lp-hd7786078097_ + _arity7786278090_))))) + (let ((_arity7786378103_ + (reverse _arity7786278090_))) + (___kont7943579436_ + _arity7786378103_ + _hd7784978057_)))))) + (_loop7785878083_ _target7785578077_ '()))))) + (if (let () (declare (not safe)) (gx#stx-pair? ___stx7943079431_)) + (let ((_e7783278144_ (let () (declare (not safe)) - (gx#syntax-e ___stx7942579426_)))) - (let ((_tl7782578146_ - (let () (declare (not safe)) (##cdr _e7782778139_))) - (_hd7782678143_ - (let () (declare (not safe)) (##car _e7782778139_)))) + (gx#syntax-e ___stx7943079431_)))) + (let ((_tl7783078151_ + (let () (declare (not safe)) (##cdr _e7783278144_))) + (_hd7783178148_ + (let () (declare (not safe)) (##car _e7783278144_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl7782578146_)) - (let ((_e7783078149_ + (gx#stx-pair? _tl7783078151_)) + (let ((_e7783578154_ (let () (declare (not safe)) - (gx#syntax-e _tl7782578146_)))) - (let ((_tl7782878156_ + (gx#syntax-e _tl7783078151_)))) + (let ((_tl7783378161_ (let () (declare (not safe)) - (##cdr _e7783078149_))) - (_hd7782978153_ + (##cdr _e7783578154_))) + (_hd7783478158_ (let () (declare (not safe)) - (##car _e7783078149_)))) + (##car _e7783578154_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl7782878156_)) - (let ((_e7783378159_ + (gx#stx-pair? _tl7783378161_)) + (let ((_e7783878164_ (let () (declare (not safe)) - (gx#syntax-e _tl7782878156_)))) - (let ((_tl7783178166_ + (gx#syntax-e _tl7783378161_)))) + (let ((_tl7783678171_ (let () (declare (not safe)) - (##cdr _e7783378159_))) - (_hd7783278163_ + (##cdr _e7783878164_))) + (_hd7783778168_ (let () (declare (not safe)) - (##car _e7783378159_)))) + (##car _e7783878164_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd7783278163_)) - (let ((_e7783478169_ + (gx#stx-datum? _hd7783778168_)) + (let ((_e7783978174_ (let () (declare (not safe)) - (gx#stx-e _hd7783278163_)))) + (gx#stx-e _hd7783778168_)))) (if (let () (declare (not safe)) - (equal? _e7783478169_ + (equal? _e7783978174_ 'unchecked:)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl7783178166_)) - (let ((_e7783778173_ + _tl7783678171_)) + (let ((_e7784278178_ (let () (declare (not safe)) (gx#syntax-e - _tl7783178166_)))) - (let ((_tl7783578180_ + _tl7783678171_)))) + (let ((_tl7784078185_ (let () (declare (not safe)) - (##cdr _e7783778173_))) - (_hd7783678177_ + (##cdr _e7784278178_))) + (_hd7784178182_ (let () (declare (not safe)) - (##car _e7783778173_)))) + (##car _e7784278178_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl7783578180_)) - (___kont7942879429_ - _hd7783678177_ - _hd7782978153_) + _tl7784078185_)) + (___kont7943379434_ + _hd7784178182_ + _hd7783478158_) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair/null? _tl7783178166_)) - (let ((___splice7943279433_ + (gx#stx-pair/null? _tl7783678171_)) + (let ((___splice7943779438_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl7783178166_ '0)))) - (let ((_tl7785278075_ + (gx#syntax-split-splice _tl7783678171_ '0)))) + (let ((_tl7785778080_ (let () (declare (not safe)) - (##vector-ref ___splice7943279433_ '1))) - (_target7785078072_ + (##vector-ref ___splice7943779438_ '1))) + (_target7785578077_ (let () (declare (not safe)) - (##vector-ref ___splice7943279433_ '0)))) + (##vector-ref ___splice7943779438_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl7785278075_)) - (___match7950479505_ - _e7782778139_ - _hd7782678143_ - _tl7782578146_ - _e7783078149_ - _hd7782978153_ - _tl7782878156_ - _e7783378159_ - _hd7783278163_ - _tl7783178166_ - _e7783478169_ - ___splice7943279433_ - _target7785078072_ - _tl7785278075_) + (gx#stx-null? _tl7785778080_)) + (___match7950979510_ + _e7783278144_ + _hd7783178148_ + _tl7783078151_ + _e7783578154_ + _hd7783478158_ + _tl7783378161_ + _e7783878164_ + _hd7783778168_ + _tl7783678171_ + _e7783978174_ + ___splice7943779438_ + _target7785578077_ + _tl7785778080_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl7782878156_)) - (let ((___splice7943879439_ + (gx#stx-pair/null? _tl7783378161_)) + (let ((___splice7944379444_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl7782878156_ + _tl7783378161_ '0)))) - (let ((_tl7788077922_ + (let ((_tl7788577927_ (let () (declare (not safe)) (##vector-ref - ___splice7943879439_ + ___splice7944379444_ '1))) - (_target7787877919_ + (_target7788377924_ (let () (declare (not safe)) (##vector-ref - ___splice7943879439_ + ___splice7944379444_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl7788077922_)) - (___match7954479545_ - _e7782778139_ - _hd7782678143_ - _tl7782578146_ - _e7783078149_ - _hd7782978153_ - _tl7782878156_ - ___splice7943879439_ - _target7787877919_ - _tl7788077922_) + (gx#stx-null? _tl7788577927_)) + (___match7954979550_ + _e7783278144_ + _hd7783178148_ + _tl7783078151_ + _e7783578154_ + _hd7783478158_ + _tl7783378161_ + ___splice7944379444_ + _target7788377924_ + _tl7788577927_) (let () (declare (not safe)) - (_g7782177892_))))) + (_g7782677897_))))) (let () (declare (not safe)) - (_g7782177892_)))))) + (_g7782677897_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl7782878156_)) - (let ((___splice7943879439_ + (gx#stx-pair/null? _tl7783378161_)) + (let ((___splice7944379444_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl7782878156_ + _tl7783378161_ '0)))) - (let ((_tl7788077922_ + (let ((_tl7788577927_ (let () (declare (not safe)) - (##vector-ref ___splice7943879439_ '1))) - (_target7787877919_ + (##vector-ref ___splice7944379444_ '1))) + (_target7788377924_ (let () (declare (not safe)) - (##vector-ref ___splice7943879439_ '0)))) + (##vector-ref ___splice7944379444_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl7788077922_)) - (___match7954479545_ - _e7782778139_ - _hd7782678143_ - _tl7782578146_ - _e7783078149_ - _hd7782978153_ - _tl7782878156_ - ___splice7943879439_ - _target7787877919_ - _tl7788077922_) + (gx#stx-null? _tl7788577927_)) + (___match7954979550_ + _e7783278144_ + _hd7783178148_ + _tl7783078151_ + _e7783578154_ + _hd7783478158_ + _tl7783378161_ + ___splice7944379444_ + _target7788377924_ + _tl7788577927_) (let () (declare (not safe)) - (_g7782177892_))))) - (let () (declare (not safe)) (_g7782177892_))))))) + (_g7782677897_))))) + (let () (declare (not safe)) (_g7782677897_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl7783178166_)) - (let ((___splice7943279433_ + _tl7783678171_)) + (let ((___splice7943779438_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _tl7783178166_ '0)))) - (let ((_tl7785278075_ + (gx#syntax-split-splice _tl7783678171_ '0)))) + (let ((_tl7785778080_ (let () (declare (not safe)) - (##vector-ref ___splice7943279433_ '1))) - (_target7785078072_ + (##vector-ref ___splice7943779438_ '1))) + (_target7785578077_ (let () (declare (not safe)) - (##vector-ref ___splice7943279433_ '0)))) + (##vector-ref ___splice7943779438_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl7785278075_)) - (___match7950479505_ - _e7782778139_ - _hd7782678143_ - _tl7782578146_ - _e7783078149_ - _hd7782978153_ - _tl7782878156_ - _e7783378159_ - _hd7783278163_ - _tl7783178166_ - _e7783478169_ - ___splice7943279433_ - _target7785078072_ - _tl7785278075_) + (gx#stx-null? _tl7785778080_)) + (___match7950979510_ + _e7783278144_ + _hd7783178148_ + _tl7783078151_ + _e7783578154_ + _hd7783478158_ + _tl7783378161_ + _e7783878164_ + _hd7783778168_ + _tl7783678171_ + _e7783978174_ + ___splice7943779438_ + _target7785578077_ + _tl7785778080_) (if (let () (declare (not safe)) - (gx#stx-null? _tl7783178166_)) - (___kont7943479435_ _hd7783278163_ _hd7782978153_) + (gx#stx-null? _tl7783678171_)) + (___kont7943979440_ _hd7783778168_ _hd7783478158_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl7782878156_)) - (let ((___splice7943879439_ + (gx#stx-pair/null? _tl7783378161_)) + (let ((___splice7944379444_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl7782878156_ + _tl7783378161_ '0)))) - (let ((_tl7788077922_ + (let ((_tl7788577927_ (let () (declare (not safe)) (##vector-ref - ___splice7943879439_ + ___splice7944379444_ '1))) - (_target7787877919_ + (_target7788377924_ (let () (declare (not safe)) (##vector-ref - ___splice7943879439_ + ___splice7944379444_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl7788077922_)) - (___match7954479545_ - _e7782778139_ - _hd7782678143_ - _tl7782578146_ - _e7783078149_ - _hd7782978153_ - _tl7782878156_ - ___splice7943879439_ - _target7787877919_ - _tl7788077922_) + (gx#stx-null? _tl7788577927_)) + (___match7954979550_ + _e7783278144_ + _hd7783178148_ + _tl7783078151_ + _e7783578154_ + _hd7783478158_ + _tl7783378161_ + ___splice7944379444_ + _target7788377924_ + _tl7788577927_) (let () (declare (not safe)) - (_g7782177892_))))) + (_g7782677897_))))) (let () (declare (not safe)) - (_g7782177892_))))))) - (if (let () (declare (not safe)) (gx#stx-null? _tl7783178166_)) - (___kont7943479435_ _hd7783278163_ _hd7782978153_) + (_g7782677897_))))))) + (if (let () (declare (not safe)) (gx#stx-null? _tl7783678171_)) + (___kont7943979440_ _hd7783778168_ _hd7783478158_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl7782878156_)) - (let ((___splice7943879439_ + (gx#stx-pair/null? _tl7783378161_)) + (let ((___splice7944379444_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl7782878156_ '0)))) - (let ((_tl7788077922_ + (gx#syntax-split-splice _tl7783378161_ '0)))) + (let ((_tl7788577927_ (let () (declare (not safe)) - (##vector-ref ___splice7943879439_ '1))) - (_target7787877919_ + (##vector-ref ___splice7944379444_ '1))) + (_target7788377924_ (let () (declare (not safe)) - (##vector-ref ___splice7943879439_ '0)))) + (##vector-ref ___splice7944379444_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl7788077922_)) - (___match7954479545_ - _e7782778139_ - _hd7782678143_ - _tl7782578146_ - _e7783078149_ - _hd7782978153_ - _tl7782878156_ - ___splice7943879439_ - _target7787877919_ - _tl7788077922_) - (let () (declare (not safe)) (_g7782177892_))))) - (let () (declare (not safe)) (_g7782177892_)))))) + (gx#stx-null? _tl7788577927_)) + (___match7954979550_ + _e7783278144_ + _hd7783178148_ + _tl7783078151_ + _e7783578154_ + _hd7783478158_ + _tl7783378161_ + ___splice7944379444_ + _target7788377924_ + _tl7788577927_) + (let () (declare (not safe)) (_g7782677897_))))) + (let () (declare (not safe)) (_g7782677897_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _tl7783178166_)) - (___kont7943479435_ - _hd7783278163_ - _hd7782978153_) + _tl7783678171_)) + (___kont7943979440_ + _hd7783778168_ + _hd7783478158_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl7782878156_)) - (let ((___splice7943879439_ + _tl7783378161_)) + (let ((___splice7944379444_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _tl7782878156_ '0)))) - (let ((_tl7788077922_ + (gx#syntax-split-splice _tl7783378161_ '0)))) + (let ((_tl7788577927_ (let () (declare (not safe)) - (##vector-ref ___splice7943879439_ '1))) - (_target7787877919_ + (##vector-ref ___splice7944379444_ '1))) + (_target7788377924_ (let () (declare (not safe)) - (##vector-ref ___splice7943879439_ '0)))) + (##vector-ref ___splice7944379444_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl7788077922_)) - (___match7954479545_ - _e7782778139_ - _hd7782678143_ - _tl7782578146_ - _e7783078149_ - _hd7782978153_ - _tl7782878156_ - ___splice7943879439_ - _target7787877919_ - _tl7788077922_) - (let () (declare (not safe)) (_g7782177892_))))) - (let () (declare (not safe)) (_g7782177892_)))))) + (gx#stx-null? _tl7788577927_)) + (___match7954979550_ + _e7783278144_ + _hd7783178148_ + _tl7783078151_ + _e7783578154_ + _hd7783478158_ + _tl7783378161_ + ___splice7944379444_ + _target7788377924_ + _tl7788577927_) + (let () (declare (not safe)) (_g7782677897_))))) + (let () (declare (not safe)) (_g7782677897_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (gx#stx-null? _tl7783178166_)) - (___kont7943479435_ - _hd7783278163_ - _hd7782978153_) + (gx#stx-null? _tl7783678171_)) + (___kont7943979440_ + _hd7783778168_ + _hd7783478158_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl7782878156_)) - (let ((___splice7943879439_ + _tl7783378161_)) + (let ((___splice7944379444_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl7782878156_ + _tl7783378161_ '0)))) - (let ((_tl7788077922_ + (let ((_tl7788577927_ (let () (declare (not safe)) (##vector-ref - ___splice7943879439_ + ___splice7944379444_ '1))) - (_target7787877919_ + (_target7788377924_ (let () (declare (not safe)) (##vector-ref - ___splice7943879439_ + ___splice7944379444_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl7788077922_)) - (___match7954479545_ - _e7782778139_ - _hd7782678143_ - _tl7782578146_ - _e7783078149_ - _hd7782978153_ - _tl7782878156_ - ___splice7943879439_ - _target7787877919_ - _tl7788077922_) + _tl7788577927_)) + (___match7954979550_ + _e7783278144_ + _hd7783178148_ + _tl7783078151_ + _e7783578154_ + _hd7783478158_ + _tl7783378161_ + ___splice7944379444_ + _target7788377924_ + _tl7788577927_) (let () (declare (not safe)) - (_g7782177892_))))) + (_g7782677897_))))) (let () (declare (not safe)) - (_g7782177892_))))))) + (_g7782677897_))))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl7782878156_)) - (let ((___splice7943879439_ + (gx#stx-pair/null? _tl7783378161_)) + (let ((___splice7944379444_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl7782878156_ + _tl7783378161_ '0)))) - (let ((_tl7788077922_ + (let ((_tl7788577927_ (let () (declare (not safe)) (##vector-ref - ___splice7943879439_ + ___splice7944379444_ '1))) - (_target7787877919_ + (_target7788377924_ (let () (declare (not safe)) (##vector-ref - ___splice7943879439_ + ___splice7944379444_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl7788077922_)) - (___match7954479545_ - _e7782778139_ - _hd7782678143_ - _tl7782578146_ - _e7783078149_ - _hd7782978153_ - _tl7782878156_ - ___splice7943879439_ - _target7787877919_ - _tl7788077922_) + (gx#stx-null? _tl7788577927_)) + (___match7954979550_ + _e7783278144_ + _hd7783178148_ + _tl7783078151_ + _e7783578154_ + _hd7783478158_ + _tl7783378161_ + ___splice7944379444_ + _target7788377924_ + _tl7788577927_) (let () (declare (not safe)) - (_g7782177892_))))) + (_g7782677897_))))) (let () (declare (not safe)) - (_g7782177892_)))))) - (let () (declare (not safe)) (_g7782177892_))))) - (let () (declare (not safe)) (_g7782177892_)))))))) + (_g7782677897_)))))) + (let () (declare (not safe)) (_g7782677897_))))) + (let () (declare (not safe)) (_g7782677897_)))))))) (define |gxc[:0:]#declare-primitive/unchecked| - (lambda (_$stx78209_) - (let* ((___stx7954779548_ _$stx78209_) - (_g7821478249_ + (lambda (_$stx78214_) + (let* ((___stx7955279553_ _$stx78214_) + (_g7821978254_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax" - ___stx7954779548_))))) - (let ((___kont7955079551_ - (lambda (_L78371_ _L78373_) - (let ((__tmp80034 + ___stx7955279553_))))) + (let ((___kont7955579556_ + (lambda (_L78376_ _L78378_) + (let ((__tmp80039 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type))) - (__tmp80029 - (let ((__tmp80030 - (let ((__tmp80031 - (let ((__tmp80033 + (__tmp80034 + (let ((__tmp80035 + (let ((__tmp80036 + (let ((__tmp80038 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@lambda))) - (__tmp80032 + (__tmp80037 (let () (declare (not safe)) - (cons _L78371_ '())))) + (cons _L78376_ '())))) (declare (not safe)) - (cons __tmp80033 __tmp80032)))) + (cons __tmp80038 __tmp80037)))) (declare (not safe)) - (cons __tmp80031 '())))) + (cons __tmp80036 '())))) (declare (not safe)) - (cons _L78373_ __tmp80030)))) + (cons _L78378_ __tmp80035)))) (declare (not safe)) - (cons __tmp80034 __tmp80029)))) - (___kont7955279553_ - (lambda (_L78306_ _L78308_) - (let ((__tmp80043 + (cons __tmp80039 __tmp80034)))) + (___kont7955779558_ + (lambda (_L78311_ _L78313_) + (let ((__tmp80048 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type))) - (__tmp80035 - (let ((__tmp80036 - (let ((__tmp80037 - (let ((__tmp80042 + (__tmp80040 + (let ((__tmp80041 + (let ((__tmp80042 + (let ((__tmp80047 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@case-lambda))) - (__tmp80038 - (let ((__tmp80039 - (lambda (_g7832578328_ - _g7832678331_) - (let ((__tmp80040 - (let ((__tmp80041 + (__tmp80043 + (let ((__tmp80044 + (lambda (_g7833078333_ + _g7833178336_) + (let ((__tmp80045 + (let ((__tmp80046 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons _g7832578328_ __tmp80041)))) + (cons _g7833078333_ __tmp80046)))) (declare (not safe)) - (cons __tmp80040 _g7832678331_))))) + (cons __tmp80045 _g7833178336_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp80039 + (foldr1 __tmp80044 '() - _L78306_)))) + _L78311_)))) (declare (not safe)) - (cons __tmp80042 __tmp80038)))) + (cons __tmp80047 __tmp80043)))) (declare (not safe)) - (cons __tmp80037 '())))) + (cons __tmp80042 '())))) (declare (not safe)) - (cons _L78308_ __tmp80036)))) + (cons _L78313_ __tmp80041)))) (declare (not safe)) - (cons __tmp80043 __tmp80035))))) - (let ((___match7959679597_ - (lambda (_e7823178256_ - _hd7823078260_ - _tl7822978263_ - _e7823478266_ - _hd7823378270_ - _tl7823278273_ - ___splice7955479555_ - _target7823578276_ - _tl7823778279_) - (letrec ((_loop7823878282_ - (lambda (_hd7823678286_ _arity7824278289_) + (cons __tmp80048 __tmp80040))))) + (let ((___match7960179602_ + (lambda (_e7823678261_ + _hd7823578265_ + _tl7823478268_ + _e7823978271_ + _hd7823878275_ + _tl7823778278_ + ___splice7955979560_ + _target7824078281_ + _tl7824278284_) + (letrec ((_loop7824378287_ + (lambda (_hd7824178291_ _arity7824778294_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd7823678286_)) - (let ((_e7823978292_ + (gx#stx-pair? _hd7824178291_)) + (let ((_e7824478297_ (let () (declare (not safe)) - (gx#syntax-e _hd7823678286_)))) - (let ((_lp-tl7824178299_ + (gx#syntax-e _hd7824178291_)))) + (let ((_lp-tl7824678304_ (let () (declare (not safe)) - (##cdr _e7823978292_))) - (_lp-hd7824078296_ + (##cdr _e7824478297_))) + (_lp-hd7824578301_ (let () (declare (not safe)) - (##car _e7823978292_)))) - (_loop7823878282_ - _lp-tl7824178299_ + (##car _e7824478297_)))) + (_loop7824378287_ + _lp-tl7824678304_ (let () (declare (not safe)) - (cons _lp-hd7824078296_ - _arity7824278289_))))) - (let ((_arity7824378302_ - (reverse _arity7824278289_))) - (___kont7955279553_ - _arity7824378302_ - _hd7823378270_)))))) - (_loop7823878282_ _target7823578276_ '()))))) - (if (let () (declare (not safe)) (gx#stx-pair? ___stx7954779548_)) - (let ((_e7822078341_ + (cons _lp-hd7824578301_ + _arity7824778294_))))) + (let ((_arity7824878307_ + (reverse _arity7824778294_))) + (___kont7955779558_ + _arity7824878307_ + _hd7823878275_)))))) + (_loop7824378287_ _target7824078281_ '()))))) + (if (let () (declare (not safe)) (gx#stx-pair? ___stx7955279553_)) + (let ((_e7822578346_ (let () (declare (not safe)) - (gx#syntax-e ___stx7954779548_)))) - (let ((_tl7821878348_ - (let () (declare (not safe)) (##cdr _e7822078341_))) - (_hd7821978345_ - (let () (declare (not safe)) (##car _e7822078341_)))) + (gx#syntax-e ___stx7955279553_)))) + (let ((_tl7822378353_ + (let () (declare (not safe)) (##cdr _e7822578346_))) + (_hd7822478350_ + (let () (declare (not safe)) (##car _e7822578346_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl7821878348_)) - (let ((_e7822378351_ + (gx#stx-pair? _tl7822378353_)) + (let ((_e7822878356_ (let () (declare (not safe)) - (gx#syntax-e _tl7821878348_)))) - (let ((_tl7822178358_ + (gx#syntax-e _tl7822378353_)))) + (let ((_tl7822678363_ (let () (declare (not safe)) - (##cdr _e7822378351_))) - (_hd7822278355_ + (##cdr _e7822878356_))) + (_hd7822778360_ (let () (declare (not safe)) - (##car _e7822378351_)))) + (##car _e7822878356_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl7822178358_)) - (let ((_e7822678361_ + (gx#stx-pair? _tl7822678363_)) + (let ((_e7823178366_ (let () (declare (not safe)) - (gx#syntax-e _tl7822178358_)))) - (let ((_tl7822478368_ + (gx#syntax-e _tl7822678363_)))) + (let ((_tl7822978373_ (let () (declare (not safe)) - (##cdr _e7822678361_))) - (_hd7822578365_ + (##cdr _e7823178366_))) + (_hd7823078370_ (let () (declare (not safe)) - (##car _e7822678361_)))) + (##car _e7823178366_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl7822478368_)) - (___kont7955079551_ - _hd7822578365_ - _hd7822278355_) + (gx#stx-null? _tl7822978373_)) + (___kont7955579556_ + _hd7823078370_ + _hd7822778360_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl7822178358_)) - (let ((___splice7955479555_ + _tl7822678363_)) + (let ((___splice7955979560_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl7822178358_ + _tl7822678363_ '0)))) - (let ((_tl7823778279_ + (let ((_tl7824278284_ (let () (declare (not safe)) (##vector-ref - ___splice7955479555_ + ___splice7955979560_ '1))) - (_target7823578276_ + (_target7824078281_ (let () (declare (not safe)) (##vector-ref - ___splice7955479555_ + ___splice7955979560_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl7823778279_)) - (___match7959679597_ - _e7822078341_ - _hd7821978345_ - _tl7821878348_ - _e7822378351_ - _hd7822278355_ - _tl7822178358_ - ___splice7955479555_ - _target7823578276_ - _tl7823778279_) + _tl7824278284_)) + (___match7960179602_ + _e7822578346_ + _hd7822478350_ + _tl7822378353_ + _e7822878356_ + _hd7822778360_ + _tl7822678363_ + ___splice7955979560_ + _target7824078281_ + _tl7824278284_) (let () (declare (not safe)) - (_g7821478249_))))) + (_g7821978254_))))) (let () (declare (not safe)) - (_g7821478249_)))))) + (_g7821978254_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl7822178358_)) - (let ((___splice7955479555_ + (gx#stx-pair/null? _tl7822678363_)) + (let ((___splice7955979560_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl7822178358_ + _tl7822678363_ '0)))) - (let ((_tl7823778279_ + (let ((_tl7824278284_ (let () (declare (not safe)) (##vector-ref - ___splice7955479555_ + ___splice7955979560_ '1))) - (_target7823578276_ + (_target7824078281_ (let () (declare (not safe)) (##vector-ref - ___splice7955479555_ + ___splice7955979560_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl7823778279_)) - (___match7959679597_ - _e7822078341_ - _hd7821978345_ - _tl7821878348_ - _e7822378351_ - _hd7822278355_ - _tl7822178358_ - ___splice7955479555_ - _target7823578276_ - _tl7823778279_) + (gx#stx-null? _tl7824278284_)) + (___match7960179602_ + _e7822578346_ + _hd7822478350_ + _tl7822378353_ + _e7822878356_ + _hd7822778360_ + _tl7822678363_ + ___splice7955979560_ + _target7824078281_ + _tl7824278284_) (let () (declare (not safe)) - (_g7821478249_))))) + (_g7821978254_))))) (let () (declare (not safe)) - (_g7821478249_)))))) - (let () (declare (not safe)) (_g7821478249_))))) - (let () (declare (not safe)) (_g7821478249_)))))))) + (_g7821978254_)))))) + (let () (declare (not safe)) (_g7821978254_))))) + (let () (declare (not safe)) (_g7821978254_)))))))) (define |gxc[:0:]#declare-primitive*| - (lambda (_$stx78393_) - (let* ((_g7839778432_ - (lambda (_g7839878428_) + (lambda (_$stx78398_) + (let* ((_g7840278437_ + (lambda (_g7840378433_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g7839878428_)))) - (_g7839678560_ - (lambda (_g7839878436_) - (if (let () (declare (not safe)) (gx#stx-pair? _g7839878436_)) - (let ((_e7840378439_ + (gx#raise-syntax-error '#f '"Bad syntax" _g7840378433_)))) + (_g7840178565_ + (lambda (_g7840378441_) + (if (let () (declare (not safe)) (gx#stx-pair? _g7840378441_)) + (let ((_e7840878444_ (let () (declare (not safe)) - (gx#syntax-e _g7839878436_)))) - (let ((_hd7840278443_ + (gx#syntax-e _g7840378441_)))) + (let ((_hd7840778448_ (let () (declare (not safe)) - (##car _e7840378439_))) - (_tl7840178446_ + (##car _e7840878444_))) + (_tl7840678451_ (let () (declare (not safe)) - (##cdr _e7840378439_)))) + (##cdr _e7840878444_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl7840178446_)) - (let ((_g80044_ + (gx#stx-pair/null? _tl7840678451_)) + (let ((_g80049_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl7840178446_ + _tl7840678451_ '0)))) (begin - (let ((_g80045_ + (let ((_g80050_ (let () (declare (not safe)) - (if (##values? _g80044_) - (##vector-length _g80044_) + (if (##values? _g80049_) + (##vector-length _g80049_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g80045_ 2))) + (##fx= _g80050_ 2))) (error "Context expects 2 values" - _g80045_))) - (let ((_target7840478449_ + _g80050_))) + (let ((_target7840978454_ (let () (declare (not safe)) - (##vector-ref _g80044_ 0))) - (_tl7840678452_ + (##vector-ref _g80049_ 0))) + (_tl7841178457_ (let () (declare (not safe)) - (##vector-ref _g80044_ 1)))) + (##vector-ref _g80049_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl7840678452_)) - (letrec ((_loop7840778455_ - (lambda (_hd7840578459_ - _arity7841178462_ - _prim7841278464_) + (gx#stx-null? _tl7841178457_)) + (letrec ((_loop7841278460_ + (lambda (_hd7841078464_ + _arity7841678467_ + _prim7841778469_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd7840578459_)) - (let ((_e7840878467_ + _hd7841078464_)) + (let ((_e7841378472_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _hd7840578459_)))) - (let ((_lp-hd7840978471_ - (let () (declare (not safe)) (##car _e7840878467_))) - (_lp-tl7841078474_ - (let () (declare (not safe)) (##cdr _e7840878467_)))) + (gx#syntax-e _hd7841078464_)))) + (let ((_lp-hd7841478476_ + (let () (declare (not safe)) (##car _e7841378472_))) + (_lp-tl7841578479_ + (let () (declare (not safe)) (##cdr _e7841378472_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd7840978471_)) - (let ((_e7841778477_ + (gx#stx-pair? _lp-hd7841478476_)) + (let ((_e7842278482_ (let () (declare (not safe)) - (gx#syntax-e _lp-hd7840978471_)))) - (let ((_hd7841678481_ + (gx#syntax-e _lp-hd7841478476_)))) + (let ((_hd7842178486_ (let () (declare (not safe)) - (##car _e7841778477_))) - (_tl7841578484_ + (##car _e7842278482_))) + (_tl7842078489_ (let () (declare (not safe)) - (##cdr _e7841778477_)))) + (##cdr _e7842278482_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl7841578484_)) - (let ((_g80054_ + (gx#stx-pair/null? _tl7842078489_)) + (let ((_g80059_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl7841578484_ + _tl7842078489_ '0)))) (begin - (let ((_g80055_ + (let ((_g80060_ (let () (declare (not safe)) - (if (##values? _g80054_) - (##vector-length _g80054_) + (if (##values? _g80059_) + (##vector-length _g80059_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g80055_ 2))) + (##fx= _g80060_ 2))) (error "Context expects 2 values" - _g80055_))) - (let ((_target7841878487_ + _g80060_))) + (let ((_target7842378492_ (let () (declare (not safe)) - (##vector-ref _g80054_ 0))) - (_tl7842078490_ + (##vector-ref _g80059_ 0))) + (_tl7842578495_ (let () (declare (not safe)) - (##vector-ref _g80054_ 1)))) + (##vector-ref _g80059_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl7842078490_)) - (letrec ((_loop7842178493_ - (lambda (_hd7841978497_ - _arity7842578500_) + (gx#stx-null? _tl7842578495_)) + (letrec ((_loop7842678498_ + (lambda (_hd7842478502_ + _arity7843078505_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd7841978497_)) - (let ((_e7842278503_ + _hd7842478502_)) + (let ((_e7842778508_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _hd7841978497_)))) - (let ((_lp-hd7842378507_ - (let () (declare (not safe)) (##car _e7842278503_))) - (_lp-tl7842478510_ - (let () (declare (not safe)) (##cdr _e7842278503_)))) - (_loop7842178493_ - _lp-tl7842478510_ + (gx#syntax-e _hd7842478502_)))) + (let ((_lp-hd7842878512_ + (let () (declare (not safe)) (##car _e7842778508_))) + (_lp-tl7842978515_ + (let () (declare (not safe)) (##cdr _e7842778508_)))) + (_loop7842678498_ + _lp-tl7842978515_ (let () (declare (not safe)) - (cons _lp-hd7842378507_ _arity7842578500_))))) - (let ((_arity7842678513_ (reverse _arity7842578500_))) - (_loop7840778455_ - _lp-tl7841078474_ + (cons _lp-hd7842878512_ _arity7843078505_))))) + (let ((_arity7843178518_ (reverse _arity7843078505_))) + (_loop7841278460_ + _lp-tl7841578479_ (let () (declare (not safe)) - (cons _arity7842678513_ _arity7841178462_)) + (cons _arity7843178518_ _arity7841678467_)) (let () (declare (not safe)) - (cons _hd7841678481_ _prim7841278464_)))))))) + (cons _hd7842178486_ _prim7841778469_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop7842178493_ - _target7841878487_ + (_loop7842678498_ + _target7842378492_ '())) - (_g7839778432_ _g7839878436_))))) - (_g7839778432_ _g7839878436_)))) - (_g7839778432_ _g7839878436_)))) - (let ((_arity7841378517_ (reverse _arity7841178462_)) - (_prim7841478520_ (reverse _prim7841278464_))) - ((lambda (_L78523_ _L78525_) - (let ((__tmp80053 + (_g7840278437_ _g7840378441_))))) + (_g7840278437_ _g7840378441_)))) + (_g7840278437_ _g7840378441_)))) + (let ((_arity7841878522_ (reverse _arity7841678467_)) + (_prim7841978525_ (reverse _prim7841778469_))) + ((lambda (_L78528_ _L78530_) + (let ((__tmp80058 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp80046 + (__tmp80051 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L78523_ - _L78525_)) - (let ((__tmp80047 - (lambda (_g7854078546_ - _g7854178549_ - _g7854278551_) - (let ((__tmp80048 - (let ((__tmp80052 + _L78528_ + _L78530_)) + (let ((__tmp80052 + (lambda (_g7854578551_ + _g7854678554_ + _g7854778556_) + (let ((__tmp80053 + (let ((__tmp80057 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-primitive))) - (__tmp80049 - (let ((__tmp80050 - (let ((__tmp80051 + (__tmp80054 + (let ((__tmp80055 + (let ((__tmp80056 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g7854378554_ _g7854478557_) + (lambda (_g7854878559_ _g7854978562_) (let () (declare (not safe)) - (cons _g7854378554_ _g7854478557_))))) + (cons _g7854878559_ _g7854978562_))))) (declare (not safe)) - (foldr1 __tmp80051 '() _g7854078546_)))) + (foldr1 __tmp80056 '() _g7854578551_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _g7854178549_ - __tmp80050)))) + (cons _g7854678554_ + __tmp80055)))) (declare (not safe)) - (cons __tmp80052 __tmp80049)))) + (cons __tmp80057 __tmp80054)))) (declare (not safe)) - (cons __tmp80048 _g7854278551_))))) + (cons __tmp80053 _g7854778556_))))) (declare (not safe)) - (foldr2 __tmp80047 '() _L78523_ _L78525_))))) + (foldr2 __tmp80052 '() _L78528_ _L78530_))))) (declare (not safe)) - (cons __tmp80053 __tmp80046))) - _arity7841378517_ - _prim7841478520_)))))) + (cons __tmp80058 __tmp80051))) + _arity7841878522_ + _prim7841978525_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop7840778455_ - _target7840478449_ + (_loop7841278460_ + _target7840978454_ '() '())) - (_g7839778432_ _g7839878436_))))) - (_g7839778432_ _g7839878436_)))) - (_g7839778432_ _g7839878436_))))) - (_g7839678560_ _$stx78393_)))) + (_g7840278437_ _g7840378441_))))) + (_g7840278437_ _g7840378441_)))) + (_g7840278437_ _g7840378441_))))) + (_g7840178565_ _$stx78398_)))) (define |gxc[:0:]#declare-primitive/unchecked*| - (lambda (_$stx78566_) - (let* ((_g7857078605_ - (lambda (_g7857178601_) + (lambda (_$stx78571_) + (let* ((_g7857578610_ + (lambda (_g7857678606_) (let () (declare (not safe)) - (gx#raise-syntax-error '#f '"Bad syntax" _g7857178601_)))) - (_g7856978733_ - (lambda (_g7857178609_) - (if (let () (declare (not safe)) (gx#stx-pair? _g7857178609_)) - (let ((_e7857678612_ + (gx#raise-syntax-error '#f '"Bad syntax" _g7857678606_)))) + (_g7857478738_ + (lambda (_g7857678614_) + (if (let () (declare (not safe)) (gx#stx-pair? _g7857678614_)) + (let ((_e7858178617_ (let () (declare (not safe)) - (gx#syntax-e _g7857178609_)))) - (let ((_hd7857578616_ + (gx#syntax-e _g7857678614_)))) + (let ((_hd7858078621_ (let () (declare (not safe)) - (##car _e7857678612_))) - (_tl7857478619_ + (##car _e7858178617_))) + (_tl7857978624_ (let () (declare (not safe)) - (##cdr _e7857678612_)))) + (##cdr _e7858178617_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl7857478619_)) - (let ((_g80056_ + (gx#stx-pair/null? _tl7857978624_)) + (let ((_g80061_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl7857478619_ + _tl7857978624_ '0)))) (begin - (let ((_g80057_ + (let ((_g80062_ (let () (declare (not safe)) - (if (##values? _g80056_) - (##vector-length _g80056_) + (if (##values? _g80061_) + (##vector-length _g80061_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g80057_ 2))) + (##fx= _g80062_ 2))) (error "Context expects 2 values" - _g80057_))) - (let ((_target7857778622_ + _g80062_))) + (let ((_target7858278627_ (let () (declare (not safe)) - (##vector-ref _g80056_ 0))) - (_tl7857978625_ + (##vector-ref _g80061_ 0))) + (_tl7858478630_ (let () (declare (not safe)) - (##vector-ref _g80056_ 1)))) + (##vector-ref _g80061_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl7857978625_)) - (letrec ((_loop7858078628_ - (lambda (_hd7857878632_ - _arity7858478635_ - _prim7858578637_) + (gx#stx-null? _tl7858478630_)) + (letrec ((_loop7858578633_ + (lambda (_hd7858378637_ + _arity7858978640_ + _prim7859078642_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd7857878632_)) - (let ((_e7858178640_ + _hd7858378637_)) + (let ((_e7858678645_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _hd7857878632_)))) - (let ((_lp-hd7858278644_ - (let () (declare (not safe)) (##car _e7858178640_))) - (_lp-tl7858378647_ - (let () (declare (not safe)) (##cdr _e7858178640_)))) + (gx#syntax-e _hd7858378637_)))) + (let ((_lp-hd7858778649_ + (let () (declare (not safe)) (##car _e7858678645_))) + (_lp-tl7858878652_ + (let () (declare (not safe)) (##cdr _e7858678645_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd7858278644_)) - (let ((_e7859078650_ + (gx#stx-pair? _lp-hd7858778649_)) + (let ((_e7859578655_ (let () (declare (not safe)) - (gx#syntax-e _lp-hd7858278644_)))) - (let ((_hd7858978654_ + (gx#syntax-e _lp-hd7858778649_)))) + (let ((_hd7859478659_ (let () (declare (not safe)) - (##car _e7859078650_))) - (_tl7858878657_ + (##car _e7859578655_))) + (_tl7859378662_ (let () (declare (not safe)) - (##cdr _e7859078650_)))) + (##cdr _e7859578655_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl7858878657_)) - (let ((_g80066_ + (gx#stx-pair/null? _tl7859378662_)) + (let ((_g80071_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl7858878657_ + _tl7859378662_ '0)))) (begin - (let ((_g80067_ + (let ((_g80072_ (let () (declare (not safe)) - (if (##values? _g80066_) - (##vector-length _g80066_) + (if (##values? _g80071_) + (##vector-length _g80071_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g80067_ 2))) + (##fx= _g80072_ 2))) (error "Context expects 2 values" - _g80067_))) - (let ((_target7859178660_ + _g80072_))) + (let ((_target7859678665_ (let () (declare (not safe)) - (##vector-ref _g80066_ 0))) - (_tl7859378663_ + (##vector-ref _g80071_ 0))) + (_tl7859878668_ (let () (declare (not safe)) - (##vector-ref _g80066_ 1)))) + (##vector-ref _g80071_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl7859378663_)) - (letrec ((_loop7859478666_ - (lambda (_hd7859278670_ - _arity7859878673_) + (gx#stx-null? _tl7859878668_)) + (letrec ((_loop7859978671_ + (lambda (_hd7859778675_ + _arity7860378678_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd7859278670_)) - (let ((_e7859578676_ + _hd7859778675_)) + (let ((_e7860078681_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _hd7859278670_)))) - (let ((_lp-hd7859678680_ - (let () (declare (not safe)) (##car _e7859578676_))) - (_lp-tl7859778683_ - (let () (declare (not safe)) (##cdr _e7859578676_)))) - (_loop7859478666_ - _lp-tl7859778683_ + (gx#syntax-e _hd7859778675_)))) + (let ((_lp-hd7860178685_ + (let () (declare (not safe)) (##car _e7860078681_))) + (_lp-tl7860278688_ + (let () (declare (not safe)) (##cdr _e7860078681_)))) + (_loop7859978671_ + _lp-tl7860278688_ (let () (declare (not safe)) - (cons _lp-hd7859678680_ _arity7859878673_))))) - (let ((_arity7859978686_ (reverse _arity7859878673_))) - (_loop7858078628_ - _lp-tl7858378647_ + (cons _lp-hd7860178685_ _arity7860378678_))))) + (let ((_arity7860478691_ (reverse _arity7860378678_))) + (_loop7858578633_ + _lp-tl7858878652_ (let () (declare (not safe)) - (cons _arity7859978686_ _arity7858478635_)) + (cons _arity7860478691_ _arity7858978640_)) (let () (declare (not safe)) - (cons _hd7858978654_ _prim7858578637_)))))))) + (cons _hd7859478659_ _prim7859078642_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop7859478666_ - _target7859178660_ + (_loop7859978671_ + _target7859678665_ '())) - (_g7857078605_ _g7857178609_))))) - (_g7857078605_ _g7857178609_)))) - (_g7857078605_ _g7857178609_)))) - (let ((_arity7858678690_ (reverse _arity7858478635_)) - (_prim7858778693_ (reverse _prim7858578637_))) - ((lambda (_L78696_ _L78698_) - (let ((__tmp80065 + (_g7857578610_ _g7857678614_))))) + (_g7857578610_ _g7857678614_)))) + (_g7857578610_ _g7857678614_)))) + (let ((_arity7859178695_ (reverse _arity7858978640_)) + (_prim7859278698_ (reverse _prim7859078642_))) + ((lambda (_L78701_ _L78703_) + (let ((__tmp80070 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp80058 + (__tmp80063 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L78696_ - _L78698_)) - (let ((__tmp80059 - (lambda (_g7871378719_ - _g7871478722_ - _g7871578724_) - (let ((__tmp80060 - (let ((__tmp80064 + _L78701_ + _L78703_)) + (let ((__tmp80064 + (lambda (_g7871878724_ + _g7871978727_ + _g7872078729_) + (let ((__tmp80065 + (let ((__tmp80069 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-primitive/unchecked))) - (__tmp80061 - (let ((__tmp80062 - (let ((__tmp80063 + (__tmp80066 + (let ((__tmp80067 + (let ((__tmp80068 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g7871678727_ _g7871778730_) + (lambda (_g7872178732_ _g7872278735_) (let () (declare (not safe)) - (cons _g7871678727_ _g7871778730_))))) + (cons _g7872178732_ _g7872278735_))))) (declare (not safe)) - (foldr1 __tmp80063 '() _g7871378719_)))) + (foldr1 __tmp80068 '() _g7871878724_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _g7871478722_ - __tmp80062)))) + (cons _g7871978727_ + __tmp80067)))) (declare (not safe)) - (cons __tmp80064 __tmp80061)))) + (cons __tmp80069 __tmp80066)))) (declare (not safe)) - (cons __tmp80060 _g7871578724_))))) + (cons __tmp80065 _g7872078729_))))) (declare (not safe)) - (foldr2 __tmp80059 '() _L78696_ _L78698_))))) + (foldr2 __tmp80064 '() _L78701_ _L78703_))))) (declare (not safe)) - (cons __tmp80065 __tmp80058))) - _arity7858678690_ - _prim7858778693_)))))) + (cons __tmp80070 __tmp80063))) + _arity7859178695_ + _prim7859278698_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop7858078628_ - _target7857778622_ + (_loop7858578633_ + _target7858278627_ '() '())) - (_g7857078605_ _g7857178609_))))) - (_g7857078605_ _g7857178609_)))) - (_g7857078605_ _g7857178609_))))) - (_g7856978733_ _$stx78566_))))) + (_g7857578610_ _g7857678614_))))) + (_g7857578610_ _g7857678614_)))) + (_g7857578610_ _g7857678614_))))) + (_g7857478738_ _$stx78571_))))) diff --git a/src/gerbil/compiler/driver.ss b/src/gerbil/compiler/driver.ss index 042aaa1f9..40be9f357 100644 --- a/src/gerbil/compiler/driver.ss +++ b/src/gerbil/compiler/driver.ss @@ -207,11 +207,11 @@ namespace: gxc (builtin-modules (map (lambda (mod) (symbol->string (expander-context-id mod))) (cons ctx deps)))) - (create-directory* (path-directory output-bin)) + (with-driver-mutex (create-directory* (path-directory output-bin))) (with-output-to-scheme-file output-scm (cut generate-stub builtin-modules)) (when (current-compile-invoke-gsc) - (create-directory tmp) + (with-driver-mutex (create-directory tmp)) (for-each copy-file src-deps-scm deps-scm) (copy-file src-bin-scm bin-scm) (invoke (gerbil-gsc) @@ -358,7 +358,7 @@ namespace: gxc (cond-expand (netbsd ["-lm"]) (else ["-ldl" "-lm"])))) - (create-directory* (path-directory output-bin)) + (with-driver-mutex (create-directory* (path-directory output-bin))) (with-output-to-scheme-file output-scm (cut generate-stub [runtime ... deps ... bin-scm])) (when (current-compile-invoke-gsc) @@ -836,7 +836,7 @@ namespace: gxc (module-source-directory ctx))))) (let (path (file-path)) - (create-directory* (path-directory path)) + (with-driver-mutex (create-directory* (path-directory path))) path)) (def (compile-static-output-file ctx) @@ -853,7 +853,7 @@ namespace: gxc (path-expand file "static"))))) (let (path (file-path)) - (create-directory* (path-directory path)) + (with-driver-mutex (create-directory* (path-directory path))) path)) (def (compile-exe-output-file ctx opts)