diff --git a/src/bootstrap/gerbil/compiler/driver.ssi b/src/bootstrap/gerbil/compiler/driver.ssi index bfeeed563..526f90400 100644 --- a/src/bootstrap/gerbil/compiler/driver.ssi +++ b/src/bootstrap/gerbil/compiler/driver.ssi @@ -10,29 +10,29 @@ namespace: gxc (spec: (:gerbil/gambit/misc) (0 pretty-print 0 pretty-print)) (spec: (:gerbil/gambit/ports) - (0 process-status 0 process-status) - (0 open-process 0 open-process)) + (0 open-process 0 open-process) + (0 process-status 0 process-status)) (spec: (:gerbil/gambit/os) - (0 time->seconds 0 time->seconds) (0 file-info-size 0 file-info-size) - (0 current-time 0 current-time) - (0 file-info 0 file-info))) + (0 time->seconds 0 time->seconds) + (0 file-info 0 file-info) + (0 current-time 0 current-time))) (%#export (spec: 0 compile-file compile-file) (spec: 0 compile-exe-stub compile-exe-stub) (spec: 0 compile-static-exe compile-static-exe)) (%#define-runtime compile-timestamp gxc#compile-timestamp) (%#begin (%#define-runtime - compile-file__opt-lambda21171 - gxc#compile-file__opt-lambda21171) + compile-file__opt-lambda21174 + gxc#compile-file__opt-lambda21174) (%#begin (%#define-runtime compile-file__0 gxc#compile-file__0) (%#define-runtime compile-file gxc#compile-file))) (%#begin (%#define-runtime - compile-exe-stub__opt-lambda21157 - gxc#compile-exe-stub__opt-lambda21157) + compile-exe-stub__opt-lambda21160 + gxc#compile-exe-stub__opt-lambda21160) (%#begin (%#define-runtime compile-exe-stub__0 gxc#compile-exe-stub__0) @@ -40,8 +40,8 @@ namespace: gxc compile-exe-stub gxc#compile-exe-stub))) (%#begin (%#define-runtime - compile-static-exe__opt-lambda21143 - gxc#compile-static-exe__opt-lambda21143) + compile-static-exe__opt-lambda21146 + gxc#compile-static-exe__opt-lambda21146) (%#begin (%#define-runtime compile-static-exe__0 gxc#compile-static-exe__0) diff --git a/src/bootstrap/gerbil/compiler/driver.ssxi.ss b/src/bootstrap/gerbil/compiler/driver.ssxi.ss index eb85e7eda..2e01d4331 100644 --- a/src/bootstrap/gerbil/compiler/driver.ssxi.ss +++ b/src/bootstrap/gerbil/compiler/driver.ssxi.ss @@ -6,14 +6,14 @@ package: gerbil/compiler gxc#compile-file (@case-lambda (1 gxc#compile-file__0) - (2 gxc#compile-file__opt-lambda21171))) + (2 gxc#compile-file__opt-lambda21174))) (declare-type gxc#compile-exe-stub (@case-lambda (1 gxc#compile-exe-stub__0) - (2 gxc#compile-exe-stub__opt-lambda21157))) + (2 gxc#compile-exe-stub__opt-lambda21160))) (declare-type gxc#compile-static-exe (@case-lambda (1 gxc#compile-static-exe__0) - (2 gxc#compile-static-exe__opt-lambda21143)))) + (2 gxc#compile-static-exe__opt-lambda21146)))) diff --git a/src/bootstrap/gerbil/compiler/driver__0.scm b/src/bootstrap/gerbil/compiler/driver__0.scm index 15759475a..4a6e1b2a8 100644 --- a/src/bootstrap/gerbil/compiler/driver__0.scm +++ b/src/bootstrap/gerbil/compiler/driver__0.scm @@ -3,233 +3,233 @@ (define gxc#compile-timestamp (lambda () (inexact->exact (floor (time->seconds (current-time)))))) (begin - (define gxc#compile-file__opt-lambda21171 - (lambda (_srcpath21173_ _opts21174_) + (define gxc#compile-file__opt-lambda21174 + (lambda (_srcpath21176_ _opts21177_) (begin - (if (string? _srcpath21173_) + (if (string? _srcpath21176_) '#!void (gxc#raise-compile-error '"Invalid module source path" - _srcpath21173_)) - (let ((_outdir21176_ (pgetq 'output-dir: _opts21174_)) - (_invoke-gsc?21177_ (pgetq 'invoke-gsc: _opts21174_)) - (_gsc-options21178_ (pgetq 'gsc-options: _opts21174_)) - (_keep-scm?21179_ (pgetq 'keep-scm: _opts21174_)) - (_verbosity21180_ (pgetq 'verbose: _opts21174_)) - (_optimize21181_ (pgetq 'optimize: _opts21174_)) - (_debug21182_ (pgetq 'debug: _opts21174_)) - (_gen-ssxi21183_ (pgetq 'generate-ssxi: _opts21174_)) - (_static21184_ (pgetq 'static: _opts21174_))) + _srcpath21176_)) + (let ((_outdir21179_ (pgetq 'output-dir: _opts21177_)) + (_invoke-gsc?21180_ (pgetq 'invoke-gsc: _opts21177_)) + (_gsc-options21181_ (pgetq 'gsc-options: _opts21177_)) + (_keep-scm?21182_ (pgetq 'keep-scm: _opts21177_)) + (_verbosity21183_ (pgetq 'verbose: _opts21177_)) + (_optimize21184_ (pgetq 'optimize: _opts21177_)) + (_debug21185_ (pgetq 'debug: _opts21177_)) + (_gen-ssxi21186_ (pgetq 'generate-ssxi: _opts21177_)) + (_static21187_ (pgetq 'static: _opts21177_))) (begin - (if _outdir21176_ (create-directory* _outdir21176_) '#!void) - (if _optimize21181_ (gxc#optimizer-info-init!) '#!void) + (if _outdir21179_ (create-directory* _outdir21179_) '#!void) + (if _optimize21184_ (gxc#optimizer-info-init!) '#!void) (call-with-parameters (lambda () (begin - (gxc#verbose '"compile " _srcpath21173_) + (gxc#verbose '"compile " _srcpath21176_) (gxc#compile-top-module - (gx#import-module__0 _srcpath21173_)))) + (gx#import-module__0 _srcpath21176_)))) gxc#current-compile-output-dir - _outdir21176_ + _outdir21179_ gxc#current-compile-invoke-gsc - _invoke-gsc?21177_ + _invoke-gsc?21180_ gxc#current-compile-gsc-options - _gsc-options21178_ + _gsc-options21181_ gxc#current-compile-keep-scm - _keep-scm?21179_ + _keep-scm?21182_ gxc#current-compile-verbose - _verbosity21180_ + _verbosity21183_ gxc#current-compile-optimize - _optimize21181_ + _optimize21184_ gxc#current-compile-debug - _debug21182_ + _debug21185_ gxc#current-compile-generate-ssxi - _gen-ssxi21183_ + _gen-ssxi21186_ gxc#current-compile-static - _static21184_ + _static21187_ gxc#current-compile-timestamp (gxc#compile-timestamp))))))) (begin (define gxc#compile-file__0 - (lambda (_srcpath21190_) - (let ((_opts21192_ '())) - (gxc#compile-file__opt-lambda21171 _srcpath21190_ _opts21192_)))) + (lambda (_srcpath21193_) + (let ((_opts21195_ '())) + (gxc#compile-file__opt-lambda21174 _srcpath21193_ _opts21195_)))) (define gxc#compile-file - (lambda _g21200_ - (let ((_g21199_ (length _g21200_))) - (cond ((fx= _g21199_ 1) (apply gxc#compile-file__0 _g21200_)) - ((fx= _g21199_ 2) - (apply gxc#compile-file__opt-lambda21171 _g21200_)) + (lambda _g21203_ + (let ((_g21202_ (length _g21203_))) + (cond ((fx= _g21202_ 1) (apply gxc#compile-file__0 _g21203_)) + ((fx= _g21202_ 2) + (apply gxc#compile-file__opt-lambda21174 _g21203_)) (else (##raise-wrong-number-of-arguments-exception gxc#compile-file - _g21200_)))))))) + _g21203_)))))))) (begin - (define gxc#compile-exe-stub__opt-lambda21157 - (lambda (_srcpath21159_ _opts21160_) + (define gxc#compile-exe-stub__opt-lambda21160 + (lambda (_srcpath21162_ _opts21163_) (gxc#do-compile-exe - _srcpath21159_ - _opts21160_ + _srcpath21162_ + _opts21163_ gxc#compile-exe-stub-module))) (begin (define gxc#compile-exe-stub__0 - (lambda (_srcpath21165_) - (let ((_opts21167_ '())) - (gxc#compile-exe-stub__opt-lambda21157 - _srcpath21165_ - _opts21167_)))) + (lambda (_srcpath21168_) + (let ((_opts21170_ '())) + (gxc#compile-exe-stub__opt-lambda21160 + _srcpath21168_ + _opts21170_)))) (define gxc#compile-exe-stub - (lambda _g21202_ - (let ((_g21201_ (length _g21202_))) - (cond ((fx= _g21201_ 1) (apply gxc#compile-exe-stub__0 _g21202_)) - ((fx= _g21201_ 2) - (apply gxc#compile-exe-stub__opt-lambda21157 _g21202_)) + (lambda _g21205_ + (let ((_g21204_ (length _g21205_))) + (cond ((fx= _g21204_ 1) (apply gxc#compile-exe-stub__0 _g21205_)) + ((fx= _g21204_ 2) + (apply gxc#compile-exe-stub__opt-lambda21160 _g21205_)) (else (##raise-wrong-number-of-arguments-exception gxc#compile-exe-stub - _g21202_)))))))) + _g21205_)))))))) (begin - (define gxc#compile-static-exe__opt-lambda21143 - (lambda (_srcpath21145_ _opts21146_) + (define gxc#compile-static-exe__opt-lambda21146 + (lambda (_srcpath21148_ _opts21149_) (gxc#do-compile-exe - _srcpath21145_ - _opts21146_ + _srcpath21148_ + _opts21149_ gxc#compile-exe-static-module))) (begin (define gxc#compile-static-exe__0 - (lambda (_srcpath21151_) - (let ((_opts21153_ '())) - (gxc#compile-static-exe__opt-lambda21143 - _srcpath21151_ - _opts21153_)))) + (lambda (_srcpath21154_) + (let ((_opts21156_ '())) + (gxc#compile-static-exe__opt-lambda21146 + _srcpath21154_ + _opts21156_)))) (define gxc#compile-static-exe - (lambda _g21204_ - (let ((_g21203_ (length _g21204_))) - (cond ((fx= _g21203_ 1) (apply gxc#compile-static-exe__0 _g21204_)) - ((fx= _g21203_ 2) - (apply gxc#compile-static-exe__opt-lambda21143 _g21204_)) + (lambda _g21207_ + (let ((_g21206_ (length _g21207_))) + (cond ((fx= _g21206_ 1) (apply gxc#compile-static-exe__0 _g21207_)) + ((fx= _g21206_ 2) + (apply gxc#compile-static-exe__opt-lambda21146 _g21207_)) (else (##raise-wrong-number-of-arguments-exception gxc#compile-static-exe - _g21204_)))))))) + _g21207_)))))))) (define gxc#do-compile-exe - (lambda (_srcpath21133_ _opts21134_ _compile-e21135_) + (lambda (_srcpath21136_ _opts21137_ _compile-e21138_) (begin - (if (string? _srcpath21133_) + (if (string? _srcpath21136_) '#!void (gxc#raise-compile-error '"Invalid module source path" - _srcpath21133_)) - (let ((_outdir21137_ (pgetq 'output-dir: _opts21134_)) - (_invoke-gsc?21138_ (pgetq 'invoke-gsc: _opts21134_)) - (_gsc-options21139_ (pgetq 'gsc-options: _opts21134_)) - (_keep-scm?21140_ (pgetq 'keep-scm: _opts21134_)) - (_verbosity21141_ (pgetq 'verbose: _opts21134_))) + _srcpath21136_)) + (let ((_outdir21140_ (pgetq 'output-dir: _opts21137_)) + (_invoke-gsc?21141_ (pgetq 'invoke-gsc: _opts21137_)) + (_gsc-options21142_ (pgetq 'gsc-options: _opts21137_)) + (_keep-scm?21143_ (pgetq 'keep-scm: _opts21137_)) + (_verbosity21144_ (pgetq 'verbose: _opts21137_))) (begin - (if _outdir21137_ (create-directory* _outdir21137_) '#!void) + (if _outdir21140_ (create-directory* _outdir21140_) '#!void) (call-with-parameters (lambda () (begin - (gxc#verbose '"compile exe " _srcpath21133_) - (_compile-e21135_ - (gx#import-module__0 _srcpath21133_) - _opts21134_))) + (gxc#verbose '"compile exe " _srcpath21136_) + (_compile-e21138_ + (gx#import-module__0 _srcpath21136_) + _opts21137_))) gxc#current-compile-output-dir - _outdir21137_ + _outdir21140_ gxc#current-compile-invoke-gsc - _invoke-gsc?21138_ + _invoke-gsc?21141_ gxc#current-compile-gsc-options - _gsc-options21139_ + _gsc-options21142_ gxc#current-compile-keep-scm - _keep-scm?21140_ + _keep-scm?21143_ gxc#current-compile-verbose - _verbosity21141_ + _verbosity21144_ gxc#current-compile-timestamp (gxc#compile-timestamp))))))) (define gxc#compile-exe-stub-module - (lambda (_ctx21097_ _opts21098_) - (letrec ((_generate-stub21100_ + (lambda (_ctx21100_ _opts21101_) + (letrec ((_generate-stub21103_ (lambda () - (let* ((_mod-str21126_ + (let* ((_mod-str21129_ (symbol->string (##structure-ref - _ctx21097_ + _ctx21100_ '1 gx#expander-context::t '#f))) - (_mod-rt21128_ (string-append _mod-str21126_ '"__rt")) - (_mod-main21130_ - (gxc#find-runtime-symbol _ctx21097_ 'main))) + (_mod-rt21131_ (string-append _mod-str21129_ '"__rt")) + (_mod-main21133_ + (gxc#find-runtime-symbol _ctx21100_ 'main))) (begin (write '(##namespace (""))) (newline) (write (cons '_gx#start! - (cons _mod-rt21128_ + (cons _mod-rt21131_ (cons (cons 'quote - (cons _mod-main21130_ + (cons _mod-main21133_ '())) '())))) (newline))))) - (_compile-stub21101_ - (lambda (_output-scm21108_ _output-bin21109_) - (let* ((_init-stub21111_ + (_compile-stub21104_ + (lambda (_output-scm21111_ _output-bin21112_) + (let* ((_init-stub21114_ (path-expand '"lib/gx-init-exe.scm" (getenv '"GERBIL_HOME"))) - (_gxc-cache21113_ (gxc#compile-cache-directory)) - (_init-stub21115_ + (_gxc-cache21116_ (gxc#compile-cache-directory)) + (_init-stub21118_ (gxc#compile-cache - _init-stub21111_ - _gxc-cache21113_)) - (_gsc-args21117_ + _init-stub21114_ + _gxc-cache21116_)) + (_gsc-args21120_ (cons '"-exe" (cons '"-o" - (cons _output-bin21109_ - (cons _init-stub21115_ - (cons _output-scm21108_ + (cons _output-bin21112_ + (cons _init-stub21118_ + (cons _output-scm21111_ '())))))) - (_g21205_ + (_g21208_ (gxc#verbose '"invoke gsc " - (cons 'gsc _gsc-args21117_))) - (_proc21120_ + (cons 'gsc _gsc-args21120_))) + (_proc21123_ (open-process (cons 'path: (cons '"gsc" (cons 'arguments: - (cons _gsc-args21117_ + (cons _gsc-args21120_ (cons 'stdout-redirection: (cons '#f '())))))))) - (_status21122_ (process-status _proc21120_))) - (if (zero? _status21122_) + (_status21125_ (process-status _proc21123_))) + (if (zero? _status21125_) '#!void (gxc#raise-compile-error '"Compilation error; gsc exit with nonzero status" - _output-scm21108_ - _output-bin21109_ - _status21122_)))))) - (let* ((_output-bin21103_ - (gxc#compile-exe-output-file _ctx21097_ _opts21098_)) - (_output-scm21105_ (string-append _output-bin21103_ '".scm"))) + _output-scm21111_ + _output-bin21112_ + _status21125_)))))) + (let* ((_output-bin21106_ + (gxc#compile-exe-output-file _ctx21100_ _opts21101_)) + (_output-scm21108_ (string-append _output-bin21106_ '".scm"))) (begin - (with-output-to-file _output-scm21105_ _generate-stub21100_) + (with-output-to-file _output-scm21108_ _generate-stub21103_) (if (gxc#current-compile-invoke-gsc) - (_compile-stub21101_ _output-scm21105_ _output-bin21103_) + (_compile-stub21104_ _output-scm21108_ _output-bin21106_) '#!void) (if (gxc#current-compile-keep-scm) '#!void - (delete-file _output-scm21105_))))))) + (delete-file _output-scm21108_))))))) (define gxc#compile-exe-static-module (lambda (_ctx21032_ _opts21033_) (letrec ((_generate-stub21035_ (lambda () - (let ((_mod-main21095_ + (let ((_mod-main21098_ (gxc#find-runtime-symbol _ctx21032_ 'main))) (begin (write '(##namespace (""))) (newline) (write (cons 'apply - (cons _mod-main21095_ + (cons _mod-main21098_ (cons (cons 'cdr (cons (cons 'command-line ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -241,54 +241,62 @@ (_compile-stub21036_ (lambda (_output-scm21043_ _output-bin21044_) (let* ((_gerbil-home21046_ (getenv '"GERBIL_HOME")) - (_gx-gambc021048_ + (_gx-version21048_ + (path-expand + '"lib/static/gx-version.scm" + _gerbil-home21046_)) + (_gx-gambc021050_ (path-expand '"lib/static/gx-gambc0.scm" _gerbil-home21046_)) - (_gx-gambc-init21050_ + (_gx-gambc-init21052_ (path-expand '"lib/gx-init-static-exe.scm" _gerbil-home21046_)) - (_gx-gambc-macros21052_ + (_gx-gambc-macros21054_ (path-expand '"lib/static/gx-gambc#.scm" _gerbil-home21046_)) - (_include-gx-gambc-macros21054_ + (_include-gx-gambc-macros21056_ (string-append '"(include \"" - _gx-gambc-macros21052_ + _gx-gambc-macros21054_ '"\")")) - (_bin-scm21056_ + (_bin-scm21058_ (gxc#find-static-module-file _ctx21032_)) - (_deps21058_ - (gxc#find-runtime-module-deps _ctx21032_)) (_deps21060_ - (map gxc#find-static-module-file _deps21058_)) - (_deps21065_ - (filter (lambda (_$obj21062_) - (not (gxc#file-empty? _$obj21062_))) - _deps21060_)) - (_gxc-cache21067_ (gxc#compile-cache-directory)) - (_gx-gambc021069_ + (gxc#find-runtime-module-deps _ctx21032_)) + (_deps21062_ + (map gxc#find-static-module-file _deps21060_)) + (_deps21067_ + (filter (lambda (_$obj21064_) + (not (gxc#file-empty? _$obj21064_))) + _deps21062_)) + (_gxc-cache21069_ (gxc#compile-cache-directory)) + (_g21209_ + (gxc#compile-cache + _gx-version21048_ + _gxc-cache21069_)) + (_gx-gambc021072_ (gxc#compile-cache - _gx-gambc021048_ - _gxc-cache21067_)) - (_gx-gambc-init21071_ + _gx-gambc021050_ + _gxc-cache21069_)) + (_gx-gambc-init21074_ (gxc#compile-cache - _gx-gambc-init21050_ - _gxc-cache21067_)) - (_deps21077_ - (map (lambda (_g2107221074_) + _gx-gambc-init21052_ + _gxc-cache21069_)) + (_deps21080_ + (map (lambda (_g2107521077_) (gxc#compile-cache - _g2107221074_ - _gxc-cache21067_)) - _deps21065_)) - (_bin-scm21079_ - (gxc#compile-cache _bin-scm21056_ _gxc-cache21067_)) - (_gsc-opts21084_ - (let ((_$e21081_ (pgetq 'gsc-options: _opts21033_))) - (if _$e21081_ _$e21081_ '()))) - (_gsc-args21086_ + _g2107521077_ + _gxc-cache21069_)) + _deps21067_)) + (_bin-scm21082_ + (gxc#compile-cache _bin-scm21058_ _gxc-cache21069_)) + (_gsc-opts21087_ + (let ((_$e21084_ (pgetq 'gsc-options: _opts21033_))) + (if _$e21084_ _$e21084_ '()))) + (_gsc-args21089_ (cons '"-exe" (cons '"-o" (cons _output-bin21044_ @@ -296,37 +304,37 @@ (foldr1 cons (cons '"-e" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _include-gx-gambc-macros21054_ - (cons _gx-gambc021069_ - (cons _gx-gambc-init21071_ + (cons _include-gx-gambc-macros21056_ + (cons _gx-gambc021072_ + (cons _gx-gambc-init21074_ (foldr1 cons - (cons _bin-scm21079_ + (cons _bin-scm21082_ (cons _output-scm21043_ '())) - _deps21077_))))) - _gsc-opts21084_) + _deps21080_))))) + _gsc-opts21087_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (gxc#gsc-debug-options)))))) - (_g21206_ + (_g21210_ (gxc#verbose '"invoke gsc " - (cons 'gsc _gsc-args21086_))) - (_proc21089_ + (cons 'gsc _gsc-args21089_))) + (_proc21092_ (open-process (cons 'path: (cons '"gsc" (cons 'arguments: - (cons _gsc-args21086_ + (cons _gsc-args21089_ (cons 'stdout-redirection: (cons '#f '())))))))) - (_status21091_ (process-status _proc21089_))) - (if (zero? _status21091_) + (_status21094_ (process-status _proc21092_))) + (if (zero? _status21094_) '#!void (gxc#raise-compile-error '"Compilation error; gsc exit with nonzero status" _output-scm21043_ _output-bin21044_ - _status21091_)))))) + _status21094_)))))) (let* ((_output-bin21038_ (gxc#compile-exe-output-file _ctx21032_ _opts21033_)) (_output-scm21040_ (string-append _output-bin21038_ '".scm"))) @@ -659,8 +667,8 @@ gx#current-expander-marks '() gxc#current-compile-symbol-table - (let ((__obj21197 (make-object gxc#symbol-table::t '2))) - (begin (gxc#symbol-table:::init! __obj21197) __obj21197)) + (let ((__obj21200 (make-object gxc#symbol-table::t '2))) + (begin (gxc#symbol-table:::init! __obj21200) __obj21200)) gxc#current-compile-runtime-sections (make-hash-table-eq) gxc#current-compile-runtime-names @@ -902,13 +910,13 @@ (_E2070520720_)))) (_E2070520720_)))) (_E2070520720_)))))) - (let ((_g21207_ (gxc#generate-meta-code _ctx20694_))) + (let ((_g21211_ (gxc#generate-meta-code _ctx20694_))) (begin - (let ((_g21208_ (values-count _g21207_))) - (if (not (fx= _g21208_ 2)) - (error "Context expects 2 values" _g21208_))) - (let ((_ssi-code20699_ (values-ref _g21207_ 0)) - (_phi-code20700_ (values-ref _g21207_ 1))) + (let ((_g21212_ (values-count _g21211_))) + (if (not (fx= _g21212_ 2)) + (error "Context expects 2 values" _g21212_))) + (let ((_ssi-code20699_ (values-ref _g21211_ 0)) + (_phi-code20700_ (values-ref _g21211_ 1))) (begin (_compile-ssi20696_ _ssi-code20699_) (for-each _compile-phi20697_ _phi-code20700_)))))))) @@ -942,10 +950,10 @@ (define gxc#generate-meta-code (lambda (_ctx20670_) (let* ((_state20672_ - (let ((__obj21198 (make-object gxc#meta-state::t '4))) + (let ((__obj21201 (make-object gxc#meta-state::t '4))) (begin - (gxc#meta-state:::init! __obj21198 _ctx20670_) - __obj21198))) + (gxc#meta-state:::init! __obj21201 _ctx20670_) + __obj21201))) (_ssi-code20674_ (gxc#apply-generate-meta (##structure-ref _ctx20670_ '11 gx#module-context::t '#f) @@ -1019,7 +1027,7 @@ (cons _path20629_ '())))) (_gsc-args20638_ (foldr1 cons _gsc-args20636_ (gxc#gsc-debug-options))) - (_g21209_ + (_g21213_ (gxc#verbose '"invoke gsc " (cons 'gsc _gsc-args20638_))) (_proc20641_ (open-process diff --git a/src/bootstrap/gerbil/compiler/ssxi__1.scm b/src/bootstrap/gerbil/compiler/ssxi__1.scm index e15801dcb..d19b98f2e 100644 --- a/src/bootstrap/gerbil/compiler/ssxi__1.scm +++ b/src/bootstrap/gerbil/compiler/ssxi__1.scm @@ -1,30 +1,30 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin (define |gxc[:0:]#declare-type| - (lambda (_$stx21212_) - (let* ((_g2121621234_ - (lambda (_g2121721230_) - (gx#raise-syntax-error '#f '"Bad syntax" _g2121721230_))) - (_g2121521290_ - (lambda (_g2121721238_) - (if (gx#stx-pair? _g2121721238_) - (let ((_e2122021241_ (gx#syntax-e _g2121721238_))) - (let ((_hd2122121245_ (##car _e2122021241_)) - (_tl2122221248_ (##cdr _e2122021241_))) - (if (gx#stx-pair? _tl2122221248_) - (let ((_e2122321251_ (gx#syntax-e _tl2122221248_))) - (let ((_hd2122421255_ (##car _e2122321251_)) - (_tl2122521258_ (##cdr _e2122321251_))) - (if (gx#stx-pair? _tl2122521258_) - (let ((_e2122621261_ - (gx#syntax-e _tl2122521258_))) - (let ((_hd2122721265_ - (##car _e2122621261_)) - (_tl2122821268_ - (##cdr _e2122621261_))) - (if (gx#stx-null? _tl2122821268_) - ((lambda (_L21271_ _L21273_) - (if (gx#identifier? _L21273_) + (lambda (_$stx21216_) + (let* ((_g2122021238_ + (lambda (_g2122121234_) + (gx#raise-syntax-error '#f '"Bad syntax" _g2122121234_))) + (_g2121921294_ + (lambda (_g2122121242_) + (if (gx#stx-pair? _g2122121242_) + (let ((_e2122421245_ (gx#syntax-e _g2122121242_))) + (let ((_hd2122521249_ (##car _e2122421245_)) + (_tl2122621252_ (##cdr _e2122421245_))) + (if (gx#stx-pair? _tl2122621252_) + (let ((_e2122721255_ (gx#syntax-e _tl2122621252_))) + (let ((_hd2122821259_ (##car _e2122721255_)) + (_tl2122921262_ (##cdr _e2122721255_))) + (if (gx#stx-pair? _tl2122921262_) + (let ((_e2123021265_ + (gx#syntax-e _tl2122921262_))) + (let ((_hd2123121269_ + (##car _e2123021265_)) + (_tl2123221272_ + (##cdr _e2123021265_))) + (if (gx#stx-null? _tl2123221272_) + ((lambda (_L21275_ _L21277_) + (if (gx#identifier? _L21277_) (cons (gx#datum->syntax '#f 'optimizer-declare-type!) @@ -32,725 +32,725 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _L21273_ '())) - (cons _L21271_ '()))) + (cons _L21277_ '())) + (cons _L21275_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g2121621234_ - _g2121721238_))) - _hd2122721265_ - _hd2122421255_) - (_g2121621234_ _g2121721238_)))) - (_g2121621234_ _g2121721238_)))) - (_g2121621234_ _g2121721238_)))) - (_g2121621234_ _g2121721238_))))) - (_g2121521290_ _$stx21212_)))) + (_g2122021238_ + _g2122121242_))) + _hd2123121269_ + _hd2122821259_) + (_g2122021238_ _g2122121242_)))) + (_g2122021238_ _g2122121242_)))) + (_g2122021238_ _g2122121242_)))) + (_g2122021238_ _g2122121242_))))) + (_g2121921294_ _$stx21216_)))) (define |gxc[:0:]#declare-type*| - (lambda (_$stx21294_) - (let* ((_g2129821327_ - (lambda (_g2129921323_) - (gx#raise-syntax-error '#f '"Bad syntax" _g2129921323_))) - (_g2129721427_ - (lambda (_g2129921331_) - (if (gx#stx-pair? _g2129921331_) - (let ((_e2130221334_ (gx#syntax-e _g2129921331_))) - (let ((_hd2130321338_ (##car _e2130221334_)) - (_tl2130421341_ (##cdr _e2130221334_))) - (if (gx#stx-pair/null? _tl2130421341_) - (if (fx>= (gx#stx-length _tl2130421341_) '0) - (let ((_g23403_ + (lambda (_$stx21298_) + (let* ((_g2130221331_ + (lambda (_g2130321327_) + (gx#raise-syntax-error '#f '"Bad syntax" _g2130321327_))) + (_g2130121431_ + (lambda (_g2130321335_) + (if (gx#stx-pair? _g2130321335_) + (let ((_e2130621338_ (gx#syntax-e _g2130321335_))) + (let ((_hd2130721342_ (##car _e2130621338_)) + (_tl2130821345_ (##cdr _e2130621338_))) + (if (gx#stx-pair/null? _tl2130821345_) + (if (fx>= (gx#stx-length _tl2130821345_) '0) + (let ((_g23407_ (gx#syntax-split-splice - _tl2130421341_ + _tl2130821345_ '0))) (begin - (let ((_g23404_ (values-count _g23403_))) - (if (not (fx= _g23404_ 2)) + (let ((_g23408_ (values-count _g23407_))) + (if (not (fx= _g23408_ 2)) (error "Context expects 2 values" - _g23404_))) - (let ((_target2130521344_ - (values-ref _g23403_ 0)) - (_tl2130721347_ - (values-ref _g23403_ 1))) - (if (gx#stx-null? _tl2130721347_) - (letrec ((_loop2130821350_ - (lambda (_hd2130621354_ - _type2131221357_ - _symbol2131321359_) + _g23408_))) + (let ((_target2130921348_ + (values-ref _g23407_ 0)) + (_tl2131121351_ + (values-ref _g23407_ 1))) + (if (gx#stx-null? _tl2131121351_) + (letrec ((_loop2131221354_ + (lambda (_hd2131021358_ + _type2131621361_ + _symbol2131721363_) (if (gx#stx-pair? - _hd2130621354_) - (let ((_e2130921362_ + _hd2131021358_) + (let ((_e2131321366_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _hd2130621354_))) - (let ((_lp-hd2131021366_ (##car _e2130921362_)) - (_lp-tl2131121369_ (##cdr _e2130921362_))) - (if (gx#stx-pair? _lp-hd2131021366_) - (let ((_e2131621372_ - (gx#syntax-e _lp-hd2131021366_))) - (let ((_hd2131721376_ (##car _e2131621372_)) - (_tl2131821379_ (##cdr _e2131621372_))) - (if (gx#stx-pair? _tl2131821379_) - (let ((_e2131921382_ - (gx#syntax-e _tl2131821379_))) - (let ((_hd2132021386_ - (##car _e2131921382_)) - (_tl2132121389_ - (##cdr _e2131921382_))) - (if (gx#stx-null? _tl2132121389_) - (_loop2130821350_ - _lp-tl2131121369_ - (cons _hd2132021386_ - _type2131221357_) - (cons _hd2131721376_ - _symbol2131321359_)) - (_g2129821327_ _g2129921331_)))) - (_g2129821327_ _g2129921331_)))) - (_g2129821327_ _g2129921331_)))) - (let ((_type2131421392_ (reverse _type2131221357_)) - (_symbol2131521395_ (reverse _symbol2131321359_))) - ((lambda (_L21398_ _L21400_) + (gx#syntax-e _hd2131021358_))) + (let ((_lp-hd2131421370_ (##car _e2131321366_)) + (_lp-tl2131521373_ (##cdr _e2131321366_))) + (if (gx#stx-pair? _lp-hd2131421370_) + (let ((_e2132021376_ + (gx#syntax-e _lp-hd2131421370_))) + (let ((_hd2132121380_ (##car _e2132021376_)) + (_tl2132221383_ (##cdr _e2132021376_))) + (if (gx#stx-pair? _tl2132221383_) + (let ((_e2132321386_ + (gx#syntax-e _tl2132221383_))) + (let ((_hd2132421390_ + (##car _e2132321386_)) + (_tl2132521393_ + (##cdr _e2132321386_))) + (if (gx#stx-null? _tl2132521393_) + (_loop2131221354_ + _lp-tl2131521373_ + (cons _hd2132421390_ + _type2131621361_) + (cons _hd2132121380_ + _symbol2131721363_)) + (_g2130221331_ _g2130321335_)))) + (_g2130221331_ _g2130321335_)))) + (_g2130221331_ _g2130321335_)))) + (let ((_type2131821396_ (reverse _type2131621361_)) + (_symbol2131921399_ (reverse _symbol2131721363_))) + ((lambda (_L21402_ _L21404_) (cons (gx#datum->syntax '#f 'begin) (begin (gx#syntax-check-splice-targets - _L21398_ - _L21400_) - (foldr (lambda (_g2141521419_ - _g2141621422_ - _g2141721424_) + _L21402_ + _L21404_) + (foldr (lambda (_g2141921423_ + _g2142021426_ + _g2142121428_) (cons (cons (gx#datum->syntax '#f 'declare-type) - (cons _g2141621422_ - (cons _g2141521419_ + (cons _g2142021426_ + (cons _g2141921423_ '()))) - _g2141721424_)) + _g2142121428_)) '() - _L21398_ - _L21400_)))) - _type2131421392_ - _symbol2131521395_)))))) + _L21402_ + _L21404_)))) + _type2131821396_ + _symbol2131921399_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop2130821350_ - _target2130521344_ + (_loop2131221354_ + _target2130921348_ '() '())) - (_g2129821327_ _g2129921331_))))) - (_g2129821327_ _g2129921331_)) - (_g2129821327_ _g2129921331_)))) - (_g2129821327_ _g2129921331_))))) - (_g2129721427_ _$stx21294_)))) + (_g2130221331_ _g2130321335_))))) + (_g2130221331_ _g2130321335_)) + (_g2130221331_ _g2130321335_)))) + (_g2130221331_ _g2130321335_))))) + (_g2130121431_ _$stx21298_)))) (define |gxc[:0:]#declare-method| - (lambda (_$stx21432_) - (let* ((_g2143721479_ - (lambda (_g2143821475_) - (gx#raise-syntax-error '#f '"Bad syntax" _g2143821475_))) - (_g2143621550_ - (lambda (_g2143821483_) - (if (gx#stx-pair? _g2143821483_) - (let ((_e2146221486_ (gx#syntax-e _g2143821483_))) - (let ((_hd2146321490_ (##car _e2146221486_)) - (_tl2146421493_ (##cdr _e2146221486_))) - (if (gx#stx-pair? _tl2146421493_) - (let ((_e2146521496_ (gx#syntax-e _tl2146421493_))) - (let ((_hd2146621500_ (##car _e2146521496_)) - (_tl2146721503_ (##cdr _e2146521496_))) - (if (gx#stx-pair? _tl2146721503_) - (let ((_e2146821506_ - (gx#syntax-e _tl2146721503_))) - (let ((_hd2146921510_ - (##car _e2146821506_)) - (_tl2147021513_ - (##cdr _e2146821506_))) - (if (gx#stx-pair? _tl2147021513_) - (let ((_e2147121516_ + (lambda (_$stx21436_) + (let* ((_g2144121483_ + (lambda (_g2144221479_) + (gx#raise-syntax-error '#f '"Bad syntax" _g2144221479_))) + (_g2144021554_ + (lambda (_g2144221487_) + (if (gx#stx-pair? _g2144221487_) + (let ((_e2146621490_ (gx#syntax-e _g2144221487_))) + (let ((_hd2146721494_ (##car _e2146621490_)) + (_tl2146821497_ (##cdr _e2146621490_))) + (if (gx#stx-pair? _tl2146821497_) + (let ((_e2146921500_ (gx#syntax-e _tl2146821497_))) + (let ((_hd2147021504_ (##car _e2146921500_)) + (_tl2147121507_ (##cdr _e2146921500_))) + (if (gx#stx-pair? _tl2147121507_) + (let ((_e2147221510_ + (gx#syntax-e _tl2147121507_))) + (let ((_hd2147321514_ + (##car _e2147221510_)) + (_tl2147421517_ + (##cdr _e2147221510_))) + (if (gx#stx-pair? _tl2147421517_) + (let ((_e2147521520_ (gx#syntax-e - _tl2147021513_))) - (let ((_hd2147221520_ - (##car _e2147121516_)) - (_tl2147321523_ - (##cdr _e2147121516_))) + _tl2147421517_))) + (let ((_hd2147621524_ + (##car _e2147521520_)) + (_tl2147721527_ + (##cdr _e2147521520_))) (if (gx#stx-null? - _tl2147321523_) - ((lambda (_L21526_ - _L21528_ - _L21529_ - _L21530_) - (cons _L21530_ - (cons _L21529_ + _tl2147721527_) + ((lambda (_L21530_ + _L21532_ + _L21533_ + _L21534_) + (cons _L21534_ + (cons _L21533_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _L21528_ - (cons _L21526_ + (cons _L21532_ + (cons _L21530_ (cons (gx#datum->syntax '#f 'rebind?) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd2147221520_ - _hd2146921510_ - _hd2146621500_ - _hd2146321490_) - (_g2143721479_ - _g2143821483_)))) - (_g2143721479_ _g2143821483_)))) - (_g2143721479_ _g2143821483_)))) - (_g2143721479_ _g2143821483_)))) - (_g2143721479_ _g2143821483_)))) - (_g2143521632_ - (lambda (_g2143821554_) - (if (gx#stx-pair? _g2143821554_) - (let ((_e2144321557_ (gx#syntax-e _g2143821554_))) - (let ((_hd2144421561_ (##car _e2144321557_)) - (_tl2144521564_ (##cdr _e2144321557_))) - (if (gx#stx-pair? _tl2144521564_) - (let ((_e2144621567_ (gx#syntax-e _tl2144521564_))) - (let ((_hd2144721571_ (##car _e2144621567_)) - (_tl2144821574_ (##cdr _e2144621567_))) - (if (gx#stx-pair? _tl2144821574_) - (let ((_e2144921577_ - (gx#syntax-e _tl2144821574_))) - (let ((_hd2145021581_ - (##car _e2144921577_)) - (_tl2145121584_ - (##cdr _e2144921577_))) - (if (gx#stx-pair? _tl2145121584_) - (let ((_e2145221587_ + _hd2147621524_ + _hd2147321514_ + _hd2147021504_ + _hd2146721494_) + (_g2144121483_ + _g2144221487_)))) + (_g2144121483_ _g2144221487_)))) + (_g2144121483_ _g2144221487_)))) + (_g2144121483_ _g2144221487_)))) + (_g2144121483_ _g2144221487_)))) + (_g2143921636_ + (lambda (_g2144221558_) + (if (gx#stx-pair? _g2144221558_) + (let ((_e2144721561_ (gx#syntax-e _g2144221558_))) + (let ((_hd2144821565_ (##car _e2144721561_)) + (_tl2144921568_ (##cdr _e2144721561_))) + (if (gx#stx-pair? _tl2144921568_) + (let ((_e2145021571_ (gx#syntax-e _tl2144921568_))) + (let ((_hd2145121575_ (##car _e2145021571_)) + (_tl2145221578_ (##cdr _e2145021571_))) + (if (gx#stx-pair? _tl2145221578_) + (let ((_e2145321581_ + (gx#syntax-e _tl2145221578_))) + (let ((_hd2145421585_ + (##car _e2145321581_)) + (_tl2145521588_ + (##cdr _e2145321581_))) + (if (gx#stx-pair? _tl2145521588_) + (let ((_e2145621591_ (gx#syntax-e - _tl2145121584_))) - (let ((_hd2145321591_ - (##car _e2145221587_)) - (_tl2145421594_ - (##cdr _e2145221587_))) + _tl2145521588_))) + (let ((_hd2145721595_ + (##car _e2145621591_)) + (_tl2145821598_ + (##cdr _e2145621591_))) (if (gx#stx-pair? - _tl2145421594_) - (let ((_e2145521597_ + _tl2145821598_) + (let ((_e2145921601_ (gx#syntax-e - _tl2145421594_))) - (let ((_hd2145621601_ - (##car _e2145521597_)) - (_tl2145721604_ - (##cdr _e2145521597_))) + _tl2145821598_))) + (let ((_hd2146021605_ + (##car _e2145921601_)) + (_tl2146121608_ + (##cdr _e2145921601_))) (if (gx#stx-null? - _tl2145721604_) - ((lambda (_L21607_ + _tl2146121608_) + ((lambda (_L21611_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L21609_ - _L21610_ - _L21611_) - (if (if (gx#identifier? _L21611_) - (if (gx#identifier? _L21610_) - (gx#identifier? _L21609_) + _L21613_ + _L21614_ + _L21615_) + (if (if (gx#identifier? _L21615_) + (if (gx#identifier? _L21614_) + (gx#identifier? _L21613_) '#f) '#f) (cons (gx#datum->syntax '#f 'optimizer-declare-method!) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L21611_ '())) + (cons _L21615_ '())) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L21610_ '())) + (cons _L21614_ '())) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L21609_ '())) - (cons _L21607_ '()))))) - (_g2143621550_ _g2143821554_))) - _hd2145621601_ - _hd2145321591_ - _hd2145021581_ - _hd2144721571_) - (_g2143621550_ _g2143821554_)))) + (cons _L21613_ '())) + (cons _L21611_ '()))))) + (_g2144021554_ _g2144221558_))) + _hd2146021605_ + _hd2145721595_ + _hd2145421585_ + _hd2145121575_) + (_g2144021554_ _g2144221558_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g2143621550_ - _g2143821554_)))) - (_g2143621550_ _g2143821554_)))) - (_g2143621550_ _g2143821554_)))) - (_g2143621550_ _g2143821554_)))) - (_g2143621550_ _g2143821554_))))) - (_g2143521632_ _$stx21432_)))) + (_g2144021554_ + _g2144221558_)))) + (_g2144021554_ _g2144221558_)))) + (_g2144021554_ _g2144221558_)))) + (_g2144021554_ _g2144221558_)))) + (_g2144021554_ _g2144221558_))))) + (_g2143921636_ _$stx21436_)))) (define |gxc[:0:]#declare-method*| - (lambda (_$stx21636_) - (let* ((_g2164021675_ - (lambda (_g2164121671_) - (gx#raise-syntax-error '#f '"Bad syntax" _g2164121671_))) - (_g2163921794_ - (lambda (_g2164121679_) - (if (gx#stx-pair? _g2164121679_) - (let ((_e2164521682_ (gx#syntax-e _g2164121679_))) - (let ((_hd2164621686_ (##car _e2164521682_)) - (_tl2164721689_ (##cdr _e2164521682_))) - (if (gx#stx-pair/null? _tl2164721689_) - (if (fx>= (gx#stx-length _tl2164721689_) '0) - (let ((_g23405_ + (lambda (_$stx21640_) + (let* ((_g2164421679_ + (lambda (_g2164521675_) + (gx#raise-syntax-error '#f '"Bad syntax" _g2164521675_))) + (_g2164321798_ + (lambda (_g2164521683_) + (if (gx#stx-pair? _g2164521683_) + (let ((_e2164921686_ (gx#syntax-e _g2164521683_))) + (let ((_hd2165021690_ (##car _e2164921686_)) + (_tl2165121693_ (##cdr _e2164921686_))) + (if (gx#stx-pair/null? _tl2165121693_) + (if (fx>= (gx#stx-length _tl2165121693_) '0) + (let ((_g23409_ (gx#syntax-split-splice - _tl2164721689_ + _tl2165121693_ '0))) (begin - (let ((_g23406_ (values-count _g23405_))) - (if (not (fx= _g23406_ 2)) + (let ((_g23410_ (values-count _g23409_))) + (if (not (fx= _g23410_ 2)) (error "Context expects 2 values" - _g23406_))) - (let ((_target2164821692_ - (values-ref _g23405_ 0)) - (_tl2165021695_ - (values-ref _g23405_ 1))) - (if (gx#stx-null? _tl2165021695_) - (letrec ((_loop2165121698_ - (lambda (_hd2164921702_ - _symbol2165521705_ - _method2165621707_ - _type-t2165721709_) + _g23410_))) + (let ((_target2165221696_ + (values-ref _g23409_ 0)) + (_tl2165421699_ + (values-ref _g23409_ 1))) + (if (gx#stx-null? _tl2165421699_) + (letrec ((_loop2165521702_ + (lambda (_hd2165321706_ + _symbol2165921709_ + _method2166021711_ + _type-t2166121713_) (if (gx#stx-pair? - _hd2164921702_) - (let ((_e2165221712_ + _hd2165321706_) + (let ((_e2165621716_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _hd2164921702_))) - (let ((_lp-hd2165321716_ (##car _e2165221712_)) - (_lp-tl2165421719_ (##cdr _e2165221712_))) - (if (gx#stx-pair? _lp-hd2165321716_) - (let ((_e2166121722_ - (gx#syntax-e _lp-hd2165321716_))) - (let ((_hd2166221726_ (##car _e2166121722_)) - (_tl2166321729_ (##cdr _e2166121722_))) - (if (gx#stx-pair? _tl2166321729_) - (let ((_e2166421732_ - (gx#syntax-e _tl2166321729_))) - (let ((_hd2166521736_ - (##car _e2166421732_)) - (_tl2166621739_ - (##cdr _e2166421732_))) - (if (gx#stx-pair? _tl2166621739_) - (let ((_e2166721742_ - (gx#syntax-e _tl2166621739_))) - (let ((_hd2166821746_ - (##car _e2166721742_)) - (_tl2166921749_ - (##cdr _e2166721742_))) - (if (gx#stx-null? _tl2166921749_) - (_loop2165121698_ - _lp-tl2165421719_ - (cons _hd2166821746_ - _symbol2165521705_) - (cons _hd2166521736_ - _method2165621707_) - (cons _hd2166221726_ - _type-t2165721709_)) - (_g2164021675_ - _g2164121679_)))) - (_g2164021675_ _g2164121679_)))) - (_g2164021675_ _g2164121679_)))) - (_g2164021675_ _g2164121679_)))) - (let ((_symbol2165821752_ (reverse _symbol2165521705_)) - (_method2165921755_ (reverse _method2165621707_)) - (_type-t2166021757_ (reverse _type-t2165721709_))) - ((lambda (_L21760_ _L21762_ _L21763_) + (gx#syntax-e _hd2165321706_))) + (let ((_lp-hd2165721720_ (##car _e2165621716_)) + (_lp-tl2165821723_ (##cdr _e2165621716_))) + (if (gx#stx-pair? _lp-hd2165721720_) + (let ((_e2166521726_ + (gx#syntax-e _lp-hd2165721720_))) + (let ((_hd2166621730_ (##car _e2166521726_)) + (_tl2166721733_ (##cdr _e2166521726_))) + (if (gx#stx-pair? _tl2166721733_) + (let ((_e2166821736_ + (gx#syntax-e _tl2166721733_))) + (let ((_hd2166921740_ + (##car _e2166821736_)) + (_tl2167021743_ + (##cdr _e2166821736_))) + (if (gx#stx-pair? _tl2167021743_) + (let ((_e2167121746_ + (gx#syntax-e _tl2167021743_))) + (let ((_hd2167221750_ + (##car _e2167121746_)) + (_tl2167321753_ + (##cdr _e2167121746_))) + (if (gx#stx-null? _tl2167321753_) + (_loop2165521702_ + _lp-tl2165821723_ + (cons _hd2167221750_ + _symbol2165921709_) + (cons _hd2166921740_ + _method2166021711_) + (cons _hd2166621730_ + _type-t2166121713_)) + (_g2164421679_ + _g2164521683_)))) + (_g2164421679_ _g2164521683_)))) + (_g2164421679_ _g2164521683_)))) + (_g2164421679_ _g2164521683_)))) + (let ((_symbol2166221756_ (reverse _symbol2165921709_)) + (_method2166321759_ (reverse _method2166021711_)) + (_type-t2166421761_ (reverse _type-t2166121713_))) + ((lambda (_L21764_ _L21766_ _L21767_) (cons (gx#datum->syntax '#f 'begin) (begin (gx#syntax-check-splice-targets - _L21760_ - _L21762_ - _L21763_) - (foldr (lambda (_g2177921784_ - _g2178021787_ - _g2178121789_ - _g2178221791_) + _L21764_ + _L21766_ + _L21767_) + (foldr (lambda (_g2178321788_ + _g2178421791_ + _g2178521793_ + _g2178621795_) (cons (cons (gx#datum->syntax '#f 'declare-method) - (cons _g2178121789_ - (cons _g2178021787_ - (cons _g2177921784_ + (cons _g2178521793_ + (cons _g2178421791_ + (cons _g2178321788_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g2178221791_)) + _g2178621795_)) '() - _L21760_ - _L21762_ - _L21763_)))) - _symbol2165821752_ - _method2165921755_ - _type-t2166021757_)))))) + _L21764_ + _L21766_ + _L21767_)))) + _symbol2166221756_ + _method2166321759_ + _type-t2166421761_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop2165121698_ - _target2164821692_ + (_loop2165521702_ + _target2165221696_ '() '() '())) - (_g2164021675_ _g2164121679_))))) - (_g2164021675_ _g2164121679_)) - (_g2164021675_ _g2164121679_)))) - (_g2164021675_ _g2164121679_))))) - (_g2163921794_ _$stx21636_)))) + (_g2164421679_ _g2164521683_))))) + (_g2164421679_ _g2164521683_)) + (_g2164421679_ _g2164521683_)))) + (_g2164421679_ _g2164521683_))))) + (_g2164321798_ _$stx21640_)))) (define |gxc[:0:]#declare-methods| - (lambda (_$stx21799_) - (let* ((_g2180321836_ - (lambda (_g2180421832_) - (gx#raise-syntax-error '#f '"Bad syntax" _g2180421832_))) - (_g2180221950_ - (lambda (_g2180421840_) - (if (gx#stx-pair? _g2180421840_) - (let ((_e2180821843_ (gx#syntax-e _g2180421840_))) - (let ((_hd2180921847_ (##car _e2180821843_)) - (_tl2181021850_ (##cdr _e2180821843_))) - (if (gx#stx-pair? _tl2181021850_) - (let ((_e2181121853_ (gx#syntax-e _tl2181021850_))) - (let ((_hd2181221857_ (##car _e2181121853_)) - (_tl2181321860_ (##cdr _e2181121853_))) - (if (gx#stx-pair/null? _tl2181321860_) - (if (fx>= (gx#stx-length _tl2181321860_) + (lambda (_$stx21803_) + (let* ((_g2180721840_ + (lambda (_g2180821836_) + (gx#raise-syntax-error '#f '"Bad syntax" _g2180821836_))) + (_g2180621954_ + (lambda (_g2180821844_) + (if (gx#stx-pair? _g2180821844_) + (let ((_e2181221847_ (gx#syntax-e _g2180821844_))) + (let ((_hd2181321851_ (##car _e2181221847_)) + (_tl2181421854_ (##cdr _e2181221847_))) + (if (gx#stx-pair? _tl2181421854_) + (let ((_e2181521857_ (gx#syntax-e _tl2181421854_))) + (let ((_hd2181621861_ (##car _e2181521857_)) + (_tl2181721864_ (##cdr _e2181521857_))) + (if (gx#stx-pair/null? _tl2181721864_) + (if (fx>= (gx#stx-length _tl2181721864_) '0) - (let ((_g23407_ + (let ((_g23411_ (gx#syntax-split-splice - _tl2181321860_ + _tl2181721864_ '0))) (begin - (let ((_g23408_ - (values-count _g23407_))) - (if (not (fx= _g23408_ 2)) + (let ((_g23412_ + (values-count _g23411_))) + (if (not (fx= _g23412_ 2)) (error "Context expects 2 values" - _g23408_))) - (let ((_target2181421863_ - (values-ref _g23407_ 0)) - (_tl2181621866_ - (values-ref _g23407_ 1))) - (if (gx#stx-null? _tl2181621866_) - (letrec ((_loop2181721869_ - (lambda (_hd2181521873_ + _g23412_))) + (let ((_target2181821867_ + (values-ref _g23411_ 0)) + (_tl2182021870_ + (values-ref _g23411_ 1))) + (if (gx#stx-null? _tl2182021870_) + (letrec ((_loop2182121873_ + (lambda (_hd2181921877_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _symbol2182121876_ - _method2182221878_) - (if (gx#stx-pair? _hd2181521873_) - (let ((_e2181821881_ (gx#syntax-e _hd2181521873_))) - (let ((_lp-hd2181921885_ (##car _e2181821881_)) - (_lp-tl2182021888_ (##cdr _e2181821881_))) - (if (gx#stx-pair? _lp-hd2181921885_) - (let ((_e2182521891_ - (gx#syntax-e _lp-hd2181921885_))) - (let ((_hd2182621895_ - (##car _e2182521891_)) - (_tl2182721898_ - (##cdr _e2182521891_))) - (if (gx#stx-pair? _tl2182721898_) - (let ((_e2182821901_ - (gx#syntax-e _tl2182721898_))) - (let ((_hd2182921905_ - (##car _e2182821901_)) - (_tl2183021908_ - (##cdr _e2182821901_))) - (if (gx#stx-null? _tl2183021908_) - (_loop2181721869_ - _lp-tl2182021888_ - (cons _hd2182921905_ - _symbol2182121876_) - (cons _hd2182621895_ - _method2182221878_)) - (_g2180321836_ - _g2180421840_)))) - (_g2180321836_ _g2180421840_)))) - (_g2180321836_ _g2180421840_)))) - (let ((_symbol2182321911_ - (reverse _symbol2182121876_)) - (_method2182421914_ - (reverse _method2182221878_))) - ((lambda (_L21917_ _L21919_ _L21920_) + _symbol2182521880_ + _method2182621882_) + (if (gx#stx-pair? _hd2181921877_) + (let ((_e2182221885_ (gx#syntax-e _hd2181921877_))) + (let ((_lp-hd2182321889_ (##car _e2182221885_)) + (_lp-tl2182421892_ (##cdr _e2182221885_))) + (if (gx#stx-pair? _lp-hd2182321889_) + (let ((_e2182921895_ + (gx#syntax-e _lp-hd2182321889_))) + (let ((_hd2183021899_ + (##car _e2182921895_)) + (_tl2183121902_ + (##cdr _e2182921895_))) + (if (gx#stx-pair? _tl2183121902_) + (let ((_e2183221905_ + (gx#syntax-e _tl2183121902_))) + (let ((_hd2183321909_ + (##car _e2183221905_)) + (_tl2183421912_ + (##cdr _e2183221905_))) + (if (gx#stx-null? _tl2183421912_) + (_loop2182121873_ + _lp-tl2182421892_ + (cons _hd2183321909_ + _symbol2182521880_) + (cons _hd2183021899_ + _method2182621882_)) + (_g2180721840_ + _g2180821844_)))) + (_g2180721840_ _g2180821844_)))) + (_g2180721840_ _g2180821844_)))) + (let ((_symbol2182721915_ + (reverse _symbol2182521880_)) + (_method2182821918_ + (reverse _method2182621882_))) + ((lambda (_L21921_ _L21923_ _L21924_) (cons (gx#datum->syntax '#f 'begin) (begin (gx#syntax-check-splice-targets - _L21917_ - _L21919_) - (foldr (lambda (_g2193821942_ - _g2193921945_ - _g2194021947_) + _L21921_ + _L21923_) + (foldr (lambda (_g2194221946_ + _g2194321949_ + _g2194421951_) (cons (cons (gx#datum->syntax '#f 'declare-method) - (cons _L21920_ + (cons _L21924_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _g2193921945_ (cons _g2193821942_ '())))) - _g2194021947_)) + (cons _g2194321949_ (cons _g2194221946_ '())))) + _g2194421951_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '() - _L21917_ - _L21919_)))) - _symbol2182321911_ - _method2182421914_ - _hd2181221857_)))))) + _L21921_ + _L21923_)))) + _symbol2182721915_ + _method2182821918_ + _hd2181621861_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop2181721869_ - _target2181421863_ + (_loop2182121873_ + _target2181821867_ '() '())) - (_g2180321836_ - _g2180421840_))))) - (_g2180321836_ _g2180421840_)) - (_g2180321836_ _g2180421840_)))) - (_g2180321836_ _g2180421840_)))) - (_g2180321836_ _g2180421840_))))) - (_g2180221950_ _$stx21799_)))) + (_g2180721840_ + _g2180821844_))))) + (_g2180721840_ _g2180821844_)) + (_g2180721840_ _g2180821844_)))) + (_g2180721840_ _g2180821844_)))) + (_g2180721840_ _g2180821844_))))) + (_g2180621954_ _$stx21803_)))) (define |gxc[:0:]#@alias| - (lambda (_$stx21955_) - (let* ((_g2195921973_ - (lambda (_g2196021969_) - (gx#raise-syntax-error '#f '"Bad syntax" _g2196021969_))) - (_g2195822014_ - (lambda (_g2196021977_) - (if (gx#stx-pair? _g2196021977_) - (let ((_e2196221980_ (gx#syntax-e _g2196021977_))) - (let ((_hd2196321984_ (##car _e2196221980_)) - (_tl2196421987_ (##cdr _e2196221980_))) - (if (gx#stx-pair? _tl2196421987_) - (let ((_e2196521990_ (gx#syntax-e _tl2196421987_))) - (let ((_hd2196621994_ (##car _e2196521990_)) - (_tl2196721997_ (##cdr _e2196521990_))) - (if (gx#stx-null? _tl2196721997_) - ((lambda (_L22000_) + (lambda (_$stx21959_) + (let* ((_g2196321977_ + (lambda (_g2196421973_) + (gx#raise-syntax-error '#f '"Bad syntax" _g2196421973_))) + (_g2196222018_ + (lambda (_g2196421981_) + (if (gx#stx-pair? _g2196421981_) + (let ((_e2196621984_ (gx#syntax-e _g2196421981_))) + (let ((_hd2196721988_ (##car _e2196621984_)) + (_tl2196821991_ (##cdr _e2196621984_))) + (if (gx#stx-pair? _tl2196821991_) + (let ((_e2196921994_ (gx#syntax-e _tl2196821991_))) + (let ((_hd2197021998_ (##car _e2196921994_)) + (_tl2197122001_ (##cdr _e2196921994_))) + (if (gx#stx-null? _tl2197122001_) + ((lambda (_L22004_) (cons (gx#datum->syntax '#f 'make-!alias) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L22000_ '())) + (cons _L22004_ '())) '()))) - _hd2196621994_) - (_g2195921973_ _g2196021977_)))) - (_g2195921973_ _g2196021977_)))) - (_g2195921973_ _g2196021977_))))) - (_g2195822014_ _$stx21955_)))) + _hd2197021998_) + (_g2196321977_ _g2196421981_)))) + (_g2196321977_ _g2196421981_)))) + (_g2196321977_ _g2196421981_))))) + (_g2196222018_ _$stx21959_)))) (define |gxc[:0:]#@struct-type| - (lambda (_$stx22018_) - (let* ((_g2202422090_ - (lambda (_g2202522086_) - (gx#raise-syntax-error '#f '"Bad syntax" _g2202522086_))) - (_g2202322175_ - (lambda (_g2202522094_) - (if (gx#stx-pair? _g2202522094_) - (let ((_e2207022097_ (gx#syntax-e _g2202522094_))) - (let ((_hd2207122101_ (##car _e2207022097_)) - (_tl2207222104_ (##cdr _e2207022097_))) - (if (gx#stx-pair? _tl2207222104_) - (let ((_e2207322107_ (gx#syntax-e _tl2207222104_))) - (let ((_hd2207422111_ (##car _e2207322107_)) - (_tl2207522114_ (##cdr _e2207322107_))) - (if (gx#stx-pair? _tl2207522114_) - (let ((_e2207622117_ - (gx#syntax-e _tl2207522114_))) - (let ((_hd2207722121_ - (##car _e2207622117_)) - (_tl2207822124_ - (##cdr _e2207622117_))) - (if (gx#stx-pair? _tl2207822124_) - (let ((_e2207922127_ + (lambda (_$stx22022_) + (let* ((_g2202822094_ + (lambda (_g2202922090_) + (gx#raise-syntax-error '#f '"Bad syntax" _g2202922090_))) + (_g2202722179_ + (lambda (_g2202922098_) + (if (gx#stx-pair? _g2202922098_) + (let ((_e2207422101_ (gx#syntax-e _g2202922098_))) + (let ((_hd2207522105_ (##car _e2207422101_)) + (_tl2207622108_ (##cdr _e2207422101_))) + (if (gx#stx-pair? _tl2207622108_) + (let ((_e2207722111_ (gx#syntax-e _tl2207622108_))) + (let ((_hd2207822115_ (##car _e2207722111_)) + (_tl2207922118_ (##cdr _e2207722111_))) + (if (gx#stx-pair? _tl2207922118_) + (let ((_e2208022121_ + (gx#syntax-e _tl2207922118_))) + (let ((_hd2208122125_ + (##car _e2208022121_)) + (_tl2208222128_ + (##cdr _e2208022121_))) + (if (gx#stx-pair? _tl2208222128_) + (let ((_e2208322131_ (gx#syntax-e - _tl2207822124_))) - (let ((_hd2208022131_ - (##car _e2207922127_)) - (_tl2208122134_ - (##cdr _e2207922127_))) + _tl2208222128_))) + (let ((_hd2208422135_ + (##car _e2208322131_)) + (_tl2208522138_ + (##cdr _e2208322131_))) (if (gx#stx-pair? - _tl2208122134_) - (let ((_e2208222137_ + _tl2208522138_) + (let ((_e2208622141_ (gx#syntax-e - _tl2208122134_))) - (let ((_hd2208322141_ - (##car _e2208222137_)) - (_tl2208422144_ - (##cdr _e2208222137_))) + _tl2208522138_))) + (let ((_hd2208722145_ + (##car _e2208622141_)) + (_tl2208822148_ + (##cdr _e2208622141_))) (if (gx#stx-null? - _tl2208422144_) - ((lambda (_L22147_ + _tl2208822148_) + ((lambda (_L22151_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L22149_ - _L22150_ - _L22151_ - _L22152_) - (cons _L22152_ + _L22153_ + _L22154_ + _L22155_ + _L22156_) + (cons _L22156_ (cons (gx#datum->syntax '#f 'type) - (cons _L22150_ - (cons _L22149_ - (cons _L22147_ + (cons _L22154_ + (cons _L22153_ + (cons _L22151_ (cons '#f '()))))))) - _hd2208322141_ - _hd2208022131_ - _hd2207722121_ - _hd2207422111_ - _hd2207122101_) - (_g2202422090_ _g2202522094_)))) + _hd2208722145_ + _hd2208422135_ + _hd2208122125_ + _hd2207822115_ + _hd2207522105_) + (_g2202822094_ _g2202922098_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g2202422090_ - _g2202522094_)))) - (_g2202422090_ _g2202522094_)))) - (_g2202422090_ _g2202522094_)))) - (_g2202422090_ _g2202522094_)))) - (_g2202422090_ _g2202522094_)))) - (_g2202222245_ - (lambda (_g2202522179_) - (if (gx#stx-pair? _g2202522179_) - (let ((_e2205322182_ (gx#syntax-e _g2202522179_))) - (let ((_hd2205422186_ (##car _e2205322182_)) - (_tl2205522189_ (##cdr _e2205322182_))) - (if (gx#stx-pair? _tl2205522189_) - (let ((_e2205622192_ (gx#syntax-e _tl2205522189_))) - (let ((_hd2205722196_ (##car _e2205622192_)) - (_tl2205822199_ (##cdr _e2205622192_))) - (if (gx#stx-pair? _tl2205822199_) - (let ((_e2205922202_ - (gx#syntax-e _tl2205822199_))) - (let ((_hd2206022206_ - (##car _e2205922202_)) - (_tl2206122209_ - (##cdr _e2205922202_))) - (if (gx#stx-pair? _tl2206122209_) - (let ((_e2206222212_ + (_g2202822094_ + _g2202922098_)))) + (_g2202822094_ _g2202922098_)))) + (_g2202822094_ _g2202922098_)))) + (_g2202822094_ _g2202922098_)))) + (_g2202822094_ _g2202922098_)))) + (_g2202622249_ + (lambda (_g2202922183_) + (if (gx#stx-pair? _g2202922183_) + (let ((_e2205722186_ (gx#syntax-e _g2202922183_))) + (let ((_hd2205822190_ (##car _e2205722186_)) + (_tl2205922193_ (##cdr _e2205722186_))) + (if (gx#stx-pair? _tl2205922193_) + (let ((_e2206022196_ (gx#syntax-e _tl2205922193_))) + (let ((_hd2206122200_ (##car _e2206022196_)) + (_tl2206222203_ (##cdr _e2206022196_))) + (if (gx#stx-pair? _tl2206222203_) + (let ((_e2206322206_ + (gx#syntax-e _tl2206222203_))) + (let ((_hd2206422210_ + (##car _e2206322206_)) + (_tl2206522213_ + (##cdr _e2206322206_))) + (if (gx#stx-pair? _tl2206522213_) + (let ((_e2206622216_ (gx#syntax-e - _tl2206122209_))) - (let ((_hd2206322216_ - (##car _e2206222212_)) - (_tl2206422219_ - (##cdr _e2206222212_))) + _tl2206522213_))) + (let ((_hd2206722220_ + (##car _e2206622216_)) + (_tl2206822223_ + (##cdr _e2206622216_))) (if (gx#stx-null? - _tl2206422219_) - ((lambda (_L22222_ - _L22224_ - _L22225_ - _L22226_) - (cons _L22226_ - (cons _L22225_ + _tl2206822223_) + ((lambda (_L22226_ + _L22228_ + _L22229_ + _L22230_) + (cons _L22230_ + (cons _L22229_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _L22224_ - (cons _L22222_ (cons '#f (cons '#f '()))))))) + (cons _L22228_ + (cons _L22226_ (cons '#f (cons '#f '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd2206322216_ - _hd2206022206_ - _hd2205722196_ - _hd2205422186_) - (_g2202322175_ - _g2202522179_)))) - (_g2202322175_ _g2202522179_)))) - (_g2202322175_ _g2202522179_)))) - (_g2202322175_ _g2202522179_)))) - (_g2202322175_ _g2202522179_)))) - (_g2202122341_ - (lambda (_g2202522249_) - (if (gx#stx-pair? _g2202522249_) - (let ((_e2203122252_ (gx#syntax-e _g2202522249_))) - (let ((_hd2203222256_ (##car _e2203122252_)) - (_tl2203322259_ (##cdr _e2203122252_))) - (if (gx#stx-pair? _tl2203322259_) - (let ((_e2203422262_ (gx#syntax-e _tl2203322259_))) - (let ((_hd2203522266_ (##car _e2203422262_)) - (_tl2203622269_ (##cdr _e2203422262_))) - (if (gx#stx-pair? _tl2203622269_) - (let ((_e2203722272_ - (gx#syntax-e _tl2203622269_))) - (let ((_hd2203822276_ - (##car _e2203722272_)) - (_tl2203922279_ - (##cdr _e2203722272_))) - (if (gx#stx-pair? _tl2203922279_) - (let ((_e2204022282_ + _hd2206722220_ + _hd2206422210_ + _hd2206122200_ + _hd2205822190_) + (_g2202722179_ + _g2202922183_)))) + (_g2202722179_ _g2202922183_)))) + (_g2202722179_ _g2202922183_)))) + (_g2202722179_ _g2202922183_)))) + (_g2202722179_ _g2202922183_)))) + (_g2202522345_ + (lambda (_g2202922253_) + (if (gx#stx-pair? _g2202922253_) + (let ((_e2203522256_ (gx#syntax-e _g2202922253_))) + (let ((_hd2203622260_ (##car _e2203522256_)) + (_tl2203722263_ (##cdr _e2203522256_))) + (if (gx#stx-pair? _tl2203722263_) + (let ((_e2203822266_ (gx#syntax-e _tl2203722263_))) + (let ((_hd2203922270_ (##car _e2203822266_)) + (_tl2204022273_ (##cdr _e2203822266_))) + (if (gx#stx-pair? _tl2204022273_) + (let ((_e2204122276_ + (gx#syntax-e _tl2204022273_))) + (let ((_hd2204222280_ + (##car _e2204122276_)) + (_tl2204322283_ + (##cdr _e2204122276_))) + (if (gx#stx-pair? _tl2204322283_) + (let ((_e2204422286_ (gx#syntax-e - _tl2203922279_))) - (let ((_hd2204122286_ - (##car _e2204022282_)) - (_tl2204222289_ - (##cdr _e2204022282_))) + _tl2204322283_))) + (let ((_hd2204522290_ + (##car _e2204422286_)) + (_tl2204622293_ + (##cdr _e2204422286_))) (if (gx#stx-pair? - _tl2204222289_) - (let ((_e2204322292_ + _tl2204622293_) + (let ((_e2204722296_ (gx#syntax-e - _tl2204222289_))) - (let ((_hd2204422296_ - (##car _e2204322292_)) - (_tl2204522299_ - (##cdr _e2204322292_))) + _tl2204622293_))) + (let ((_hd2204822300_ + (##car _e2204722296_)) + (_tl2204922303_ + (##cdr _e2204722296_))) (if (gx#stx-pair? - _tl2204522299_) - (let ((_e2204622302_ + _tl2204922303_) + (let ((_e2205022306_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl2204522299_))) - (let ((_hd2204722306_ (##car _e2204622302_)) - (_tl2204822309_ (##cdr _e2204622302_))) - (if (gx#stx-null? _tl2204822309_) - ((lambda (_L22312_ - _L22314_ - _L22315_ - _L22316_ - _L22317_) + (gx#syntax-e _tl2204922303_))) + (let ((_hd2205122310_ (##car _e2205022306_)) + (_tl2205222313_ (##cdr _e2205022306_))) + (if (gx#stx-null? _tl2205222313_) + ((lambda (_L22316_ + _L22318_ + _L22319_ + _L22320_ + _L22321_) (cons (gx#datum->syntax '#f '@make-struct-type) - (cons _L22317_ - (cons _L22316_ - (cons _L22315_ - (cons _L22314_ - (cons _L22312_ + (cons _L22321_ + (cons _L22320_ + (cons _L22319_ + (cons _L22318_ + (cons _L22316_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd2204722306_ - _hd2204422296_ - _hd2204122286_ - _hd2203822276_ - _hd2203522266_) - (_g2202222245_ _g2202522249_)))) - (_g2202222245_ _g2202522249_)))) + _hd2205122310_ + _hd2204822300_ + _hd2204522290_ + _hd2204222280_ + _hd2203922270_) + (_g2202622249_ _g2202922253_)))) + (_g2202622249_ _g2202922253_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g2202222245_ - _g2202522249_)))) - (_g2202222245_ _g2202522249_)))) - (_g2202222245_ _g2202522249_)))) - (_g2202222245_ _g2202522249_)))) - (_g2202222245_ _g2202522249_))))) - (_g2202122341_ _$stx22018_)))) + (_g2202622249_ + _g2202922253_)))) + (_g2202622249_ _g2202922253_)))) + (_g2202622249_ _g2202922253_)))) + (_g2202622249_ _g2202922253_)))) + (_g2202622249_ _g2202922253_))))) + (_g2202522345_ _$stx22022_)))) (define |gxc[:0:]#@make-struct-type| - (lambda (_$stx22345_) - (let* ((_g2235022402_ - (lambda (_g2235122398_) - (gx#raise-syntax-error '#f '"Bad syntax" _g2235122398_))) - (_g2234922499_ - (lambda (_g2235122406_) - (if (gx#stx-pair? _g2235122406_) - (let ((_e2237922409_ (gx#syntax-e _g2235122406_))) - (let ((_hd2238022413_ (##car _e2237922409_)) - (_tl2238122416_ (##cdr _e2237922409_))) - (if (gx#stx-pair? _tl2238122416_) - (let ((_e2238222419_ (gx#syntax-e _tl2238122416_))) - (let ((_hd2238322423_ (##car _e2238222419_)) - (_tl2238422426_ (##cdr _e2238222419_))) - (if (gx#stx-pair? _tl2238422426_) - (let ((_e2238522429_ - (gx#syntax-e _tl2238422426_))) - (let ((_hd2238622433_ - (##car _e2238522429_)) - (_tl2238722436_ - (##cdr _e2238522429_))) - (if (gx#stx-pair? _tl2238722436_) - (let ((_e2238822439_ + (lambda (_$stx22349_) + (let* ((_g2235422406_ + (lambda (_g2235522402_) + (gx#raise-syntax-error '#f '"Bad syntax" _g2235522402_))) + (_g2235322503_ + (lambda (_g2235522410_) + (if (gx#stx-pair? _g2235522410_) + (let ((_e2238322413_ (gx#syntax-e _g2235522410_))) + (let ((_hd2238422417_ (##car _e2238322413_)) + (_tl2238522420_ (##cdr _e2238322413_))) + (if (gx#stx-pair? _tl2238522420_) + (let ((_e2238622423_ (gx#syntax-e _tl2238522420_))) + (let ((_hd2238722427_ (##car _e2238622423_)) + (_tl2238822430_ (##cdr _e2238622423_))) + (if (gx#stx-pair? _tl2238822430_) + (let ((_e2238922433_ + (gx#syntax-e _tl2238822430_))) + (let ((_hd2239022437_ + (##car _e2238922433_)) + (_tl2239122440_ + (##cdr _e2238922433_))) + (if (gx#stx-pair? _tl2239122440_) + (let ((_e2239222443_ (gx#syntax-e - _tl2238722436_))) - (let ((_hd2238922443_ - (##car _e2238822439_)) - (_tl2239022446_ - (##cdr _e2238822439_))) + _tl2239122440_))) + (let ((_hd2239322447_ + (##car _e2239222443_)) + (_tl2239422450_ + (##cdr _e2239222443_))) (if (gx#stx-pair? - _tl2239022446_) - (let ((_e2239122449_ + _tl2239422450_) + (let ((_e2239522453_ (gx#syntax-e - _tl2239022446_))) - (let ((_hd2239222453_ - (##car _e2239122449_)) - (_tl2239322456_ - (##cdr _e2239122449_))) + _tl2239422450_))) + (let ((_hd2239622457_ + (##car _e2239522453_)) + (_tl2239722460_ + (##cdr _e2239522453_))) (if (gx#stx-pair? - _tl2239322456_) - (let ((_e2239422459_ + _tl2239722460_) + (let ((_e2239822463_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl2239322456_))) - (let ((_hd2239522463_ (##car _e2239422459_)) - (_tl2239622466_ (##cdr _e2239422459_))) - (if (gx#stx-null? _tl2239622466_) - ((lambda (_L22469_ - _L22471_ - _L22472_ - _L22473_ - _L22474_) + (gx#syntax-e _tl2239722460_))) + (let ((_hd2239922467_ (##car _e2239822463_)) + (_tl2240022470_ (##cdr _e2239822463_))) + (if (gx#stx-null? _tl2240022470_) + ((lambda (_L22473_ + _L22475_ + _L22476_ + _L22477_ + _L22478_) (cons (gx#datum->syntax '#f 'let*) (cons (cons (cons (gx#datum->syntax '#f @@ -760,7 +760,7 @@ '#f 'optimizer-resolve-type) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L22473_ '())) + (cons _L22477_ '())) '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -802,7 +802,7 @@ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L22471_ '())) + (cons _L22475_ '())) (cons (cons (gx#datum->syntax '#f 'if) @@ -828,196 +828,196 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _L22474_ '())) + (cons _L22478_ '())) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L22473_ '())) - (cons _L22472_ + (cons _L22477_ '())) + (cons _L22476_ (cons (gx#datum->syntax '#f 'xfields) (cons (gx#datum->syntax '#f 'xtor) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L22469_ '())) + (cons _L22473_ '())) '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _hd2239522463_ - _hd2239222453_ - _hd2238922443_ - _hd2238622433_ - _hd2238322423_) - (_g2235022402_ _g2235122406_)))) - (_g2235022402_ _g2235122406_)))) + _hd2239922467_ + _hd2239622457_ + _hd2239322447_ + _hd2239022437_ + _hd2238722427_) + (_g2235422406_ _g2235522410_)))) + (_g2235422406_ _g2235522410_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g2235022402_ - _g2235122406_)))) - (_g2235022402_ _g2235122406_)))) - (_g2235022402_ _g2235122406_)))) - (_g2235022402_ _g2235122406_)))) - (_g2235022402_ _g2235122406_)))) - (_g2234822593_ - (lambda (_g2235122503_) - (if (gx#stx-pair? _g2235122503_) - (let ((_e2235622506_ (gx#syntax-e _g2235122503_))) - (let ((_hd2235722510_ (##car _e2235622506_)) - (_tl2235822513_ (##cdr _e2235622506_))) - (if (gx#stx-pair? _tl2235822513_) - (let ((_e2235922516_ (gx#syntax-e _tl2235822513_))) - (let ((_hd2236022520_ (##car _e2235922516_)) - (_tl2236122523_ (##cdr _e2235922516_))) - (if (gx#stx-pair? _tl2236122523_) - (let ((_e2236222526_ - (gx#syntax-e _tl2236122523_))) - (let ((_hd2236322530_ - (##car _e2236222526_)) - (_tl2236422533_ - (##cdr _e2236222526_))) - (if (gx#stx-datum? _hd2236322530_) + (_g2235422406_ + _g2235522410_)))) + (_g2235422406_ _g2235522410_)))) + (_g2235422406_ _g2235522410_)))) + (_g2235422406_ _g2235522410_)))) + (_g2235422406_ _g2235522410_)))) + (_g2235222597_ + (lambda (_g2235522507_) + (if (gx#stx-pair? _g2235522507_) + (let ((_e2236022510_ (gx#syntax-e _g2235522507_))) + (let ((_hd2236122514_ (##car _e2236022510_)) + (_tl2236222517_ (##cdr _e2236022510_))) + (if (gx#stx-pair? _tl2236222517_) + (let ((_e2236322520_ (gx#syntax-e _tl2236222517_))) + (let ((_hd2236422524_ (##car _e2236322520_)) + (_tl2236522527_ (##cdr _e2236322520_))) + (if (gx#stx-pair? _tl2236522527_) + (let ((_e2236622530_ + (gx#syntax-e _tl2236522527_))) + (let ((_hd2236722534_ + (##car _e2236622530_)) + (_tl2236822537_ + (##cdr _e2236622530_))) + (if (gx#stx-datum? _hd2236722534_) (if (equal? (gx#stx-e - _hd2236322530_) + _hd2236722534_) '#f) (if (gx#stx-pair? - _tl2236422533_) - (let ((_e2236522536_ + _tl2236822537_) + (let ((_e2236922540_ (gx#syntax-e - _tl2236422533_))) - (let ((_hd2236622540_ - (##car _e2236522536_)) - (_tl2236722543_ - (##cdr _e2236522536_))) + _tl2236822537_))) + (let ((_hd2237022544_ + (##car _e2236922540_)) + (_tl2237122547_ + (##cdr _e2236922540_))) (if (gx#stx-pair? - _tl2236722543_) - (let ((_e2236822546_ + _tl2237122547_) + (let ((_e2237222550_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl2236722543_))) - (let ((_hd2236922550_ (##car _e2236822546_)) - (_tl2237022553_ (##cdr _e2236822546_))) - (if (gx#stx-pair? _tl2237022553_) - (let ((_e2237122556_ (gx#syntax-e _tl2237022553_))) - (let ((_hd2237222560_ (##car _e2237122556_)) - (_tl2237322563_ (##cdr _e2237122556_))) - (if (gx#stx-null? _tl2237322563_) - ((lambda (_L22566_ - _L22568_ - _L22569_ - _L22570_) + (gx#syntax-e _tl2237122547_))) + (let ((_hd2237322554_ (##car _e2237222550_)) + (_tl2237422557_ (##cdr _e2237222550_))) + (if (gx#stx-pair? _tl2237422557_) + (let ((_e2237522560_ (gx#syntax-e _tl2237422557_))) + (let ((_hd2237622564_ (##car _e2237522560_)) + (_tl2237722567_ (##cdr _e2237522560_))) + (if (gx#stx-null? _tl2237722567_) + ((lambda (_L22570_ + _L22572_ + _L22573_ + _L22574_) (cons (gx#datum->syntax '#f 'make-!struct-type) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L22570_ '())) + (cons _L22574_ '())) (cons '#f - (cons _L22569_ + (cons _L22573_ (cons '0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L22568_ '())) + (cons _L22572_ '())) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L22566_ '())) + (cons _L22570_ '())) '())))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd2237222560_ - _hd2236922550_ - _hd2236622540_ - _hd2236022520_) - (_g2234922499_ _g2235122503_)))) - (_g2234922499_ _g2235122503_)))) - (_g2234922499_ _g2235122503_)))) + _hd2237622564_ + _hd2237322554_ + _hd2237022544_ + _hd2236422524_) + (_g2235322503_ _g2235522507_)))) + (_g2235322503_ _g2235522507_)))) + (_g2235322503_ _g2235522507_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g2234922499_ - _g2235122503_)) - (_g2234922499_ _g2235122503_)) - (_g2234922499_ _g2235122503_)))) - (_g2234922499_ _g2235122503_)))) - (_g2234922499_ _g2235122503_)))) - (_g2234922499_ _g2235122503_))))) - (_g2234822593_ _$stx22345_)))) + (_g2235322503_ + _g2235522507_)) + (_g2235322503_ _g2235522507_)) + (_g2235322503_ _g2235522507_)))) + (_g2235322503_ _g2235522507_)))) + (_g2235322503_ _g2235522507_)))) + (_g2235322503_ _g2235522507_))))) + (_g2235222597_ _$stx22349_)))) (define |gxc[:0:]#@struct-pred| - (lambda (_$stx22597_) - (let* ((_g2260122615_ - (lambda (_g2260222611_) - (gx#raise-syntax-error '#f '"Bad syntax" _g2260222611_))) - (_g2260022656_ - (lambda (_g2260222619_) - (if (gx#stx-pair? _g2260222619_) - (let ((_e2260422622_ (gx#syntax-e _g2260222619_))) - (let ((_hd2260522626_ (##car _e2260422622_)) - (_tl2260622629_ (##cdr _e2260422622_))) - (if (gx#stx-pair? _tl2260622629_) - (let ((_e2260722632_ (gx#syntax-e _tl2260622629_))) - (let ((_hd2260822636_ (##car _e2260722632_)) - (_tl2260922639_ (##cdr _e2260722632_))) - (if (gx#stx-null? _tl2260922639_) - ((lambda (_L22642_) + (lambda (_$stx22601_) + (let* ((_g2260522619_ + (lambda (_g2260622615_) + (gx#raise-syntax-error '#f '"Bad syntax" _g2260622615_))) + (_g2260422660_ + (lambda (_g2260622623_) + (if (gx#stx-pair? _g2260622623_) + (let ((_e2260822626_ (gx#syntax-e _g2260622623_))) + (let ((_hd2260922630_ (##car _e2260822626_)) + (_tl2261022633_ (##cdr _e2260822626_))) + (if (gx#stx-pair? _tl2261022633_) + (let ((_e2261122636_ (gx#syntax-e _tl2261022633_))) + (let ((_hd2261222640_ (##car _e2261122636_)) + (_tl2261322643_ (##cdr _e2261122636_))) + (if (gx#stx-null? _tl2261322643_) + ((lambda (_L22646_) (cons (gx#datum->syntax '#f 'make-!struct-pred) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L22642_ '())) + (cons _L22646_ '())) '()))) - _hd2260822636_) - (_g2260122615_ _g2260222619_)))) - (_g2260122615_ _g2260222619_)))) - (_g2260122615_ _g2260222619_))))) - (_g2260022656_ _$stx22597_)))) + _hd2261222640_) + (_g2260522619_ _g2260622623_)))) + (_g2260522619_ _g2260622623_)))) + (_g2260522619_ _g2260622623_))))) + (_g2260422660_ _$stx22601_)))) (define |gxc[:0:]#@struct-cons| - (lambda (_$stx22660_) - (let* ((_g2266422678_ - (lambda (_g2266522674_) - (gx#raise-syntax-error '#f '"Bad syntax" _g2266522674_))) - (_g2266322719_ - (lambda (_g2266522682_) - (if (gx#stx-pair? _g2266522682_) - (let ((_e2266722685_ (gx#syntax-e _g2266522682_))) - (let ((_hd2266822689_ (##car _e2266722685_)) - (_tl2266922692_ (##cdr _e2266722685_))) - (if (gx#stx-pair? _tl2266922692_) - (let ((_e2267022695_ (gx#syntax-e _tl2266922692_))) - (let ((_hd2267122699_ (##car _e2267022695_)) - (_tl2267222702_ (##cdr _e2267022695_))) - (if (gx#stx-null? _tl2267222702_) - ((lambda (_L22705_) + (lambda (_$stx22664_) + (let* ((_g2266822682_ + (lambda (_g2266922678_) + (gx#raise-syntax-error '#f '"Bad syntax" _g2266922678_))) + (_g2266722723_ + (lambda (_g2266922686_) + (if (gx#stx-pair? _g2266922686_) + (let ((_e2267122689_ (gx#syntax-e _g2266922686_))) + (let ((_hd2267222693_ (##car _e2267122689_)) + (_tl2267322696_ (##cdr _e2267122689_))) + (if (gx#stx-pair? _tl2267322696_) + (let ((_e2267422699_ (gx#syntax-e _tl2267322696_))) + (let ((_hd2267522703_ (##car _e2267422699_)) + (_tl2267622706_ (##cdr _e2267422699_))) + (if (gx#stx-null? _tl2267622706_) + ((lambda (_L22709_) (cons (gx#datum->syntax '#f 'make-!struct-cons) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L22705_ '())) + (cons _L22709_ '())) '()))) - _hd2267122699_) - (_g2266422678_ _g2266522682_)))) - (_g2266422678_ _g2266522682_)))) - (_g2266422678_ _g2266522682_))))) - (_g2266322719_ _$stx22660_)))) + _hd2267522703_) + (_g2266822682_ _g2266922686_)))) + (_g2266822682_ _g2266922686_)))) + (_g2266822682_ _g2266922686_))))) + (_g2266722723_ _$stx22664_)))) (define |gxc[:0:]#@struct-getf| - (lambda (_$stx22723_) - (let* ((_g2272822761_ - (lambda (_g2272922757_) - (gx#raise-syntax-error '#f '"Bad syntax" _g2272922757_))) - (_g2272722816_ - (lambda (_g2272922765_) - (if (gx#stx-pair? _g2272922765_) - (let ((_e2274722768_ (gx#syntax-e _g2272922765_))) - (let ((_hd2274822772_ (##car _e2274722768_)) - (_tl2274922775_ (##cdr _e2274722768_))) - (if (gx#stx-pair? _tl2274922775_) - (let ((_e2275022778_ (gx#syntax-e _tl2274922775_))) - (let ((_hd2275122782_ (##car _e2275022778_)) - (_tl2275222785_ (##cdr _e2275022778_))) - (if (gx#stx-pair? _tl2275222785_) - (let ((_e2275322788_ - (gx#syntax-e _tl2275222785_))) - (let ((_hd2275422792_ - (##car _e2275322788_)) - (_tl2275522795_ - (##cdr _e2275322788_))) - (if (gx#stx-null? _tl2275522795_) - ((lambda (_L22798_ _L22800_) + (lambda (_$stx22727_) + (let* ((_g2273222765_ + (lambda (_g2273322761_) + (gx#raise-syntax-error '#f '"Bad syntax" _g2273322761_))) + (_g2273122820_ + (lambda (_g2273322769_) + (if (gx#stx-pair? _g2273322769_) + (let ((_e2275122772_ (gx#syntax-e _g2273322769_))) + (let ((_hd2275222776_ (##car _e2275122772_)) + (_tl2275322779_ (##cdr _e2275122772_))) + (if (gx#stx-pair? _tl2275322779_) + (let ((_e2275422782_ (gx#syntax-e _tl2275322779_))) + (let ((_hd2275522786_ (##car _e2275422782_)) + (_tl2275622789_ (##cdr _e2275422782_))) + (if (gx#stx-pair? _tl2275622789_) + (let ((_e2275722792_ + (gx#syntax-e _tl2275622789_))) + (let ((_hd2275822796_ + (##car _e2275722792_)) + (_tl2275922799_ + (##cdr _e2275722792_))) + (if (gx#stx-null? _tl2275922799_) + ((lambda (_L22802_ _L22804_) (cons (gx#datum->syntax '#f 'make-!struct-getf) @@ -1025,45 +1025,45 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _L22800_ '())) - (cons _L22798_ (cons '#f '()))))) + (cons _L22804_ '())) + (cons _L22802_ (cons '#f '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd2275422792_ - _hd2275122782_) - (_g2272822761_ _g2272922765_)))) - (_g2272822761_ _g2272922765_)))) - (_g2272822761_ _g2272922765_)))) - (_g2272822761_ _g2272922765_)))) - (_g2272622884_ - (lambda (_g2272922820_) - (if (gx#stx-pair? _g2272922820_) - (let ((_e2273322823_ (gx#syntax-e _g2272922820_))) - (let ((_hd2273422827_ (##car _e2273322823_)) - (_tl2273522830_ (##cdr _e2273322823_))) - (if (gx#stx-pair? _tl2273522830_) - (let ((_e2273622833_ (gx#syntax-e _tl2273522830_))) - (let ((_hd2273722837_ (##car _e2273622833_)) - (_tl2273822840_ (##cdr _e2273622833_))) - (if (gx#stx-pair? _tl2273822840_) - (let ((_e2273922843_ - (gx#syntax-e _tl2273822840_))) - (let ((_hd2274022847_ - (##car _e2273922843_)) - (_tl2274122850_ - (##cdr _e2273922843_))) - (if (gx#stx-pair? _tl2274122850_) - (let ((_e2274222853_ + _hd2275822796_ + _hd2275522786_) + (_g2273222765_ _g2273322769_)))) + (_g2273222765_ _g2273322769_)))) + (_g2273222765_ _g2273322769_)))) + (_g2273222765_ _g2273322769_)))) + (_g2273022888_ + (lambda (_g2273322824_) + (if (gx#stx-pair? _g2273322824_) + (let ((_e2273722827_ (gx#syntax-e _g2273322824_))) + (let ((_hd2273822831_ (##car _e2273722827_)) + (_tl2273922834_ (##cdr _e2273722827_))) + (if (gx#stx-pair? _tl2273922834_) + (let ((_e2274022837_ (gx#syntax-e _tl2273922834_))) + (let ((_hd2274122841_ (##car _e2274022837_)) + (_tl2274222844_ (##cdr _e2274022837_))) + (if (gx#stx-pair? _tl2274222844_) + (let ((_e2274322847_ + (gx#syntax-e _tl2274222844_))) + (let ((_hd2274422851_ + (##car _e2274322847_)) + (_tl2274522854_ + (##cdr _e2274322847_))) + (if (gx#stx-pair? _tl2274522854_) + (let ((_e2274622857_ (gx#syntax-e - _tl2274122850_))) - (let ((_hd2274322857_ - (##car _e2274222853_)) - (_tl2274422860_ - (##cdr _e2274222853_))) + _tl2274522854_))) + (let ((_hd2274722861_ + (##car _e2274622857_)) + (_tl2274822864_ + (##cdr _e2274622857_))) (if (gx#stx-null? - _tl2274422860_) - ((lambda (_L22863_ - _L22865_ - _L22866_) + _tl2274822864_) + ((lambda (_L22867_ + _L22869_ + _L22870_) (cons (gx#datum->syntax '#f 'make-!struct-getf) @@ -1071,43 +1071,43 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _L22866_ '())) - (cons _L22865_ (cons _L22863_ '()))))) + (cons _L22870_ '())) + (cons _L22869_ (cons _L22867_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd2274322857_ - _hd2274022847_ - _hd2273722837_) - (_g2272722816_ - _g2272922820_)))) - (_g2272722816_ _g2272922820_)))) - (_g2272722816_ _g2272922820_)))) - (_g2272722816_ _g2272922820_)))) - (_g2272722816_ _g2272922820_))))) - (_g2272622884_ _$stx22723_)))) + _hd2274722861_ + _hd2274422851_ + _hd2274122841_) + (_g2273122820_ + _g2273322824_)))) + (_g2273122820_ _g2273322824_)))) + (_g2273122820_ _g2273322824_)))) + (_g2273122820_ _g2273322824_)))) + (_g2273122820_ _g2273322824_))))) + (_g2273022888_ _$stx22727_)))) (define |gxc[:0:]#@struct-setf| - (lambda (_$stx22888_) - (let* ((_g2289322926_ - (lambda (_g2289422922_) - (gx#raise-syntax-error '#f '"Bad syntax" _g2289422922_))) - (_g2289222981_ - (lambda (_g2289422930_) - (if (gx#stx-pair? _g2289422930_) - (let ((_e2291222933_ (gx#syntax-e _g2289422930_))) - (let ((_hd2291322937_ (##car _e2291222933_)) - (_tl2291422940_ (##cdr _e2291222933_))) - (if (gx#stx-pair? _tl2291422940_) - (let ((_e2291522943_ (gx#syntax-e _tl2291422940_))) - (let ((_hd2291622947_ (##car _e2291522943_)) - (_tl2291722950_ (##cdr _e2291522943_))) - (if (gx#stx-pair? _tl2291722950_) - (let ((_e2291822953_ - (gx#syntax-e _tl2291722950_))) - (let ((_hd2291922957_ - (##car _e2291822953_)) - (_tl2292022960_ - (##cdr _e2291822953_))) - (if (gx#stx-null? _tl2292022960_) - ((lambda (_L22963_ _L22965_) + (lambda (_$stx22892_) + (let* ((_g2289722930_ + (lambda (_g2289822926_) + (gx#raise-syntax-error '#f '"Bad syntax" _g2289822926_))) + (_g2289622985_ + (lambda (_g2289822934_) + (if (gx#stx-pair? _g2289822934_) + (let ((_e2291622937_ (gx#syntax-e _g2289822934_))) + (let ((_hd2291722941_ (##car _e2291622937_)) + (_tl2291822944_ (##cdr _e2291622937_))) + (if (gx#stx-pair? _tl2291822944_) + (let ((_e2291922947_ (gx#syntax-e _tl2291822944_))) + (let ((_hd2292022951_ (##car _e2291922947_)) + (_tl2292122954_ (##cdr _e2291922947_))) + (if (gx#stx-pair? _tl2292122954_) + (let ((_e2292222957_ + (gx#syntax-e _tl2292122954_))) + (let ((_hd2292322961_ + (##car _e2292222957_)) + (_tl2292422964_ + (##cdr _e2292222957_))) + (if (gx#stx-null? _tl2292422964_) + ((lambda (_L22967_ _L22969_) (cons (gx#datum->syntax '#f 'make-!struct-setf) @@ -1115,45 +1115,45 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _L22965_ '())) - (cons _L22963_ (cons '#f '()))))) + (cons _L22969_ '())) + (cons _L22967_ (cons '#f '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd2291922957_ - _hd2291622947_) - (_g2289322926_ _g2289422930_)))) - (_g2289322926_ _g2289422930_)))) - (_g2289322926_ _g2289422930_)))) - (_g2289322926_ _g2289422930_)))) - (_g2289123049_ - (lambda (_g2289422985_) - (if (gx#stx-pair? _g2289422985_) - (let ((_e2289822988_ (gx#syntax-e _g2289422985_))) - (let ((_hd2289922992_ (##car _e2289822988_)) - (_tl2290022995_ (##cdr _e2289822988_))) - (if (gx#stx-pair? _tl2290022995_) - (let ((_e2290122998_ (gx#syntax-e _tl2290022995_))) - (let ((_hd2290223002_ (##car _e2290122998_)) - (_tl2290323005_ (##cdr _e2290122998_))) - (if (gx#stx-pair? _tl2290323005_) - (let ((_e2290423008_ - (gx#syntax-e _tl2290323005_))) - (let ((_hd2290523012_ - (##car _e2290423008_)) - (_tl2290623015_ - (##cdr _e2290423008_))) - (if (gx#stx-pair? _tl2290623015_) - (let ((_e2290723018_ + _hd2292322961_ + _hd2292022951_) + (_g2289722930_ _g2289822934_)))) + (_g2289722930_ _g2289822934_)))) + (_g2289722930_ _g2289822934_)))) + (_g2289722930_ _g2289822934_)))) + (_g2289523053_ + (lambda (_g2289822989_) + (if (gx#stx-pair? _g2289822989_) + (let ((_e2290222992_ (gx#syntax-e _g2289822989_))) + (let ((_hd2290322996_ (##car _e2290222992_)) + (_tl2290422999_ (##cdr _e2290222992_))) + (if (gx#stx-pair? _tl2290422999_) + (let ((_e2290523002_ (gx#syntax-e _tl2290422999_))) + (let ((_hd2290623006_ (##car _e2290523002_)) + (_tl2290723009_ (##cdr _e2290523002_))) + (if (gx#stx-pair? _tl2290723009_) + (let ((_e2290823012_ + (gx#syntax-e _tl2290723009_))) + (let ((_hd2290923016_ + (##car _e2290823012_)) + (_tl2291023019_ + (##cdr _e2290823012_))) + (if (gx#stx-pair? _tl2291023019_) + (let ((_e2291123022_ (gx#syntax-e - _tl2290623015_))) - (let ((_hd2290823022_ - (##car _e2290723018_)) - (_tl2290923025_ - (##cdr _e2290723018_))) + _tl2291023019_))) + (let ((_hd2291223026_ + (##car _e2291123022_)) + (_tl2291323029_ + (##cdr _e2291123022_))) (if (gx#stx-null? - _tl2290923025_) - ((lambda (_L23028_ - _L23030_ - _L23031_) + _tl2291323029_) + ((lambda (_L23032_ + _L23034_ + _L23035_) (cons (gx#datum->syntax '#f 'make-!struct-setf) @@ -1161,62 +1161,62 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _L23031_ '())) - (cons _L23030_ (cons _L23028_ '()))))) + (cons _L23035_ '())) + (cons _L23034_ (cons _L23032_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd2290823022_ - _hd2290523012_ - _hd2290223002_) - (_g2289222981_ - _g2289422985_)))) - (_g2289222981_ _g2289422985_)))) - (_g2289222981_ _g2289422985_)))) - (_g2289222981_ _g2289422985_)))) - (_g2289222981_ _g2289422985_))))) - (_g2289123049_ _$stx22888_)))) + _hd2291223026_ + _hd2290923016_ + _hd2290623006_) + (_g2289622985_ + _g2289822989_)))) + (_g2289622985_ _g2289822989_)))) + (_g2289622985_ _g2289822989_)))) + (_g2289622985_ _g2289822989_)))) + (_g2289622985_ _g2289822989_))))) + (_g2289523053_ _$stx22892_)))) (define |gxc[:0:]#@lambda| - (lambda (_$stx23053_) - (let* ((_g2305923099_ - (lambda (_g2306023095_) - (gx#raise-syntax-error '#f '"Bad syntax" _g2306023095_))) - (_g2305823142_ - (lambda (_g2306023103_) - (if (gx#stx-pair? _g2306023103_) - (let ((_e2308823106_ (gx#syntax-e _g2306023103_))) - (let ((_hd2308923110_ (##car _e2308823106_)) - (_tl2309023113_ (##cdr _e2308823106_))) - (if (gx#stx-pair? _tl2309023113_) - (let ((_e2309123116_ (gx#syntax-e _tl2309023113_))) - (let ((_hd2309223120_ (##car _e2309123116_)) - (_tl2309323123_ (##cdr _e2309123116_))) - (if (gx#stx-null? _tl2309323123_) - ((lambda (_L23126_ _L23128_) - (cons _L23128_ - (cons _L23126_ (cons '#f '())))) - _hd2309223120_ - _hd2308923110_) - (_g2305923099_ _g2306023103_)))) - (_g2305923099_ _g2306023103_)))) - (_g2305923099_ _g2306023103_)))) - (_g2305723196_ - (lambda (_g2306023146_) - (if (gx#stx-pair? _g2306023146_) - (let ((_e2307723149_ (gx#syntax-e _g2306023146_))) - (let ((_hd2307823153_ (##car _e2307723149_)) - (_tl2307923156_ (##cdr _e2307723149_))) - (if (gx#stx-pair? _tl2307923156_) - (let ((_e2308023159_ (gx#syntax-e _tl2307923156_))) - (let ((_hd2308123163_ (##car _e2308023159_)) - (_tl2308223166_ (##cdr _e2308023159_))) - (if (gx#stx-pair? _tl2308223166_) - (let ((_e2308323169_ - (gx#syntax-e _tl2308223166_))) - (let ((_hd2308423173_ - (##car _e2308323169_)) - (_tl2308523176_ - (##cdr _e2308323169_))) - (if (gx#stx-null? _tl2308523176_) - ((lambda (_L23179_ _L23181_) + (lambda (_$stx23057_) + (let* ((_g2306323103_ + (lambda (_g2306423099_) + (gx#raise-syntax-error '#f '"Bad syntax" _g2306423099_))) + (_g2306223146_ + (lambda (_g2306423107_) + (if (gx#stx-pair? _g2306423107_) + (let ((_e2309223110_ (gx#syntax-e _g2306423107_))) + (let ((_hd2309323114_ (##car _e2309223110_)) + (_tl2309423117_ (##cdr _e2309223110_))) + (if (gx#stx-pair? _tl2309423117_) + (let ((_e2309523120_ (gx#syntax-e _tl2309423117_))) + (let ((_hd2309623124_ (##car _e2309523120_)) + (_tl2309723127_ (##cdr _e2309523120_))) + (if (gx#stx-null? _tl2309723127_) + ((lambda (_L23130_ _L23132_) + (cons _L23132_ + (cons _L23130_ (cons '#f '())))) + _hd2309623124_ + _hd2309323114_) + (_g2306323103_ _g2306423107_)))) + (_g2306323103_ _g2306423107_)))) + (_g2306323103_ _g2306423107_)))) + (_g2306123200_ + (lambda (_g2306423150_) + (if (gx#stx-pair? _g2306423150_) + (let ((_e2308123153_ (gx#syntax-e _g2306423150_))) + (let ((_hd2308223157_ (##car _e2308123153_)) + (_tl2308323160_ (##cdr _e2308123153_))) + (if (gx#stx-pair? _tl2308323160_) + (let ((_e2308423163_ (gx#syntax-e _tl2308323160_))) + (let ((_hd2308523167_ (##car _e2308423163_)) + (_tl2308623170_ (##cdr _e2308423163_))) + (if (gx#stx-pair? _tl2308623170_) + (let ((_e2308723173_ + (gx#syntax-e _tl2308623170_))) + (let ((_hd2308823177_ + (##car _e2308723173_)) + (_tl2308923180_ + (##cdr _e2308723173_))) + (if (gx#stx-null? _tl2308923180_) + ((lambda (_L23183_ _L23185_) (cons (gx#datum->syntax '#f 'make-!lambda) @@ -1226,142 +1226,142 @@ 'quote) (cons (gx#datum->syntax '#f 'lambda) '())) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L23181_ '())) + (cons _L23185_ '())) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L23179_ '())) + (cons _L23183_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd2308423173_ - _hd2308123163_) - (_g2305823142_ _g2306023146_)))) - (_g2305823142_ _g2306023146_)))) - (_g2305823142_ _g2306023146_)))) - (_g2305823142_ _g2306023146_)))) - (_g2305623262_ - (lambda (_g2306023200_) - (if (gx#stx-pair? _g2306023200_) - (let ((_e2306323203_ (gx#syntax-e _g2306023200_))) - (let ((_hd2306423207_ (##car _e2306323203_)) - (_tl2306523210_ (##cdr _e2306323203_))) - (if (gx#stx-pair? _tl2306523210_) - (let ((_e2306623213_ (gx#syntax-e _tl2306523210_))) - (let ((_hd2306723217_ (##car _e2306623213_)) - (_tl2306823220_ (##cdr _e2306623213_))) - (if (gx#stx-pair? _tl2306823220_) - (let ((_e2306923223_ - (gx#syntax-e _tl2306823220_))) - (let ((_hd2307023227_ - (##car _e2306923223_)) - (_tl2307123230_ - (##cdr _e2306923223_))) - (if (gx#stx-datum? _hd2307023227_) + _hd2308823177_ + _hd2308523167_) + (_g2306223146_ _g2306423150_)))) + (_g2306223146_ _g2306423150_)))) + (_g2306223146_ _g2306423150_)))) + (_g2306223146_ _g2306423150_)))) + (_g2306023266_ + (lambda (_g2306423204_) + (if (gx#stx-pair? _g2306423204_) + (let ((_e2306723207_ (gx#syntax-e _g2306423204_))) + (let ((_hd2306823211_ (##car _e2306723207_)) + (_tl2306923214_ (##cdr _e2306723207_))) + (if (gx#stx-pair? _tl2306923214_) + (let ((_e2307023217_ (gx#syntax-e _tl2306923214_))) + (let ((_hd2307123221_ (##car _e2307023217_)) + (_tl2307223224_ (##cdr _e2307023217_))) + (if (gx#stx-pair? _tl2307223224_) + (let ((_e2307323227_ + (gx#syntax-e _tl2307223224_))) + (let ((_hd2307423231_ + (##car _e2307323227_)) + (_tl2307523234_ + (##cdr _e2307323227_))) + (if (gx#stx-datum? _hd2307423231_) (if (equal? (gx#stx-e - _hd2307023227_) + _hd2307423231_) 'inline:) (if (gx#stx-pair? - _tl2307123230_) - (let ((_e2307223233_ + _tl2307523234_) + (let ((_e2307623237_ (gx#syntax-e - _tl2307123230_))) - (let ((_hd2307323237_ - (##car _e2307223233_)) - (_tl2307423240_ - (##cdr _e2307223233_))) + _tl2307523234_))) + (let ((_hd2307723241_ + (##car _e2307623237_)) + (_tl2307823244_ + (##cdr _e2307623237_))) (if (gx#stx-null? - _tl2307423240_) - ((lambda (_L23243_ + _tl2307823244_) + ((lambda (_L23247_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L23245_) + _L23249_) (cons (gx#datum->syntax '#f 'make-!lambda) (cons (cons (gx#datum->syntax '#f 'quote) (cons (gx#datum->syntax '#f 'lambda) '())) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _L23245_ '())) + (cons _L23249_ '())) (cons '#f - (cons _L23243_ + (cons _L23247_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _L23243_ '())) + (cons _L23247_ '())) '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd2307323237_ - _hd2306723217_) - (_g2305723196_ _g2306023200_)))) + _hd2307723241_ + _hd2307123221_) + (_g2306123200_ _g2306423204_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g2305723196_ - _g2306023200_)) - (_g2305723196_ _g2306023200_)) - (_g2305723196_ _g2306023200_)))) - (_g2305723196_ _g2306023200_)))) - (_g2305723196_ _g2306023200_)))) - (_g2305723196_ _g2306023200_))))) - (_g2305623262_ _$stx23053_)))) + (_g2306123200_ + _g2306423204_)) + (_g2306123200_ _g2306423204_)) + (_g2306123200_ _g2306423204_)))) + (_g2306123200_ _g2306423204_)))) + (_g2306123200_ _g2306423204_)))) + (_g2306123200_ _g2306423204_))))) + (_g2306023266_ _$stx23057_)))) (define |gxc[:0:]#@case-lambda| - (lambda (_$stx23266_) - (let* ((_g2327023299_ - (lambda (_g2327123295_) - (gx#raise-syntax-error '#f '"Bad syntax" _g2327123295_))) - (_g2326923399_ - (lambda (_g2327123303_) - (if (gx#stx-pair? _g2327123303_) - (let ((_e2327423306_ (gx#syntax-e _g2327123303_))) - (let ((_hd2327523310_ (##car _e2327423306_)) - (_tl2327623313_ (##cdr _e2327423306_))) - (if (gx#stx-pair/null? _tl2327623313_) - (if (fx>= (gx#stx-length _tl2327623313_) '0) - (let ((_g23409_ + (lambda (_$stx23270_) + (let* ((_g2327423303_ + (lambda (_g2327523299_) + (gx#raise-syntax-error '#f '"Bad syntax" _g2327523299_))) + (_g2327323403_ + (lambda (_g2327523307_) + (if (gx#stx-pair? _g2327523307_) + (let ((_e2327823310_ (gx#syntax-e _g2327523307_))) + (let ((_hd2327923314_ (##car _e2327823310_)) + (_tl2328023317_ (##cdr _e2327823310_))) + (if (gx#stx-pair/null? _tl2328023317_) + (if (fx>= (gx#stx-length _tl2328023317_) '0) + (let ((_g23413_ (gx#syntax-split-splice - _tl2327623313_ + _tl2328023317_ '0))) (begin - (let ((_g23410_ (values-count _g23409_))) - (if (not (fx= _g23410_ 2)) + (let ((_g23414_ (values-count _g23413_))) + (if (not (fx= _g23414_ 2)) (error "Context expects 2 values" - _g23410_))) - (let ((_target2327723316_ - (values-ref _g23409_ 0)) - (_tl2327923319_ - (values-ref _g23409_ 1))) - (if (gx#stx-null? _tl2327923319_) - (letrec ((_loop2328023322_ - (lambda (_hd2327823326_ - _dispatch2328423329_ - _arity2328523331_) + _g23414_))) + (let ((_target2328123320_ + (values-ref _g23413_ 0)) + (_tl2328323323_ + (values-ref _g23413_ 1))) + (if (gx#stx-null? _tl2328323323_) + (letrec ((_loop2328423326_ + (lambda (_hd2328223330_ + _dispatch2328823333_ + _arity2328923335_) (if (gx#stx-pair? - _hd2327823326_) - (let ((_e2328123334_ + _hd2328223330_) + (let ((_e2328523338_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _hd2327823326_))) - (let ((_lp-hd2328223338_ (##car _e2328123334_)) - (_lp-tl2328323341_ (##cdr _e2328123334_))) - (if (gx#stx-pair? _lp-hd2328223338_) - (let ((_e2328823344_ - (gx#syntax-e _lp-hd2328223338_))) - (let ((_hd2328923348_ (##car _e2328823344_)) - (_tl2329023351_ (##cdr _e2328823344_))) - (if (gx#stx-pair? _tl2329023351_) - (let ((_e2329123354_ - (gx#syntax-e _tl2329023351_))) - (let ((_hd2329223358_ - (##car _e2329123354_)) - (_tl2329323361_ - (##cdr _e2329123354_))) - (if (gx#stx-null? _tl2329323361_) - (_loop2328023322_ - _lp-tl2328323341_ - (cons _hd2329223358_ - _dispatch2328423329_) - (cons _hd2328923348_ - _arity2328523331_)) - (_g2327023299_ _g2327123303_)))) - (_g2327023299_ _g2327123303_)))) - (_g2327023299_ _g2327123303_)))) - (let ((_dispatch2328623364_ (reverse _dispatch2328423329_)) - (_arity2328723367_ (reverse _arity2328523331_))) - ((lambda (_L23370_ _L23372_) + (gx#syntax-e _hd2328223330_))) + (let ((_lp-hd2328623342_ (##car _e2328523338_)) + (_lp-tl2328723345_ (##cdr _e2328523338_))) + (if (gx#stx-pair? _lp-hd2328623342_) + (let ((_e2329223348_ + (gx#syntax-e _lp-hd2328623342_))) + (let ((_hd2329323352_ (##car _e2329223348_)) + (_tl2329423355_ (##cdr _e2329223348_))) + (if (gx#stx-pair? _tl2329423355_) + (let ((_e2329523358_ + (gx#syntax-e _tl2329423355_))) + (let ((_hd2329623362_ + (##car _e2329523358_)) + (_tl2329723365_ + (##cdr _e2329523358_))) + (if (gx#stx-null? _tl2329723365_) + (_loop2328423326_ + _lp-tl2328723345_ + (cons _hd2329623362_ + _dispatch2328823333_) + (cons _hd2329323352_ + _arity2328923335_)) + (_g2327423303_ _g2327523307_)))) + (_g2327423303_ _g2327523307_)))) + (_g2327423303_ _g2327523307_)))) + (let ((_dispatch2329023368_ (reverse _dispatch2328823333_)) + (_arity2329123371_ (reverse _arity2328923335_))) + ((lambda (_L23374_ _L23376_) (cons (gx#datum->syntax '#f 'make-!case-lambda) (cons (cons (gx#datum->syntax '#f 'quote) (cons (gx#datum->syntax @@ -1371,29 +1371,29 @@ (cons (cons (gx#datum->syntax '#f '@list) (begin (gx#syntax-check-splice-targets - _L23370_ - _L23372_) - (foldr (lambda (_g2338723391_ + _L23374_ + _L23376_) + (foldr (lambda (_g2339123395_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g2338823394_ - _g2338923396_) + _g2339223398_ + _g2339323400_) (cons (cons (gx#datum->syntax '#f '@lambda) - (cons _g2338823394_ (cons _g2338723391_ '()))) - _g2338923396_)) + (cons _g2339223398_ (cons _g2339123395_ '()))) + _g2339323400_)) '() - _L23370_ - _L23372_))) + _L23374_ + _L23376_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _dispatch2328623364_ - _arity2328723367_)))))) + _dispatch2329023368_ + _arity2329123371_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop2328023322_ - _target2327723316_ + (_loop2328423326_ + _target2328123320_ '() '())) - (_g2327023299_ _g2327123303_))))) - (_g2327023299_ _g2327123303_)) - (_g2327023299_ _g2327123303_)))) - (_g2327023299_ _g2327123303_))))) - (_g2326923399_ _$stx23266_))))) + (_g2327423303_ _g2327523307_))))) + (_g2327423303_ _g2327523307_)) + (_g2327423303_ _g2327523307_)))) + (_g2327423303_ _g2327523307_))))) + (_g2327323403_ _$stx23270_)))))